BSD 4_4 release
[unix-history] / usr / src / share / me / footnote.me
index ba41f6d..de567ed 100644 (file)
 .nr _0 \n(c.
 .nr _0 \n(c.
-.\"    @(#)footnote.me 1.3     %G%
+.\" Copyright (c) 1988, 1993
+.\"    The Regents of the University of California.  All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"    This product includes software developed by the University of
+.\"    California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"    @(#)footnote.me 8.1 (Berkeley) 6/5/93
+.\"
 .\"    %beginstrip%
 .\"    %beginstrip%
+.\"
 .de (f                 \" *** begin footnote
 .ec
 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
 .de (f                 \" *** begin footnote
 .ec
 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
-.nr _D \\n(dn
-.nr _0 1v+\\n(nlu
-.ev 2
-.da |f
-.in 0
-.xl \\n($lu-\\n(fuu
-.@F \\n(ff
-.sz \\n(fpu
-.vs \\n(.su*\\n($Ru
-.if !\\n(?f \
+.ie "\\n(.z"" \
 \{\
 \{\
-.      nr _b +2u*\n(.Vu        \" fudge factor
-.      $s
-.\}
-.br
-.if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
-\{\
-.      da\"                    \" won't fit on page at all
-.      bc
-.      if !\\n(?f \
-.              rm |f
+.      nr _D \\n(dn
+.      nr _0 1v+\\n(nlu
+.      ev 2
 .      da |f
 .      da |f
-.\" next five lines could be dropped if headers had their own environment
-.      in 0                    \" reset everything from .bc
+.      in 0
 .      xl \\n($lu-\\n(fuu
 .      @F \\n(ff
 .      xl \\n($lu-\\n(fuu
 .      @F \\n(ff
-.      sz \\n(fpu
+.      sz \\n(fp
 .      vs \\n(.su*\\n($Ru
 .      if !\\n(?f \
 .      vs \\n(.su*\\n($Ru
 .      if !\\n(?f \
+\{\
+.              nr _b +1v       \" allow space for $s
 .              $s
 .              $s
+.      \}
 .      br
 .      br
+.      if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
+\{\
+.              da\"            \" won't fit on page at all
+.              bc
+.              if !\\n(?f \
+.                      rm |f
+.              da |f
+.\" next five lines could be dropped if headers had their own environment
+.              in 0            \" reset everything from .bc
+.              xl \\n($lu-\\n(fuu
+.              @F \\n(ff
+.              sz \\n(fp
+.              vs \\n(.su*\\n($Ru
+.              if !\\n(?f \
+.                      $s
+.              br
+.      \}
+.      rr _0
+.      sp \\n(fsu
+.      nr ?f 1
+.      fi
+.      if !"\\$1"_" \
+.              ti \\n(fiu
+.      if \n@>2 .tm    << (f $f=\\n($f
+.\}
+.el \
+\{\
+.      ev 2
+\!.(f \\$1
 .\}
 .\}
-.rr _0
-.sp \\n(fsu
-.nr ?f 1
-.fi
-.if !"\\$1"_" \
-.      ti \\n(fiu
-.if \n@>2 .tm  << (f $f=\\n($f
 ..
 .de )f                 \" *** end footnote
 ..
 .de )f                 \" *** end footnote
-.if \\n* \
-.      nr $f +1
-.ds * \\*[\\n($f\\*]\k*
-.rr *
-.in 0
-.da
-.ev
-.if \\n(_w<\\n(dl \
-.      nr _w \\n(dl            \" compute maximum fn width
-.nr _b +\\n(dn
-.ch @f -\\n(_bu
-.if \\n(.p-\\n(_b<=\\n(nl \
-.      ch @f \\n(nlu+\n(.Vu
-.nr dn _D
-.rr _D
+.ie "\\n(.z"|f" \
+\{\
+.      if \\n* \
+.              nr $f +1
+.      ds * \\*[\\n($f\\*]\k*
+.      rr *
+.      in 0
+.      da
+.      ev
+.      if \\n(_w<\\n(dl \
+.              nr _w \\n(dl    \" compute maximum fn width
+.      nr _b +\\n(dn
+.      ch @f -\\n(_bu
+.      if \\n(.p-\\n(_b<=\\n(nl \
+.              ch @f \\n(nlu+\n(.Vu
+.      nr dn _D
+.      rr _D
+.\}
+.el \
+\{\
+.      br
+\!.)f
+.      ev
+.\}
 ..
 .if \n(ff<=0 \
 .      nr ff 1                 \" footnote font: Times Roman
 ..
 .if \n(ff<=0 \
 .      nr ff 1                 \" footnote font: Times Roman