%%%
% Style-Datei, die es erlaubt, unter LaTeX mehrmals
% eine TOC, LOF oder LOT-Datei einzulesen.
%%%

% Diese Option nur einmal einladen!
\ifx\@MultiOpen\undefined\else\endinput\fi

% Mitteilung ausgeben:
{\newlinechar=`\^^J
\message{^^JLaTeX-option-style for multi toc/lof/lot.^^J^^J}}

% Tokenregister, um die zu "offnenden Dateien zu speichern
\newtoks\@multitoc \@multitoc{}

% "Offnet am Dokumentende jeweils eine TOC-Datei, aber nur wenn sie
% nicht schon ge"offnet ist. Und nur, wenn nicht \nofiles eingestellt ist.
\def\@MultiOpen#1{%
  \expandafter
  \ifx\csname tf@#1\endcsname\relax
    \if@filesw \expandafter\newwrite\csname tf@#1\endcsname
       \immediate\openout \csname tf@#1\endcsname \jobname.#1\relax
    \fi
  \fi}

% Wird zum Setzen von einem Verzeichnis aufgerufen. Das Datei"offnen
% wird an das Ende des Dokuments verlegt.
\def\@starttoc#1{\begingroup
  \makeatletter
  \@input{\jobname.#1}
  \global\@multitoc\expandafter{\the\@multitoc
     \@MultiOpen{#1}}
  \global\@nobreakfalse \endgroup}

% Am Dokumentende m"ussen vor dem normalen Ende noch die Dateien
% ge"offnet werden:
\let\@MultiEndDoc\enddocument
\def\enddocument{\the\@multitoc\@MultiEndDoc}

% Das war's!
\endinput
