summaryrefslogtreecommitdiff
path: root/macros/inrstex/inrsdoc/status.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/inrstex/inrsdoc/status.tex')
-rw-r--r--macros/inrstex/inrsdoc/status.tex28
1 files changed, 28 insertions, 0 deletions
diff --git a/macros/inrstex/inrsdoc/status.tex b/macros/inrstex/inrsdoc/status.tex
new file mode 100644
index 0000000000..1037b44691
--- /dev/null
+++ b/macros/inrstex/inrsdoc/status.tex
@@ -0,0 +1,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}}
+