blob: 426475e1553bcd385d49cf58611ceae344fde6fc (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
ed TeXinputs/webmac.tex <<'END'
207a
\let\toppart\rhead
.
192a
\let\toppart\rhead
.
159a
\newif\ifdp \dptrue % writing to dummy page
\newif\ifwp \wpfalse % writing not pending
\edef\nextcl{}
.
157c
\ifcomp
\global\output{\normaloutput\page\clheader\crheader}
\else
\global\output{\normaloutput\page\lheader\rheader}
\fi
}
.
155a
\global\dpfalse % not writing to dummy page
.
137c
\def\rhead{WEB OUTPUT} % this running head is reset by starred sections
\def\rrhead{WEB OUTPUT} % \rrhead and \rhead match for unchanged tex.tex
.
124a
\def\toppart{\expandafter\taketwo\topmark}
.
123a
% not compatible
\def\lheader{\mainfont\the\pageno\eightrm\qquad\toppart
\hfill\title\qquad\mainfont\topsecno} % top line on left-hand pages
\def\rheader{\mainfont\topsecno\eightrm\qquad\title\hfill
\toppart\qquad\mainfont\the\pageno} % top line on right-hand pages
.
122c
\def\crheader{\mainfont\topsecno\eightrm\qquad\title\hfill
.
120c
\newif\ifcomp \compfalse
% compatible
\def\clheader{\mainfont\the\pageno\eightrm\qquad\rhead
.
89,90c
\ifon \mark{{{\tensy x}\modno}{\rhead}}\fi}
.
87a
\comptrue
.
86c
\def\MN#1.{\par % common code for \M, \N only called by private \N module
.
84d
82a
\ifon\mark{{{\tensy x}\modno}{\rhead}}
\vfil\eject
\fi
\ifdp
\edef\nextcl{\nextcl\write\cont{\Z{#2}{\modno}{\the\pageno}}}
\wptrue
\else
\ifwp
\nextcl
\wpfalse
\fi
\edef\nextcl{\write\cont{\Z{#2}{\modno}{\the\pageno}}}\nextcl
% to contents file
\fi
.
79,81c
\outer\def\M#1.{ % beginning of section
{\xdef\modstar{#1}\let\*=\empty\xdef\modno{#1}}
\ifx\modno\modstar \onmaybe \else\ontrue \fi
\ifon
\mark{{{\tensy x}\modno}{\rhead}}
\vfil\penalty-100\vfilneg
\vskip12ptminus3pt\startsection\ignorespaces
}
\outer\def\N#1.#2.{ % beginning of starred section
{\xdef\modstar{#1}\let\*=\empty\xdef\modno{#1}}% remove \* from section name
\ifx\modno\modstar \onmaybe \else\ontrue \fi
.
2c
\xdef\fmtversion{\fmtversion+WEBMAC4.2+TeX-FPC, 4th ed.}
% identifies current set of macros
\message{\fmtversion}
.
w nwebmac.tex
END
|