BSD 4 release

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

diff --git a/usr/lib/me/src/footnote.me b/usr/lib/me/src/footnote.me
index e992ef2..b60593e 100644 (file)
--- a/usr/lib/me/src/footnote.me
+++ b/usr/lib/me/src/footnote.me
@@ -1,29 +1,14 @@
 .nr _0 \n(c.
 .nr _0 \n(c.

-.\" This version has had comments stripped; an unstripped version is available.
-.de (f
+.\"    @(#)footnote.me 2.4     9/23/80
+.\"    %beginstrip%
+.de (f                 \" *** begin footnote

 .ec
 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
 .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
-.      $s
-.\}
-.br
-.if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
-\{\
-.      da\"
-.      bc
-.      if !\\n(?f \
-.              rm |f
+.      nr _D \\n(dn
+.      nr _0 1v+\\n(nlu
+.      ev 2

 .      da |f
 .      in 0
 .      xl \\n($lu-\\n(fuu
 .      da |f
 .      in 0
 .      xl \\n($lu-\\n(fuu


@@ -31,40 +16,70 @@
 .      sz \\n(fpu
 .      vs \\n(.su*\\n($Ru
 .      if !\\n(?f \
 .      sz \\n(fpu
 .      vs \\n(.su*\\n($Ru
 .      if !\\n(?f \

+\{\
+.              nr _b +2u*\n(.Vu        \" fudge factor

 .              $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(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
+.      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

 ..
 ..

-.de )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
+.de )f                 \" *** end footnote
+.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 \
 ..
 .if \n(ff<=0 \

-.      nr ff 1
+.      nr ff 1                 \" footnote font: Times Roman

 .if \n(fp<=0 \
 .if \n(fp<=0 \

-.      nr fp 8
-.if \n(fi<=0 \
-\{\
-.      if n .nr fi 3n
-.      if t .nr fi 0.3i
-.\}
+.      nr fp 8                 \" footnote pointsize

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