summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/edmac
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
commit873660d1a83ece926fe7206288dda9c36b349c1b (patch)
treea48f77125c309a355b5d0eb58d6b24446abe9d62 /Master/texmf-dist/tex/generic/edmac
parent2939242967231097459df0fc3150fabc2f639111 (diff)
generic 1
git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/edmac')
-rw-r--r--Master/texmf-dist/tex/generic/edmac/edmac.tex1321
-rw-r--r--Master/texmf-dist/tex/generic/edmac/edmacfss.sty53
-rw-r--r--Master/texmf-dist/tex/generic/edmac/edstanza.tex92
-rw-r--r--Master/texmf-dist/tex/generic/edmac/tabmac.tex641
4 files changed, 2107 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/edmac/edmac.tex b/Master/texmf-dist/tex/generic/edmac/edmac.tex
new file mode 100644
index 00000000000..eec51ff22bc
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/edmac/edmac.tex
@@ -0,0 +1,1321 @@
+%%
+%% This is file `edmac.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% edmac.doc
+%%
+%% IMPORTANT NOTICE:
+%%
+%% For the copyright see the source file.
+%%
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from edmac.tex.
+%%
+%% For distribution of the original source see the terms
+%% for copying and modification in the file edmac.doc.
+%%
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+{\catcode`\$=9
+\gdef\fileversion{ $Revision: 3.17 $ }
+\gdef\filedate{ $Date: 12 Jun 1996 17:15:00 $ }}
+\def\docdate{12 June 1996}
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+%%
+\ifx\edmacloaded\relax\endinput\else\let\edmacloaded=\relax\fi
+{\newlinechar=`\^^J
+\message{^^J
+ ********************************************************************^^J
+ EDMAC Critical edition macros.^^J
+ Copyright (C) 1990--1996 John Lavagnino and Dominik Wujastyk.^^J
+ This is free software, and you are welcome to redistribute it under^^J
+ certain conditions; see the accompanying file COPYING for details.^^J
+ ^^J%
+\fileversion\space\space\space <\filedate>.^^J
+ ********************************************************************^^J^^J }}
+\def\makeatletter{\catcode`\@=11 }
+\def\makeatother{\catcode`\@=12 }
+\makeatletter
+\newcount\@tempcnta \newcount\@tempcntb
+\def\edmac@warning#1{\immediate\write\sixt@@n{EDMAC warning: #1}}
+\newcount\section@num
+\section@num=0
+\let\extensionchars=\empty
+\newif\ifnumbering
+\def\beginnumbering{%
+ \ifnumbering
+ \errmessage{Numbering has already been started}%
+ \endnumbering
+ \fi
+ \global\numberingtrue
+ \global\advance\section@num by 1
+ \global\absline@num=0
+ \global\line@num=0
+ \global\subline@num=0
+ \global\@lock=0
+ \global\sub@lock=0
+ \global\sublines@false
+ \global\let\next@page@num=\relax
+ \global\let\sub@change=\relax
+ \message{Section \the\section@num }%
+ \line@list@stuff{\jobname.\extensionchars\the\section@num}%
+ \end@stuff}
+\def\endnumbering{%
+ \ifnumbering
+ \global\numberingfalse
+ \normal@pars
+ \ifx\insertlines@list\empty\else
+ \global\noteschanged@true
+ \fi
+ \ifx\line@list\empty\else
+ \global\noteschanged@true
+ \fi
+ \ifnoteschanged@
+ \immediate\write\sixt@@n{EDMAC reminder: }%
+ \immediate\write\sixt@@n{ The number of footnotes in this section
+ has changed since the last run.}%
+ \immediate\write\sixt@@n{ You will need to run TeX two more times
+ before the footnote placement}%
+ \immediate\write\sixt@@n{ and line numbering in this section are
+ correct.}%
+ \fi
+ \else
+ \errmessage{Numbering was not started}%
+ \fi}
+\def\pausenumbering{\endnumbering\global\numberingtrue}
+\def\resumenumbering{%
+ \ifnumbering
+ \global\advance\section@num by 1
+ \message{Section \the\section@num\space
+ (continuing the previous section)}%
+ \line@list@stuff{\jobname.\extensionchars\the\section@num}%
+ \end@stuff
+ \else
+ \errmessage{Numbering should already have been started.}%
+ \endnumbering
+ \beginnumbering
+ \fi}
+\newif\ifbypage@
+\def\lineation#1{{%
+ \ifnumbering
+ \errmessage{You can't use \string\lineation\space
+ within a numbered section}%
+ \else
+ \def\@tempa{#1}\def\@tempb{page}%
+ \ifx\@tempa\@tempb
+ \global\bypage@true
+ \else
+ \def\@tempb{section}%
+ \ifx\@tempa\@tempb
+ \global\bypage@false
+ \else
+ \edmac@warning{Bad \string\lineation\space argument.}%
+ \fi
+ \fi
+ \fi}}
+\newcount\line@margin
+\def\linenummargin#1{{%
+ \def\@tempa{#1}\def\@tempb{left}%
+ \ifx\@tempa\@tempb
+ \global\line@margin=0
+ \else
+ \def\@tempb{right}%
+ \ifx\@tempa\@tempb
+ \global\line@margin=1
+ \else
+ \def\@tempb{outer}%
+ \ifx\@tempa\@tempb
+ \global\line@margin=2
+ \else
+ \def\@tempb{inner}%
+ \ifx\@tempa\@tempb
+ \global\line@margin=3
+ \else
+ \edmac@warning{Bad \string\linenummargin\space argument.}%
+ \fi
+ \fi
+ \fi
+ \fi}}
+\newcount\firstlinenum
+\newcount\linenumincrement
+\firstlinenum=5
+\linenumincrement=5
+\newcount\firstsublinenum
+\newcount\sublinenumincrement
+\firstsublinenum=5
+\sublinenumincrement=5
+\newcount\lock@disp
+\def\lockdisp#1{{%
+ \def\@tempa{#1}\def\@tempb{first}%
+ \ifx\@tempa\@tempb
+ \global\lock@disp=0
+ \else
+ \def\@tempb{last}%
+ \ifx\@tempa\@tempb
+ \global\lock@disp=1
+ \else
+ \def\@tempb{all}%
+ \ifx\@tempa\@tempb
+ \global\lock@disp=2
+ \else
+ \edmac@warning{Bad \string\lockdisp\space argument.}%
+ \fi
+ \fi
+ \fi}}
+\newcount\sublock@disp
+\def\sublockdisp#1{{%
+ \def\@tempa{#1}\def\@tempb{first}%
+ \ifx\@tempa\@tempb
+ \global\sublock@disp=0
+ \else
+ \def\@tempb{last}%
+ \ifx\@tempa\@tempb
+ \global\sublock@disp=1
+ \else
+ \def\@tempb{all}%
+ \ifx\@tempa\@tempb
+ \global\sublock@disp=2
+ \else
+ \edmac@warning{Bad \string\sublockdisp\space argument.}%
+ \fi
+ \fi
+ \fi}}
+\newdimen\linenumsep
+\linenumsep=1pc
+\ifx\selectfont\undefined
+ \let\numlabfont=\sevenrm
+\else
+ \def\numlabfont{\fontsize{7}{8pt}\rm}
+\fi
+\def\leftlinenum{\numlabfont\the\line@num
+ \ifsublines@
+ \ifnum\subline@num>0
+ \unskip\fullstop\the\subline@num
+ \fi
+ \fi
+ \kern\linenumsep}
+\def\rightlinenum{\kern\linenumsep \numlabfont\the\line@num
+ \ifsublines@
+ \ifnum\subline@num>0
+ \unskip\fullstop\the\subline@num
+ \fi
+ \fi}
+\def\list@create#1{\global\let#1=\empty}
+\def\list@clear#1{\global\let#1=\empty}
+\newtoks\@toksa \newtoks\@toksb
+\global\@toksa={\\}
+\long\def\xright@appenditem#1\to#2{%
+ \global\@toksb=\expandafter{#2}%
+ \xdef#2{\the\@toksb\the\@toksa\expandafter{#1}}%
+ \global\@toksb={}}
+\long\def\xleft@appenditem#1\to#2{%
+ \global\@toksb=\expandafter{#2}%
+ \xdef#2{\the\@toksa\expandafter{#1}\the\@toksb}%
+ \global\@toksb={}}
+\def\gl@p#1\to#2{\expandafter\gl@poff#1\gl@poff#1#2}
+\long\def\gl@poff\\#1#2\gl@poff#3#4{\gdef#4{#1}\gdef#3{#2}}
+\newcount\line@num
+\newcount\subline@num
+\newif\ifsublines@
+\newcount\absline@num
+\newcount\@lock
+\newcount\sub@lock
+\list@create{\line@list}
+\list@create{\insertlines@list}
+\list@create{\actionlines@list}
+\list@create{\actions@list}
+\newcount\page@num
+\newcount\endpage@num
+\newcount\endline@num
+\newcount\endsubline@num
+\newif\ifnoteschanged@
+\newread\@inputcheck
+\def\read@linelist#1{%
+ \list@clear{\line@list}%
+ \list@clear{\insertlines@list}%
+ \list@clear{\actionlines@list}%
+ \list@clear{\actions@list}%
+ \openin\@inputcheck=#1
+ \ifeof\@inputcheck
+ \edmac@warning{Can't find line-list file #1}%
+ \global\noteschanged@true
+ \else
+ \global\noteschanged@false
+ \closein\@inputcheck
+ \begingroup
+ \catcode`\[=1 \catcode`\]=2
+ \makeatletter \catcode`\^^M=9
+ \input #1
+ \endgroup
+ \fi
+ \global\page@num=-1
+ \ifx\actionlines@list\empty
+ \gdef\next@actionline{1000000}%
+ \else
+ \gl@p\actionlines@list\to\next@actionline
+ \gl@p\actions@list\to\next@action
+ \fi}
+\def\@l{\advance\absline@num by 1
+ \ifx\next@page@num\relax \else
+ \page@action
+ \let\next@page@num=\relax
+ \fi
+ \ifx\sub@change\relax \else
+ \ifnum\sub@change>0
+ \sublines@true
+ \else
+ \sublines@false
+ \fi
+ \sub@action
+ \let\sub@change=\relax
+ \fi
+ \ifcase\@lock
+ \or
+ \@lock=2
+ \or \or
+ \@lock=0
+ \fi
+ \ifcase\sub@lock
+ \or
+ \sub@lock=2
+ \or \or
+ \sub@lock=0
+ \fi
+ \ifsublines@
+ \ifnum\sub@lock<2
+ \advance\subline@num by 1
+ \fi
+ \else
+ \ifnum\@lock<2
+ \advance\line@num by 1 \subline@num=0
+ \fi
+ \fi}
+\def\@page#1{\ifbypage@
+ \line@num=0 \subline@num=0
+ \fi
+ \page@num=#1
+ \def\next@page@num{#1}}
+\def\sub@on{\ifsublines@
+ \let\sub@change=\relax
+ \else
+ \def\sub@change{1}%
+ \fi}
+\def\sub@off{\ifsublines@
+ \def\sub@change{-1}%
+ \else
+ \let\sub@change=\relax
+ \fi}
+\def\@adv#1{\ifsublines@
+ \advance\subline@num by #1
+ \ifnum\subline@num<0
+ \edmac@warning{\string\advanceline\space produced
+ a sub-line number less than zero.}%
+ \subline@num=0
+ \fi
+ \else
+ \advance\line@num by #1
+ \ifnum\line@num<0
+ \edmac@warning{\string\advanceline\space produced
+ a line number less than zero.}%
+ \line@num=0
+ \fi
+ \fi
+ \set@line@action}
+\def\@set#1{\ifsublines@
+ \subline@num=#1
+ \else
+ \line@num=#1
+ \fi
+ \set@line@action}
+\def\page@action{%
+ \xright@appenditem{\the\absline@num}\to\actionlines@list
+ \xright@appenditem{\next@page@num}\to\actions@list}
+\def\set@line@action{%
+ \xright@appenditem{\the\absline@num}\to\actionlines@list
+ \ifsublines@
+ \@tempcnta=-\subline@num
+ \else
+ \@tempcnta=-\line@num
+ \fi
+ \advance\@tempcnta by -5000
+ \xright@appenditem{\the\@tempcnta}\to\actions@list}
+\def\sub@action{%
+ \xright@appenditem{\the\absline@num}\to\actionlines@list
+ \ifsublines@
+ \xright@appenditem{-1001}\to\actions@list
+ \else
+ \xright@appenditem{-1002}\to\actions@list
+ \fi}
+\def\lock@on{\futurelet\next\do@lockon}
+\def\do@lockon{%
+ \ifx\next\lock@off
+ \global\let\lock@off=\skip@lockoff
+ \else
+ \xright@appenditem{\the\absline@num}\to\actionlines@list
+ \ifsublines@
+ \xright@appenditem{-1005}\to\actions@list
+ \ifcase\sub@lock
+ \sub@lock=1
+ \else
+ \sub@lock=0
+ \fi
+ \else
+ \xright@appenditem{-1003}\to\actions@list
+ \ifcase\@lock
+ \@lock=1
+ \else
+ \@lock=0
+ \fi
+ \fi
+ \fi}
+\def\do@lockoff{%
+ \xright@appenditem{\the\absline@num}\to\actionlines@list
+ \ifsublines@
+ \xright@appenditem{-1006}\to\actions@list
+ \ifnum\sub@lock=2
+ \sub@lock=3
+ \else
+ \sub@lock=0
+ \fi
+ \else
+ \xright@appenditem{-1004}\to\actions@list
+ \ifnum\@lock=2
+ \@lock=3
+ \else
+ \@lock=0
+ \fi
+ \fi}
+\def\skip@lockoff{\global\let\lock@off=\do@lockoff}
+\global\let\lock@off=\do@lockoff
+\newcount\insert@count
+\def\dummy@ref#1#2{#2}
+\def\@ref#1#2{%
+ \global\insert@count=#1
+ \loop\ifnum\insert@count>0
+ \xright@appenditem{\the\absline@num}\to\insertlines@list
+ \global\advance\insert@count by -1
+ \repeat
+ \begingroup
+ \let\@ref=\dummy@ref
+ \let\page@action=\relax
+ \let\sub@action=\relax
+ \let\set@line@action=\relax
+ \let\@lab=\relax
+ #2
+ \global\endpage@num=\page@num
+ \global\endline@num=\line@num
+ \global\endsubline@num=\subline@num
+ \endgroup
+ \xright@appenditem%
+ {\the\page@num|\the\line@num|%
+ \ifsublines@ \the\subline@num \else 0\fi|%
+ \the\endpage@num|\the\endline@num|%
+ \ifsublines@ \the\endsubline@num \else 0\fi}\to\line@list
+ #2}
+\newwrite\linenum@out
+\newif\iffirst@linenum@out@
+\first@linenum@out@true
+\def\line@list@stuff#1{%
+ \read@linelist{#1}%
+ \iffirst@linenum@out@
+ \immediate\closeout\linenum@out
+ \global\first@linenum@out@false
+ \immediate\openout\linenum@out=#1
+ \else
+ \closeout\linenum@out
+ \openout\linenum@out=#1
+ \page@start
+ \fi}
+\def\new@line{\write\linenum@out{\string\@l}}
+\def\flag@start{%
+ \edef\next{\write\linenum@out{%
+ \string\@ref[\the\insert@count][}}%
+ \next}
+\def\flag@end{\write\linenum@out{]}}
+\def\page@start{%
+ \iffirst@linenum@out@ \else
+ \write\linenum@out{\string\@page[\the\pageno]}%
+ \fi}
+\def\startsub{\dimen0\lastskip
+ \ifdim\dimen0>0pt \unskip \fi
+ \write\linenum@out{\string\sub@on}%
+ \ifdim\dimen0>0pt \hskip\dimen0 \fi}
+\def\endsub{\dimen0\lastskip
+ \ifdim\dimen0>0pt \unskip \fi
+ \write\linenum@out{\string\sub@off}%
+ \ifdim\dimen0>0pt \hskip\dimen0 \fi}
+\def\advanceline#1{\write\linenum@out{\string\@adv[#1]}}
+\def\setline#1{%
+ \ifnum#1<0
+ \edmac@warning{Bad setline argument.}%
+ \else
+ \write\linenum@out{\string\@set[#1]}%
+ \fi}
+\def\startlock{\write\linenum@out{\string\lock@on}}
+\def\endlock{\write\linenum@out{\string\lock@off}}
+\list@create{\end@lemmas}
+\long\def\dummy@text#1#2/{#1}
+\def\@gobble#1{}
+\def\no@expands{\let\rm=0\let\it=0\let\sl=0\let\bf=0\let\tt=0%
+ \let\b=0\let\c=0\let\d=0\let\t=0%
+ \let\select@@lemmafont=0%
+ \def\protect{\noexpand\protect\noexpand}%
+ \let\startsub=\relax \let\endsub=\relax
+ \let\startlock=\relax \let\endlock=\relax
+ \let\label=\@gobble \let\pageref=\@gobble
+ \let\lineref=\@gobble \let\sublineref=\@gobble
+ \let\setline=\@gobble \let\advanceline=\@gobble
+ \let\text=\dummy@text
+ \morenoexpands}
+\let\morenoexpands=\relax
+\long\def\text#1#2/{\leavevmode
+ \begingroup
+ \no@expands
+ \xdef\@tag{#1}%
+ \set@line
+ \global\insert@count=0
+ \ignorespaces #2\relax
+ \flag@start
+ \endgroup
+ #1%
+ \ifx\end@lemmas\empty \else
+ \gl@p\end@lemmas\to\x@lemma
+ \x@lemma
+ \global\let\x@lemma=\relax
+ \fi
+ \flag@end}
+\def\set@line{%
+ \ifx\line@list\empty
+ \global\noteschanged@true
+ \xdef\@nums{000|000|000|000|000|000|\edfont@info}%
+ \else
+ \gl@p\line@list\to\@tempb
+ \xdef\@nums{\@tempb|\edfont@info}%
+ \global\let\@tempb=\undefined
+ \fi}
+\ifx\selectfont\undefined % we're using Plain fonts
+ \def\edfont@info{\the\fam}
+\else % we're using NFSS
+ \def\edfont@info{\f@encoding/\f@family/\f@series/\f@shape}
+\fi
+\def\lemma#1{\xdef\@tag{#1}\ignorespaces}
+\def\linenum#1{%
+ \xdef\@tempa{#1|||||||\noexpand\\\@nums}%
+ \global\let\@nums=\empty
+ \expandafter\line@set\@tempa|\\\ignorespaces}
+\def\line@set#1|#2\\#3|#4\\{%
+ \gdef\@tempb{#1}%
+ \ifx\@tempb\empty
+ \@add{#3}%
+ \else
+ \@add{#1}%
+ \fi
+ \gdef\@tempb{#4}%
+ \ifx\@tempb\empty\else
+ \@add{|}\line@set#2\\#4\\%
+ \fi}
+\def\@add#1{\xdef\@nums{\@nums#1}}
+\newbox\raw@text
+\newif\ifnumberedpar@
+\newcount\num@lines
+\newbox\one@line
+\newcount\par@line
+\def\pstart{\ifnumbering \else
+ \errmessage{\string\pstart\space must be used
+ within a numbered section}%
+ \beginnumbering
+ \fi
+ \ifnumberedpar@
+ \errmessage{\string\pstart\space encountered while another
+ \string\pstart\space was in effect}%
+ \pend
+ \fi
+ \list@clear{\inserts@list}%
+ \global\let\next@insert=\empty
+ \begingroup\normal@pars
+ \global\setbox\raw@text=\vbox\bgroup
+ \numberedpar@true}
+\def\pend{\ifnumbering \else
+ \errmessage{\string\pend\space must be used
+ within a numbered section}%
+ \fi
+ \ifnumberedpar@ \else
+ \errmessage{\string\pend\space must follow a \string\pstart}%
+ \fi
+ \brokenpenalty=0 \clubpenalty=0
+ \displaywidowpenalty=0 \interlinepenalty=0 \predisplaypenalty=0
+ \postdisplaypenalty=0 \widowpenalty=0
+ \endgraf\global\num@lines=\prevgraf\egroup
+ \global\par@line=0
+ \loop\ifvbox\raw@text
+ \do@line
+ \repeat
+ \flush@notes
+ \endgroup
+ \ignorespaces}
+\def\autopar{\ifnumbering \else
+ \errmessage{\string\autopar\space must be used
+ within a numbered section}%
+ \beginnumbering
+ \fi
+ \everypar={\setbox0=\lastbox
+ \endgraf \vskip-\parskip
+ \pstart \noindent \kern\wd0
+ \let\par=\pend}%
+ \ignorespaces}
+\def\normal@pars{\everypar={}\let\par\endgraf}
+\def\do@line{%
+ {\vbadness=10000 \splittopskip=0pt
+ \global\setbox\one@line=\vsplit\raw@text to\baselineskip}%
+ \unvbox\one@line \global\setbox\one@line=\lastbox
+ \getline@num
+\hbox to \hsize{\affixline@num{%
+ \hfil\hbox to \wd\one@line{\new@line\unhbox\one@line}}}%
+ \add@inserts
+ \add@penalties}
+\def\getline@num{%
+ \global\advance\absline@num by 1
+ \do@actions
+ \do@ballast
+ \ifsublines@
+ \ifnum\sub@lock<2
+ \global\advance\subline@num by 1
+ \fi
+ \else
+ \ifnum\@lock<2
+ \global\advance\line@num by 1
+ \global\subline@num=0
+ \fi
+ \fi}
+\newcount\ballast@count
+\newcount\ballast
+\def\do@ballast{\global\ballast@count=0
+ \begingroup
+ \advance\absline@num by 1
+ \ifnum\next@actionline=\absline@num
+ \ifnum\next@action>-1001
+ \global\advance\ballast@count by -\ballast
+ \fi
+ \fi
+ \endgroup}
+\def\do@actions{%
+ \global\let\do@actions@next=\relax
+ \ifnum\absline@num<\next@actionline\else
+ \ifnum\next@action>-1001
+ \global\page@num=\next@action
+ \ifbypage@
+ \global\line@num=0 \global\subline@num=0
+ \fi
+ \else
+ \ifnum\next@action<-4999
+ \@tempcnta=-\next@action
+ \advance\@tempcnta by -5001
+ \ifsublines@
+ \global\subline@num=\@tempcnta
+ \else
+ \global\line@num=\@tempcnta
+ \fi
+ \else
+ \@tempcnta=-\next@action
+ \advance\@tempcnta by -1000
+ \ifcase\@tempcnta
+ \or
+ \global\sublines@true
+ \or
+ \global\sublines@false
+ \or
+ \ifcase\@lock
+ \global\@lock=1
+ \else
+ \global\@lock=0
+ \fi
+ \or
+ \ifnum\@lock=2
+ \global\@lock=3
+ \else
+ \global\@lock=0
+ \fi
+ \or
+ \ifcase\sub@lock
+ \global\sub@lock=1
+ \else
+ \global\sub@lock=0
+ \fi
+ \or
+ \ifnum\sub@lock=2
+ \global\sub@lock=3
+ \else
+ \global\sub@lock=0
+ \fi
+ \else
+ \edmac@warning{Bad action code,
+ value \next@action.}%
+ \fi
+ \fi
+ \fi
+ \ifx\actionlines@list\empty
+ \gdef\next@actionline{1000000}%
+ \else
+ \gl@p\actionlines@list\to\next@actionline
+ \gl@p\actions@list\to\next@action
+ \global\let\do@actions@next=\do@actions
+ \fi
+ \fi
+\do@actions@next}
+\def\affixline@num#1{%
+ \ifsublines@
+ \@tempcntb=\subline@num
+ \ifnum\subline@num>\firstsublinenum
+ \@tempcnta=\subline@num
+ \advance\@tempcnta by-\firstsublinenum
+ \divide\@tempcnta by\sublinenumincrement
+ \multiply\@tempcnta by\sublinenumincrement
+ \advance\@tempcnta by\firstsublinenum
+ \else
+ \@tempcnta=\firstsublinenum
+ \fi
+ \ifcase\sub@lock
+ \or
+ \ifnum\sublock@disp=1
+ \@tempcntb=0 \@tempcnta=1
+ \fi
+ \or
+ \ifnum\sublock@disp=2 \else
+ \@tempcntb=0 \@tempcnta=1
+ \fi
+ \or
+ \ifnum\sublock@disp=0
+ \@tempcntb=0 \@tempcnta=1
+ \fi
+ \fi
+ \else
+ \@tempcntb=\line@num
+ \ifnum\line@num>\firstlinenum
+ \@tempcnta=\line@num
+ \advance\@tempcnta by-\firstlinenum
+ \divide\@tempcnta by\linenumincrement
+ \multiply\@tempcnta by\linenumincrement
+ \advance\@tempcnta by\firstlinenum
+ \else
+ \@tempcnta=\firstlinenum
+ \fi
+ \ifcase\@lock
+ \or
+ \ifnum\lock@disp=1
+ \@tempcntb=0 \@tempcnta=1
+ \fi
+ \or
+ \ifnum\lock@disp=2 \else
+ \@tempcntb=0 \@tempcnta=1
+ \fi
+ \or
+ \ifnum\lock@disp=0
+ \@tempcntb=0 \@tempcnta=1
+ \fi
+ \fi
+ \fi
+ \ifnum\@tempcnta=\@tempcntb
+ \@tempcntb=\line@margin
+ \ifnum\@tempcntb>1
+ \advance\@tempcntb by\page@num
+ \fi
+ \ifodd\@tempcntb
+ #1\rlap{{\rightlinenum}}%
+ \else
+ \llap{{\leftlinenum}}#1%
+ \fi
+ \else
+ #1%
+ \fi
+ \ifcase\@lock
+ \or
+ \global\@lock=2
+ \or \or
+ \global\@lock=0
+ \fi
+ \ifcase\sub@lock
+ \or
+ \global\sub@lock=2
+ \or \or
+ \global\sub@lock=0
+ \fi}
+\list@create{\inserts@list}
+\def\add@inserts{%
+ \global\let\add@inserts@next=\relax
+ \ifx\inserts@list\empty \else
+ \ifx\next@insert\empty
+ \ifx\insertlines@list\empty
+ \global\noteschanged@true
+ \gdef\next@insert{100000}%
+ \else
+ \gl@p\insertlines@list\to\next@insert
+ \fi
+ \fi
+ \ifnum\next@insert=\absline@num
+ \gl@p\inserts@list\to\@insert
+ \@insert
+ \global\let\@insert=\undefined
+ \global\let\next@insert=\empty
+ \global\let\add@inserts@next=\add@inserts
+ \fi
+\fi
+\add@inserts@next}
+\def\add@penalties{\@tempcnta=\ballast@count
+ \ifnum\num@lines>1
+ \global\advance\par@line by 1
+ \ifnum\par@line=1
+ \advance\@tempcnta by \clubpenalty
+ \fi
+ \@tempcntb=\par@line \advance\@tempcntb by 1
+ \ifnum\@tempcntb=\num@lines
+ \advance\@tempcnta by \widowpenalty
+ \fi
+ \ifnum\par@line<\num@lines
+ \advance\@tempcnta by \interlinepenalty
+ \fi
+ \fi
+ \ifnum\@tempcnta=0
+ \relax
+ \else
+ \ifnum\@tempcnta>-10000
+ \penalty\@tempcnta
+ \else
+ \penalty -10000
+ \fi
+ \fi}
+\def\flush@notes{%
+ \@xloop
+ \ifx\inserts@list\empty \else
+ \gl@p\inserts@list\to\@insert
+ \@insert
+ \global\let\@insert=\undefined
+ \repeat}
+\def\@xloop#1\repeat{%
+ \def\body{#1\expandafter\body\fi}%
+ \body}
+\ifx\selectfont\undefined
+ \font\eightrm=cmr8 \font\eighti=cmmi8 \skewchar\eighti='177
+ \font\eightsy=cmsy8 \skewchar\eightsy='60 \font\eightbf=cmbx8
+ \font\eighttt=cmtt8 \hyphenchar\eighttt=-1 % inhibit hyphenation
+ \font\eightsl=cmsl8 \font\eightit=cmti8
+ \font\sixrm=cmr8 \font\sixi=cmmi8 \skewchar\sixi='177
+ \font\sixsy=cmsy8 \skewchar\sixsy='60 \font\sixbf=cmbx8
+ \font\sixtt=cmtt8 \hyphenchar\sixtt=-1 % inhibit hyphenation
+ \font\sixsl=cmsl8 \font\sixit=cmti8
+ \def\eightpoint{\def\rm{\fam0\eightrm}%
+ \textfont0=\eightrm \scriptfont0=\sixrm
+ \scriptscriptfont0=\fiverm
+ \textfont1=\eighti \scriptfont1=\sixi
+ \scriptscriptfont1=\fivei
+ \textfont2=\eightsy \scriptfont2=\sixsy
+ \scriptscriptfont2=\fivesy
+ \textfont3=\tenex \scriptfont3=\tenex
+ \scriptscriptfont3=\tenex
+ \def\it{\fam\itfam\eightit}\textfont\itfam=\eightit
+ \def\sl{\fam\slfam\eightsl}\textfont\slfam=\eightsl
+ \def\bf{\fam\bffam\eightbf}\textfont\bffam=\eightbf
+ \scriptfont\bffam=\sixbf \scriptscriptfont\bffam=\fivebf
+ \def\tt{\fam\ttfam\eighttt}\textfont\ttfam=\eighttt
+ \normalbaselineskip=9pt
+ \setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}%
+ \normalbaselines\rm}
+ \let\notefontsetup=\eightpoint
+ \let\notenumfont=\sevenrm
+ \def\select@lemmafont#1|#2|#3|#4|#5|#6|#7|{%
+ \ifcase#7
+ \rm \or \rm \or \rm \or \rm % families 0--3
+ \or \it \or \sl \or \bf \or \tt % families 4--7
+ \else \rm
+ \fi}
+\else
+ \def\notefontsetup{\fontsize{8}{9pt}\selectfont}
+ \def\notenumfont{\fontsize{7}{8pt}\rm}
+ \def\select@lemmafont#1|#2|#3|#4|#5|#6|#7|{\select@@lemmafont#7|}
+ \def\select@@lemmafont#1/#2/#3/#4|%
+ {\fontencoding{#1}\fontfamily{#2}\fontseries{#3}\fontshape{#4}%
+ \selectfont}
+\fi
+\def\Afootnote#1{%
+ \ifnumberedpar@
+ \xright@appenditem{\noexpand\vAfootnote{A}%
+ {{\@nums}{\@tag}{#1}}}\to\inserts@list
+ \global\advance\insert@count by 1
+ \else
+ \vAfootnote{A}{{0|0|0|0|0|0|0}{}{#1}}%
+ \fi\ignorespaces}
+\def\Bfootnote#1{%
+ \ifnumberedpar@
+ \xright@appenditem{\noexpand\vBfootnote{B}%
+ {{\@nums}{\@tag}{#1}}}\to\inserts@list
+ \global\advance\insert@count by 1
+ \else
+ \vBfootnote{B}{{0|0|0|0|0|0|0}{}{#1}}%
+ \fi\ignorespaces}
+\def\Cfootnote#1{%
+ \ifnumberedpar@
+ \xright@appenditem{\noexpand\vCfootnote{C}%
+ {{\@nums}{\@tag}{#1}}}\to\inserts@list
+ \global\advance\insert@count by 1
+ \else
+ \vCfootnote{C}{{0|0|0|0|0|0|0}{}{#1}}%
+ \fi\ignorespaces}
+\def\Dfootnote#1{%
+ \ifnumberedpar@
+ \xright@appenditem{\noexpand\vDfootnote{D}%
+ {{\@nums}{\@tag}{#1}}}\to\inserts@list
+ \global\advance\insert@count by 1
+ \else
+ \vDfootnote{D}{{0|0|0|0|0|0|0}{}{#1}}%
+ \fi\ignorespaces}
+\def\Efootnote#1{%
+ \ifnumberedpar@
+ \xright@appenditem{\noexpand\vEfootnote{E}%
+ {{\@nums}{\@tag}{#1}}}\to\inserts@list
+ \global\advance\insert@count by 1
+ \else
+ \vEfootnote{E}{{0|0|0|0|0|0|0}{}{#1}}%
+ \fi\ignorespaces}
+\def\normalvfootnote#1#2{\insert\csname #1footins\endcsname\bgroup
+ \notefontsetup
+ \interlinepenalty\csname inter#1footnotelinepenalty\endcsname
+ \splittopskip\ht\strutbox
+ \splitmaxdepth\dp\strutbox \floatingpenalty\@MM
+ \leftskip\z@skip \rightskip\z@skip
+ \spaceskip\z@skip \xspaceskip\z@skip
+ \csname #1footfmt\endcsname #2\egroup}
+\def\normalfootfmt#1#2#3{%
+ \normal@pars
+ \parindent=0pt \parfillskip=0pt plus 1fil
+ {\notenumfont\printlines#1|}\strut\enspace
+ {\select@lemmafont#1|#2}\rbracket\enskip#3\strut\par}
+\def\endashchar{{\rm--}}
+\def\fullstop{{\rm.}}
+\def\rbracket{{\rm\thinspace]}}
+\newcount\@pnum \newcount\@ssub \newcount\@elin
+\newcount\@esl \newcount\@dash
+\def\printlines#1|#2|#3|#4|#5|#6|#7|{\begingroup
+ \@pnum=0 \@dash=0
+ \ifbypage@
+ \ifnum#4=#1 \else
+ \@pnum=1
+ \@dash=1
+ \fi
+ \fi
+ \@elin=\@pnum
+ \ifnum#2=#5 \else
+ \@elin=1
+ \@dash=1
+ \fi
+ \@ssub=0
+ \ifnum#3=0 \else
+ \@ssub=1
+ \fi
+ \@esl=0
+ \ifnum#6=0 \else
+ \ifnum#6=#3
+ \@esl=\@elin
+ \else
+ \@esl=1
+ \@dash=1
+ \fi
+ \fi
+ \ifodd\@pnum #1\fullstop\fi
+ #2%
+ \ifodd\@ssub \fullstop #3\fi
+ \ifodd\@dash \endashchar\fi
+ \ifodd\@pnum #4\fullstop\fi
+ \ifodd\@elin #5\fi
+ \ifodd\@esl \ifodd\@elin\fullstop\fi #6\fi
+\endgroup}
+\def\normalfootstart#1{%
+ \vskip\skip\csname #1footins\endcsname
+ \leftskip0pt \rightskip0pt
+ \csname #1footnoterule\endcsname}
+\let\normalfootnoterule=\footnoterule
+\def\normalfootgroup#1{\unvbox\csname #1footins\endcsname}
+\newinsert\Afootins \newinsert\Bfootins
+\newinsert\Cfootins \newinsert\Dfootins
+\newinsert\Efootins
+\newcount\interAfootnotelinepenalty
+\newcount\interBfootnotelinepenalty
+\newcount\interCfootnotelinepenalty
+\newcount\interDfootnotelinepenalty
+\newcount\interEfootnotelinepenalty
+\def\footnormal#1{%
+ \csname inter#1footnotelinepenalty\endcsname=100
+ \expandafter\let\csname #1footstart\endcsname=\normalfootstart
+ \expandafter\let\csname v#1footnote\endcsname=\normalvfootnote
+ \expandafter\let\csname #1footfmt\endcsname=\normalfootfmt
+ \expandafter\let\csname #1footgroup\endcsname=\normalfootgroup
+ \expandafter\let\csname #1footnoterule\endcsname=%
+ \normalfootnoterule
+ \count\csname #1footins\endcsname=1000
+ \dimen\csname #1footins\endcsname=0.8\vsize
+ \skip\csname #1footins\endcsname=12pt plus6pt minus6pt}
+\footnormal{A}
+\footnormal{B}
+\footnormal{C}
+\footnormal{D}
+\footnormal{E}
+\def\footparagraph#1{%
+ \expandafter\let\csname #1footstart\endcsname=\parafootstart
+ \expandafter\let\csname v#1footnote\endcsname=\para@vfootnote
+ \expandafter\let\csname #1footfmt\endcsname=\parafootfmt
+ \expandafter\let\csname #1footgroup\endcsname=\para@footgroup
+ \count\csname #1footins\endcsname=1000
+ \para@footsetup{#1}}
+\def\para@footsetup#1{{\notefontsetup
+ \dimen0=\baselineskip
+ \multiply\dimen0 by 1024
+ \divide \dimen0 by \hsize \multiply\dimen0 by 64
+ \expandafter
+ \xdef\csname #1footfudgefactor\endcsname{%
+ \expandafter\en@number\the\dimen0 }}}
+{\catcode`p=12 \catcode`t=12 \gdef\en@number#1pt{#1}}
+\def\parafootstart#1{%
+ \rightskip=0pt \leftskip=0pt \parindent=0pt
+ \vskip\skip\csname #1footins\endcsname
+ \csname #1footnoterule\endcsname}
+\def\para@vfootnote#1#2{\insert\csname #1footins\endcsname
+ \bgroup
+ \notefontsetup
+ \interlinepenalty=\csname inter#1footnotelinepenalty\endcsname
+ \splittopskip=\ht\strutbox
+ \splitmaxdepth=\dp\strutbox \floatingpenalty=\@MM
+ \leftskip0pt \rightskip0pt
+ \setbox0=\vbox{\hsize=\maxdimen
+ \noindent\csname #1footfmt\endcsname#2}%
+ \setbox0=\hbox{\unvxh0}%
+ \dp0=0pt
+ \ht0=\csname #1footfudgefactor\endcsname\wd0
+ \box0
+ \penalty0
+ \egroup}
+\def\unvxh#1{%
+ \setbox0=\vbox{\unvbox#1%
+ \global\setbox1=\lastbox}%
+ \unhbox1
+ \unskip % remove \rightskip,
+ \unskip % remove \parfillskip,
+ \unpenalty % remove \penalty of 10000,
+ \hskip\ipn@skip} % but add the glue to go between the notes
+\newskip\ipn@skip
+\def\interparanoteglue#1{%
+ {\notefontsetup\global\ipn@skip=#1 \relax}}
+\interparanoteglue{1em plus.4em minus.4em}
+\def\parafootfmt#1#2#3{%
+ \normal@pars
+ \parindent=0pt \parfillskip=0pt plus1fil
+ {\notenumfont\printlines#1|}\enspace
+ {\select@lemmafont#1|#2}\rbracket\enskip
+ #3\penalty-10 }
+\def\para@footgroup#1{%
+ \unvbox\csname #1footins\endcsname \makehboxofhboxes
+ \setbox0=\hbox{\unhbox0 \removehboxes}%
+ \notefontsetup
+ \noindent\unhbox0\par}
+\def\makehboxofhboxes{\setbox0=\hbox{}%
+ \loop
+ \unpenalty
+ \setbox2=\lastbox
+ \ifhbox2
+ \setbox0=\hbox{\box2\unhbox0}
+ \repeat}
+\def\removehboxes{\setbox0=\lastbox
+ \ifhbox0{\removehboxes}\unhbox0 \fi}
+\newcount\@k \newdimen\@h
+\def\rigidbalance#1#2#3{\setbox0=\box#1 \@k=#2 \@h=#3
+ \line{\splittopskip=\@h \vbadness=\@M \hfilneg
+ \valign{##\vfil\cr\dosplits}}}
+\def\dosplits{\ifnum\@k>0 \noalign{\hfil}\splitoff
+ \global\advance\@k-1\cr\dosplits\fi}
+\def\splitoff{\dimen0=\ht0
+ \divide\dimen0 by\@k \advance\dimen0 by\@h
+ \setbox2 \vsplit0 to \dimen0
+ \unvbox2 }
+\def\footthreecol#1{%
+ \expandafter\let\csname v#1footnote\endcsname=\threecolvfootnote
+ \expandafter\let\csname #1footfmt\endcsname=\threecolfootfmt
+ \expandafter\let\csname #1footgroup\endcsname=\threecolfootgroup
+ \threecolfootsetup{#1}}
+\def\threecolfootsetup#1{%
+ \count\csname #1footins\endcsname 333
+ \multiply\dimen\csname #1footins\endcsname by 3 }
+\def\threecolvfootnote#1#2{%
+ \insert\csname #1footins\endcsname\bgroup
+ \notefontsetup
+ \interlinepenalty=\csname inter#1footnotelinepenalty\endcsname
+ \floatingpenalty=20000
+ \splittopskip=\ht\strutbox \splitmaxdepth=\dp\strutbox
+ \rightskip=0pt \leftskip=0pt
+ \csname #1footfmt\endcsname #2\egroup}
+\def\threecolfootfmt#1#2#3{%
+ \normal@pars
+ \hsize .3\hsize
+ \parindent=0pt
+ \tolerance=5000
+ \raggedright
+ \leavevmode
+ \strut{\notenumfont\printlines#1|}\enspace
+ {\select@lemmafont#1|#2}\rbracket\enskip
+ #3\strut\par\allowbreak}
+\def\threecolfootgroup#1{{\notefontsetup
+ \splittopskip=\ht\strutbox
+ \expandafter
+ \rigidbalance\csname #1footins\endcsname 3 \splittopskip }}
+\def\foottwocol#1{%
+ \expandafter\let\csname v#1footnote\endcsname=\twocolvfootnote
+ \expandafter\let\csname #1footfmt\endcsname=\twocolfootfmt
+ \expandafter\let\csname #1footgroup\endcsname=\twocolfootgroup
+ \twocolfootsetup{#1}}
+\def\twocolfootsetup#1{%
+ \count\csname #1footins\endcsname 500
+ \multiply\dimen\csname #1footins\endcsname by 2 }
+\def\twocolvfootnote#1#2{\insert\csname #1footins\endcsname\bgroup
+ \notefontsetup
+ \interlinepenalty=\csname inter#1footnotelinepenalty\endcsname
+ \floatingpenalty=20000
+ \splittopskip=\ht\strutbox \splitmaxdepth=\dp\strutbox
+ \rightskip=0pt \leftskip=0pt
+ \csname #1footfmt\endcsname #2\egroup}
+\def\twocolfootfmt#1#2#3{%
+ \normal@pars
+ \hsize .45\hsize
+ \parindent=0pt
+ \tolerance=5000
+ \raggedright
+ \leavevmode
+ \strut{\notenumfont\printlines#1|}\enspace
+ {\select@lemmafont#1|#2}\rbracket\enskip
+ #3\strut\par\allowbreak}
+\def\twocolfootgroup#1{{\notefontsetup
+ \splittopskip=\ht\strutbox
+ \expandafter
+ \rigidbalance\csname #1footins\endcsname 2 \splittopskip}}
+\newdimen\crop@vsize \crop@vsize=0pt
+\newdimen\crop@hsize \crop@hsize=0pt
+\newdimen\head@margin \head@margin=0pt
+\newdimen\back@margin \back@margin=0pt
+\newdimen\odd@back \odd@back=0pt
+\newdimen\even@back \even@back=0pt
+\newtoks\@back
+\@back={\ifodd\pageno \odd@back \else \even@back\fi}
+\newbox\registration@marks
+\def\vertical@rules{%
+ \hbox to\crop@hsize{%
+ \vrule height1pc width\cropwidth depth0pt
+ \hfil
+ \vrule width\cropwidth depth0pt}}
+\def\horizontal@rules{%
+ \hbox to\crop@hsize{%
+ \llap{\vrule width1pc height\cropwidth \kern\cropgap}%
+ \hfil
+ \rlap{\kern\cropgap \vrule width1pc height\cropwidth}}}
+\newdimen\cropwidth \cropwidth=.4pt
+\newdimen\cropgap \cropgap=5pt
+\newdimen\magicvskip \magicvskip=\topskip
+\let\headlinefont=\rm
+\newif\ifcropmarks@
+\def\cropsetup#1#2#3#4{\cropmarks@true
+ \global\crop@vsize=#1
+ \global\crop@hsize=#2
+ \global\head@margin=#3
+ \global\back@margin=#4
+ \global\odd@back=\back@margin
+ \global\even@back=\crop@hsize
+ \global\advance\even@back by -\hsize
+ \global\advance\even@back by -\back@margin
+ \setbox\registration@marks=
+ \vbox to \crop@vsize{%
+ \offinterlineskip
+ \vbox to0pt{\vss
+ \vertical@rules
+ \kern\cropgap
+ \horizontal@rules}%
+ \vfil
+ \vbox to0pt{%
+ \horizontal@rules
+ \kern\cropgap
+ \vertical@rules\vss}}%
+ \ht\registration@marks=0pt
+ \wd\registration@marks=0pt
+ \global\magicvskip=\topskip
+ {\headlinefont \global\advance\magicvskip by -\ht\strutbox}%
+ \global\advance\magicvskip by -2\baselineskip}
+\output{\edmac@output}
+\def\edmac@output{\shipout\vbox{\normal@pars
+ \ifcropmarks@
+ \do@cropmarks
+ \else
+ \vbox{\makeheadline\pagebody\makefootline}%
+ \fi}%
+ \advancepageno
+ \ifnum\outputpenalty>-\@MM\else\dosupereject\fi}
+\def\pagecontents{\page@start
+ \ifvoid\topins\else\unvbox\topins\fi
+ \dimen@=\dp\@cclv \unvbox\@cclv % open up \box255
+ \do@feet
+ \ifr@ggedbottom \kern-\dimen@ \vfil \fi}
+\def\do@cropmarks{%
+ \vbox{\offinterlineskip
+ \kern\magicvskip
+ \copy\registration@marks
+ \kern-\magicvskip}%
+ \nointerlineskip
+ \kern\head@margin
+ \moveright\the\@back\vbox{\makeheadline\pagebody\makefootline}}
+\def\do@feet{%
+ \ifvoid\footins\else
+ \vskip\skip\footins
+ \footnoterule
+ \unvbox\footins
+ \fi
+ \ifvoid\Afootins\else
+ \Afootstart{A}\Afootgroup{A}%
+ \fi
+ \ifvoid\Bfootins\else
+ \Bfootstart{B}\Bfootgroup{B}%
+ \fi
+ \ifvoid\Cfootins\else
+ \Cfootstart{C}\Cfootgroup{C}%
+ \fi
+ \ifvoid\Dfootins\else
+ \Dfootstart{D}\Dfootgroup{D}%
+ \fi
+ \ifvoid\Efootins\else
+ \Efootstart{E}\Efootgroup{E}%
+ \fi}
+\list@create{\labelref@list}
+\newwrite\@aux
+\def\do@labelsfile{%
+ \openin\@inputcheck=\jobname.aux
+ \ifeof\@inputcheck \else
+ \closein\@inputcheck
+ \begingroup
+ \makeatletter \catcode`\^^M=9
+ \input\jobname.aux
+ \endgroup
+ \fi
+ \immediate\openout\@aux=\jobname.aux
+ \global\let\do@labelsfile=\relax}
+\def\zz@@@{000|000|000} % set three counters to zero in one go
+\def\label#1{\do@labelsfile
+ \write\linenum@out{\string\@lab}%
+ \ifx\labelref@list\empty
+ \xdef\label@refs{\zz@@@}%
+ \else
+ \gl@p\labelref@list\to\label@refs
+ \fi
+ \edef\next{\write\@aux{\string\make@labels\label@refs|{#1}}}%
+ \next}
+\def\make@labels#1|#2|#3|#4{%
+ \expandafter\ifx\csname the@label#4\endcsname \relax\else
+ \edmac@warning{Duplicate definition of label `#4'
+ on page \number\pageno.}%
+ \fi
+ \expandafter\gdef\csname the@label#4\endcsname{#1|#2|#3}%
+ \ignorespaces}
+\def\@lab{\xright@appenditem
+ {\the\page@num|\the\line@num|%
+ \ifsublines@ \the\subline@num \else 0\fi}\to\labelref@list}
+\def\pageref#1{\ref@undefined{#1}\getref@num{1}{#1}}
+\def\xpageref#1{\getref@num{1}{#1}}
+\def\lineref#1{\ref@undefined{#1}\getref@num{2}{#1}}
+\def\xlineref#1{\getref@num{2}{#1}}
+\def\sublineref#1{\ref@undefined{#1}\getref@num{3}{#1}}
+\def\xsublineref#1{\getref@num{3}{#1}}
+\def\ref@undefined#1{\do@labelsfile
+ \expandafter\ifx\csname the@label#1\endcsname\relax
+ \edmac@warning{Reference `#1'
+ on page \the\pageno\space undefined. Using `000'.}%
+ \fi}
+\def\getref@num#1#2{%
+ \expandafter
+ \ifx\csname the@label#2\endcsname \relax
+ 000%
+ \else
+ \expandafter\expandafter\expandafter
+ \label@parse\csname the@label#2\endcsname|#1%
+ \fi}
+\def\label@parse#1|#2|#3|#4{%
+ \ifcase #4\relax
+ \or #1%
+ \or #2%
+ \or #3%
+ \fi}
+\def\xxref#1#2{%
+ {\expandafter\ifx\csname the@label#1\endcsname
+ \relax \expandafter\let\csname the@label#1\endcsname\zz@@@\fi
+ \expandafter\ifx\csname the@label#2\endcsname \relax
+ \expandafter\let\csname the@label#2\endcsname\zz@@@\fi
+ \linenum{\csname the@label#1\endcsname|%
+ \csname the@label#2\endcsname}}}
+\def\makelabel#1#2{\expandafter\xdef\csname the@label#1\endcsname{#2}}
+\newwrite\@end
+\newif\ifend@
+\def\end@open#1{\end@true\immediate\openout\@end=#1\relax}
+\def\end@close{\end@false\immediate\closeout\@end}
+\def\end@stuff{%
+ \ifend@\relax\else
+ \end@open{\jobname.end}%
+ \fi
+ \immediate\write\@end{\string\@section{\the\section@num}}}
+\def\Aendnote#1{{\newlinechar='40
+ \immediate\write\@end{\string\Aend%
+ {\ifnumberedpar@\@nums\fi}%
+ {\ifnumberedpar@\@tag\fi}{#1}}}\ignorespaces}
+\def\Bendnote#1{{\newlinechar='40
+ \immediate\write\@end{\string\Bend%
+ {\ifnumberedpar@\@nums\fi}%
+ {\ifnumberedpar@\@tag\fi}{#1}}}\ignorespaces}
+\def\Cendnote#1{{\newlinechar='40
+ \immediate\write\@end{\string\Cend%
+ {\ifnumberedpar@\@nums\fi}%
+ {\ifnumberedpar@\@tag\fi}{#1}}}\ignorespaces}
+\def\Dendnote#1{{\newlinechar='40
+ \immediate\write\@end{\string\Dend%
+ {\ifnumberedpar@\@nums\fi}%
+ {\ifnumberedpar@\@tag\fi}{#1}}}\ignorespaces}
+\def\Eendnote#1{{\newlinechar='40
+ \immediate\write\@end{\string\Eend%
+ {\ifnumberedpar@\@nums\fi}%
+ {\ifnumberedpar@\@tag\fi}{#1}}}\ignorespaces}
+\def\endprint#1#2#3{{\notefontsetup{\notenumfont\printlines#1|}%
+ \enspace{\select@lemmafont#1|#2}\enskip#3\par}}
+\def\@gobblethree#1#2#3{}
+\let\Aend=\@gobblethree
+\let\Bend=\@gobblethree
+\let\Cend=\@gobblethree
+\let\Dend=\@gobblethree
+\let\Eend=\@gobblethree
+\let\@section=\@gobble
+\def\doendnotes#1{\end@close
+ \begingroup
+ \makeatletter
+ \expandafter\let\csname #1end\endcsname=\endprint
+ \input\jobname.end
+ \endgroup}
+\def\noendnotes{\global\let\end@stuff=\relax
+ \global\chardef\@end=16 }
+\makeatother
+\endinput
+%%
+%% End of file `edmac.tex'.
diff --git a/Master/texmf-dist/tex/generic/edmac/edmacfss.sty b/Master/texmf-dist/tex/generic/edmac/edmacfss.sty
new file mode 100644
index 00000000000..cfc0c15e1e7
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/edmac/edmacfss.sty
@@ -0,0 +1,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
diff --git a/Master/texmf-dist/tex/generic/edmac/edstanza.tex b/Master/texmf-dist/tex/generic/edmac/edstanza.tex
new file mode 100644
index 00000000000..0a56bf40193
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/edmac/edstanza.tex
@@ -0,0 +1,92 @@
+%%
+%% This is file `edstanza.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% edstanza.doc
+%%
+%% IMPORTANT NOTICE:
+%%
+%% For the copyright see the source file.
+%%
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from edstanza.tex.
+%%
+%% For distribution of the original source see the terms
+%% for copying and modification in the file edstanza.doc.
+%%
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+
+\def\fileversion{0.01}
+\def\filedate{92/6/25}
+\def\docdate {92/6/25}
+
+%% \CheckSum{191}
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+%%
+ \ifx\edmacloaded\relax\else
+ \errmessage{EDSTANZA requires EDMAC.}\endinput\fi
+ \chardef\body=\catcode`\@
+ \catcode`\@=11
+ \chardef\next=\catcode`\&
+ \catcode`\&=\active
+ \newcount\stanza@count
+ \newdimen\stanzaindentbase
+ \stanzaindentbase=20pt
+\def\strip@szacnt#1,#2|{\def\@tempb{#1}\def\@tempa{#2|}}
+\def\setstanzavalues#1#2{\def\@tempa{#2,,|}%
+ \stanza@count\z@
+ \def\next{\expandafter\strip@szacnt\@tempa
+ \ifx\@tempb\empty\let\next\relax\else
+ \expandafter\mathchardef\csname #1@\number\stanza@count
+ @\endcsname\@tempb\relax
+ \advance\stanza@count\@ne\fi\next}%
+ \next}
+\def\stanza@line{\parindent=\csname sza@\number\stanza@count
+ @\endcsname\stanzaindentbase
+ \pstart\stanza@hang\ignorespaces}
+\xdef\stanza@hang{\noexpand\leavevmode\noexpand\startlock
+ \hangindent\expandafter
+ \noexpand\csname sza@0@\endcsname\stanzaindentbase
+ \hangafter\@ne}
+\def\sza@penalty{\count@\csname szp@\number\stanza@count @\endcsname
+ \ifnum\count@>\@M\advance\count@-\@M\penalty-\else
+ \penalty\fi\count@}
+\let\endstanzaextra\relax
+\xdef\stanza{\begingroup\catcode`\&\active\global\stanza@count\@ne
+ \noexpand\ifnum\expandafter\noexpand
+ \csname sza@0@\endcsname=\z@\let\noexpand\stanza@hang\relax
+ \let\noexpand\endlock\relax\noexpand\else\interlinepenalty
+ \@M\rightskip\z@ plus 1fil\relax\noexpand\fi\noexpand\ifnum
+ \expandafter\noexpand\csname szp@0@\endcsname=\z@
+ \let\noexpand\sza@penalty\relax\noexpand\fi \def\noexpand&{%
+ \noexpand\endlock\noexpand\pend\noexpand\sza@penalty\global
+ \advance\stanza@count\@ne\noexpand\stanza@line}\def\noexpand
+ \&{\noexpand\endlock\noexpand\pend\endgroup\endstanzaextra}%
+ \noexpand\stanza@line}
+ \catcode`\&=\next
+ \catcode`\@=\body
+ \let\ampersand=\&
+ \setstanzavalues{szp}{0}
+ \endinput
+\endinput
+%%
+%% End of file `edstanza.tex'.
diff --git a/Master/texmf-dist/tex/generic/edmac/tabmac.tex b/Master/texmf-dist/tex/generic/edmac/tabmac.tex
new file mode 100644
index 00000000000..9573bed7b57
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/edmac/tabmac.tex
@@ -0,0 +1,641 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% This is file tabmac.tex 1.0.
+% You find here macros for tabular structures compatible with
+% Edmac (authored by Lavagnino/Wujastyk). The use of the macros is
+% explained in German language in file tabanlei.dvi. The macros were
+% developed for Edmac 2.3, but this file has been adjusted to Edmac 3.16.
+%
+% ATTENTION: This file uses some Edmac control sequences (like
+% \text, \Afootnote etc.) and redefines \morenoexpands. If you yourself
+% redefined some Edmac control sequences, be careful: some adjustements
+% might be necessary.
+% October 1996
+%
+% My kind thanks to Nora G^Ädeke for valuable support. Any hints and
+% comments are welcome, please contact Herbert Breger,
+% Leibniz-Archiv, Waterloostr. 8, D -- 30169 Hannover, Germany
+% Tel.: 511 - 1267 327
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\makeatletter
+
+\def\morenoexpands{\def\ss{\noexpand\ss}\def\"##1{\noexpand\"##1}%
+ \def\'##1{\noexpand\'##1}\def\`##1{\noexpand\`##1}%
+ \def\^##1{\noexpand\^##1}\def\phantom##1{\noexpand\phantom{##1}}%
+ \def\hphantom##1{\noexpand\hphantom{##1}}%
+ \def\underbrace##1{\noexpand\underbrace{##1}}%
+ \def\dots{\noexpand\dots}%
+ \let\rtab=0\let\ztab=0\let\ltab=0\let\rtabtext=0\let\ltabtext=0%
+ \let\davor=0\let\danach=0\let\T=0%
+ \let\wastrich=0\let\waklam=0\let\wapunkte=0\let\seklam=0%
+ \let\sepunkte=0\let\sestrich=0\let\seklamgl=0\let\Seklamgl=0%
+ \let\atab=0\let\atabell=0}
+
+\newcount\Undcount
+\newbox\hilfsbox
+\newskip\hilfsskip
+\newbox\Hilfsbox
+\newcount\hilfscount
+\newcount\stellencount
+
+\newdimen\eins
+\newdimen\zwei
+\newdimen\drei
+\newdimen\vier
+\newdimen\fuenf
+\newdimen\sechs
+\newdimen\sieben
+\newdimen\acht
+\newdimen\neun
+\newdimen\zehn
+\newdimen\elf
+\newdimen\zwoelf
+\newdimen\dreizehn
+\newdimen\vierzehn
+\newdimen\fuenfzehn
+\newdimen\sechszehn
+\newdimen\siebzehn
+\newdimen\achtzehn
+\newdimen\neunzehn
+\newdimen\zwanzig
+\newdimen\einundzwanzig
+\newdimen\zweiundzwanzig
+\newdimen\dreiundzwanzig
+\newdimen\vierundzwanzig
+\newdimen\fuenfundzwanzig
+\newdimen\sechsundzwanzig
+\newdimen\siebenundzwanzig
+\newdimen\achtundzwanzig
+\newdimen\neunundzwanzig
+\newdimen\dreissig
+\newdimen\einunddreissig
+\newdimen\zweiunddreissig
+\newdimen\dreiunddreissig
+\newdimen\vierunddreissig
+\newdimen\fuenfunddreissig
+\newdimen\sechsunddreissig
+\newdimen\siebenunddreissig
+\newdimen\achtunddreissig
+\newdimen\neununddreissig
+\newdimen\vierzig
+\newdimen\einvierzig
+\newdimen\zweivierzig
+\newdimen\dreivierzig
+\newdimen\viervierzig
+\newdimen\fuenfvierzig
+\newdimen\sechsvierzig
+\newdimen\siebenvierzig
+\newdimen\achtvierzig
+\newdimen\neunvierzig
+\newdimen\fuenfzig
+\newdimen\einfuenfzig
+\newdimen\zweifuenfzig
+\newdimen\dreifuenfzig
+\newdimen\vierfuenfzig
+\newdimen\fuenffuenfzig
+\newdimen\sechsfuenfzig
+\newdimen\siebenfuenfzig
+\newdimen\achtfuenfzig
+\newdimen\neunfuenfzig
+\newdimen\sechzig
+
+\stellencount=0
+
+\def\Dimenzuordnung{\ifcase \the\stellencount \eins %???
+ \or \eins \or \zwei \or \drei \or \vier \or \fuenf
+ \or \sechs \or \sieben \or \acht \or \neun \or \zehn
+ \or \elf \or \zwoelf \or \dreizehn \or \vierzehn
+ \or \fuenfzehn \or \sechszehn \or \siebzehn \or
+ \achtzehn \or \neunzehn \or \zwanzig \or \einundzwanzig
+ \or \zweiundzwanzig \or \dreiundzwanzig \or \vierundzwanzig
+ \or \fuenfundzwanzig \or \sechsundzwanzig \or \siebenundzwanzig
+ \or \achtundzwanzig \or \neunundzwanzig \or \dreissig
+ \or \einunddreissig \or \zweiunddreissig \or \dreiunddreissig
+ \or \vierunddreissig \or \fuenfunddreissig \or \sechsunddreissig
+ \or \siebenunddreissig \or \achtunddreissig \or \neununddreissig
+ \or \vierzig \or \einvierzig \or \zweivierzig \or \dreivierzig
+ \or \viervierzig \or \fuenfvierzig \or \sechsvierzig \or
+ \siebenvierzig \or \achtvierzig \or \neunvierzig \or \fuenfzig
+ \or \einfuenfzig \or \zweifuenfzig \or \dreifuenfzig \or
+ \or \vierfuenfzig \or \fuenffuenfzig \or \sechsfuenfzig \or
+ \or \siebenfuenfzig \or \achtfuenfzig \or \neunfuenfzig \or
+ \sechzig \else 0pt =0pt \errmessage{Tabelle hat mehr als sechzig
+ Spalten} \fi }
+
+\def\dimenzuordnung{\ifdim\Dimenzuordnung < \wd\hilfsbox
+ \Dimenzuordnung = \wd\hilfsbox
+ \else \relax \fi}
+
+\let\TEXT=\text
+\def\xtext #1#2/{\TEXT{#1}{#2}/}
+\let\A@@footnote=\Afootnote
+\let\B@@footnote=\Bfootnote
+\let\C@@footnote=\Cfootnote%
+\let\D@@footnote=\Dfootnote
+\let\@line@@num=\linenum%
+\def\verschwinden #1/{\relax}
+
+\Undcount=1
+\let\Relax=\relax
+\let\NEXT=\next
+\newcount\@hilfs@count
+
+\def\messen #1&{%
+ \ifx #1! \ifnum\stellencount=0\let\NEXT\relax%
+ \else\tabfehlermeldung%
+ \stellencount=0%
+ \let\NEXT\messen%
+ \fi%
+ \else\setbox\hilfsbox=\hbox{$\displaystyle{#1}$}%
+ \advance\stellencount by 1 %
+ \dimenzuordnung%
+ \let\NEXT\messen%
+ \fi\NEXT}
+
+
+\def\messentext #1&{%
+ \ifx #1! \ifnum\stellencount=0\let\NEXT\relax%
+ \else\tabfehlermeldung%
+ \stellencount=0%
+ \let\NEXT\messentext%
+ \fi%
+ \else\setbox\hilfsbox=\hbox{#1}%
+ \advance\stellencount by 1 %
+ \dimenzuordnung%
+ \let\NEXT\messentext%
+ \fi\NEXT}
+
+\def\Messen #1!{%
+ \ifx #1&\let\NEXT\relax%
+ \else\messen #1&!&!&%
+ \let\NEXT\Messen%
+ \fi\NEXT}
+\def\Messentext #1!{%
+ \ifx #1&\let\NEXT\relax%
+ \else\messentext #1&!&!&%
+ \let\NEXT\Messentext%
+ \fi\NEXT}
+
+\newskip\abstand
+\global\abstand=10pt
+
+
+\let\LABEL=\label
+\def\Label#1{\LABEL#1}
+\let\NEXT\relax
+\let\Next=\next
+\def\variab{\relax}
+
+\def\tabfehlermeldung{%
+ \ifnum\stellencount=1\relax%
+ \else\ifnum\Undcount=1\relax%
+ \else\ifnum\stellencount=\Undcount\relax%
+ \else\errmessage{Anzahl der Tabulatoren ist nicht
+ gleich der Anzahl in der vorigen Zeile
+ (oder Ausrufungszeichen vergessen ?)}%
+ \fi%
+ \fi\Undcount=\stellencount%
+ \fi}
+\def\rverteilen #1&{\def\label##1{}%
+ \ifx #1! \ifnum\stellencount=0%\removelastskip
+ \let\Next\relax%
+ \else\stellencount=0%
+ \let\Next=\rverteilen%
+ \fi%
+ \else%
+ \footnoteverschw%
+ \advance\stellencount by 1%
+ \setbox\hilfsbox=\hbox{$\displaystyle{#1}$}%
+ \let\text=\xtext\let\Dfootnote=\D@@footnote%
+ \let\Afootnote=\A@@footnote\let\Bfootnote=\B@@footnote%
+ \let\Cfootnote=\C@@footnote\let\linenum=\@line@@num%
+ \hilfsskip=\Dimenzuordnung%
+ \advance\hilfsskip by -\wd\hilfsbox\def\label##1{\Label{{##1}}}%
+ \hskip\hilfsskip$\displaystyle{#1}$%
+ \hskip\abstand%
+ \let\Next=\rverteilen%
+ \fi\Next}
+
+\def\rverteilentext #1&{\def\label##1{}%
+ \ifx #1! \ifnum\stellencount=0%\removelastskip
+ \let\Next\relax%
+ \else\stellencount=0%
+ \let\Next=\rverteilentext%
+ \fi%
+ \else%
+ \footnoteverschw%
+ \advance\stellencount by 1%
+ \setbox\hilfsbox=\hbox{#1}%
+ \let\text=\xtext\let\Dfootnote=\D@@footnote%
+ \let\Afootnote=\A@@footnote\let\Bfootnote=\B@@footnote%
+ \let\Cfootnote=\C@@footnote\let\linenum=\@line@@num%
+ \hilfsskip=\Dimenzuordnung%
+ \advance\hilfsskip by -\wd\hilfsbox\def\label##1{\Label{{##1}}}%
+ \hskip\hilfsskip#1%
+ \hskip\abstand%
+ \let\Next=\rverteilentext%
+ \fi\Next}
+\def\lverteilen #1&{\def\label##1{}%
+ \ifx #1! \ifnum\stellencount=0 \let\Next\relax%
+ \else\stellencount=0%
+ \let\Next=\lverteilen%
+ \fi%
+ \else \footnoteverschw%
+ \advance\stellencount by 1%
+ \setbox\hilfsbox=\hbox{$\displaystyle{#1}$}%
+ \hilfsskip=\Dimenzuordnung%
+ \advance\hilfsskip by -\wd\hilfsbox%
+ \let\text=\xtext\let\Afootnote=\A@@footnote%
+ \let\Bfootnote=\B@@footnote\let\Cfootnote=\C@@footnote%
+ \let\Dfootnote=\D@@footnote\def\label##1{\Label{{##1}}}%
+ \let\linenum=\@line@@num%
+ $\displaystyle{#1}$\hskip\hilfsskip\hskip\abstand%
+ \let\Next=\lverteilen%
+ \fi\Next}
+
+\def\lverteilentext #1&{\def\label##1{}%
+ \ifx #1! \ifnum\stellencount=0 \let\Next\relax%
+ \else\stellencount=0%
+ \let\Next=\lverteilentext%
+ \fi%
+ \else \footnoteverschw%
+ \advance\stellencount by 1%
+ \setbox\hilfsbox=\hbox{#1}%
+ \hilfsskip=\Dimenzuordnung%
+ \advance\hilfsskip by -\wd\hilfsbox%
+ \let\text=\xtext\let\Afootnote=\A@@footnote%
+ \let\Bfootnote=\B@@footnote\let\Cfootnote=\C@@footnote%
+ \let\Dfootnote=\D@@footnote\def\label##1{\Label{{##1}}}%
+ \let\linenum=\@line@@num%
+ #1\hskip\hilfsskip\hskip\abstand%
+ \let\Next=\lverteilentext%
+ \fi\Next}
+\def\zverteilen #1&{\def\label##1{}%
+ \ifx #1! \ifnum\stellencount=0\let\Next\relax%
+ \else\stellencount=0%
+ \let\Next=\zverteilen%
+ \fi%
+ \else \footnoteverschw%
+ \advance\stellencount by 1%
+ \setbox\hilfsbox=\hbox{$\displaystyle{#1}$}%
+ \hilfsskip=\Dimenzuordnung%
+ \advance\hilfsskip by -\wd\hilfsbox%
+ \let\text=\xtext\let\Afootnote=\A@@footnote%
+ \let\Bfootnote=\B@@footnote\let\Cfootnote=\C@@footnote%
+ \let\Dfootnote=\D@@footnote\def\label##1{\Label{{##1}}}%
+ \let\linenum=\@line@@num%
+ \hskip 0.5\hilfsskip$\displaystyle{#1}$\hskip0.5\hilfsskip%
+ \hskip\abstand%
+ \let\Next=\zverteilen%
+ \fi\Next}
+\let\NEXT=\relax
+
+\def\rsetzen #1!{%
+ \ifx #1& \let\NEXT\relax
+ \else%
+ \centerline{\rverteilen #1&!&!&}
+ \let\NEXT=\rsetzen
+ \fi\NEXT}
+
+\def\rsetzentext #1!{%
+ \ifx #1& \let\NEXT\relax
+ \else \centerline{\rverteilentext #1&!&!&}
+ \let\NEXT=\rsetzentext
+ \fi\NEXT}
+
+\def\lsetzen #1!{%
+ \ifx #1&\let\NEXT\relax
+ \else%
+ \centerline{\lverteilen #1&!&!&}
+ \let\NEXT=\lsetzen
+ \fi\NEXT}
+
+\def\lsetzentext #1!{%
+ \ifx #1& \let\NEXT\relax
+ \else%
+ \centerline{\lverteilentext #1&!&!&}
+ \let\NEXT=\lsetzentext
+ \fi\NEXT}
+\def\zsetzen #1!{%
+ \ifx #1& \let\NEXT\relax%
+ \else \centerline{\zverteilen #1&!&!&}
+ \let\NEXT=\zsetzen
+ \fi\NEXT}
+\def\nullsetzen{%
+ \advance\stellencount by 1 %
+ \Dimenzuordnung=0pt%
+ \ifnum\stellencount=30\let\NEXT\relax%
+ \stellencount=0%
+ \else\let\NEXT\nullsetzen%
+ \fi\NEXT}
+\def\footnoteverschw{%
+ \let\text\relax%
+ \let\Afootnote=\verschwinden%
+ \let\Bfootnote=\verschwinden%
+ \let\Cfootnote=\verschwinden%
+ \let\Dfootnote=\verschwinden%
+ \let\linenum=\@gobble%
+ }
+
+\def\Seklam#1{\vbox to 10pt{\vss\hbox{$\left\{\vrule width0pt height #1pt
+ depth 0pt \right. $\hss}\vfil%
+ }}
+\def\Seklamgl#1#2{\vbox to 4pt{\vss\hbox{$#1\left\{\vrule width0pt height #2pt
+ depth 0pt \right. $}\vfil%
+ }}
+\def\seklam#1{\vbox to 10pt{\vss\hbox{$\left.\vrule width0pt height #1pt
+ depth 0pt \right\} $\hss}\vfil%
+ }}
+\def\seklamgl#1#2{\vbox to 4pt{\vss\hbox{$\left.\vrule width0pt height #1pt
+ depth 0pt \right\}#2 $}\vfil%
+ }}
+\def\sestrich#1{\vbox to 8pt{\vss\hbox{\vrule height #1pt}\vfil}}%
+\def\sepunkte#1{\vbox to 1pt{\vss\vbox to #1pt%
+ {\cleaders\hbox{$\m@th\hbox{.}\vbox to 0.5em{ }$}\vfil}}}
+
+\newdimen\klamdimen
+\klamdimen=0pt
+
+\def\@add@#1{%
+ \ifx#1|\advance\klamdimen by-\abstand%
+ \let\next=\relax%
+ \else\advance\klamdimen by \the#1%
+ \advance\klamdimen by\abstand%
+ \let\next=\@add@%
+ \fi\next}
+\def\waklam#1|{%
+ \@add@#1|%
+ \hbox to\the\Dimenzuordnung{\hbox to%
+ \the\klamdimen{\upbracefill}\hss}}
+\def\Waklam#1|{%
+ \@add@#1|%
+ \hbox to \the\Dimenzuordnung{\hbox to%
+ \the\klamdimen{\downbracefill}\hss}}
+
+\def\waklamec#1|{%
+ \@add@#1|%
+ \hbox to\the\Dimenzuordnung{\hbox to%
+ \the\klamdimen{\vrule height 4pt\hrulefill\vrule height 4pt}\hss}}
+
+\def\waklamect#1|{\hbox to 0pt{\T{6}{\waklamec#1|}\hss}}
+
+\def\wastrich#1|{%
+ \@add@#1|%
+ \hbox to\the\Dimenzuordnung{\hbox to%
+ \the\klamdimen{\hrulefill}\hss}}
+
+\def\wapunkte#1|{%
+ \@add@#1|%
+ \hbox to\the\Dimenzuordnung{\hbox to%
+ \the\klamdimen{\dotfill}\hss}}
+
+\let\@waklam@=\waklam
+\def\@WAKLAM@#1|{\@waklam@#1|}
+\let\@Waklam@=\Waklam
+\def\@WAKlam@#1|{\@Waklam@#1|}
+\let\@wastrich@=\wastrich
+\def\@WASTRICH@#1|{\@wastrich@#1|}
+
+\def\linksltab#1{%
+ \hbox to 0pt{\vbox{\tabindent%
+ \moveleft\Hilfsskip\hbox{\ #1}}\hss}%
+ }
+
+\def\linksrtab#1#2{%
+ #2\hbox to 0pt{\vbox{\tabindent%
+ \advance\Hilfsskip by\eins%
+ \moveleft\Hilfsskip\hbox{\ #1}}\hss}%
+ }
+
+\def\linksztab#1#2{%
+ \hbox to 0pt{\vbox{\tabindent\stellencount=\Undcount%
+ \advance\Hilfsskip by 0.5\eins%
+ \setbox\hilfsbox=\hbox{\def\label##1{}%
+ \footnoteverschw$\displaystyle{#2}$}%
+ \advance\Hilfsskip by -0.5\wd\hilfsbox%
+ \moveleft\Hilfsskip\hbox{\ #1}}\hss}%
+ #2}
+
+\def\rechtsztab#1#2{%
+ \setbox\hilfsbox=\hbox{\def\label##1{}%
+ \footnoteverschw#2}\Undcount=\stellencount%
+ #1\hbox to 0pt{\vbox{\tabindent\stellencount=\Undcount%
+ \advance\Hilfsskip by 0.5\Dimenzuordnung%
+ \advance\Hilfsskip by -\wd\hilfsbox%
+ \setbox\hilfsbox=\hbox{\def\label##1{}%
+ \footnoteverschw$\displaystyle{#1}$}%
+ \advance\Hilfsskip by -0.5\wd\hilfsbox%
+ \advance\Hilfsskip by \abstand%
+ \moveright\Hilfsskip\hbox{ #2}}\hss}%
+ }
+
+\def\rechtsltab#1#2{%
+ \setbox\hilfsbox=\hbox{\def\label##1{}\footnoteverschw#2}\Undcount=\stellencount%
+ #1\hbox to0pt{\vbox{\tabindent\stellencount=\Undcount%
+ \advance\Hilfsskip by\Dimenzuordnung%
+ \advance\Hilfsskip by-\wd\hilfsbox%
+ \setbox\hilfsbox=\hbox{\def\label##1{}%
+ \footnoteverschw$\displaystyle{#1}$}%
+ \advance\Hilfsskip by-\wd\hilfsbox%
+ \advance\Hilfsskip by\abstand%
+ \moveright\Hilfsskip\hbox{ #2}}\hss}%
+ }
+
+\def\rechtsrtab#1#2{%
+ \setbox\hilfsbox=\hbox{\def\label##1{}\footnoteverschw#2}%
+ #1\hbox to0pt{\vbox{\tabindent%
+ \advance\Hilfsskip by-\wd\hilfsbox%
+ \advance\Hilfsskip by\abstand%
+ \moveright\Hilfsskip\hbox{ #2}}\hss}%
+ }
+
+\def\footnotewieder{%
+ \def\Afootnote##1##2/{\A@@footnote{##1}{##2}}
+ \def\Bfootnote##1##2/{\B@@footnote{##1}{##2}}
+ \def\Cfootnote##1##2/{\C@@footnote{##1}{##2}}
+ \def\Dfootnote##1##2/{\D@@footnote{##1}{##2}}
+ }
+
+
+\def\rtab#1{%
+ \def\label##1{}%
+ \def\waklam##1|{}%
+ \def\Waklam##1|{}%
+ \def\wastrich##1|{}%
+ \def\davor##1##2{\linksrtab{##1}{##2}}%
+ \def\danach##1##2{\rechtsrtab{##1}{##2}}%
+ \footnoteverschw%
+ \stellencount=0%
+ \nullsetzen%
+ \stellencount=0
+ \Messen #1!&!%
+ \global\Undcount=1
+ \def\waklam##1|{\@WAKLAM@##1|}%
+ \def\Waklam##1|{\@WAKlam@##1|}%
+ \def\wastrich##1|{\@WASTRICH@##1|}%
+ \variab
+ \rsetzen #1!&!%
+ \footnotewieder
+ }
+
+\def\rtabtext #1{%
+ \def\label##1{}%
+ \def\waklam##1|{}%
+ \def\Waklam##1|{}%
+ \def\wastrich##1|{}%
+ \footnoteverschw%
+ \stellencount=0%
+ \nullsetzen%
+ \stellencount=0
+ \Messentext #1!&!%
+ \global\Undcount=1
+ \def\waklam##1|{\@WAKLAM@##1|}%
+ \def\Waklam##1|{\@WAKlam@##1|}%
+ \def\wastrich##1|{\@WASTRICH@##1|}%
+ \variab
+ \rsetzentext #1!&!%
+ \footnotewieder
+ }
+
+
+\def\ltab #1{%
+ \def\label##1{}%
+ \def\waklam##1|{}%
+ \def\Waklam##1|{}%
+ \def\wastrich##1|{}%
+ \def\davor##1##2{\linksltab{##1}{##2}}%
+ \def\danach##1##2{\rechtsltab{##1}{##2}}%
+ \footnoteverschw%
+ \stellencount=0%
+ \nullsetzen%
+ \stellencount=0%
+ \Messen #1!&!%
+ \global\Undcount=1
+ \def\waklam##1|{\@WAKLAM@##1|}%
+ \def\Waklam##1|{\@WAKlam@##1|}%
+ \def\wastrich##1|{\@WASTRICH@##1|}%
+ \variab
+ \lsetzen #1!&!%
+ \footnotewieder
+ }
+
+\def\ltabtext #1{%
+ \def\label##1{}%
+ \def\waklam##1|{}%
+ \def\Waklam##1|{}%
+ \def\wastrich##1|{}%
+ \footnoteverschw%
+ \stellencount=0%
+ \nullsetzen%
+ \stellencount=0%
+ \Messentext #1!&!%
+ \global\Undcount=1
+ \def\waklam##1|{\@WAKLAM@##1|}%
+ \def\Waklam##1|{\@WAKlam@##1|}%
+ \def\wastrich##1|{\@WASTRICH@##1|}%
+ \variab
+ \lsetzentext#1!&!%
+ \footnotewieder
+ }
+
+
+\def\ztab #1{%
+ \def\label##1{}%
+ \def\waklam##1|{}%
+ \def\Waklam##1|{}%
+ \def\wastrich##1|{}%
+ \def\davor##1##2{\linksztab{##1}{##2}}%
+ \def\danach##1##2{\rechtsztab{##1}{##2}}%
+ \footnoteverschw%
+ \stellencount=0%
+ \nullsetzen%
+ \stellencount=0%
+ \Messen #1!&!%
+ \global\Undcount=1
+ \def\waklam##1|{\@WAKLAM@##1|}%
+ \def\Waklam##1|{\@WAKlam@##1|}%
+ \def\wastrich##1|{\@WASTRICH@##1|}%
+ \variab
+ \zsetzen #1!&!%
+ \footnotewieder
+ }
+
+\def\breitertext#1{%\stellencount=\Undcount%
+ \hbox to \the\Dimenzuordnung{\hbox{#1}\hss}%
+ }
+\def\breiter#1{%
+ \hbox to \the\Dimenzuordnung{\hbox{$\displaystyle{#1}$}\hss}%
+ }
+
+
+\def\tabellzwischen #1&{%
+ \ifx #1! \let\NEXT\relax \stellencount=0
+ \else \advance \stellencount by 1
+ \Dimenzuordnung = #1 mm
+ \let\NEXT=\tabellzwischen
+ \fi \NEXT }
+
+\def\atabell #1!{%
+ \tabellzwischen #1&!&}
+\def\Setzen #1&{%
+ \ifx #1\relax \let\NEXT=\relax
+ \else \advance\stellencount by 1
+ \let\tabelskip=\Dimenzuordnung
+ \TAB #1|
+ \let\NEXT=\Setzen
+ \fi\NEXT}
+
+
+\def\ATAB #1!{%
+ \ifx #1\Relax \centerline{\Setzen #1\relax&}
+ \let\Next\relax
+ \else \centerline{\Setzen #1&\relax&}
+ \let\Next=\ATAB
+ \fi\Next}
+\def\atab #1{%
+ \variab%
+ \ATAB #1!\Relax!}
+
+\newskip\HILFSskip
+\newskip\Hilfsskip
+
+\def\TABINDENT{%
+ \ifnum\stellencount=30\let\NEXT\relax\stellencount=0%
+ \else\advance\stellencount by 1%
+ \advance\Hilfsskip by\Dimenzuordnung%
+ \ifdim\Dimenzuordnung=0pt\advance\hilfscount by 1%
+ \else\advance\Hilfsskip by \the\hilfscount\abstand%
+ \hilfscount=1\fi%
+ \let\NEXT=\TABINDENT%
+ \fi\NEXT}%
+\def\tabindent{%
+ \stellencount=0%
+ \Hilfsskip=0pt%
+ \hilfscount=1%
+ \TABINDENT%
+ \hilfsskip=\hsize%
+ \advance\hilfsskip by -\Hilfsskip%
+ \Hilfsskip=0.5\hilfsskip%
+ }%
+
+\def\TAB #1|#2|{%
+ \setbox\tabhilfbox=\hbox{$\displaystyle{#1}$}%
+ \setbox\tabHilfbox=\hbox{$\displaystyle{#2}$}%
+ \advance\tabelskip by -\wd\tabhilfbox%
+ \advance\tabelskip by -\wd\tabHilfbox%
+ \unhbox\tabhilfbox\hskip\tabelskip%
+ \unhbox\tabHilfbox}%
+
+\def\TABtext #1|#2|{%
+ \setbox\tabhilfbox=\hbox{#1}%
+ \setbox\tabHilfbox=\hbox{#2}%
+ \advance\tabelskip by -\wd\tabhilfbox%
+ \advance\tabelskip by -\wd\tabHilfbox%
+ \unhbox\tabhilfbox\hskip\tabelskip%
+ \unhbox\tabHilfbox}%
+\newbox\tabhilfbox
+\newbox\tabHilfbox
+
+\makeatother
+\endinput
+---------- cut here ---------- cut here ---------- cut here ----------