home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / bin / lib / me / footnote.me < prev    next >
Text File  |  1980-02-17  |  865b  |  67 lines
  1. .nr _0 \n(c.
  2. .\" This version has had comments stripped; an unstripped version is available.
  3. .de (f
  4. .ec
  5. .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
  6. .nr _D \\n(dn
  7. .nr _0 1v+\\n(nlu
  8. .ev 2
  9. .in 0
  10. .xl \\n($lu-\\n(fuu
  11. .@F \\n(ff
  12. .sz \\n(fpu
  13. .vs \\n(.su*\\n($Ru
  14. .da |f
  15. .if !\\n(?f \
  16. \{\
  17. .    nr _b +\n(.Vu
  18. .    $s
  19. .\}
  20. .br
  21. .if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
  22. \{\
  23. .    da\"
  24. .    bc
  25. .    if !\\n(?f \
  26. .        rm |f
  27. .    in 0
  28. .    da |f
  29. .    if !\\n(?f \
  30. .        $s
  31. .    br
  32. .\}
  33. .rr _0
  34. .sp \\n(fsu
  35. .nr ?f 1
  36. .fi
  37. .ti \\n(fiu
  38. .if \n@>2 .tm    << (f $f=\\n($f
  39. ..
  40. .de )f
  41. .if \\n* \
  42. .    nr $f +1
  43. .ds * \\*[\\n($f\\*]\k*
  44. .rr *
  45. .in 0
  46. .da
  47. .ev
  48. .if \\n(_w<\\n(dl \
  49. .    nr _w \\n(dl
  50. .nr _b +\\n(dn
  51. .ch @f -\\n(_bu
  52. .if \\n(.p-\\n(_b<=\\n(nl \
  53. .    ch @f \\n(nlu+\n(.Vu
  54. .nr dn _D
  55. .rr _D
  56. ..
  57. .if \n(ff<=0 \
  58. .    nr ff 1
  59. .if \n(fp<=0 \
  60. .    nr fp 8
  61. .if \n(fi<=0 \
  62. \{\
  63. .    if n .nr fi 3n
  64. .    if t .nr fi 0.3i
  65. .\}
  66. .nr c. \n(_0
  67.