%-*-tex-*-
% Status commands for each chapter.
% these write out the chapter code, page number, and previous chapter number.

\marginnotesfalse
\hfuzz=5pt


\newwrite\docstatus
\def\openstatusfile{\immediate\openout\docstatus=\jobname.sta}
\def\closestatusfile{\closeout\docstatus}
\def\writestatus#1{\immediate\write
         \docstatus{\string\chstatus//#1//\the\chnum//\the\pageno//}}
\def\chstatus//#1//#2//#3//{\expandafter\def\csname#1:\endcsname{\chnum=#2
                            \pagenumber=#3}}
\def\getstatus#1{\csname#1:\endcsname}

\def\chcode#1{\subdocumentmacros{\input helphdr \bookstyle
                                   \input masth.sta
                                   \autonumberingon
                                   \input masth.tag
                                   \getstatus{#1}
                                   \def\chcode##1{}
                                   \def\writestatus##1{}
                                   \indexingon
                                     }
             \writestatus{#1}}