have indexes & footnotes suspended until final output

SCCS-vsn: share/me/index.me 2.2
SCCS-vsn: share/me/tmac.orig_me 2.2
SCCS-vsn: share/me/footnote.me 2.2

diff --git a/usr/src/share/me/footnote.me b/usr/src/share/me/footnote.me
index a121f6f..830add3 100644 (file)
--- a/usr/src/share/me/footnote.me
+++ b/usr/src/share/me/footnote.me
@@ -1,65 +1,73 @@
 .nr _0 \n(c.
 .nr _0 \n(c.

-.\"    @(#)footnote.me 2.1     %G%
+.\"    @(#)footnote.me 2.2     %G%

 .\"    %beginstrip%
 .de (f                 \" *** begin footnote
 .ec
 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
 .\"    %beginstrip%
 .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
 .      sz \\n(fpu
 .      vs \\n(.su*\\n($Ru
 .      if !\\n(?f \
 .      xl \\n($lu-\\n(fuu
 .      @F \\n(ff
 .      sz \\n(fpu
 .      vs \\n(.su*\\n($Ru
 .      if !\\n(?f \

+\{\
+.              nr _b +2u*\n(.Vu        \" fudge factor

 .              $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(fpu
+.              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

 .\}
 .\}

-.rr _0
-.sp \\n(fsu
-.nr ?f 1
-.fi
-.if !"\\$1"_" \
-.      ti \\n(fiu
-.if \n@>2 .tm  << (f $f=\\n($f
+.el \!.(f \\$1

 ..
 .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 \!.)f

 ..
 .if \n(ff<=0 \
 .      nr ff 1                 \" footnote font: Times Roman
 ..
 .if \n(ff<=0 \
 .      nr ff 1                 \" footnote font: Times Roman

diff --git a/usr/src/share/me/index.me b/usr/src/share/me/index.me
index 7b3e447..33de6c7 100644 (file)
--- a/usr/src/share/me/index.me
+++ b/usr/src/share/me/index.me
@@ -1,5 +1,5 @@
 .nr _0 \n(c.
 .nr _0 \n(c.

-.\"    @(#)index.me    2.1     %G%
+.\"    @(#)index.me    2.2     %G%

 .\"    %beginstrip%
 .de (x                 \" *** begin index entry
 .ds |X x
 .\"    %beginstrip%
 .de (x                 \" *** begin index entry
 .ds |X x

diff --git a/usr/src/share/me/tmac.orig_me b/usr/src/share/me/tmac.orig_me
index 2f5e27b..5dce87e 100644 (file)
--- a/usr/src/share/me/tmac.orig_me
+++ b/usr/src/share/me/tmac.orig_me
@@ -8,14 +8,14 @@
 .\"*           Electronics Research Laboratory                         *
 .\"*           U.C. Berkeley.                                          *
 .\"*                                                                   *
 .\"*           Electronics Research Laboratory                         *
 .\"*           U.C. Berkeley.                                          *
 .\"*                                                                   *

-.\"*   VERSION 2.1     First Release: 11 Sept 1978                     *
+.\"*   VERSION 2.2     First Release: 11 Sept 1978                     *

 .\"*   See file \*(||/revisions for revision history                   *
 .\"*                                                                   *
 .\"*   Documentation is available.                                     *
 .\"*                                                                   *
 .\"**********************************************************************
 .\"
 .\"*   See file \*(||/revisions for revision history                   *
 .\"*                                                                   *
 .\"*   Documentation is available.                                     *
 .\"*                                                                   *
 .\"**********************************************************************
 .\"

-.\"    @(#)tmac.orig_me        2.1     %G%
+.\"    @(#)tmac.orig_me        2.2     %G%

 .\"    %beginstrip%
 .\"
 .\"    Code on .de commands:
 .\"    %beginstrip%
 .\"
 .\"    Code on .de commands: