summaryrefslogtreecommitdiff
path: root/web/pwebmac/Xerrorlog.tex
diff options
context:
space:
mode:
Diffstat (limited to 'web/pwebmac/Xerrorlog.tex')
-rw-r--r--web/pwebmac/Xerrorlog.tex31
1 files changed, 31 insertions, 0 deletions
diff --git a/web/pwebmac/Xerrorlog.tex b/web/pwebmac/Xerrorlog.tex
new file mode 100644
index 0000000000..6a739a81b0
--- /dev/null
+++ b/web/pwebmac/Xerrorlog.tex
@@ -0,0 +1,31 @@
+\let\goodbye=\bye % we replace \bye with another command
+
+\def\endofpapermacros{% output some lines after the \bye in errorlog.tex
+ % 1. step: skip the motto by Turing; DRF=<initials> of the first name
+ \long\def\skipmotto##1DRF{% ##1: ignored text
+ \smallskip\line{\bf List of abbreviated names:\hss}% a title line
+ \simpleline DRF}% see step 2a)
+ % 2. step: two kind of input lines
+ % a) <initials> <first names> <surname> coded as \simpleline
+ % b) <initials> <first names> <surname> (<info>) coded as \parensline
+ % Note: step 1 starts with type a) and <initials>=DRF
+ % if <initials>=CET switch to b); last line has <initials>=MDS
+ \def\next{\simpleline}\def\withparens{CET}\def\lastline{MDS}%
+ \def\simpleline##1 ##2 ##3 {\processtext!##1!##2 ##3!}% the default for \next
+ \def\parensline##1 ##2 ##3 (##4) {\processtext!##1!##2 ##3!}% <info> isn't needed
+ % 3. step: output name, test for switch to 2b), and test for last line
+ \def\processtext!##1!##2!{% ##1: <initials>; ##2: <first names> <surname>
+ \line{\hbox to 50pt{\hss##1:}\quad##2\hss}% output
+ \def\nxt{##1}% store <initials>
+ \ifx\nxt\withparens % true: switch from 2a) to 2b)
+ \def\next{\parensline}%
+ \else\ifx\nxt\lastline % true: it's the last line
+ \def\next{\csname goodbye\endcsname}% \next=\bye
+ \fi\fi
+ \next}%
+ % 4. step: activate this chain of macros
+ \skipmotto}
+
+\let\bye=\endofpapermacros
+
+\input errorlog