diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2019-11-13 10:14:26 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2019-11-13 10:14:26 +0000 |
commit | 5f94645f37aef24b6a3a1952b0724f4782fe99de (patch) | |
tree | f97f7ac5fe4eee8f96c9b257fa6e8839f1958c49 /Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch | |
parent | febfa49f76b9698e3362af058db3ab357e3712fe (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.ch | 8 |
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); |