SourceBrowser

catc-ctx.mkiv /size: 7171 b last modification: 2020-07-01 14:35
1%D \module
2%D   [       file=catc-cys,
3%D        version=2006.09.18,
4%D          title=\CONTEXT\ Catcode Macros,
5%D       subtitle=Extra Tables,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14%D We prefer to define relevant catcode tables in this file instead
15%D of everywhere around.
16
17\ifdefined
 \ctxcatcodes
 \else
 \newcatcodetable
 \ctxcatcodes
 \fi
18\ifdefined
 \prtcatcodes
 \else
 \newcatcodetable
 \prtcatcodes
 \fi
19\ifdefined
 \txtcatcodes
 \else
 \newcatcodetable
 \txtcatcodes
 \fi
20%ifdefined \mthcatcodes \else \newcatcodetable \mthcatcodes \fi % math, not used, too tricky
21\ifdefined
 \tpacatcodes
 \else
 \newcatcodetable
 \tpacatcodes
 \fi
 % { }
22\ifdefined
 \tpbcatcodes
 \else
 \newcatcodetable
 \tpbcatcodes
 \fi
 % < >
23
24\setnewconstant
 \doublecommentsignal
 "
1
0
FF
2
5
 %% < 110000 (last valid range)
25
26\startcatcodetable
 \ctxcatcodes
27    \catcode
\tabasciicode
       \spacecatcode
28    \catcode
\endoflineasciicode
 \endoflinecatcode
29    \catcode
\formfeedasciicode
  \endoflinecatcode
30    \catcode
\spaceasciicode
     \spacecatcode
31    \catcode
\endoffileasciicode
 \ignorecatcode
32  % \catcode\circumflexasciicode\superscriptcatcode
33  % \catcode\underscoreasciicode\subscriptcatcode
34  % \catcode\ampersandasciicode \alignmentcatcode
35    \catcode
\underscoreasciicode\othercatcode
36    \catcode
\circumflexasciicode\othercatcode
37    \catcode
\ampersandasciicode
 \othercatcode
38    \catcode
\backslashasciicode
 \escapecatcode
39    \catcode
\leftbraceasciicode
 \begingroupcatcode
40    \catcode
\rightbraceasciicode\endgroupcatcode
41    \catcode
\dollarasciicode
    \mathshiftcatcode
42    \catcode
\hashasciicode
      \parametercatcode
43    \catcode
\commentasciicode
   \commentcatcode
44    \catcode
\tildeasciicode
     \activecatcode
45    \catcode
\barasciicode
       \activecatcode
46\stopcatcodetable
47
48\startcatcodetable
 \prtcatcodes
49    \catcode
\tabasciicode
            \spacecatcode
50    \catcode
\endoflineasciicode
      \endoflinecatcode
51    \catcode
\formfeedasciicode
       \endoflinecatcode
52    \catcode
\spaceasciicode
          \spacecatcode
53    \catcode
\endoffileasciicode
      \ignorecatcode
54    \catcode
\circumflexasciicode
     \superscriptcatcode
     % candidate
55    \catcode
\underscoreasciicode
     \lettercatcode
56    \catcode
\ampersandasciicode
      \alignmentcatcode
57%   \catcode\colonasciicode          \lettercatcode          % candidate
58    \catcode
\backslashasciicode
      \escapecatcode
59    \catcode
\leftbraceasciicode
      \begingroupcatcode
60    \catcode
\rightbraceasciicode
     \endgroupcatcode
61    \catcode
\dollarasciicode
         \mathshiftcatcode
62    \catcode
\hashasciicode
           \parametercatcode
63    \catcode
\commentasciicode
        \commentcatcode
64    \catcode
\atsignasciicode
         \lettercatcode
65    \catcode
\exclamationmarkasciicode\lettercatcode
66    \catcode
\questionmarkasciicode
   \lettercatcode
67    \catcode
\tildeasciicode
          \activecatcode
68    \catcode
\barasciicode
            \activecatcode
69\stopcatcodetable
70
71%startcatcodetable \mthcatcodes
72%   \catcode\tabasciicode       \spacecatcode
73%   \catcode\endoflineasciicode \endoflinecatcode
74%  %\catcode\newlineasciicode   \spacecatcode
75%   \catcode\formfeedasciicode  \endoflinecatcode
76%   \catcode\spaceasciicode     \spacecatcode
77%   \catcode\endoffileasciicode \ignorecatcode
78%   \catcode\circumflexasciicode\superscriptcatcode
79%   \catcode\underscoreasciicode\subscriptcatcode
80%   \catcode\ampersandasciicode \alignmentcatcode
81%   \catcode\backslashasciicode \escapecatcode
82%   \catcode\leftbraceasciicode \begingroupcatcode
83%   \catcode\rightbraceasciicode\endgroupcatcode
84%   \catcode\dollarasciicode    \mathshiftcatcode
85%   \catcode\hashasciicode      \parametercatcode
86%   \catcode\commentasciicode   \commentcatcode
87%  %\catcode\tildeasciicode     \activecatcode
88%  %\catcode\barasciicode       \activecatcode
89%stopcatcodetable
90
91\startcatcodetable
 \tpacatcodes
92    \catcode
\tabasciicode
       \othercatcode
93    \catcode
\endoflineasciicode
 \othercatcode
94    \catcode
\formfeedasciicode
  \othercatcode
95    \catcode
\spaceasciicode
     \othercatcode
96    \catcode
\endoffileasciicode
 \othercatcode
97    \catcode
\leftbraceasciicode
 \begingroupcatcode
98    \catcode
\rightbraceasciicode\endgroupcatcode
99\stopcatcodetable
100
101\startcatcodetable
 \tpbcatcodes
102    \catcode
\tabasciicode
       \othercatcode
103    \catcode
\endoflineasciicode
 \othercatcode
104    \catcode
\formfeedasciicode
  \othercatcode
105    \catcode
\spaceasciicode
     \othercatcode
106    \catcode
\endoffileasciicode
 \othercatcode
107    \catcode
\lessthanasciicode
  \begingroupcatcode
108    \catcode
\morethanasciicode
  \endgroupcatcode
109\stopcatcodetable
110
111\startcatcodetable
 \txtcatcodes
112    \catcode
\tabasciicode
       \spacecatcode
113    \catcode
\endoflineasciicode
 \endoflinecatcode
114    \catcode
\formfeedasciicode
  \endoflinecatcode
115    \catcode
\spaceasciicode
     \spacecatcode
116    \catcode
\endoffileasciicode
 \ignorecatcode
117    \catcode
\backslashasciicode
 \escapecatcode
118    \catcode
\leftbraceasciicode
 \begingroupcatcode
119    \catcode
\rightbraceasciicode\endgroupcatcode
120    \catcode
\doublecommentsignal\commentcatcode
121\stopcatcodetable
122
123\letcatcodecommand
 \ctxcatcodes
 \barasciicode
   \relax
124\letcatcodecommand
 \ctxcatcodes
 \tildeasciicode
 \relax
125
126     \catcodetable
        \ctxcatcodes
127\let
 \defaultcatcodetable
 \ctxcatcodes
128
129% for the moment here:
130
131\normalprotected\def
\starttexcode
132  {
\pushcatcodetable
133   \catcodetable
\prtcatcodes
}
134
135\normalprotected\def
\stoptexcode
136  {
\popcatcodetable
}
137
138\normalprotected\def
\startcontextcode
139  {
\pushcatcodetable
140   \catcodetable
\ctxcatcodes
}
141
142\normalprotected\def
\stopcontextcode
143  {
\popcatcodetable
}
144
145% not visible, only for special cases
146
147\newcatcodetable
 \ctdcatcodes
 % context definitions
148
149\startcatcodetable
 \ctdcatcodes
150    \catcode
\tabasciicode
            \ignorecatcode
151    \catcode
\endoflineasciicode
      \ignorecatcode
152    \catcode
\formfeedasciicode
       \ignorecatcode
153    \catcode
\spaceasciicode
          \ignorecatcode
154    \catcode
\endoffileasciicode
      \ignorecatcode
155    \catcode
\circumflexasciicode
     \superscriptcatcode
     % candidate
156    \catcode
\underscoreasciicode
     \lettercatcode
157    \catcode
\ampersandasciicode
      \alignmentcatcode
158%   \catcode\colonasciicode          \lettercatcode          % candidate
159    \catcode
\backslashasciicode
      \escapecatcode
160    \catcode
\leftbraceasciicode
      \begingroupcatcode
161    \catcode
\rightbraceasciicode
     \endgroupcatcode
162    \catcode
\dollarasciicode
         \mathshiftcatcode
163    \catcode
\hashasciicode
           \parametercatcode
164    \catcode
\commentasciicode
        \commentcatcode
165    \catcode
\atsignasciicode
         \lettercatcode
166    \catcode
\exclamationmarkasciicode\lettercatcode
167    \catcode
\questionmarkasciicode
   \lettercatcode
168    \catcode
\tildeasciicode
          \activecatcode
169    \catcode
\barasciicode
            \activecatcode
170\stopcatcodetable
171
172\normalprotected\def
\startcontextdefinitioncode
173  {
\pushcatcodetable
174   \catcodetable
\ctdcatcodes
}
175
176\normalprotected\def
\stopcontextdefinitioncode
177  {
\popcatcodetable
}
178
179\endinput
180
Source Browser ?
