date and time created 87/02/15 16:35:33 by lepreau

[unix-history] / usr / src / share / me / footnote.me

diff --git a/usr/src/share/me/footnote.me b/usr/src/share/me/footnote.me
index dd2b885..0321e2c 100644 (file)
--- a/usr/src/share/me/footnote.me
+++ b/usr/src/share/me/footnote.me
@@ -1,71 +1,85 @@
 .nr _0 \n(c.
 .nr _0 \n(c.

+.\"    @(#)footnote.me 2.6     %G%
+.\"    %beginstrip%

 .de (f                 \" *** begin footnote
 .ec
 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
 .de (f                 \" *** begin footnote
 .ec
 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting

-.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 \
+.ie "\\n(.z"" \

 \{\
 \{\

-.      nr _b +2u*\n(.Vu        \" fudge factor
-.      $s
-.\}
-.br
-.if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
-\{\
-.      da\"                    \" won't fit on page at all
-.      bc
-.      if !\\n(?f \
-.              rm |f
+.      nr _D \\n(dn
+.      nr _0 1v+\\n(nlu
+.      ev 2

 .      da |f
 .      da |f

-.\" next five lines could be dropped if headers had their own environment
-.      in 0                    \" reset everything from .bc
+.      in 0

 .      xl \\n($lu-\\n(fuu
 .      @F \\n(ff
 .      xl \\n($lu-\\n(fuu
 .      @F \\n(ff

-.      sz \\n(fpu
+.      sz \\n(fp

 .      vs \\n(.su*\\n($Ru
 .      if !\\n(?f \
 .      vs \\n(.su*\\n($Ru
 .      if !\\n(?f \

+\{\
+.              nr _b +1v       \" allow space for $s

 .              $s
 .              $s

+.      \}

 .      br
 .      br

+.      if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
+\{\
+.              da\"            \" won't fit on page at all
+.              bc
+.              if !\\n(?f \
+.                      rm |f
+.              da |f
+.\" next five lines could be dropped if headers had their own environment
+.              in 0            \" reset everything from .bc
+.              xl \\n($lu-\\n(fuu
+.              @F \\n(ff
+.              sz \\n(fp
+.              vs \\n(.su*\\n($Ru
+.              if !\\n(?f \
+.                      $s
+.              br
+.      \}
+.      rr _0
+.      sp \\n(fsu
+.      nr ?f 1
+.      fi
+.      if !"\\$1"_" \
+.              ti \\n(fiu
+.      if \n@>2 .tm    << (f $f=\\n($f
+.\}
+.el \
+\{\
+.      ev 2
+\!.(f \\$1

 .\}
 .\}

-.rr _0
-.sp \\n(fsu
-.nr ?f 1
-.fi
-.if !"\\$1"_" \
-.      ti \\n(fiu
-.if \n@>2 .tm  << (f $f=\\n($f

 ..
 .de )f                 \" *** end footnote
 ..
 .de )f                 \" *** end footnote

-.if \\n* \
-.      nr $f +1
-.ds * \\*[\\n($f\\*]\k*
-.rr *
-.in 0
-.da
-.ev
-.if \\n(_w<\\n(dl \
-.      nr _w \\n(dl            \" compute maximum fn width
-.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
+.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    \" compute maximum fn width
+.      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                 \" footnote font: Times Roman
 .if \n(fp<=0 \
 .      nr fp 8                 \" footnote pointsize
 ..
 .if \n(ff<=0 \
 .      nr ff 1                 \" footnote font: Times Roman
 .if \n(fp<=0 \
 .      nr fp 8                 \" footnote pointsize

-.if \n(fi<=0 \
-\{\
-.      if n .nr fi 3n          \" footnote indent
-.      if t .nr fi 0.3i
-.\}

 .nr c. \n(_0
 .nr c. \n(_0