diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2021-06-29 12:17:23 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2021-06-29 12:17:23 +0000 |
commit | 1e533cd59d86f8b4c7ec605b41498b069cc933bf (patch) | |
tree | 7725f275cd2c6ed7d67b813b0befb523b85af433 /Build/source/texk/web2c/ptexdir/tests/ucs.tex | |
parent | 7bc30853dc6c5c55866c56236a9a5eb3c135e5f5 (diff) |
ptexdir/tests/ucs*.tex: test files
git-svn-id: svn://tug.org/texlive/trunk@59751 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/tests/ucs.tex')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/tests/ucs.tex | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/ptexdir/tests/ucs.tex b/Build/source/texk/web2c/ptexdir/tests/ucs.tex new file mode 100644 index 00000000000..ed5350fd123 --- /dev/null +++ b/Build/source/texk/web2c/ptexdir/tests/ucs.tex @@ -0,0 +1,29 @@ +%#!eptex + +\def\typeout{\immediate\write17} + +\ifnum`あ="A4A2 \typeout{<EUC>} +\else\ifnum`ア="8341 \typeout{<SJIS>} +\else\typeout{<uptex>}\fi\fi + +\typeout{\string\ucs.} +\newcount\cntA +\loop\ifnum\cntA<256 + \ifnum0=\ucs\cntA\else\typeout{\the\cntA: \ucs\cntA (\Uchar\ucs\cntA)}\fi + \advance\cntA1 +\repeat + + +\typeout{\string\toucs.} +\cntA=0 +\loop\ifnum\cntA<256 + \ifnum0=\toucs\cntA\else\typeout{\the\cntA: \toucs\cntA}\fi + \advance\cntA1 +\repeat +\typeout{\toucs"0, \toucs"80, \toucs"D7, \toucs"A7, \toucs"10000} +\typeout{\toucs"8341, \toucs"EAA4, \toucs"EAA5} +\typeout{\toucs"A4A2, \toucs"F4A6, \toucs"F4A7} + + +\bye + |