diff options
| author | Hans Hagen <pragma@wxs.nl> | 2001-08-28 00:00:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2001-08-28 00:00:00 +0200 |
| commit | 398264e8338d79fc389c76f0a1f0b30e4442f4e3 (patch) | |
| tree | 01f154356243a9c3330689cd5b25a6d48e15ec6e /tex/context/base/xtag-ini.tex | |
| parent | 60cc55d63b06031c0c852888fddeaff74a209011 (diff) | |
| download | context-398264e8338d79fc389c76f0a1f0b30e4442f4e3.tar.gz | |
stable 2001.08.28
Diffstat (limited to 'tex/context/base/xtag-ini.tex')
| -rw-r--r-- | tex/context/base/xtag-ini.tex | 44 |
1 files changed, 20 insertions, 24 deletions
diff --git a/tex/context/base/xtag-ini.tex b/tex/context/base/xtag-ini.tex index fa61cca94..970f065df 100644 --- a/tex/context/base/xtag-ini.tex +++ b/tex/context/base/xtag-ini.tex @@ -11,34 +11,27 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. -% etex optimized +\beginTEX + \writestatus{XML}{sorry, XML is only supported in (pdf)etex} + \def\startXMLdefinitions{\gobbleuntil\stopXMLdefinitions} + \endinput +\endTEX -\unprotect +\beginETEX XML -\def\unspaced#1% - {\dounspaced#1\end} + \bgroup \obeylines -\def\dounspaced#1% - {\ifx#1\end - \else\ifx#1\blankspace - \@EA\@EA\@EA\dounspaced - \else - #1\@EA\@EA\@EA\dounspaced - \fi\fi} + \gdef\startXMLdefinitions% + {\bgroup\obeylines\dostartXMLdefinitions} -\def\unspaceargument#1\to#2% - {\convertargument#1\to#2% - \@EA\edef\@EA#2\@EA{\@EA\unspaced\@EA{#2}}} + \gdef\dostartXMLdefinitions #1 + {\egroup\doifsomething{#1}{\writestatus{XML}{loading #1 support}}} -\def\unspaceafter#1#2% - {\edef\ascii{\dounspaced#2\end}\@EA#1\@EA{\ascii}} + \global\let\stopXMLdefinitions\relax -\protect + \egroup -\beginTEX - \writestatus{xml}{sorry, xml is only supported in (pdf)etex} - \endinput -\endTEX +\endETEX \writestatus{loading}{Context XML Macros (ini)} @@ -186,7 +179,6 @@ .gdef.enableXML* B.catcode`.!=.@@other* - .catcode`."=.@@other* .catcode`.?=.@@other* .catcode`.&=.@@active .let&=.doXMLentity* .catcode`.<=.@@active .unexpanded.def<B.doXMLelementE* @@ -351,9 +343,11 @@ \defineXMLprocessor[context-command]{\contextXMLcommand} \def\contextXMLcommand#1% - {\def\disableXML{\global\let\afterXMLprocessor\empty}% + {\pushmacro\disableXML + \def\disableXML{\global\let\afterXMLprocessor\empty}% \global\let\afterXMLprocessor\enableXML - \setnormalcatcodes\scantokens{#1}\afterXMLprocessor} + \setnormalcatcodes\scantokens{#1}\afterXMLprocessor + \popmacro\disableXML} \defineXMLprocessor[context-directive]{\contextXMLdirective} @@ -377,6 +371,8 @@ %\catcode`\|=\@@active \catcode`\~=\@@active \catcode`\{=\@@begingroup \catcode`\}=\@@endgroup} +\let\disableXML\setnormalcatcodes + %D Given the previous definition, and given that \ETEX\ is %D used, we can now say: %D |