summaryrefslogtreecommitdiff
path: root/macros/generic/cptex/lamac.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/generic/cptex/lamac.tex
Initial commit
Diffstat (limited to 'macros/generic/cptex/lamac.tex')
-rw-r--r--macros/generic/cptex/lamac.tex90
1 files changed, 90 insertions, 0 deletions
diff --git a/macros/generic/cptex/lamac.tex b/macros/generic/cptex/lamac.tex
new file mode 100644
index 0000000000..ca8718a95c
--- /dev/null
+++ b/macros/generic/cptex/lamac.tex
@@ -0,0 +1,90 @@
+%
+% TeX-Definitionen aus `LaTeX Version 2.09 <25 March 1992>,
+% (C) 1992 by Leslie Lamport' zur Verwendung von LaTeX-Makros in Plain-TeX
+%
+% Makrozusammenstellung und Anpassung:
+% 1994 FuturaSoft (Martin Kr„mer, D-49179 Ostercappeln)
+%
+
+\def\@whilenoop#1{}
+\def\@whilenum#1\do #2{\ifnum #1\relax #2\relax\@iwhilenum{#1\relax
+ #2\relax}\fi}
+\def\@iwhilenum#1{\ifnum #1\let\@nextwhile\@iwhilenum
+ \else\let\@nextwhile\@whilenoop\fi\@nextwhile{#1}}
+
+\def\@whiledim#1\do #2{\ifdim #1\relax#2\@iwhiledim{#1\relax#2}\fi}
+\def\@iwhiledim#1{\ifdim #1\let\@nextwhile\@iwhiledim
+ \else\let\@nextwhile\@whilenoop\fi\@nextwhile{#1}}
+
+\long\def\@whileswnoop#1\fi{}
+\long\def\@whilesw#1\fi#2{#1#2\@iwhilesw{#1#2}\fi\fi}
+\long\def\@iwhilesw#1\fi{#1\let\@nextwhile\@iwhilesw
+ \else\let\@nextwhile\@whileswnoop\fi\@nextwhile{#1}\fi}
+
+\def\@nnil{\@nil}
+\def\@empty{}
+\def\@fornoop#1\@@#2#3{}
+
+\def\@for#1:=#2\do#3{\edef\@fortmp{#2}\ifx\@fortmp\@empty \else
+ \expandafter\@forloop#2,\@nil,\@nil\@@#1{#3}\fi}
+
+\def\@forloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
+ #5\def#4{#2}\ifx #4\@nnil \else#5\@iforloop #3\@@#4{#5}\fi\fi}
+
+\def\@iforloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
+ \let\@nextwhile\@fornoop \else
+ #4\relax\let\@nextwhile\@iforloop\fi\@nextwhile#2\@@#3{#4}}
+
+\def\@gobble#1{}
+\let\protect\relax
+
+\newwrite\@unused
+\newcount\@tempcnta
+\newdimen\@tempdima
+\newdimen\@tempdimb
+
+\def\typeout#1{{\let\protect\string\immediate\write\@unused{#1}}}
+\typeout{Macro Extensions from LaTeX Version 2.09 (25 Mar 1992) <25 Mar 1994>.}
+\def\@@warning#1{\typeout{(La)TeX Warning: #1.}}
+\def\@warning#1{\@@warning{#1\on@line}}
+\def\@namedef#1{\expandafter\def\csname #1\endcsname}
+\def\@nameuse#1{\csname #1\endcsname}
+
+\def\@car#1#2\@nil{#1}
+\def\@cdr#1#2\@nil{#2}
+\def\@carcube#1#2#3#4\@nil{#1#2#3}
+
+\long\def\@ifdefinable #1#2{\edef\@tempa{\expandafter\@cdr\string #1\@nil}%
+\@ifundefined{\@tempa}{\edef\@tempb{\expandafter\@carcube \@tempa xxxx\@nil}%
+\ifx \@tempb\@qend \@notdefinable\else
+\ifx \@tempa\@qrelax \@notdefinable\else #2\fi\fi}{\@notdefinable}}
+
+\long\def\@ifundefined#1#2#3{\expandafter\ifx\csname
+ #1\endcsname\relax#2\else#3\fi}
+
+\edef\@qend{\expandafter\@cdr\string\end\@nil}
+\edef\@qrelax{\expandafter\@cdr\string\relax\@nil}
+
+\def\@ifnextchar#1#2#3{\let\@tempe #1\def\@tempa{#2}\def\@tempb{#3}\futurelet
+ \@tempc\@ifnch}
+\def\@ifnch{\ifx \@tempc \@sptoken \let\@tempd\@xifnch
+ \else \ifx \@tempc \@tempe\let\@tempd\@tempa\else\let\@tempd\@tempb\fi
+ \fi \@tempd}
+
+\def\^^01{\let\@sptoken= } \^^01 % this makes \@sptoken a space token
+\def\^^01{\@xifnch} \expandafter\def\^^01 {\futurelet\@tempc\@ifnch}
+
+\def\@ifstar#1#2{\@ifnextchar *{\def\@tempa*{#1}\@tempa}{#2}}
+
+\newlinechar`\^^J
+
+\def\@latexerr#1#2{%
+\edef\@tempc{#2}\errhelp\expandafter{\@tempc}%
+\typeout{(La)TeX error. \space See (La)TeX manual for explanation.^^J
+ \space\@spaces\@spaces\@spaces Type \space H <return> \space for
+ immediate help.}\errmessage{#1}}
+\def\@spaces{\space\space\space\space}
+\def\@ehc{Try typing \space <return>
+ \space to proceed.^^JIf that doesn't work, type \space X <return> \space to
+ quit.}
+\def\@notdefinable{\@latexerr{Command name '\@tempa' already used}\@eha}