|
|
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.