BSD 4_3_Reno release
[unix-history] / usr / src / share / me / footnote.me
CommitLineData
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