BSD 4 release

[unix-history] / usr / lib / me / src / index.me

diff --git a/usr/lib/me/src/index.me b/usr/lib/me/src/index.me
index fddcb2f..35273a8 100644 (file)
--- a/usr/lib/me/src/index.me
+++ b/usr/lib/me/src/index.me
@@ -1,27 +1,46 @@
 .nr _0 \n(c.
 .nr _0 \n(c.

-.\" This version has had comments stripped; an unstripped version is available.
-.de (x
-.ds |X x
-.if \\n(.$ \
-.      ds |X \\$1
-.am %\\*(|X )x
-.sp \\n(xsu
+.\"    @(#)index.me    2.5     9/24/80
+.\"    %beginstrip%
+.de (x                 \" *** begin index entry
+.\" please note these cases MUST be in this order
+.ie !"\\n(.z"" \
+\{\
+.      ev 2                    \" if in a diversion, save & process later
+\!.(x \\$1
+.\}
+.el \
+\{\
+.      ds |X x
+.      if \\n(.$ \
+.              ds |X \\$1
+.      am %\\*(|X )x
+.      sp \\n(xsu
+.\}

 ..
 ..

-.de )x
-.ds |x \\n%
-.if \\n(.$ \
-.      ds |x \\$1
-.if "\\*(|x"_" \
-.      ig ..
-.am %\\*(|X ..
-.if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
-.      ti +\\n(xuu
+.de )x                 \" *** end index entry
+.ie "\\n(.z"" \
+\{\
+.      ds |x \\n%
+.      if \\n(.$ \
+.              ds |x \\$1
+.      if "\\*(|x"_" \
+.              ig ..
+.      am %\\*(|X ..
+.      if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
+.              ti +\\n(xuu

 \\\\a\\\\t\\$2\\*(|x
 ...
 \\\\a\\\\t\\$2\\*(|x
 ...

-.rm |x
-.rm |X
+.      rm |x
+.      rm |X
+.\}
+.el \
+\{\
+.      br                      \" if in a diversion, save & process later
+\!.)x \\$1 \\$2
+.      ev
+.\}

 ..
 ..

-.de xp
+.de xp                 \" *** print the index

 .br
 .@C 2
 .ls 1
 .br
 .@C 2
 .ls 1


@@ -48,5 +67,5 @@
 .rm |x
 ..
 .if \n(xu<=0 \
 .rm |x
 ..
 .if \n(xu<=0 \

-.      nr xu 0.5i
+.      nr xu 0.5i              \" index undent

 .nr c. \n(_0
 .nr c. \n(_0