summaryrefslogtreecommitdiff
path: root/obsolete/macros/inrstex/inrsdoc/status.tex
blob: 1037b446912291253bd8da3ca7b2bd8842c72d94 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
%-*-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}}