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
|
#!/usr/bin/perl
@index = <>;
# >> A <<
$primitives = '{above@|' . '{abovedisplayshortskip@|' .
'{abovedisplayskip@|' . '{accent@|' . '{adjdemerits@|' .
'{advance@|' . '{afterassignment@|' . '{aftergroup@|' .
'{atop@|' . '{atopwithdelims@' ;
@index = grep( !/$primitives/, @index);
# >> B <<
$primitives = '{badness@|' . '{baselineskip@|' . '{batchmode@|' .
'{begingroup@|' . '{belowdisplayshortskip@|' . '{belowdisplayskip@|' .
'{binoppenalty@|' . '{botmark@|' . '{box@|' . '{boxmaxdepth@|' .
'{brokenpenalty@' ;
@index = grep( !/$primitives/, @index);
# >> C <<
$primitives = '{catcode@|' . '{char@|' . '{chardef@|' . '{cleaders@|' .
'{closein@|' . '{closeout@|' . '{clubpenalty@|' . '{copy@|' .
'{count@|' . '{countdef@|' . '{cr@|' . '{crcr@|' .
'{csname@' ;
@index = grep( !/$primitives/, @index);
# >> D <<
$primitives = '{day@|' . '{deadcycles@|' . '{def@|' .
'{defaulthyphenchar@|' . '{defaultskewchar@|' .
'{delcode@|' . '{delimiter@|' . '{delimiterfactor@|' .
'{delimitershortfall@|' . '{dimen@|' . '{dimendef@|' .
'{discretionary@|' . '{displayindent@|' . '{displaylimits@|' .
'{displaystyle@|' . '{displaywidowpenalty@|' . '{displaywidth@|' .
'{divide@|' . '{doublehyphendemerits@|' . '{dp@|' .
'{dump@' ;
@index = grep( !/$primitives/, @index);
# >> E <<
$primitives = '{edef@|' . '{else@|' . '{emergencystretch@|' .
'{end@|' . '{endcsname@|' . '{endgroup@|' . '{endinput@|' .
'{endlinechar@|' . '{eqno@|' . '{errhelp@|' . '{errmessage@|' .
'{errorcontextlines@|' . '{errorstopmode@|' .
'{escapechar@|' . '{everycr@|' . '{everydisplay@|' .
'{everyhbox@|' . '{everyjob@|' . '{everymath@|' . '{everypar@|' .
'{everyvbox@|' . '{exhyphenpenalty@|' . '{expandafter@' ;
@index = grep( !/$primitives/, @index);
# >> F--G <<
$primitives = '{fam@|' . '{fi@|' . '{finalhyphendemerits@|' .
'{firstmark@|' . '{floatingpenalty@|' . '{font@|' .
'{fontdimen@|' . '{fontname@|' . '{futurelet@|' .
'{gdef@|' . '{global@|' . '{globaldefs@' ;
@index = grep( !/$primitives/, @index);
# >> H <<
$primitives = '{halign@|' . '{hangafter@|' . '{hangindent@|' .
'{hbadness@|' . '{hbox@|' . '{hfil@|' . '{hfill@|' .
'{hfuzz@|' . '{hoffset@|' . '{holdinginserts@|' . '{hrule@|' .
'{hsize@|' . '{hskip@|' . '{hss@|' . '{ht@|' . '{hyphenation@|' .
'{hyphenchar@|' . '{hyphenpenalty@' ;
@index = grep( !/$primitives/, @index);
# >> I--K <<
$primitives = '{if@|' . '{ifcase@|' . '{ifcat@|' . '{ifdim@|' .
'{ifeof@|' . '{ifffalse@|' . '{ifhbox@|' . '{ifhmode@|' .
'{ifinner@|' . '{ifmmode@|' . '{ifnum@|' . '{ifodd@|' .
'{iftrue@|' . '{ifvbox@|' . '{iifvmode@|' . '{ifvoid@|' . '{ifx@|' .
'{ignorespaces@|' .
'{immediate@|' . '{indent@|' . '{input@|' . '{inputlineno@|' .
'{insert@|' . '{insertpenalties@|' . '{interlinepenalty@|' .
'{jobname@|' .
'{kern@' ;
@index = grep( !/$primitives/, @index);
# >> L--M <<
$primitives = '{language@|' . '{lastbox@|' . '{lastkern@|' .
'{lastpenalty@|' . '{lastskip@|' . '{lccode@|' . '{leaders@|' .
'{left@|' . '{lefthyphenmin@|' . '{leftskip@|' . '{leqno@|' . '{let@|' .
'{limits@|' . '{linepenalty@|' . '{lineskip@|' . '{lineskiplimit@|' .
'{long@|' . '{looseness@|' . '{lower@|' . '{lowercase@|' .
'{mag@|' . '{mark@|' . '{mathaccent@|' . '{mathbin@|' .
'{mathchar@|' . '{mathchardef@|' . '{mathchoice@|' .
'{mathclose@|' . '{mathcode@|' . '{mathinner@|' . '{mathop@|' .
'{mathopen@|' . '{mathord@|' . '{mathpunct@|' . '{mathrel@|' .
'{mathsurround@|' . '{maxdeadcycles@|' . '{maxdepth@|' .
'{meaning@|' . '{medmuskip@|' . '{message@|' . '{mkern@|' .
'{month@|' . '{moveleft@|' . '{moveright@|' . '{mskip@|' .
'{multiply@|' . '{muskip@|' . '{muskipdef@' ;
@index = grep( !/$primitives/, @index);
# >> N--P <<
$primitives = '{newlinechar@|' . '{noalign@|' . '{noboundary@|' .
'{noexpand@|' . '{noindent@|' . '{nolimits@|' . '{nonscript@|' .
'{nonstopmode@|' .
'{nulldelimiterspace@|' . '{nullfont@|' . '{number@|' .
'{omit@|' . '{openin@|' . '{openout@|' . '{or@|' . '{outer@|' .
'{output@|' . '{outputpenalty@|' . '{over@|' . '{overfullrule@|' .
'{overline@|' . '{overwithdelims@|' .
'{pagedepth@|' . '{pagefilllstretch@|' . '{pagefillstretch@|' .
'{pagefilstretch@|' . '{pagegoal@|' . '{pageshrink@|' .
'{pagestretch@|' . '{pagetotal@|' . '{par@|' . '{parparfillskip@|' .
'{parindent@|' . '{parshape@|' . '{parskip@|' . '{patterns@|' .
'{pausing@|' . '{penalty@|' . '{postdisplaypenalty@|' .
'{predisplaypenalty@|' . '{predisplaysize@|' . '{pretolerance@|' .
'{prevdepth@|' . '{prevgraf@' ;
@index = grep( !/$primitives/, @index);
# >> R--S <<
$primitives = '{radical@|' . '{raise@|' . '{read@|' . '{relax@|' .
'{relpenalty@|' . '{right@|' . '{righthyphenmin@|' .
'{rightskip@|' . '{romannumeral@|' . '{scriptfont@|' .
'{scriptscriptfont@|' . '{scriptscriptstyle@|' .
'{scriptspace@|' . '{scriptstyle@|' . '{scrollmode@|' .
'{setbox@|' . '{setlanguage@|' . '{sfcode@|' . '{shipout@|' .
'{show@|' . '{showbox@|' . '{showboxbreadth@|' .
'{showboxdepth@|' . '{showlists@|' . '{showthe@|' .
'{skewchar@|' . '{skip@|' . '{skipdef@|' . '{spacefactor@|' .
'{spaceskip@|' . '{span@|' . '{special@|' . '{splitbotmark@|' .
'{splitfirstmark@|' . '{splitmaxdepth@|' . '{splittopskip@|' .
'{string@' ;
@index = grep( !/$primitives/, @index);
# >> T--Z <<
$primitives = '{tabskip@|' . '{textfont@|' . '{textstyle@|' .
'{the@|' . '{thickmuskip@|' . '{thinmuskip{' . '{time@|' .
'{toks@|' . '{toksdef@|' . '{tolerance@|' . '{topmark@|' .
'{topskip@|' . '{tracingcommands@|' . '{tracinglostchars@|' .
'{tracingmacros@|' . '{tracingonline@|' . '{tracingoutput@|' .
'{tracingpages@|' . '{tracingparagraphs@|' . '{tracingrestores@|' .
'{tracingstats@|' .
'{uccode@|' . '{uchyph@|' . '{underline@|' . '{unhbox@|' .
'{unhcopy@|' . '{unkern@|' . '{unpenalty@|' . '{unskip@|' .
'{unvbox@|' . '{unvcopy@|' . '{uppercase@|' .
'{vadjust@|' . '{valign@|' . '{vbadness@|' . '{vbox@|' . '{vcenter@|' .
'{vfil@|' . '{vfill@|' . '{vfilneg@|' . '{vfuzz@|' .
'{voffset@|' . '{vrule@|' . '{vsize@|' . '{vskip@|' .
'{vsplit@|' . '{vss@|' . '{vtop@|' .
'{wd@|' . '{widowpenalty@|' . '{write@|' .
'{xdef@|' . '{xleaders@|' . '{xspaceskip@|' .
'{year@';
@index = grep( !/$primitives/, @index);
print " @index\n";
|
