diff options
Diffstat (limited to 'tex/context/base/supp-mis.tex')
| -rw-r--r-- | tex/context/base/supp-mis.tex | 121 |
1 files changed, 61 insertions, 60 deletions
diff --git a/tex/context/base/supp-mis.tex b/tex/context/base/supp-mis.tex index a5865f9c4..5503f371f 100644 --- a/tex/context/base/supp-mis.tex +++ b/tex/context/base/supp-mis.tex @@ -8,8 +8,8 @@ %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. +%C therefore copyrighted by \PRAGMA. See mreadme.pdf for +%C details. %D Some support modules are more or less independant. This %D module, which is not part of plain \CONTEXT, provides the @@ -17,20 +17,20 @@ \ifx \undefined \writestatus \else \expandafter \endinput \fi -\ifx \undefined \pdfoutput \chardef\pdfoutput=0 \fi +\ifx \undefined \pdfoutput \chardef\pdfoutput=0 \fi %D Because \LATEX\ has no safe package loading mechanism, we -%D need to take care of possible interference. +%D need to take care of possible interference. -\def\StartLatexHack% +\def\StartLatexHack% {\edef\StopLatexHack - {\catcode`\noexpand/=\the\catcode`/ + {\catcode`\noexpand/=\the\catcode`/ \catcode`\noexpand:=\the\catcode`: \catcode`\noexpand;=\the\catcode`; \catcode`\noexpand"=\the\catcode`" - \catcode`\noexpand<=\the\catcode`< + \catcode`\noexpand<=\the\catcode`< \catcode`\noexpand>=\the\catcode`>}% - \catcode`/=12 \catcode`:=12 \catcode`;=12 + \catcode`/=12 \catcode`:=12 \catcode`;=12 \catcode`"=12 \catcode`<=12 \catcode`>=12 } %D This hack is needed especially for \LATEX\ users who use @@ -40,7 +40,7 @@ %D pointing that out and testing). Potentially active \type %D {?}'s and \type {!}'s are less dangerous since they are %D handled by the \type {\protect} and \type {\unprotect} -%D macros. +%D macros. \StartLatexHack @@ -70,7 +70,7 @@ \expandafter\gobblecontextobject \fi} -%D \macros +%D \macros %D {beginETEX,beginTEX} %D %D Outside \CONTEXT\ we will not be \ETEX||aware. @@ -160,15 +160,16 @@ \ifnocontextobject \scratchread \do \newread \scratchread \fi \ifnocontextobject \scratchwrite \do \newwrite \scratchwrite \fi -\ifnocontextobject \zeropoint \do \newdimen \zeropoint \fi -\ifnocontextobject \zerocount \do \chardef \zerocount=0 \fi -\ifnocontextobject \plusone \do \chardef \plusone =1 \fi +\ifnocontextobject \zeropoint \do \let \zeropoint \z@ \fi +\ifnocontextobject \onepoint \do \let \onepoint \p@ \fi +\ifnocontextobject \zerocount \do \chardef \zerocount =0 \fi +\ifnocontextobject \plusone \do \chardef \plusone =1 \fi \ifnocontextobject \minusone \do \newcount \minusone \fi \ifnocontextobject \thousandpoint \do \newdimen \thousandpoint \fi -\thousandpoint=1000pt -\minusone = -1 +\thousandpoint=1000pt +\minusone = -1 \ifnocontextobject \emptytoks \do \newtoks \emptytoks \fi @@ -203,10 +204,10 @@ \def\s!pt{pt} \def\s!bp{bp} -%D \macros +%D \macros %D {@EA,expanded,expandoneargafter,expandtwoargsafter} %D -%D Also needed: +%D Also needed: \let\@EA=\expandafter \let\@@expanded\empty @@ -278,9 +279,9 @@ \ifnocontextobject \smashbox \do \def\smashbox#1% - {\wd#1=\!!zeropoint - \ht#1=\!!zeropoint - \dp#1=\!!zeropoint} + {\wd#1\zeropoint + \ht#1\zeropoint + \dp#1\zeropoint} \fi @@ -361,10 +362,10 @@ \ifnocontextobject \forgetall \do - \def\forgetall% - {\parskip\!!zeropoint - \leftskip\!!zeropoint - \parindent\!!zeropoint + \def\forgetall + {\parskip\zeropoint + \leftskip\zeropoint + \parindent\zeropoint \everypar{}} \fi @@ -393,9 +394,9 @@ \scratchdimen=.996264\scratchdimen \edef#2{\withoutpt{\the\scratchdimen}}} - \def\ScaledPointsToWholeBigPoints#1#2% + \def\ScaledPointsToWholeBigPoints#1#2% {\scratchdimen=#1sp - \scratchdimen=.996264\scratchdimen + \scratchdimen=.996264\scratchdimen \scratchcounter=\scratchdimen \advance\scratchcounter by 32768 \divide\scratchcounter by 65536 @@ -421,7 +422,7 @@ \closein#1\relax \else \fileprocessedtrue - \gdef\dofinishfile% + \gdef\dofinishfile% {\closein#1\relax \global\let\doprocessline\relax}% \gdef\doprocessline% @@ -449,9 +450,9 @@ \def\dospecials {\do\ \do\\\do\{\do\}\do\$% \do\#\do\^\do\_\do\&\do\%% - \do\~\do\^^A\do\^^K} - -\fi + \do\~\do\^^A\do\^^K} + +\fi \ifnocontextobject \uncatcodespecials \do @@ -475,8 +476,8 @@ \catcode`\==\@@other \catcode`\<=\@@other \catcode`\>=\@@other \catcode`\"=\@@other \catcode`\'=\@@other \catcode`\`=\@@other \catcode`\:=\@@other \catcode`\;=\@@other - \catcode`\,=\@@other \catcode`\.=\@@other \catcode`\~=\@@other - \catcode`\(=\@@other \catcode`\)=\@@other + \catcode`\,=\@@other \catcode`\.=\@@other \catcode`\~=\@@other + \catcode`\(=\@@other \catcode`\)=\@@other \catcode`\{=\@@other \catcode`\}=\@@other \catcode`\\=\@@other \catcode`\%=\@@other } @@ -513,19 +514,19 @@ %D \macros %D {dostepwiserecurse, dorecurse, doloop, exitloop} -%D -%D The next loop macro is a real weak one, and does not offer -%D the full \CONTEXT\ functionality, let alone nesting, but -%D for simple purposes, its behaviour is acceptable. +%D +%D The next loop macro is a real weak one, and does not offer +%D the full \CONTEXT\ functionality, let alone nesting, but +%D for simple purposes, its behaviour is acceptable. \newcount\recursecounter -\def\dostepwiserecurse#1#2#3#4% very weak and rubishly version +\def\dostepwiserecurse#1#2#3#4% very weak and rubishly version {\ifnum#2<#1\relax\else\dodostepwiserecurse{#1}{#2}{#3}{#4}\fi} -\def\dodostepwiserecurse#1#2#3#4% very weak and rubishly version +\def\dodostepwiserecurse#1#2#3#4% very weak and rubishly version {\recursecounter=#1\relax - \loop + \loop \edef\recurselevel{\the\recursecounter}% #4\relax \ifnum\recursecounter<#2\relax @@ -541,12 +542,12 @@ \def\exitloop% {\recursecounter=\maxdimen} -%D \macros +%D \macros %D {ifundefined,doifdefined,doifundefined, %D doifdefinedelse,doifundefinedelse} %D -%D These alteratives are not robust but suitable for simple -%D usage. The official ones are a bit faster. +%D These alteratives are not robust but suitable for simple +%D usage. The official ones are a bit faster. \ifnocontextobject \doifdefined \do @@ -570,18 +571,18 @@ %D \macros %D {doifinstringelse} %D -%D It seems like we end up with more and more macros here. -%D Sigh. +%D It seems like we end up with more and more macros here. +%D Sigh. \ifnocontextobject \doifinstringelse \do \def\p!doifinstringelse#1#2% {\def\pp!doifinstringelse##1#1##2##3\war% {\csname if\if##2@fals\else tru\fi e\endcsname}% - \expanded{\pp!doifinstringelse#2#1@@\noexpand\war}} + \expanded{\pp!doifinstringelse#2#1@@\noexpand\war}} \long\def\doifinstringelse#1#2#3#4% - {\edef\@@@instring{#1}% + {\edef\@@@instring{#1}% \@EA\p!doifinstringelse\@EA{\@@@instring}{#2}#3\else#4\fi} \fi @@ -589,31 +590,31 @@ %D \macros %D {twodigitrounding} %D -%D We don't support rounding outside \CONTEXT. Sorry. +%D We don't support rounding outside \CONTEXT. Sorry. \def\twodigitrounding#1{#1} -%D \macros +%D \macros %D {lineheight} %D -%D In \CONTEXT\ we have \type{\lineheight}, which in many -%D cases matches \type {\baselineskip}. +%D In \CONTEXT\ we have \type{\lineheight}, which in many +%D cases matches \type {\baselineskip}. \ifnocontextobject \lineheight \do \def\lineheight{\baselineskip} -\fi +\fi -%D \macros +%D \macros %D {dohandletokens} %D -%D The following macro is the simplified version, but good -%D enough for day to day hacks. +%D The following macro is the simplified version, but good +%D enough for day to day hacks. %D -%D \starttypen +%D \starttypen %D \dohandletokens some text\with\somemacro -%D \stoptypen +%D \stoptypen \ifnocontextobject \dohandletokens \do @@ -632,7 +633,7 @@ \fi -%D Very reduced: +%D Very reduced: \long\def\appendtoks#1\to#2% {\scratchtoks{#1}\expanded{#2{\the#2\the\scratchtoks}}} @@ -649,11 +650,11 @@ \immediate\closein\scratchread \next} -%D New. +%D New. \let\donothing\empty -%D Also new: +%D Also new: \def\letempty #1{\let#1\empty} \def\globalletempty#1{\global\let#1\empty} @@ -661,7 +662,7 @@ \def\letvalueempty #1{\expandafter\let\csname#1\endcsname\empty} \def\letgvalueempty#1{\global\expandafter\let\csname#1\endcsname\empty} -%D Sigh +%D Sigh \def\settrue #1{\chardef#1\zerocount} \def\setfalse#1{\chardef#1\plusone} |