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
|