Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/17/84; site cirl.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!think!cirl!gary
From: gary@cirl.UUCP (Gary Girzon)
Newsgroups: net.sources.bugs
Subject: Re: Proff (.wr fix)
Message-ID: <249@cirl.UUCP>
Date: Thu, 30-Jan-86 14:31:20 EST
Article-I.D.: cirl.249
Posted: Thu Jan 30 14:31:20 1986
Date-Received: Sat, 1-Feb-86 06:34:31 EST
Distribution: net
Organization: Cochlear Implant Res. Lab, Boston, MA
Lines: 31

The following is a simple kludge to fix the .wr command so it does not
cause line breaks. However, the .wr <string> will only be written after 
a word is formatted (i.e. after at least one space). This is ok for using
.wr to insert bold and italic printer commands, but may be a problem
with underlining (will a space be underlined?). Note that getpstr seems
to strip numbers in the .wr sequence, unless quotes are used.

In pxxparse.c, replace the old WR: code 

>	case WR:	/****/
>		brk(); 
>		getpstr(buf+rest,special);
>		defn = special;
>		while(*defn) 
>			putchar(*defn++);
>		break;

with the following:

	case WR:	/****/
		getpstr(buf+rest,special); /* convert the <string> */
		putwrd(special);	   /* insert into outbuf   */
		outw -= width(special);    /* subtract from count  */
		outwds--;		   /* and word count       */
		break;


-----------------------------------------------------------------------

					Gary Girzon
					{harvard,ihnp4}!think!cirl!gary