From 498fdabb5a2e7d5048c7adcc780821c8d04cdd0a Mon Sep 17 00:00:00 2001 From: Takuji Tanaka Date: Wed, 1 May 2024 01:03:47 +0000 Subject: {,e}uptex: Revert some patches git-svn-id: svn://tug.org/texlive/trunk@71143 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/uptexdir/uptex-m.ch | 39 +++++------------------------ 1 file changed, 6 insertions(+), 33 deletions(-) (limited to 'Build/source/texk/web2c/uptexdir/uptex-m.ch') diff --git a/Build/source/texk/web2c/uptexdir/uptex-m.ch b/Build/source/texk/web2c/uptexdir/uptex-m.ch index 8c0f662087c..3daecd4e4d8 100644 --- a/Build/source/texk/web2c/uptexdir/uptex-m.ch +++ b/Build/source/texk/web2c/uptexdir/uptex-m.ch @@ -48,7 +48,7 @@ % (2022-07-23) TTK upTeX u1.29 % (2022-12-09) HK Hironori Kitagawa fixed a bug in \char, \kchar. % (2023-09-16) TTK upTeX u1.30 -% (2024-04-27) TTK upTeX u1.35 +% (2024-05-01) TTK upTeX u1.35 @x \def\pTeX{p\kern-.15em\TeX} @@ -580,13 +580,6 @@ if cat=other_kchar then k:=k-multilenbuffchar(cur_chr)+1; {now |k| points to fir else cur_tok:=(cur_cmd*max_char_val)+cur_chr @z -@x -@!j:0..buf_size; {index into |buffer|} -@y -@!j:0..buf_size; {index into |buffer|} -@!v,@!nn,@!jj: integer; -@z - @x if check_kanji(info(p)) then {|wchar_token|} begin buffer[j]:=Hi(info(p)); buffer2[j]:=1; incr(j); buffer2[j]:=1; @@ -595,31 +588,11 @@ if cat=other_kchar then k:=k-multilenbuffchar(cur_chr)+1; {now |k| points to fir buffer[j]:=Lo(info(p)); incr(j); p:=link(p); @y if check_kanji(info(p)) then {|wchar_token|} - begin - if (isinternalUPTEX) then begin - t:=ktokentochr(info(p)); - t:=toUCS(t); - nn:=UVSgetcodepointlength(t); - jj:=1; - while jj0) then begin - v:=UCStoUTF8(v); - if BYTE1(v)<>0 then begin buffer[j]:=BYTE1(v); buffer2[j]:=1; incr(j); end; - if BYTE2(v)<>0 then begin buffer[j]:=BYTE2(v); buffer2[j]:=1; incr(j); end; - if BYTE3(v)<>0 then begin buffer[j]:=BYTE3(v); buffer2[j]:=1; incr(j); end; - buffer[j]:=BYTE4(v); buffer2[j]:=1; incr(j); - end; - incr(jj); - end - end - else begin - t:=toBUFF(info(p) mod max_cjk_val); - if BYTE1(t)<>0 then begin buffer[j]:=BYTE1(t); buffer2[j]:=1; incr(j); end; - if BYTE2(t)<>0 then begin buffer[j]:=BYTE2(t); buffer2[j]:=1; incr(j); end; - if BYTE3(t)<>0 then begin buffer[j]:=BYTE3(t); buffer2[j]:=1; incr(j); end; - buffer[j]:=BYTE4(t); buffer2[j]:=1; incr(j); - end; + begin t:=toBUFF(info(p) mod max_cjk_val); + if BYTE1(t)<>0 then begin buffer[j]:=BYTE1(t); buffer2[j]:=1; incr(j); end; + if BYTE2(t)<>0 then begin buffer[j]:=BYTE2(t); buffer2[j]:=1; incr(j); end; + if BYTE3(t)<>0 then begin buffer[j]:=BYTE3(t); buffer2[j]:=1; incr(j); end; + buffer[j]:=BYTE4(t); buffer2[j]:=1; incr(j); p:=link(p); end else -- cgit v1.2.3