From 82e002633513b0b73099d293aba30fb14360fa9a Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Tue, 23 Aug 2011 10:17:01 +0000 Subject: more upTeX and e-upTeX git-svn-id: svn://tug.org/texlive/trunk@23652 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/uptexdir/uptftopl.ch | 85 ++++++++++++++++++++++++++++ 1 file changed, 85 insertions(+) create mode 100644 Build/source/texk/web2c/uptexdir/uptftopl.ch (limited to 'Build/source/texk/web2c/uptexdir/uptftopl.ch') diff --git a/Build/source/texk/web2c/uptexdir/uptftopl.ch b/Build/source/texk/web2c/uptexdir/uptftopl.ch new file mode 100644 index 00000000000..a3b6b23ba6e --- /dev/null +++ b/Build/source/texk/web2c/uptexdir/uptftopl.ch @@ -0,0 +1,85 @@ +@x +@d banner=='This is pTFtoPL, Version 3.2-p1.7' +@y +@d banner=='This is upTFtoPL, Version 3.2-p1.7-u0.30' +@z + +@x + usage ('ptftopl'); +@y + usage ('uptftopl'); +@z + +@x + usage_help (PTFTOPL_HELP, nil); +@y + usage_help (UPTFTOPL_HELP, nil); +@z + +@x + print_ln ('ptftopl: Need one or two file arguments.'); + usage ('ptftopl'); +@y + print_ln ('uptftopl: Need one or two file arguments.'); + usage ('uptftopl'); +@z + +@x +@d max_kanji=7237 {number of the kanji characters - 1} +@y +@d max_kanji=65535 {number of the kanji characters - 1} +@z + +@x procedure out_kanji + begin cx:=jis_code; out('J '); {specify jiscode format} +@y + begin cx:=jis_code; + if (isinternalUPTEX) then out(' U ') + else out(' J '); {specify jiscode format} +@z +@x + out(xchr[Hi(cx)]); out(xchr[Lo(cx)]); +@y + if BYTE1(cx)<>0 then out(xchr[BYTE1(cx)]); + if BYTE2(cx)<>0 then out(xchr[BYTE2(cx)]); + if BYTE3(cx)<>0 then out(xchr[BYTE3(cx)]); + out(xchr[BYTE4(cx)]); +@z + +@x function valid_jis_code +var first_byte, second_byte:integer; { jis code bytes } +begin valid_jis_code:=true; +first_byte:=cx div @'400; second_byte:=cx mod @'400; +if (first_byte<@"21) + or((first_byte>@"28)and(first_byte<@"30)) + or(first_byte>@"74) then valid_jis_code:=false; +if (second_byte<@"21)or(second_byte>@"7E) then valid_jis_code:=false; +@y +begin valid_jis_code:=true; +if (cx>@"FFFF)or(check_kanji(fromDVI(cx),0)<>1) + or(toDVI(fromDVI(cx))<>cx) then valid_jis_code:=false; +@z + +@x function index_to_jis +if ix<=8*94-1 then + index_to_jis:=(ix div 94 + @"21) * @'400 + (ix mod 94 + @"21) +else + index_to_jis:=((ix+7 * 94) div 94 + @"21) * @'400 + ((ix+7*94) mod 94 + @"21); +@y +index_to_jis:=ix; +@z + +@x function jis_to_index +var first_byte,second_byte:integer; { jis code bytes } +begin +first_byte:=cx div @'400 - @"21; +second_byte:=cx mod @'400 - @"21; +if first_byte<8 then + jis_to_index:=first_byte*94+second_byte +else + jis_to_index:=(first_byte-7)*94+second_byte; +@y +begin +jis_to_index:=cx; +@z + -- cgit v1.2.3