summaryrefslogtreecommitdiff
path: root/systems/unix/tex-fpc/tex.ch
diff options
context:
space:
mode:
Diffstat (limited to 'systems/unix/tex-fpc/tex.ch')
-rw-r--r--systems/unix/tex-fpc/tex.ch80
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