X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/2b84abb596f52ab2068d52108adc96838ad4340a..31cef89cb428866f787983e68246030321893df4:/usr/lib/me/src/footnote.me

diff --git a/usr/lib/me/src/footnote.me b/usr/lib/me/src/footnote.me
index e992ef2c2e..b60593e81e 100644
--- a/usr/lib/me/src/footnote.me
+++ b/usr/lib/me/src/footnote.me
@@ -1,29 +1,14 @@
 .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
-.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
@@ -31,40 +16,70 @@
 .	sz \\n(fpu
 .	vs \\n(.su*\\n($Ru
 .	if !\\n(?f \
+\{\
+.		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
+.		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 \
-.	nr ff 1
+.	nr ff 1			\" footnote font: Times Roman
 .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