%  toc.cd
%  Anders G S Svensson

%  Source:  toc.nw
%           $Revision: 1.4 $
%           $Date: 1996/02/20 09:22:32 $

\usecarrot{contents}

\newcontentsfile{toc}

\def\writetocentry{\relax
   \@ifnextchar@*%
      {\expandafter\toc@writeentry@
          \expandafter\contents@sentry@\@eat@}%
      {\toc@writeentry@\contents@entry@}}

\def\toc@writeentry@#1{\contents@writeentry@{#1}{toc}}

\def\readtocfile{\readcontentsfile{toc}}
\def\writetocfile{\writecontentsfile{toc}}