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/euptex.ch1 | |
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/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 + |