summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir/euptex.ch1
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-08-14 14:23:26 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-08-14 14:23:26 +0000
commiteeefc6bc7d0b3af828a0c623ff63020b19d3bdcd (patch)
treebba70e0540f6b6149b1e29c5c5ff9615a6924636 /Build/source/texk/web2c/euptexdir/euptex.ch1
parent9ab7c0f8a5cfedd0f440ee28479755646a521f3f (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.ch127
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
+