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