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
|
