summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/kuvio/doc-src/macros/carrot/basic/auxfile.cd
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}}