diff options
Diffstat (limited to 'Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch')
-rw-r--r-- | Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch deleted file mode 100644 index b583095744c..00000000000 --- a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-pre.ch +++ /dev/null @@ -1,25 +0,0 @@ -@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); -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 |