|
|
1.1 root 1: .nr _0 \n(c.
2: .\" Copyright (c) 1988 The Regents of the University of California.
3: .\" All rights reserved.
4: .\"
5: .\" Redistribution and use in source and binary forms are permitted
6: .\" provided that the above copyright notice and this paragraph are
7: .\" duplicated in all such forms and that any documentation,
8: .\" advertising materials, and other materials related to such
9: .\" distribution and use acknowledge that the software was developed
10: .\" by the University of California, Berkeley. The name of the
11: .\" University may not be used to endorse or promote products derived
12: .\" from this software without specific prior written permission.
13: .\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14: .\" IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15: .\" WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16: .\"
17: .\" @(#)footnote.me 2.9 (Berkeley) 9/30/88
18: .\"
19: .\" %beginstrip%
20: .\"
21: .de (f \" *** begin footnote
22: .ec
23: .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
24: .ie "\\n(.z"" \
25: \{\
26: . nr _D \\n(dn
27: . nr _0 1v+\\n(nlu
28: . ev 2
29: . da |f
30: . in 0
31: . xl \\n($lu-\\n(fuu
32: . @F \\n(ff
33: . sz \\n(fp
34: . vs \\n(.su*\\n($Ru
35: . if !\\n(?f \
36: \{\
37: . nr _b +1v \" allow space for $s
38: . $s
39: . \}
40: . br
41: . if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
42: \{\
43: . da\" \" won't fit on page at all
44: . bc
45: . if !\\n(?f \
46: . rm |f
47: . da |f
48: .\" next five lines could be dropped if headers had their own environment
49: . in 0 \" reset everything from .bc
50: . xl \\n($lu-\\n(fuu
51: . @F \\n(ff
52: . sz \\n(fp
53: . vs \\n(.su*\\n($Ru
54: . if !\\n(?f \
55: . $s
56: . br
57: . \}
58: . rr _0
59: . sp \\n(fsu
60: . nr ?f 1
61: . fi
62: . if !"\\$1"_" \
63: . ti \\n(fiu
64: . if \n@>2 .tm << (f $f=\\n($f
65: .\}
66: .el \
67: \{\
68: . ev 2
69: \!.(f \\$1
70: .\}
71: ..
72: .de )f \" *** end footnote
73: .ie "\\n(.z"|f" \
74: \{\
75: . if \\n* \
76: . nr $f +1
77: . ds * \\*[\\n($f\\*]\k*
78: . rr *
79: . in 0
80: . da
81: . ev
82: . if \\n(_w<\\n(dl \
83: . nr _w \\n(dl \" compute maximum fn width
84: . nr _b +\\n(dn
85: . ch @f -\\n(_bu
86: . if \\n(.p-\\n(_b<=\\n(nl \
87: . ch @f \\n(nlu+\n(.Vu
88: . nr dn _D
89: . rr _D
90: .\}
91: .el \
92: \{\
93: . br
94: \!.)f
95: . ev
96: .\}
97: ..
98: .if \n(ff<=0 \
99: . nr ff 1 \" footnote font: Times Roman
100: .if \n(fp<=0 \
101: . nr fp 8 \" footnote pointsize
102: .nr c. \n(_0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.