diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/frankenstein/simple.sto')
-rw-r--r-- | Master/texmf-dist/tex/latex/frankenstein/simple.sto | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/frankenstein/simple.sto b/Master/texmf-dist/tex/latex/frankenstein/simple.sto new file mode 100644 index 00000000000..80fbcabe9a3 --- /dev/null +++ b/Master/texmf-dist/tex/latex/frankenstein/simple.sto @@ -0,0 +1,58 @@ +% \AddToCheckSum{67} +% +% The \option{simple} option adds the optional argument to \cs\include, and +% does nothing else. +% +% \begin{macro}{\include} +% I'm not really sure why the \cs\relax is there; I'm imitating the kernel's +% command. +% \begin{macrocode} +\defcommand\include {% + \relax + \ifnum\@auxout=\@partaux + \@latex@error{\string\include\space cannot be nested}\@eha + \else + \expandafter\@include + \fi +} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\@include} +% \mbox{} +% \begin{macrocode} +\defcommand\@include [2][] {% + \clearpage + \if@filesw + \immediate\write\@mainaux{\string\@input{#2.aux}}% + \fi + \@tempswatrue + \if@partsw + \@tempswafalse + \edef\reserved@b{#2}% + \@for\reserved@a:=\@partlist\do + {\ifx\reserved@a\reserved@b\@tempswatrue\fi}% + \fi + \if@tempswa + \let\@auxout\@partaux + \if@filesw + \immediate\openout\@partaux #2.aux + \immediate\write\@partaux{\relax}% + \fi +% \end{macrocode} +% All we did was change |#1| to |#2| and add the next line. +% \begin{macrocode} + #1% + \@input@{#2.tex}% + \clearpage + \@writeckpt{#2}% + \if@filesw + \immediate\closeout\@partaux + \fi + \else + \@nameuse{cp@#2}% + \fi + \let\@auxout\@mainaux +} +% \end{macrocode} +% \end{macro} |