Return to footnote.me CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / me

Annotation of 43BSD/usr.lib/me/footnote.me, revision 1.1.1.1

1.1       root        1: .nr _0 \n(c.
                      2: .\"    @(#)footnote.me 2.6     3/10/86
                      3: .\"    %beginstrip%
                      4: .de (f                 \" *** begin footnote
                      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(fp
                     17: .      vs \\n(.su*\\n($Ru
                     18: .      if !\\n(?f \
                     19: \{\
                     20: .              nr _b +1v       \" allow space for $s
                     21: .              $s
                     22: .      \}
                     23: .      br
                     24: .      if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
                     25: \{\
                     26: .              da\"            \" won't fit on page at all
                     27: .              bc
                     28: .              if !\\n(?f \
                     29: .                      rm |f
                     30: .              da |f
                     31: .\" next five lines could be dropped if headers had their own environment
                     32: .              in 0            \" reset everything from .bc
                     33: .              xl \\n($lu-\\n(fuu
                     34: .              @F \\n(ff
                     35: .              sz \\n(fp
                     36: .              vs \\n(.su*\\n($Ru
                     37: .              if !\\n(?f \
                     38: .                      $s
                     39: .              br
                     40: .      \}
                     41: .      rr _0
                     42: .      sp \\n(fsu
                     43: .      nr ?f 1
                     44: .      fi
                     45: .      if !"\\$1"_" \
                     46: .              ti \\n(fiu
                     47: .      if \n@>2 .tm    << (f $f=\\n($f
                     48: .\}
                     49: .el \
                     50: \{\
                     51: .      ev 2
                     52: \!.(f \\$1
                     53: .\}
                     54: ..
                     55: .de )f                 \" *** end footnote
                     56: .ie "\\n(.z"|f" \
                     57: \{\
                     58: .      if \\n* \
                     59: .              nr $f +1
                     60: .      ds * \\*[\\n($f\\*]\k*
                     61: .      rr *
                     62: .      in 0
                     63: .      da
                     64: .      ev
                     65: .      if \\n(_w<\\n(dl \
                     66: .              nr _w \\n(dl    \" compute maximum fn width
                     67: .      nr _b +\\n(dn
                     68: .      ch @f -\\n(_bu
                     69: .      if \\n(.p-\\n(_b<=\\n(nl \
                     70: .              ch @f \\n(nlu+\n(.Vu
                     71: .      nr dn _D
                     72: .      rr _D
                     73: .\}
                     74: .el \
                     75: \{\
                     76: .      br
                     77: \!.)f
                     78: .      ev
                     79: .\}
                     80: ..
                     81: .if \n(ff<=0 \
                     82: .      nr ff 1                 \" footnote font: Times Roman
                     83: .if \n(fp<=0 \
                     84: .      nr fp 8                 \" footnote pointsize
                     85: .nr c. \n(_0

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.