diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/edmac/edstanza.tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/edmac/edstanza.tex | 92 |
1 files changed, 92 insertions, 0 deletions
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'. |