summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/tests/ucs.tex
blob: de8a32fc1df4abd588884672eadf6f5c99fbeedf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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