summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/tests/ucs.tex
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2021-06-29 12:17:23 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2021-06-29 12:17:23 +0000
commit1e533cd59d86f8b4c7ec605b41498b069cc933bf (patch)
tree7725f275cd2c6ed7d67b813b0befb523b85af433 /Build/source/texk/web2c/ptexdir/tests/ucs.tex
parent7bc30853dc6c5c55866c56236a9a5eb3c135e5f5 (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.tex29
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
+