diff options
Diffstat (limited to 'Build/source/texk/web2c/euptexdir/euptex.ch1')
-rw-r--r-- | Build/source/texk/web2c/euptexdir/euptex.ch1 | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/euptexdir/euptex.ch1 b/Build/source/texk/web2c/euptexdir/euptex.ch1 new file mode 100644 index 00000000000..1a2039cb62d --- /dev/null +++ b/Build/source/texk/web2c/euptexdir/euptex.ch1 @@ -0,0 +1,27 @@ +@x [1.2] +@d banner==epTeX_banner +@d banner_k==epTeX_banner_k +@y +@d banner==eupTeX_banner +@d banner_k==eupTeX_banner_k +@z + +@x e-pTeX: ifcsname l.28620 + if check_kanji(info(p)) then {|wchar_token|} + begin buffer[m]:=Hi(info(p)); incr(m); + end; + buffer[m]:=Lo(info(p)); incr(m); p:=link(p); +@y + if check_kanji(info(p),4)=2 then {|wchar_token|} + begin + if BYTE1(toBUFF(info(p) mod max_cjk_val))<>0 then begin buffer[m]:=BYTE1(toBUFF(info(p) mod max_cjk_val)); incr(m); end; + if BYTE2(toBUFF(info(p) mod max_cjk_val))<>0 then begin buffer[m]:=BYTE2(toBUFF(info(p) mod max_cjk_val)); incr(m); end; + if BYTE3(toBUFF(info(p) mod max_cjk_val))<>0 then begin buffer[m]:=BYTE3(toBUFF(info(p) mod max_cjk_val)); incr(m); end; + buffer[m]:=BYTE4(toBUFF(info(p) mod max_cjk_val)); incr(m); + p:=link(p); + end + else + begin buffer[m]:=info(p) mod max_char_val; incr(m); p:=link(p); + end; +@z + |