stable 2004.01.02

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}