|
|
1.1 ! root 1: .nr _0 \n(c. ! 2: .\" @(#)footnote.me 2.8 (Berkeley) 5/21/88 ! 3: .\" ! 4: .\" Copyright (c) 1988 Regents of the University of California. ! 5: .\" All rights reserved. ! 6: .\" ! 7: .\" Redistribution and use in source and binary forms are permitted ! 8: .\" provided that this notice is preserved and that due credit is given ! 9: .\" to the University of California at Berkeley. The name of the University ! 10: .\" may not be used to endorse or promote products derived from this ! 11: .\" software without specific prior written permission. This software ! 12: .\" is provided ``as is'' without express or implied warranty. ! 13: .\" %beginstrip% ! 14: .\" ! 15: .de (f \" *** begin footnote ! 16: .ec ! 17: .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting ! 18: .ie "\\n(.z"" \ ! 19: \{\ ! 20: . nr _D \\n(dn ! 21: . nr _0 1v+\\n(nlu ! 22: . ev 2 ! 23: . da |f ! 24: . in 0 ! 25: . xl \\n($lu-\\n(fuu ! 26: . @F \\n(ff ! 27: . sz \\n(fp ! 28: . vs \\n(.su*\\n($Ru ! 29: . if !\\n(?f \ ! 30: \{\ ! 31: . nr _b +1v \" allow space for $s ! 32: . $s ! 33: . \} ! 34: . br ! 35: . if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \ ! 36: \{\ ! 37: . da\" \" won't fit on page at all ! 38: . bc ! 39: . if !\\n(?f \ ! 40: . rm |f ! 41: . da |f ! 42: .\" next five lines could be dropped if headers had their own environment ! 43: . in 0 \" reset everything from .bc ! 44: . xl \\n($lu-\\n(fuu ! 45: . @F \\n(ff ! 46: . sz \\n(fp ! 47: . vs \\n(.su*\\n($Ru ! 48: . if !\\n(?f \ ! 49: . $s ! 50: . br ! 51: . \} ! 52: . rr _0 ! 53: . sp \\n(fsu ! 54: . nr ?f 1 ! 55: . fi ! 56: . if !"\\$1"_" \ ! 57: . ti \\n(fiu ! 58: . if \n@>2 .tm << (f $f=\\n($f ! 59: .\} ! 60: .el \ ! 61: \{\ ! 62: . ev 2 ! 63: \!.(f \\$1 ! 64: .\} ! 65: .. ! 66: .de )f \" *** end footnote ! 67: .ie "\\n(.z"|f" \ ! 68: \{\ ! 69: . if \\n* \ ! 70: . nr $f +1 ! 71: . ds * \\*[\\n($f\\*]\k* ! 72: . rr * ! 73: . in 0 ! 74: . da ! 75: . ev ! 76: . if \\n(_w<\\n(dl \ ! 77: . nr _w \\n(dl \" compute maximum fn width ! 78: . nr _b +\\n(dn ! 79: . ch @f -\\n(_bu ! 80: . if \\n(.p-\\n(_b<=\\n(nl \ ! 81: . ch @f \\n(nlu+\n(.Vu ! 82: . nr dn _D ! 83: . rr _D ! 84: .\} ! 85: .el \ ! 86: \{\ ! 87: . br ! 88: \!.)f ! 89: . ev ! 90: .\} ! 91: .. ! 92: .if \n(ff<=0 \ ! 93: . nr ff 1 \" footnote font: Times Roman ! 94: .if \n(fp<=0 \ ! 95: . nr fp 8 \" footnote pointsize ! 96: .nr c. \n(_0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.