Path: utzoo!utgpu!water!watmath!clyde!att!mtunx!pacbell!lll-tis!helios.ee.lbl.gov!pasteur!agate!ig!uwmcsd1!leah!itsgw!nyser!njin!princeton!notecnirp!kyrimis
From: kyrimis@notecnirp.Princeton.EDU (Kriton Kyrimis)
Newsgroups: comp.sources.bugs
Subject: Re: v15i049:  Module to make postscript interpreter work under Suntools
Message-ID: <10646@princeton.Princeton.EDU>
Date: 9 Jun 88 03:36:08 GMT
Sender: news@princeton.Princeton.EDU
Reply-To: kyrimis@princeton.Princeton.EDU (Kriton Kyrimis)
Organization: Dept. of Computer Science, Princeton University
Lines: 33

This module works wonderfully, except that it requires people  to
redefine  showpage in their .postscript file. Since this is not a
very intuitive thing to do, here is a patch to main.c  that  will
do  the  redefinition automatically.  Apply the patch, and recom-
pile main.c with the -DPSTOOL flag (the patch is  #ifdef'ed,  be-
cause the redefinition of showpage is usually not required).

I hope you find this useful.

*** main.c.orig	Wed Jun  8 23:19:31 1988
--- main.c	Wed Jun  8 23:19:43 1988
***************
*** 79,84 ****
--- 79,90 ----
   	
   	if (fp = fopen (profile, "r"))
  		VOID Push (ExecStack, Cvx (FileFrom (fp)));
+ # ifdef PSTOOL
+ 	/* Redefine showpage so that it doesn't wait for the user
+ 	   to press return */
+ 	VOID Push (ExecStack, Cvx (StringFrom (
+ 		"/showpage { copypage initgraphics flush erasepage } def")));
+ # endif /* PSTOOL */
  		
  	if (!interactive)
  		VOID Push (ExecStack,

	Kriton	(UUCP: rutgers!princeton!kyrimis)
	      	(ARPA: kyrimis@princeton.edu)
-----
"One does not wish to be devoured by alien monstrosities, even  in
 the cause of political progress!"
-----