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-pre.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-pre.ch')
| -rw-r--r-- | Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch | 17 |
1 files changed, 17 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 new file mode 100644 index 00000000000..80c1a7dd555 --- /dev/null +++ b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch @@ -0,0 +1,17 @@ +@x +procedure print_kanji(@!s:KANJI_code); {prints a single character} +begin +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; +@y +procedure print_kanji(@!s:KANJI_code); {prints a single character} +begin +if s>255 then + begin print_char(Hi(s)); print_char(Lo(s)); + end else print_char(s); +end; +@z |