diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-08-14 14:23:26 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-08-14 14:23:26 +0000 |
commit | eeefc6bc7d0b3af828a0c623ff63020b19d3bdcd (patch) | |
tree | bba70e0540f6b6149b1e29c5c5ff9615a6924636 /Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch | |
parent | 9ab7c0f8a5cfedd0f440ee28479755646a521f3f (diff) |
upTeX and e-upTeX (preliminary)
git-svn-id: svn://tug.org/texlive/trunk@23549 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch')
-rw-r--r-- | Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch new file mode 100644 index 00000000000..939ccb12a74 --- /dev/null +++ b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch @@ -0,0 +1,26 @@ +@x +procedure print_kanji(@!s:integer); {prints a single character} +begin +if s>255 then begin + if isprint_utf8 then begin + s:=UCStoUTF8(toUCS(s)); + if BYTE1(s)<>0 then print_char(BYTE1(s)); + if BYTE2(s)<>0 then print_char(BYTE2(s)); + if BYTE3(s)<>0 then print_char(BYTE3(s)); + print_char(BYTE4(s)); + end + else begin print_char(Hi(s)); print_char(Lo(s)); end; +end +else print_char(s); +end; +@y +procedure print_kanji(@!s:KANJI_code); {prints a single character} +begin +if isprint_utf8 then s:=UCStoUTF8(toUCS(s mod max_cjk_val)) +else s:=toBUFF(s mod max_cjk_val); +if BYTE1(s)<>0 then print_char(BYTE1(s)); +if BYTE2(s)<>0 then print_char(BYTE2(s)); +if BYTE3(s)<>0 then print_char(BYTE3(s)); + print_char(BYTE4(s)); +end; +@z |