Return to footnote.me CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac / me

Annotation of cci/usr/src/usr.lib/tmac/me/footnote.me, revision 1.1.1.1

1.1       root        1: .nr _0 \n(c.
                      2: .\"    @(#)footnote.me 2.4     9/23/80
                      3: .\" This version has had comments stripped.
                      4: .de (f
                      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(fpu
                     17: .      vs \\n(.su*\\n($Ru
                     18: .      if !\\n(?f \
                     19: \{\
                     20: .              nr _b +2u*\n(.Vu        \" fudge factor
                     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(fpu
                     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: .\}
                     48: .el \
                     49: \{\
                     50: .      ev 2
                     51: \!.(f \\$1
                     52: .\}
                     53: ..
                     54: .de )f                 \" *** end footnote
                     55: .ie "\\n(.z"|f" \
                     56: \{\
                     57: .      if \\n* \
                     58: .              nr $f +1
                     59: .      ds * \\*[\\n($f\\*]\k*
                     60: .      rr *
                     61: .      in 0
                     62: .      da
                     63: .      ev
                     64: .      if \\n(_w<\\n(dl \
                     65: .              nr _w \\n(dl    \" compute maximum fn width
                     66: .      nr _b +\\n(dn
                     67: .      ch @f -\\n(_bu
                     68: .      if \\n(.p-\\n(_b<=\\n(nl \
                     69: .              ch @f \\n(nlu+\n(.Vu
                     70: .      nr dn _D
                     71: .      rr _D
                     72: .\}
                     73: .el \
                     74: \{\
                     75: .      br
                     76: \!.)f
                     77: .      ev
                     78: .\}
                     79: ..
                     80: .if \n(ff<=0 \
                     81: .      nr ff 1                 \" footnote font: Times Roman
                     82: .if \n(fp<=0 \
                     83: .      nr fp 8                 \" footnote pointsize
                     84: .nr c. \n(_0

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