Commit | Line | Data |
---|---|---|
84f25a89 | 1 | .nr _0 \n(c. |
0a1cd3e4 | 2 | .\" Copyright (c) 1988 The Regents of the University of California. |
70e37822 KB |
3 | .\" All rights reserved. |
4 | .\" | |
5 | .\" Redistribution and use in source and binary forms are permitted | |
0a1cd3e4 KB |
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 | .\" | |
1c15e888 | 17 | .\" @(#)footnote.me 2.9 (Berkeley) 9/30/88 |
0a1cd3e4 | 18 | .\" |
a3fd506b | 19 | .\" %beginstrip% |
70e37822 | 20 | .\" |
84f25a89 EA |
21 | .de (f \" *** begin footnote |
22 | .ec | |
23 | .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting | |
e57dda7f | 24 | .ie "\\n(.z"" \ |
84f25a89 | 25 | \{\ |
e57dda7f EA |
26 | . nr _D \\n(dn |
27 | . nr _0 1v+\\n(nlu | |
28 | . ev 2 | |
84f25a89 | 29 | . da |f |
e57dda7f | 30 | . in 0 |
84f25a89 EA |
31 | . xl \\n($lu-\\n(fuu |
32 | . @F \\n(ff | |
59ed1d66 | 33 | . sz \\n(fp |
84f25a89 EA |
34 | . vs \\n(.su*\\n($Ru |
35 | . if !\\n(?f \ | |
e57dda7f | 36 | \{\ |
0b7545be | 37 | . nr _b +1v \" allow space for $s |
84f25a89 | 38 | . $s |
e57dda7f | 39 | . \} |
84f25a89 | 40 | . br |
e57dda7f EA |
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 | |
59ed1d66 | 52 | . sz \\n(fp |
e57dda7f EA |
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 | |
84f25a89 | 65 | .\} |
6f6d9ee7 EA |
66 | .el \ |
67 | \{\ | |
68 | . ev 2 | |
69 | \!.(f \\$1 | |
70 | .\} | |
84f25a89 EA |
71 | .. |
72 | .de )f \" *** end footnote | |
70c41273 | 73 | .ie "\\n(.z"|f" \ |
e57dda7f EA |
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 | .\} | |
6f6d9ee7 EA |
91 | .el \ |
92 | \{\ | |
93 | . br | |
94 | \!.)f | |
95 | . ev | |
96 | .\} | |
84f25a89 EA |
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 | |
84f25a89 | 102 | .nr c. \n(_0 |