Return to footnote.me CVS log

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

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

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.