%  auxfile.cd
%  Anders G S Svensson

%  Source: auxfile.nw
%          $Revision: 1.8 $
%          $Date: 1996/06/08 00:43:51 $

\edef\auxfile@newwrite@{\noexpand\newwrite}

\def\newauxfile{\bgroup\@ignorewhitespace@\auxfile@new@}
\def\auxfile@new@#1{\egroup
   \@csafter@\auxfile@newwrite@{auxfile@aux@#1}%
   \@def@{open#1}{\auxfile@open@{#1}\global\@let@{open#1}\relax}%
   \@def@{write#1}{\auxfile@write@{#1}}%
   \@def@{read#1}{\auxfile@read@{#1}\global\@let@{read#1}\relax}}
\def\auxfile@open@#1{\immediate\openout\@cs@{auxfile@aux@#1}=\jobname.#1\relax}
\def\auxfile@read@#1{%
   \IfFileExists{\jobname.#1}%
      {\edef\@action@{\noexpand\@makeatletter@\noexpand\input\jobname.#1\relax
          \noexpand\@restoreat@{\the\catcode`\@}}\@action@}%
      {}}
\def\auxfile@write@#1{\write\@cs@{auxfile@aux@#1}}