integrate refer scripts. This stuff is still not really up to

snuff, but something had to be done....

SCCS-vsn: share/me/tmac.orig_me 2.14
SCCS-vsn: share/me/refer.me 2.1

diff --git a/usr/src/share/me/refer.me b/usr/src/share/me/refer.me
index 92e9597..7e1c448 100644 (file)
--- a/usr/src/share/me/refer.me
+++ b/usr/src/share/me/refer.me
@@ -1,30 +1,11 @@
 
 .nr _0 \n(c.
 
 .nr _0 \n(c.

-.\"    @(#)refer.me    1.1     %G%
+.\"    @(#)refer.me    2.1     %G%

 .\"    %beginstrip%
 .\"    %beginstrip%

-.if n .ds [. " [
-.if t .ds [. \s-2\v'-.4m'\f1
-.if n .ds .] ]
-.if t .ds .] \v'.4m'\s+2\fP
-.if n .ds <. "
-.if t .ds <. .
-.if n .ds >. .
-.if t .ds >. "
-.de []
-.][ \\$1
-..

 .de ][                         \" *** refer output
 .if \\$1>5 .tm Bad arg to []
 .[\\$1
 ..
 .de ][                         \" *** refer output
 .if \\$1>5 .tm Bad arg to []
 .[\\$1
 ..

-.de [5                         \" --- tm style
-.(f
-.ip "\\*([F.\0"
-\\*([A, \\f2\\*([T\\f1,
-.ie \\n(TN \\*([M.
-.el Bell Laboratories internal memorandum (\\*([D).
-.)f
-..

 .de [0                         \" --- other
 .(f
 .ip "\\*([F.\0"
 .de [0                         \" --- other
 .(f
 .ip "\\*([F.\0"


@@ -69,48 +50,47 @@
 .if !"\\*([O"" \\*([O
 .)f
 ..
 .if !"\\*([O"" \\*([O
 .)f
 ..

-.de [4                         \" --- report
+.de [3                         \" --- article in book

 .(f
 .ip "\\*([F.\0"
 \\*([A, \\*(lq\\*([T,\\*(rq
 .(f
 .ip "\\*([F.\0"
 \\*([A, \\*(lq\\*([T,\\*(rq

-\\*([R\c
-.if !"\\*([G"" \& (\\*([G)\c
-.if !"\\*([I"" ,  \\*([I\c
+.if !"\\*([P"" pp. \\*([P
+in \\f2\\*([B\\f1, \c
+.if !"\\*([E"" ed. \\*([E,\c
+.if !"\\*([I"" \\*([I\c

 .if !"\\*([C"" ,  \\*([C\c
  (\\*([D).
 .if !"\\*([O"" \\*([O
 .)f
 ..
 .if !"\\*([C"" ,  \\*([C\c
  (\\*([D).
 .if !"\\*([O"" \\*([O
 .)f
 ..

-.de [3                         \" --- article in book
+.de [4                         \" --- report

 .(f
 .ip "\\*([F.\0"
 \\*([A, \\*(lq\\*([T,\\*(rq
 .(f
 .ip "\\*([F.\0"
 \\*([A, \\*(lq\\*([T,\\*(rq

-.if !"\\*([P"" pp. \\*([P
-in \\f2\\*([B\\f1, \c
-.if !"\\*([E"" ed. \\*([E,\c
-.if !"\\*([I"" \\*([I\c
+\\*([R\c
+.if !"\\*([G"" \& (\\*([G)\c
+.if !"\\*([I"" ,  \\*([I\c

 .if !"\\*([C"" ,  \\*([C\c
  (\\*([D).
 .if !"\\*([O"" \\*([O
 .)f
 ..
 .if !"\\*([C"" ,  \\*([C\c
  (\\*([D).
 .if !"\\*([O"" \\*([O
 .)f
 ..

-.de [<
-.]<
+.de [5                         \" --- tm style
+.(f
+.ip "\\*([F.\0"
+\\*([A, \\f2\\*([T\\f1,
+.ie \\n(TN \\*([M.
+.el Bell Laboratories internal memorandum (\\*([D).
+.)f

 ..
 .de ]<
 .$p References
 .lp
 .rm (f )f
 ..
 ..
 .de ]<
 .$p References
 .lp
 .rm (f )f
 ..

-.de [>
-.]>
-..

 .de ]>
 .sp
 ..
 .de ]>
 .sp
 ..

-.de [-
-.]-
-..

 .de ]-
 .rm [V [P [A [T [N [C [B [O [R [I [E [D
 ..
 .de ]-
 .rm [V [P [A [T [N [C [B [O [R [I [E [D
 ..

diff --git a/usr/src/share/me/tmac.orig_me b/usr/src/share/me/tmac.orig_me
index eaf41d9..1b73835 100644 (file)
--- a/usr/src/share/me/tmac.orig_me
+++ b/usr/src/share/me/tmac.orig_me
@@ -9,15 +9,17 @@
 .\"*           U.C. Berkeley.                                          *
 .\"*   current address:                                                *
 .\"*           Britton-Lee, Inc.                                       *
 .\"*           U.C. Berkeley.                                          *
 .\"*   current address:                                                *
 .\"*           Britton-Lee, Inc.                                       *

+.\"*           1919 Addison Street Suite 105                           *
+.\"*           Berkeley, California  94704                             *

 .\"*                                                                   *
 .\"*                                                                   *

-.\"*   VERSION 2.13    First Release: 11 Sept 1978                     *
+.\"*   VERSION 2.14    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.13    %G%
+.\"    @(#)tmac.orig_me        2.14    %G%

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


@@ -701,6 +703,20 @@
 .TS \\$1 \\$2
 .rm @W
 ..
 .TS \\$1 \\$2
 .rm @W
 ..

+.de ]-                 \" &&& initialize reference
+.rn ]- @]
+.so \\*(||/refer.me
+.]-
+.rm @]
+..
+.if n .ds [. " [
+.if t .ds [. \s-2\v'-.4m'\f1
+.if n .ds .] ]
+.if t .ds .] \v'.4m'\s+2\fP
+.if n .ds <. "
+.if t .ds <. .
+.if n .ds >. .
+.if t .ds >. "

 .\"\f           *** FONT AIDS ***
 .de sz                 \" *** set point size and vertical spacing
 .ps \\$1
 .\"\f           *** FONT AIDS ***
 .de sz                 \" *** set point size and vertical spacing
 .ps \\$1