diff options
Diffstat (limited to 'tmac/me/footnote.me')
-rw-r--r-- | tmac/me/footnote.me | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/tmac/me/footnote.me b/tmac/me/footnote.me new file mode 100644 index 00000000..38607b2b --- /dev/null +++ b/tmac/me/footnote.me @@ -0,0 +1,83 @@ +.nr _0 \n(c. +.\" @(#)footnote.me 2.4 9/23/80 +.\" This version has had comments stripped; an unstripped version is available. +.de (f +.ec +.if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting +.ie "\\n(.z"" \ +\{\ +. nr _D \\n(dn +. nr _0 1v+\\n(nlu +. ev 2 +. da |f +. in 0 +. xl \\n($lu-\\n(fuu +. @F \\n(ff +. sz \\n(fpu +. vs \\n(.su*\\n($Ru +. if !\\n(?f \ +\{\ +. nr _b +2u*\n(.Vu +. $s +. \} +. br +. if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \ +\{\ +. da\" +. bc +. if !\\n(?f \ +. rm |f +. da |f +. in 0 +. xl \\n($lu-\\n(fuu +. @F \\n(ff +. sz \\n(fpu +. vs \\n(.su*\\n($Ru +. if !\\n(?f \ +. $s +. br +. \} +. rr _0 +. sp \\n(fsu +. nr ?f 1 +. fi +. if !"\\$1"_" \ +. ti \\n(fiu +.\} +.el \ +\{\ +. ev 2 +\!.(f \\$1 +.\} +.. +.de )f +.ie "\\n(.z"|f" \ +\{\ +. if \\n* \ +. nr $f +1 +. ds * \\*[\\n($f\\*]\k* +. rr * +. in 0 +. da +. ev +. if \\n(_w<\\n(dl \ +. nr _w \\n(dl +. nr _b +\\n(dn +. ch @f -\\n(_bu +. if \\n(.p-\\n(_b<=\\n(nl \ +. ch @f \\n(nlu+\n(.Vu +. nr dn _D +. rr _D +.\} +.el \ +\{\ +. br +\!.)f +. ev +.\} +.. +.if \n(ff<=0 \ +. nr ff 1 +.if \n(fp<=0 \ +. nr fp 8 +.nr c. \n(_0 |