1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21\immutable\edef\letterleftbrace {\expandtoken \othercatcode \leftbraceasciicode}
22\immutable\edef\letterrightbrace {\expandtoken \othercatcode \rightbraceasciicode}
23\immutable\edef\letterampersand {\expandtoken \othercatcode \ampersandasciicode}
24\immutable\edef\letterless {\expandtoken \othercatcode \lessthanasciicode}
25\immutable\edef\lettermore {\expandtoken \othercatcode \morethanasciicode}
26\immutable\edef\letterhash {\expandtoken \othercatcode \hashasciicode}
27\immutable\edef\letterdoublequote {\expandtoken \othercatcode \doublequoteasciicode}
28\immutable\edef\lettersinglequote {\expandtoken \othercatcode \singlequoteasciicode}
29\immutable\edef\letterdollar {\expandtoken \othercatcode \dollarasciicode}
30\immutable\edef\letterpercent {\expandtoken \othercatcode \percentasciicode}
31\immutable\edef\letterhat {\expandtoken \othercatcode \circumflexasciicode}
32\immutable\edef\letterunderscore {\expandtoken \othercatcode \underscoreasciicode}
33\immutable\edef\letterbar {\expandtoken \othercatcode \barasciicode}
34\immutable\edef\lettertilde {\expandtoken \othercatcode \tildeasciicode}
35\immutable\edef\letterbackslash {\expandtoken \othercatcode \backslashasciicode}
36\immutable\edef\letterslash {\expandtoken \othercatcode \forwardslashasciicode}
37\immutable\edef\letterquestionmark {\expandtoken \othercatcode \questionmarkasciicode}
38\immutable\edef\letterexclamationmark {\expandtoken \othercatcode \exclamationmarkasciicode}
39\immutable\edef\letterat {\expandtoken \othercatcode \atsignasciicode}
40\immutable\edef\lettercolon {\expandtoken \othercatcode \colonasciicode}
41\immutable\edef\letterhyphen {\expandtoken \othercatcode \hyphenasciicode}
42
43\immutable\edef\letterleftparenthesis {\expandtoken \othercatcode \leftparentasciicode}
44\immutable\edef\letterrightparenthesis {\expandtoken \othercatcode \rightparentasciicode}
45\immutable\edef\letterleftbracket {\expandtoken \othercatcode \leftbracketasciicode}
46\immutable\edef\letterrightbracket {\expandtoken \othercatcode \rightbracketasciicode}
47
48\aliased\let\letterescape \letterbackslash
49\aliased\let\letterbgroup \letterleftbrace
50\aliased\let\letteregroup \letterrightbrace
51\aliased\let\letteropenbrace \letterleftbrace
52\aliased\let\letterclosebrace\letterrightbrace
53
54\unprotect
55
56
57
58
59
60\immutable\edef\s!e_o_t_token{\expandtoken \othercatcode \plusfour }
61
62
63
64\protect
65
66
67
68
69
70
71
72
73
74\permanent\protected\def\setnormalcatcodes
75 {\setcatcodetable\ctxcatcodes}
76
77\permanent\protected\def\uncatcodespacetokens
78 {\catcode\spaceasciicode \spacecatcode
79 \catcode\tabasciicode \spacecatcode
80 \catcode\formfeedasciicode \endoflinecatcode
81 \catcode\endoflineasciicode\endoflinecatcode
82 \catcode\delasciicode \ignorecatcode}
83
84
85
86
87
88\aliased \let\rescan \scantextokens
89\permanent\def\rescanwithsetup#1#2{\begingroup\directsetup{#1}\scantextokens{#2}\endgroup}
90
91\endinput
92 |