blob: 4176ca6e811f04417234de03bee810485fe0f831 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
% 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}}
|