diff options
Diffstat (limited to 'systems/unix/tex-fpc/tex.ch')
-rw-r--r-- | systems/unix/tex-fpc/tex.ch | 80 |
1 files changed, 46 insertions, 34 deletions
diff --git a/systems/unix/tex-fpc/tex.ch b/systems/unix/tex-fpc/tex.ch index c6f0087062..b191a7fe4a 100644 --- a/systems/unix/tex-fpc/tex.ch +++ b/systems/unix/tex-fpc/tex.ch @@ -1,6 +1,18 @@ % This is a change file of TeX, Wolfgang Helbig, Nov. 2007-Feb. 2021 [0] About TeX-FPC +@x nwebmac +\outer\def\N#1. \[#2]#3.{\MN#1.\vfil\eject % begin starred section + \def\rhead{PART #2:\uppercase{#3}} % define running headline +@y +\outer\def\N#1. \[#2]#3.{ % begin starred section + {\xdef\modstar{#1}\let\*=\empty\xdef\modno{#1}}% remove \* from section name + \ifx\modno\modstar \onmaybe \else\ontrue \fi + \def\rhead{PART #2:\uppercase{#3}} % define running headline + \ifon\mark{{{\tensy x}\modno}{\rhead}} + \vfil\eject + \fi +@z Strangely, the first page is page 3 @x \pageno=3 @@ -136,7 +148,7 @@ November 1984]. Even though \namefpc\ does not differ from \TeX\ I proudly change the banner! And take responsibility for any error. -@d banner=='This is TeX-FPC, 3rd ed.' +@d banner=='This is TeX-FPC, 4th ed.' @z [4] program header @@ -674,11 +686,11 @@ loop@+begin write(term_out,'**'); @z [37] chatty - @x chatty - write(term_out,'! End of file on the terminal... why?'); - @.End of file on the terminal@> - @y - @z +@x chatty + write(term_out,'! End of file on the terminal... why?'); +@.End of file on the terminal@> +@y +@z [37] hint Control-D @x @@ -834,30 +846,30 @@ end; @z [360] Don't print empty lines - @x chatty - @ All of the easy branches of |get_next| have now been taken care of. - There is one more branch. - @y - @ All of the easy branches of |get_next| have now been taken care of. - There is one more branch. - - \marke h \TeX82 ends the current line by calling |print_ln| even - if the line is empty. This causes a spurious ugly empty line. - Calling |print_nl("")| is smarter. It ends the current - line only if it is not empty. - @z +@x chatty +@ All of the easy branches of |get_next| have now been taken care of. +There is one more branch. +@y +@ All of the easy branches of |get_next| have now been taken care of. +There is one more branch. - @x chatty - if limit=start then {previous line was empty} - print_nl("(Please type a command or say `\end')"); - @.Please type...@> - print_ln; first:=start; - @y - if limit=-1 then {previous line was empty} - print_nl("(Please type a command or say `\end')"); - @.Please type...@> - print_nl(""); first:=start; - @z +\marke h \TeX82 ends the current line by calling |print_ln| even +if the line is empty. This causes a spurious ugly empty line. +Calling |print_nl("")| is smarter. It ends the current +line only if it is not empty. +@z + +@x chatty + if limit=start then {previous line was empty} + print_nl("(Please type a command or say `\end')"); +@.Please type...@> + print_ln; first:=start; +@y + if limit=-1 then {previous line was empty} + print_nl("(Please type a command or say `\end')"); +@.Please type...@> + print_nl(""); first:=start; +@z @x [514] |TEX_font_area|. These system area names will, of course, vary from place @@ -1114,11 +1126,11 @@ Stop pruning at this node. @z [1265] empty line after change of interaction mode - @x chatty - begin print_ln; - @y - begin print_nl(""); { print new line only if current line not empty \marke h} - @z +@x chatty +begin print_ln; +@y +begin print_nl(""); { print new line only if current line not empty \marke h} +@z [1327] eof is broken @x |