🚀 go-pugleaf

The following patch for PCAL (pcal.c) was sent to me by Terry Weissman
(weissman@wsl.dec.com).  The patch fixes PostScript output for calendar
file strings containing parentheses (I forgot those darn backslashes).
Thanks again to Terry for the fixes.

Ken Keirnan



*** OLDpcal.c	Sat Jul  1 08:40:45 1989
--- pcal.c	Sat Jul  1 09:06:17 1989
***************
*** 5,10
  
  #define PRT	(void)printf
  #define FPR	(void)fprintf
  
  char *words[100];	/* maximum number of words on a line */
  char lbuf[512];		/* maximum line size */

--- 5,11 -----
  
  #define PRT	(void)printf
  #define FPR	(void)fprintf
+ #define PUT	(void)putchar
  
  char *words[100];	/* maximum number of words on a line */
  char lbuf[512];		/* maximum line size */
***************
*** 353,359
  pmonth(m)
  int m;
  {
! 	register char **s;
  	register oldday = -1;
  	register day;
  

--- 354,360 -----
  pmonth(m)
  int m;
  {
! 	register char **s, *ptr;
  	register oldday = -1;
  	register day;
  
***************
*** 380,388
  			oldday = day;
  		} else
  			PRT("(.p)\n");
! 		for (s = words; *s; s++)
! 			PRT("(%s)\n", *s);
! 
  	} while (day = getday(m));
  	PRT("] daytext\n");
  	PRT("showpage\n");

--- 381,395 -----
  			oldday = day;
  		} else
  			PRT("(.p)\n");
! 		for (s = words; *s; s++) {
! 			PUT('(');
! 			for (ptr = *s; *ptr; ptr++) {
! 				if (*ptr == '(' || *ptr == ')')
! 					PUT('\\');
! 				PUT(*ptr);
! 			}
! 			PRT(")\n");
! 		}
  	} while (day = getday(m));
  	PRT("] daytext\n");
  	PRT("showpage\n");
-- 

Ken Keirnan - Pacific Bell - {att,bellcore,sun,ames,pyramid}!pacbell!pbhyf!kjk
  San Ramon, California	                    kjk@pbhyf.PacBell.COM