ring@cg-atla.UUCP (Steve Ring) (03/08/88)
Here is my macro for underlining, whether in nroff or troff. You can replace
the "cu" with "ul" if you only want to underline separate words.
"cu" is continuous underline. Call it with
.uc underline these words
-or-
.uc "underline this word that consists of over 9 separate words"
For transmission purposes, I used "^" as the separator character in the .if
statements. Change this to say <Control Shift G> so that you don't use a
character ("^") that you might have used in a word.
.\"<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>
.\" .uc -UNDERLINE every character up to 9 words
.de uc
.ds U} "\\$1
.if !^^\\$2^ .as U} " \\$2
.if !^^\\$3^ .as U} " \\$3
.if !^^\\$4^ .as U} " \\$4
.if !^^\\$5^ .as U} " \\$5
.if !^^\\$6^ .as U} " \\$6
.if !^^\\$7^ .as U} " \\$7
.if !^^\\$8^ .as U} " \\$8
.if !^^\\$9^ .as U} " \\$9
.if n \{\
. cu 1
\\*(U}
. cu 0
.\}
.if t \\*(U}\l'|0\(ul'
.rm U}
..
.\"<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>
--
...!{decvax,ima,ism780c,ulowell,laidbak,cgeuro,cg-f}!cg-atla!ring
Steve Ring
CompuGraphic Corp.
Wilmington, Mass., 01887, (617) 658-5600, x5092