diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/catc-xml.mkiv')
-rw-r--r-- | Master/texmf-dist/tex/context/base/catc-xml.mkiv | 133 |
1 files changed, 133 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/catc-xml.mkiv b/Master/texmf-dist/tex/context/base/catc-xml.mkiv new file mode 100644 index 00000000000..1f11d353a27 --- /dev/null +++ b/Master/texmf-dist/tex/context/base/catc-xml.mkiv @@ -0,0 +1,133 @@ +%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 + +%D We register the catcodetables at the \LUA\ end where some further +%D initializations take place. + +\ctxlua { + characters.define( + { % letter catcodes + \number\xmlcatcodesn, + \number\xmlcatcodese, + \number\xmlcatcodesr, + }, + { % activate catcodes + \number\xmlcatcodesn, + \number\xmlcatcodese, + \number\xmlcatcodesr, + } + ) + catcodes.register("xmlcatcodes",\number\xmlcatcodes) +} + +\endinput |