diff options
Diffstat (limited to 'tex/context/base/x-chemml.tex')
-rw-r--r-- | tex/context/base/x-chemml.tex | 70 |
1 files changed, 35 insertions, 35 deletions
diff --git a/tex/context/base/x-chemml.tex b/tex/context/base/x-chemml.tex index 8475fe81a..e34248cf5 100644 --- a/tex/context/base/x-chemml.tex +++ b/tex/context/base/x-chemml.tex @@ -1,20 +1,20 @@ %D \module -%D [ file=m-chemml, +%D [ filefile=m-chemml, %D version=2001.09.12, %D title=\CONTEXT\ XML Modules, -%D subtitle=Loading \CHEMML\ Filters, +%D subtitle=Loading CHEMML Filters, %D author=Hans Hagen, %D date=\currentdate, %D copyright={PRAGMA ADE / 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. +%C therefore copyrighted by \PRAGMA. See mreadme.pdf for +%C details. -\useXMLfilter[cml] +\useXMLfilter[cml] -%D Structural formulas are codes in a \PPCHTEX\ way; this -%D will change -) +%D Structural formulas are codes in a \PPCHTEX\ way; this +%D will change -) %D %D \startbuffer %D <dchem> @@ -60,23 +60,23 @@ %D %D \typebuffer -% \ifx\XMLgtoks\undefined \newtoks\XMLgtoks \fi -% \ifx\XMLttoks\undefined \newtoks\XMLttoks \fi -% +% \ifx\XMLgtoks\undefined \newtoks\XMLgtoks \fi +% \ifx\XMLttoks\undefined \newtoks\XMLttoks \fi +% % \defineXMLenvironment [structure] % {\startchemical\ignorespaces} % {\relax\stopchemical} -% -% \def\chemicalXMLg#1% \defineXMLcollect [graphic] \XMLgtoks +% +% \def\chemicalXMLg#1% \defineXMLcollect [graphic] \XMLgtoks % {\doifelsenothing{\the\XMLgtoks} % {\doglobal\appendtoks #1\to\XMLgtoks\ignorespaces} % {\doglobal\appendtoks,#1\to\XMLgtoks\ignorespaces}} -% +% % \def\chemicalXMLt#1% % {\doifelsenothing{\the\XMLttoks} % {\doglobal\appendtoks #1\to\XMLttoks\ignorespaces} % {\doglobal\appendtoks,#1\to\XMLttoks\ignorespaces}} -% +% % \defineXMLenvironment [component] [type=] % {\global\XMLgtoks\emptytoks % \global\XMLttoks\emptytoks @@ -85,21 +85,21 @@ % \ignorespaces} % {\expanded{\chemical[\the\XMLgtoks][\the\XMLttoks]}% % \ignorespaces} -% -% \defineXMLargument [oxidation] [sign=,n=1] \chemicalXMLo % +/- 1..7 -% +% +% \defineXMLargument [oxidation] [sign=,n=1] \chemicalXMLo % +/- 1..7 +% % \def\chemicalXMLo#1% % {\expanded{\chemicalXMLt % {\noexpand\chemicaloxidation{\XMLop{sign}}{\XMLop{n}}{#1}}}% % \ignorespaces} -% -% \defineXMLenvironment [annotation] [location=] +% +% \defineXMLenvironment [annotation] [location=] % {\bgroup % \defineXMLenvironmentsave[text]{\ignorespaces}{\ignorespaces}% % \defineXMLenvironmentsave[caption]{\ignorespaces}{\ignorespaces}% % \ignorespaces} % {\scratchtoks{\chemicalright}% -% \processaction +% \processaction % [\XMLop{location}] % [ t=>\scratchtoks{\chemicaltop}, % b=>\scratchtoks{\chemicalbottom}, @@ -115,29 +115,29 @@ % lb=>\scratchtoks{\chemicalleftbottom}, % rt=>\scratchtoks{\chemicalrighttop}, % rb=>\scratchtoks{\chemicalrightbottom}, -% x=>\scratchtoks{\chemicaltighttext}, +% x=>\scratchtoks{\chemicaltighttext}, % sl=>\scratchtoks{\chemicalsmashedleft}, % sm=>\scratchtoks{\chemicalsmashedmiddle}, -% sr=>\scratchtoks{\chemicalsmashedright}]% +% sr=>\scratchtoks{\chemicalsmashedright}]% % \expanded{\chemicalXMLt % {\the\scratchtoks{\XMLflush{text}}{\XMLflush{caption}}}}% % \egroup % \ignorespaces} -% +% % \defineXMLenvironment [forever] -% {\chemicalXMLt{\[}\ignorespaces} -% {\chemicalXMLt{\]}\ignorespaces} +% {\chemicalXMLt{\[}\ignorespaces} +% {\chemicalXMLt{\]}\ignorespaces} -\ifx\XMLgtoks\undefined \newtoks\XMLgtoks \fi -\ifx\XMLttoks\undefined \newtoks\XMLttoks \fi +\ifx\XMLgtoks\undefined \newtoks\XMLgtoks \fi +\ifx\XMLttoks\undefined \newtoks\XMLttoks \fi \startXMLmapping [cml] -% this will be a more natural method; this also triggers it +% this will be a more natural method; this also triggers it -\installXMLunknownremapping +\installXMLunknownremapping -% extensions +% extensions \remapXMLsequence [structure] [CPA] \doCMLstructure \remapXMLsequence [component] [CPA] \doCMLcomponent @@ -152,7 +152,7 @@ \def\doCMLstructure#1#2% {\startchemical\ignorespaces#2\unskip\stopchemical} -\def\doCMLgraphic#1#2% +\def\doCMLgraphic#1#2% {\doifelsenothing{\the\XMLgtoks} {\uppercase{\doglobal\appendtoks #2\to\XMLgtoks\ignorespaces}} {\uppercase{\doglobal\appendtoks,#2\to\XMLgtoks\ignorespaces}}% @@ -173,11 +173,11 @@ \def\doCMLannotation#1#2% {\getXMLarguments{cml}{location="" #1}% - \def\dodoCMLannotation##1% + \def\dodoCMLannotation##1% {\doCMLtext\empty{##1% {\let\doCMLtext \secondoftwoarguments\processXMLRchild{text}{#2}}% {\let\doCMLcaption\unmapXMLdata \processXMLRchild{caption}{#2}}}}% - \processaction + \processaction [\XMLpar{cml}{location}{r}] [ t=>\dodoCMLannotation\chemicaltop, b=>\dodoCMLannotation\chemicalbottom, @@ -193,7 +193,7 @@ lb=>\dodoCMLannotation\chemicalleftbottom, rt=>\dodoCMLannotation\chemicalrighttop, rb=>\dodoCMLannotation\chemicalrightbottom, - x=>\dodoCMLannotation\chemicaltighttext, + x=>\dodoCMLannotation\chemicaltighttext, sl=>\dodoCMLannotation\chemicalsmashedleft, sm=>\dodoCMLannotation\chemicalsmashedmiddle, sr=>\dodoCMLannotation\chemicalsmashedright]% @@ -209,4 +209,4 @@ \stopXMLmapping -\endinput +\endinput |