blob: 0a56bf40193d353d3e6462c5fdabaf7ee97c7038 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
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'.
|
