summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2019-11-13 10:14:26 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2019-11-13 10:14:26 +0000
commit5f94645f37aef24b6a3a1952b0724f4782fe99de (patch)
treef97f7ac5fe4eee8f96c9b257fa6e8839f1958c49 /Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch
parentfebfa49f76b9698e3362af058db3ab357e3712fe (diff)
e[u]ptex: add \Uchar and \Ucharcat (H. Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@52771 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch')
-rw-r--r--Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch8
1 files changed, 8 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch
index 80c1a7dd555..b583095744c 100644
--- a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch
+++ b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch
@@ -1,4 +1,12 @@
@x
+ if t=" " then t:=space_token
+ else t:=other_token+t;
+@y
+ else if t=" " then t:=space_token
+ else t:=other_token+t;
+@z
+
+@x
procedure print_kanji(@!s:KANJI_code); {prints a single character}
begin
s:=toBUFF(s mod max_cjk_val);