blob: 38607b2b1a4cfc08f934ce6899e2ac31279a2eb5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
.nr _0 \n(c.
.\" @(#)footnote.me 2.4 9/23/80
.\" This version has had comments stripped; an unstripped version is available.
.de (f
.ec
.if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
.ie "\\n(.z"" \
\{\
. 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 \
\{\
. 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
. da |f
. in 0
. 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
.\}
.el \
\{\
. ev 2
\!.(f \\$1
.\}
..
.de )f
.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
. 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
.if \n(fp<=0 \
. nr fp 8
.nr c. \n(_0
|