 |
footnote.me - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
footnote.me (1057B) |
|
--- |
|
1 .nr _0 \n(c. |
|
2 .\" @(#)footnote.me 2.4 9/23/80 |
|
3 .\" This version has had comments stripped; an unstripped version is ava… |
|
4 .de (f |
|
5 .ec |
|
6 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting |
|
7 .ie "\\n(.z"" \ |
|
8 \{\ |
|
9 . nr _D \\n(dn |
|
10 . nr _0 1v+\\n(nlu |
|
11 . ev 2 |
|
12 . da |f |
|
13 . in 0 |
|
14 . xl \\n($lu-\\n(fuu |
|
15 . @F \\n(ff |
|
16 . sz \\n(fpu |
|
17 . vs \\n(.su*\\n($Ru |
|
18 . if !\\n(?f \ |
|
19 \{\ |
|
20 . nr _b +2u*\n(.Vu |
|
21 . $s |
|
22 . \} |
|
23 . br |
|
24 . if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \ |
|
25 \{\ |
|
26 . da\" |
|
27 . bc |
|
28 . if !\\n(?f \ |
|
29 . rm |f |
|
30 . da |f |
|
31 . in 0 |
|
32 . xl \\n($lu-\\n(fuu |
|
33 . @F \\n(ff |
|
34 . sz \\n(fpu |
|
35 . vs \\n(.su*\\n($Ru |
|
36 . if !\\n(?f \ |
|
37 . $s |
|
38 . br |
|
39 . \} |
|
40 . rr _0 |
|
41 . sp \\n(fsu |
|
42 . nr ?f 1 |
|
43 . fi |
|
44 . if !"\\$1"_" \ |
|
45 . ti \\n(fiu |
|
46 .\} |
|
47 .el \ |
|
48 \{\ |
|
49 . ev 2 |
|
50 \!.(f \\$1 |
|
51 .\} |
|
52 .. |
|
53 .de )f |
|
54 .ie "\\n(.z"|f" \ |
|
55 \{\ |
|
56 . if \\n* \ |
|
57 . nr $f +1 |
|
58 . ds * \\*[\\n($f\\*]\k* |
|
59 . rr * |
|
60 . in 0 |
|
61 . da |
|
62 . ev |
|
63 . if \\n(_w<\\n(dl \ |
|
64 . nr _w \\n(dl |
|
65 . nr _b +\\n(dn |
|
66 . ch @f -\\n(_bu |
|
67 . if \\n(.p-\\n(_b<=\\n(nl \ |
|
68 . ch @f \\n(nlu+\n(.Vu |
|
69 . nr dn _D |
|
70 . rr _D |
|
71 .\} |
|
72 .el \ |
|
73 \{\ |
|
74 . br |
|
75 \!.)f |
|
76 . ev |
|
77 .\} |
|
78 .. |
|
79 .if \n(ff<=0 \ |
|
80 . nr ff 1 |
|
81 .if \n(fp<=0 \ |
|
82 . nr fp 8 |
|
83 .nr c. \n(_0 |
