diff options
author | Hans Hagen <pragma@wxs.nl> | 1998-03-27 00:00:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 1998-03-27 00:00:00 +0100 |
commit | 5f54d546a687e0615f87a117c5950b78ef346af7 (patch) | |
tree | ca1c0ce7e09685b5a3a55e57edca776e7dd66c59 /tex/context/base/syst-new.tex | |
parent | 4da38599c2b3c2397582838a9ac715897af7b1a8 (diff) | |
download | context-5f54d546a687e0615f87a117c5950b78ef346af7.tar.gz |
stable 1998.03.27
Diffstat (limited to 'tex/context/base/syst-new.tex')
-rw-r--r-- | tex/context/base/syst-new.tex | 251 |
1 files changed, 156 insertions, 95 deletions
diff --git a/tex/context/base/syst-new.tex b/tex/context/base/syst-new.tex index e9e8bb373..cd77b5dc6 100644 --- a/tex/context/base/syst-new.tex +++ b/tex/context/base/syst-new.tex @@ -1,95 +1,156 @@ -%D \module
-%D [ file=supp-new,
-%D version=1997.01.03,
-%D title=\CONTEXT\ Support Macros,
-%D subtitle=New Ones,
-%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. Non||commercial use is
-%C granted.
-
-\unprotect
-
-\def\DoMod #1by#2to#3%
- {\scratchcounter=#1\relax
- \divide\scratchcounter by #2\relax
- \multiply\scratchcounter by #2\relax
- #3=#1\relax
- \advance#3 by -\scratchcounter}
-
-\def\DoDiv #1by#2to#3%
- {#3=#1\relax
- \divide#3 by #2\relax}
-
-\def\dounprotected#1\par%
- {#1\protect}
-
-\def\unprotected%
- {\unprotect\dounprotected}
-
-%D \pagina
-%D \starttypen
-%D \def\obeyhyphens% % after fontswitch
-%D {\def\obeyedspace%
-%D {\hyphenchar\font=45
-%D \spaceskip.5em\!!plus.25em\!!minus.25em\relax%
-%D \def\obeyedspace{ }}}
-%D \stoptypen
-
-%D Standaard kan een spatie (zoals ~) uitrekken. Dit is in
-%D overzichten niet altijd de bedoeling, vandaar:
-
-\def\fixedspace%
- {\hskip\fontdimen2\font\relax}
-
-%\def\ExpandSecondAfter#1#2#3%
-% {\!!toksa={#2}%
-% \edef\!!stringa{#3}%
-% \edef\expanded%
-% {\noexpand#1{\the\!!toksa}{\!!stringa}}%
-% \expanded}
-%
-%\def\ExpandThirdAfter#1#2#3#4%
-% {\!!toksa={#2}%
-% \!!toksb={#3}%
-% \edef\!!stringa{#4}%
-% \edef\expanded%
-% {\noexpand#1{\the\!!toksa}{\the\!!toksb}{\!!stringa}}%
-% \expanded}
-
-%\def\indirect#1#2#3%
-% {\@EA#1\@EA#2\@EA{\@EA#3\csname\s!do\string#2\endcsname}%
-% \@EA#1\csname\s!do\string#2\endcsname}
-%
-%\def\doubleemptied#1#2#3%
-% {\indirect#1#2\dodoublempty}
-%
-%\indirect\def\stelietsin\dodoubleempty[#1][#2]%
-% {...}
-%
-%\doubleemptied\def\stelietsin[#1][#2]%
-% {...}
-
-% in mult-set
-%
-%\def\defaultsetup{def}
-%
-%\def\selectdefaultsetup#1#2%
-% {\writestatus{setup}{choose #1 setupfile}%
-% \bgroup
-% \endlinechar=-1
-% \global\read16 to \usersetup
-% \egroup
-% \ifx\usersetup\empty
-% \let\usersetup=\defaultsetup
-% \fi
-% \readfile{#2\usersetup}{}{}%
-% \writestatus{setup}{loading #1 setupfile #2\usersetup}}
-
-\protect
-
-\endinput
-
\ No newline at end of file +%D \module +%D [ file=supp-new, +%D version=1997.01.03, +%D title=\CONTEXT\ Support Macros, +%D subtitle=New Ones, +%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. Non||commercial use is +%C granted. + +\unprotect + +% \def\doifnonzeropositiveelse#1#2#3% +% {\bgroup +% \setbox\scratchbox=\hbox{\scratchcounter=0#1}% +% \ifdim\wd\scratchbox=\!!zeropoint\egroup#2\else\egroup#3\fi} +% +% \def\dodoifnonzeropositiveelse#1#2\end#3#4% +% {\egroup +% \ifx#1\relax#3\else#4\fi} +% +% \def\doifnonzeropositiveelse#1% +% {\bgroup +% \afterassignment\dodoifnonzeropositiveelse\scratchcounter=0#1\relax\empty\end} + +\def\dodoifnonzeropositiveelse#1#2\end#3#4% + {\ifx#1\relax\ifcase\scratchcounter\egroup#4\else\egroup#3\fi\else\egroup#4\fi} + +\def\doifnonzeropositiveelse#1% + {\bgroup\afterassignment\dodoifnonzeropositiveelse\scratchcounter=0#1\relax\empty\end} + +\def\splitskip#1% + {\scratchskip=0pt plus 1pt minus 1pt + \advance\scratchskip by #1 + \expandafter\SPLITSKIP\the\scratchskip} + +{\catcode`\.=\@@other + \catcode`\p=\@@other + \catcode`\l=\@@other + \catcode`\u=\@@other + \catcode`\s=\@@other + \catcode`\m=\@@other + \catcode`\i=\@@other + \catcode`\n=\@@other + \catcode`\t=\@@other + \gdef\SPLITSKIP#1pt plus #2pt minus #3pt% + {\DOSPLITSKIP#1 #2 #3 }} + +\def\DOSPLITSKIP#1 #2 #3 + {\dimen0=#1pt\dimen2=#2pt\dimen4=#3pt + \advance\dimen2 by -1pt% + \advance\dimen4 by -1pt} + +% \def\minimaxskip#1#2% +% {\splitskip#2\relax +% \scratchdimen=#2\relax +% #2=\scratchdimen +% \advance#2 by #1\relax} +% +% \def\maximizeskip% +% {\minimaxskip{-\dimen4}} +% +% \def\maximizeskip% +% {\minimaxskip{\dimen2}} +% +% \def\maximizespacing% +% {\maximizeskip\blankoskipamount +% \maximizeskip\parskip +% \maximizeskip\tussenwit +% \maximizeskip\baselineskip +% \maximizeskip\bigskipamount +% \maximizeskip\medskipamount +% \maximizeskip\smallskipamount} + +\def\DoMod #1by#2to#3% + {\scratchcounter=#1\relax + \divide\scratchcounter by #2\relax + \multiply\scratchcounter by #2\relax + #3=#1\relax + \advance#3 by -\scratchcounter} + +\def\DoDiv #1by#2to#3% + {#3=#1\relax + \divide#3 by #2\relax} + +\def\dounprotected#1\par% + {#1\protect} + +\def\unprotected% + {\unprotect\dounprotected} + +%D \pagina +%D \starttypen +%D \def\obeyhyphens% % after fontswitch +%D {\def\obeyedspace% +%D {\hyphenchar\font=45 +%D \spaceskip.5em\!!plus.25em\!!minus.25em\relax% +%D \def\obeyedspace{ }}} +%D \stoptypen + +%D Standaard kan een spatie (zoals ~) uitrekken. Dit is in +%D overzichten niet altijd de bedoeling, vandaar: + +\def\fixedspace% + {\hskip\fontdimen2\font\relax} + +%\def\ExpandSecondAfter#1#2#3% +% {\!!toksa={#2}% +% \edef\!!stringa{#3}% +% \edef\expanded% +% {\noexpand#1{\the\!!toksa}{\!!stringa}}% +% \expanded} +% +%\def\ExpandThirdAfter#1#2#3#4% +% {\!!toksa={#2}% +% \!!toksb={#3}% +% \edef\!!stringa{#4}% +% \edef\expanded% +% {\noexpand#1{\the\!!toksa}{\the\!!toksb}{\!!stringa}}% +% \expanded} + +%\def\indirect#1#2#3% +% {\@EA#1\@EA#2\@EA{\@EA#3\csname\s!do\string#2\endcsname}% +% \@EA#1\csname\s!do\string#2\endcsname} +% +%\def\doubleemptied#1#2#3% +% {\indirect#1#2\dodoublempty} +% +%\indirect\def\stelietsin\dodoubleempty[#1][#2]% +% {...} +% +%\doubleemptied\def\stelietsin[#1][#2]% +% {...} + +% in mult-set +% +%\def\defaultsetup{def} +% +%\def\selectdefaultsetup#1#2% +% {\writestatus{setup}{choose #1 setupfile}% +% \bgroup +% \endlinechar=-1 +% \global\read16 to \usersetup +% \egroup +% \ifx\usersetup\empty +% \let\usersetup=\defaultsetup +% \fi +% \readfile{#2\usersetup}{}{}% +% \writestatus{setup}{loading #1 setupfile #2\usersetup}} + +\protect + +\endinput |