Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!sundc!pitstop!sun!decwrl!labrea!aurora!ames!ptsfa!ihnp4!homxb!mtuxo!mtune!codas!ufcsv!ufqtp!myers
From: myers@qtp.ufl.edu (John G. Myers)
Newsgroups: comp.sources.bugs
Subject: Re: ccps - CalComp-to-PostScript library (4.3 BSD)
Message-ID: <174@red2.qtp.ufl.edu>
Date: Fri, 30-Oct-87 16:17:11 EST
Article-I.D.: red2.174
Posted: Fri Oct 30 16:17:11 1987
Date-Received: Thu, 5-Nov-87 06:46:44 EST
References: <4896@ncoast.UUCP>
Reply-To: myers@red2 (John G. Myers)
Organization: University of Florida Quantum Theory Project
Lines: 63
Summary: All the world is not a VAX

Some of the test programs were generating invalid Postscript files 
on a Sun 3/50 until I made the following changes:

diff -c d/pl.c ./pl.c
*** d/pl.c	Fri Oct 30 16:04:11 1987
--- ./pl.c	Fri Oct 30 15:56:17 1987
***************
*** 38,49 ****
  
  void
  plcout_(c)
! char *c;
  {
  /*
   * send one char to plot file
   */
!     putc(*c, fp);
  }
  
  void
--- 38,54 ----
  
  void
  plcout_(c)
! int *c;
  {
  /*
   * send one char to plot file
   */
!     if (*c < 040 || *c > 0176) {
! 	fprintf(fp, "\\%03o", *c);
!     }
!     else {
! 	putc(*c, fp);
!     }
  }
  
  void
diff -c d/symbol.f ./symbol.f
*** d/symbol.f	Fri Oct 30 16:04:15 1987
--- ./symbol.f	Fri Oct 30 15:53:11 1987
***************
*** 265,271 ****
  	    if (intang .ne. 0) then
  		call plsout ("RE\n")
  	    else
! 		call plcout (10)
  	    endif
  
  C
--- 265,271 ----
  	    if (intang .ne. 0) then
  		call plsout ("RE\n")
  	    else
! 		call plsout ("\n")
  	    endif
  
  C
-- 
---------------------------------------------------------------------------
John G. Myers					364 Williamson Hall
ARPA: myers@qtp.ufl.edu				University of Florida
UUCP: ...!inhp4!codas!ufcsv!ufqtp!myers		Gainesville, FL 32611