diff options
Diffstat (limited to 'info/examples/tip/pm-pagen.tip')
| -rw-r--r-- | info/examples/tip/pm-pagen.tip | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/info/examples/tip/pm-pagen.tip b/info/examples/tip/pm-pagen.tip new file mode 100644 index 0000000000..8ee88fc978 --- /dev/null +++ b/info/examples/tip/pm-pagen.tip @@ -0,0 +1,38 @@ +% This macro source file is from the four volume series +% "TeX in Practice" by Stephan von Bechtolsheim, published +% 1993 by Springer-Verlag, New York. +% Copyright 1993 Stephan von Bechtolsheim. +% No warranty or liability is assumed. +% This macro may be copied freely if no fees other than +% media cost or shipping charges are charged and as long +% as this copyright and the following source code itself +% is not changed. Please see the series for further information. +% +% Version: 1.0 +% Date: May 1, 1993 +% +% +% This source code is documented in 30.7.8, p. III-562. +% Original source in file "pp1.TEX", starting line 1499. +\wlog{L: "pm-pagen.tip" ["pp1.TEX," l. 1499, p. III-562]}% +% This file DOES belong to format "texip." +\InputD{counters.tip} +\catcode`\@ = 11 +\NewCounter{PageNo}{\arabic}{\TheCounter{PageNo}}% + {\TheCounter{PageNo}} +\NewCounter{SWPageNo}{\arabic}% + {\TheCounter{SWPageNo}}{\TheCounter{SWPageNo}} +\def\@PageNumbersToCounterRegs{% + \CounterToRegister{\global\pageno}{PageNo}% +} +\SetCounter{PageNo}{1} +\@PageNumbersToCounterRegs +\def\advancepageno{% + \StepCounter{PageNo}% + \StepCounter{SWPageNo}% + \@PageNumbersToCounterRegs +} +\def\folio{% + \PrintCounter{PageNo}% +} +\catcode`\@ = 12 |