summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/tests/printkanji.tex
blob: a8f1d4cb5a0d8bc1ee1e88ca1105225a0983e716 (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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
%\scrollmode
\tracingstats=1000
\noautoxspacing
\newlinechar=`\^^J
\font\x=ec-lmtt10 \x
\immediate\openout1=\jobname.out
\def\MSG#1{%
  \message{\string{MSG #1\string}}%
  \immediate\write17{\string{TOT #1\string}}%
  \immediate\write1{#1}%
}
\def\head#1{\message{■#1.}\par\noindent\hbox{■\null}#1.\par}
\message{^^J}

%================
\def\A{^^c5^^bf ſ 顛 }
A: \A

\MSG{\A}
\show\A

%================
\par
\head{\string\meaning}

\edef\B{\meaning\A}
\meaning\B

\B
\MSG{\meaning\B}
\show\B

%================
\head{\string\jobname}
\edef\C{:\jobname:}
\MSG{*あ*\jobname *\C*\meaning\C*}
\message{^^J}

%================
\catcode`\^^c5=11
\catcode`\^^bf=11
\catcode`\^^e1=11
\catcode`\^^e3=11
\catcode`\^^81=11
\catcode`\^^82=11

\head{oneletter}

\string\^^c4.\string\^^c5.\string\^^ff.
\count0=`\^^c5%
\MSG{\string\catcode`\string\^^c5 = \the\count0}%
\count0=`^^c5%
\MSG{\string\catcode`^^c5 = \the\count0}%
\count0=`^^c5^^bf%
\MSG{\string\catcode`^^c5^^bf = \the\count0}%
\count0=`顛%
\MSG{\string\catcode`顛 = \the\count0}%

%================
\head{csname1}

{\def\顛{hoge}\def\^^c5^^bf{piyo}
\show\顛
\show\^^c5^^bf
\expandafter\show\csname ^^c5^^bf\endcsname
\MSG{\string\顛=>\meaning\顛}
\MSG{\string\^^c5^^bf=>\meaning\^^c5^^bf}
\MSG{\expandafter\string\csname ^^c5^^bf\endcsname
  =>\expandafter\meaning\csname ^^c5^^bf\endcsname}}

\string\^^c5^^bf
\expandafter\string\csname ^^c5^^bf\endcsname,
\expandafter\string\csname ſ\endcsname,
\expandafter\string\csname 顛\endcsname
\MSG{\string\^^c5^^bf,
  \expandafter\string\csname ^^c5^^bf\endcsname,
  \expandafter\string\csname ſ\endcsname,
  \expandafter\string\csname 顛\endcsname.}

%================

\def\あ{hoge}
\message{^^J}
\def\TEST#1#2{%
  \expandafter\def\csname#2\endcsname{piyo}
  \par\toks0={#2}
  \expandafter\string\csname #1\endcsname => \csname #1\endcsname,\par
  \expandafter\string\csname #2\endcsname => \csname #2\endcsname,\par
  \expandafter\string\csname \the\toks0\endcsname => \csname \the\toks0\endcsname.
  \MSG{%
    \expandafter\string\csname #1\endcsname => \csname #1\endcsname,
    \expandafter\string\csname #2\endcsname => \csname #2\endcsname.
    \expandafter\string\csname \the\toks0\endcsname => \csname \the\toks0\endcsname.
  }%
}
\ifnum\euc"A4A2="A4A2\relax
  \TEST{あ}{^^a4^^a2}
\else
  \TEST{あ}{^^e3^^81^^82}
\fi

%================
\head{0xFF}
\catcode"FF=11
\message{^^J}

\def\^^ff^^c5^^ff^^bf{あ}
\edef\E{(\string\^^ff^^c5^^ff^^bf:\meaning\^^ff^^c5^^ff^^bf)}
\^^ff^^c5^^ff^^bf, \E, \string\^^ff^^c5^^ff^^bf, \meaning\E.
\MSG{\^^ff^^c5^^ff^^bf, \A, \string\^^ff^^c5^^ff^^bf, \meaning\E.}

\def\^^ff{い}
\edef\E{(\string\^^ff :\meaning\^^ff)}
\^^ff, \E, \string\^^ff, \meaning\E.
\MSG{\^^ff, \E, \string\^^ff, \meaning\E.}

\immediate\closeout1

%========
\head{contexts}

\errorcontextlines=10000
\def\@{\A\undefined}
\edef\a{^^c5^^bf a\A\noexpand\@ ſ 顛 }
\edef\+#1{\noexpand\^^c5^^bf\noexpand\顛\noexpand\^^ff^^c5^^ff^^bf#1
  \noexpand\^^ff\meaning\A\noexpand\^^c5^^bf\noexpand\顛}
\+\a

\^^ff^^c5^^ff^^bf ^^c5^^bf \^^c5^^bf ſ顛\a \^^ff ^^ff\^^c5^^bf

\^^c5\^^ff\^^c4\^^fe

\catcode`\^^c5=11
\catcode`\^^be=11
\catcode`\^^bf=11
\catcode`\^^bd=11
\catcode`\^^ff=11
\font\x=ec-lmtt10 \x\scrollmode

\def\^^c5^^bf{a}
\def\顛{b}
\def\転{c}
\message{\string\^^c5^^bf \string\^^ff^^c5}

\def\b{\ž.\ſ.\Ž..\転.\顛.\貼.}
\b

\ž.\ſ.\Ž..\転.\顛.\貼.


%========
\head{csname2}

SHOW \show\ſ.\show\顛.%
\expandafter\show\csname ſ\endcsname.%
\expandafter\show\csname 顛\endcsname

STRING \string\ſ.\string\顛.%
\expandafter\string\csname ſ\endcsname.%
\expandafter\string\csname 顛\endcsname

MEANING \meaning\ſ.\meaning\顛.%
\expandafter\meaning\csname ſ\endcsname.%
\expandafter\meaning\csname 顛\endcsname.%

\message{\string\^^e3^^81^^82 \string\あ}

\end