kjk@PacBell.COM (Ken Keirnan) (07/01/89)
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