summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/catc-xml.mkii
blob: 2349e01a247afbbe29b9e472b621dc6376579f67 (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
%D \module
%D   [       file=catc-xml,
%D        version=2006.09.18,
%D          title=\CONTEXT\ Catcode Macros,
%D       subtitle=\XML\ Catcode Tables,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\writestatus{loading}{ConTeXt Catcode Regimes / XML}

\ifdefined \xmlcatcodesn \else \newcatcodetable \xmlcatcodesn \fi % normal
\ifdefined \xmlcatcodese \else \newcatcodetable \xmlcatcodese \fi % entitle
\ifdefined \xmlcatcodesr \else \newcatcodetable \xmlcatcodesr \fi % reduce

\startcatcodetable \xmlcatcodesn
    \catcode\tabasciicode       \spacecatcode
    \catcode\endoflineasciicode \endoflinecatcode
    \catcode\formfeedasciicode  \endoflinecatcode
    \catcode\spaceasciicode     \spacecatcode
    \catcode\endoffileasciicode \ignorecatcode
    \catcode\ampersandasciicode \activecatcode
    \catcode`\<                 \activecatcode
    \catcode`\>                 \othercatcode
    \catcode`\"                 \othercatcode % probably not needed any more
    \catcode`\/                 \othercatcode % probably not needed any more
    \catcode`\'                 \othercatcode % probably not needed any more
    \catcode\tildeasciicode     \othercatcode % probably not needed any more
    \catcode\hashasciicode      \othercatcode % probably not needed any more
    \catcode\backslashasciicode \othercatcode % probably not needed any more
\stopcatcodetable

\startcatcodetable \xmlcatcodese
    \catcode\tabasciicode       \spacecatcode
    \catcode\endoflineasciicode \endoflinecatcode
    \catcode\formfeedasciicode  \endoflinecatcode
    \catcode\spaceasciicode     \spacecatcode
    \catcode\endoffileasciicode \ignorecatcode
    \catcode\ampersandasciicode \activecatcode
    \catcode`\<                 \activecatcode
    \catcode`\>                 \activecatcode
    \catcode\hashasciicode      \activecatcode
    \catcode\dollarasciicode    \activecatcode
    \catcode\commentasciicode   \activecatcode
    \catcode\backslashasciicode \activecatcode
    \catcode\circumflexasciicode\activecatcode
    \catcode\underscoreasciicode\activecatcode
    \catcode\leftbraceasciicode \activecatcode
    \catcode\rightbraceasciicode\activecatcode
    \catcode\barasciicode       \activecatcode
    \catcode\tildeasciicode     \activecatcode
\stopcatcodetable

\startcatcodetable \xmlcatcodesr
    \catcode\tabasciicode       \spacecatcode
    \catcode\endoflineasciicode \endoflinecatcode
    \catcode\formfeedasciicode  \endoflinecatcode
    \catcode\spaceasciicode     \spacecatcode
    \catcode\endoffileasciicode \ignorecatcode
    \catcode\ampersandasciicode \activecatcode
    \catcode`\<                 \activecatcode
    \catcode`\>                 \activecatcode
    \catcode\hashasciicode      \activecatcode
    \catcode\dollarasciicode    \activecatcode
    \catcode\commentasciicode   \activecatcode
    \catcode\backslashasciicode \activecatcode
    \catcode\circumflexasciicode\activecatcode
    \catcode\underscoreasciicode\activecatcode
    \catcode\leftbraceasciicode \activecatcode
    \catcode\rightbraceasciicode\activecatcode
    \catcode\barasciicode       \activecatcode
    \catcode\tildeasciicode     \activecatcode
\stopcatcodetable

%D Next we hook in some active character definitions.

\letcatcodecommand \xmlcatcodesn \ampersandasciicode  \relax
\letcatcodecommand \xmlcatcodesn `\<                  \relax

\letcatcodecommand \xmlcatcodese \ampersandasciicode  \relax
\letcatcodecommand \xmlcatcodese `\<                  \relax

\letcatcodecommand \xmlcatcodesr \ampersandasciicode  \relax
\letcatcodecommand \xmlcatcodesr `\<                  \relax

\letcatcodecommand \xmlcatcodese \hashasciicode       \relax
\letcatcodecommand \xmlcatcodese \dollarasciicode     \relax
\letcatcodecommand \xmlcatcodese \commentasciicode    \relax
\letcatcodecommand \xmlcatcodese \backslashasciicode  \relax
\letcatcodecommand \xmlcatcodese \circumflexasciicode \relax
\letcatcodecommand \xmlcatcodese \underscoreasciicode \relax
\letcatcodecommand \xmlcatcodese \leftbraceasciicode  \relax
\letcatcodecommand \xmlcatcodese \rightbraceasciicode \relax
\letcatcodecommand \xmlcatcodese \barasciicode        \relax
\letcatcodecommand \xmlcatcodese \tildeasciicode      \relax

\letcatcodecommand \xmlcatcodesr \hashasciicode       \relax
\letcatcodecommand \xmlcatcodesr \dollarasciicode     \relax
\letcatcodecommand \xmlcatcodesr \commentasciicode    \relax
\letcatcodecommand \xmlcatcodesr \backslashasciicode  \relax
\letcatcodecommand \xmlcatcodesr \circumflexasciicode \relax
\letcatcodecommand \xmlcatcodesr \underscoreasciicode \relax
\letcatcodecommand \xmlcatcodesr \leftbraceasciicode  \relax
\letcatcodecommand \xmlcatcodesr \rightbraceasciicode \relax
\letcatcodecommand \xmlcatcodesr \barasciicode        \relax
\letcatcodecommand \xmlcatcodesr \tildeasciicode      \relax

\let\xmlcatcodes   \xmlcatcodesn % beware, in mkiv we use \notcatcodes

\endinput