blob: cfc0c15e1e7ccedf5d5cdc72f2d4ce7ed272ad91 (
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
|
% edmac.sty
\chardef\atcatcode=\catcode`\@
\makeatletter
\process@table
% outwit LaTeX
\everypar={}
\let\end=\@@end
% extra macros from plain.tex
\def\supereject{\par\penalty-\@MM}
\outer\def\bye{\par\vfill\supereject\end}
\countdef\pageno=0 \pageno=1 % first page is number 1
\def\advancepageno{\ifnum\pageno<\z@ \global\advance\pageno\m@ne
\else\global\advance\pageno\@ne \fi} % increase |pageno|
\newif\ifr@ggedbottom
\def\raggedbottom{\topskip 10\p@ plus60\p@ \r@ggedbottomtrue}
\def\normalbottom{\topskip 10\p@ \r@ggedbottomfalse} % undoes \raggedbottom
\def\folio{\ifnum\pageno<\z@ \romannumeral-\pageno \else\number\pageno \fi}
\def\dosupereject{\ifnum\insertpenalties>\z@ % something is being held over
\hbox to \hsize{}\kern-\topskip\nobreak\vfill\supereject\fi}
\newinsert\topins
\newtoks\headline
\newtoks\footline
\headline={\hfil}
\footline={\hss\textrm\folio\hss}
\def\line{\hbox to \hsize}
\def\pagebody{\vbox to\vsize{\boxmaxdepth\maxdepth \pagecontents}}
\def\makeheadline{\vbox to\z@{\vskip-22.5\p@
\line{\vbox to8.5\p@{}\the\headline}\vss}\nointerlineskip}
\def\makefootline{\baselineskip24\p@\line{\the\footline}}
\input /edmac/edmac.doc % Could input edmac.tex instead.
\catcode`\@=\atcatcode
\endinput
% end of edmac.sty
|
