[7655] in Athena Bugs
/source/third/common/ditroff/pic
daemon@ATHENA.MIT.EDU (John T Kohl)
Thu Jun 13 12:16:19 1991
Date: Thu, 13 Jun 91 12:16:01 EDT
From: John T Kohl <jtkohl@MIT.EDU>
To: bugs@MIT.EDU
I made some bug fixes to pic to make it work on the PMAX.
diff -rc /source/third/common/ditroff/pic/driver.c ./driver.c
*** /source/third/common/ditroff/pic/driver.c Wed Jan 8 15:57:27 1986
--- ./driver.c Fri Jan 18 10:03:56 1991
***************
*** 1,5 ****
--- 1,6 ----
#include <stdio.h>
#include <ctype.h>
+ #include <math.h>
#define DEV202 1
#define DEVAPS 2
***************
*** 37,43 ****
main(argc,argv)
char **argv;
{
- float atof();
int c;
cmdname = argv[0];
--- 38,43 ----
diff -rc /source/third/common/ditroff/pic/linegen.c ./linegen.c
*** /source/third/common/ditroff/pic/linegen.c Wed Jan 8 15:57:28 1986
--- ./linegen.c Fri Jan 18 10:17:08 1991
***************
*** 186,190 ****
struct obj *splinegen(type)
{
! linegen(type);
}
--- 186,190 ----
struct obj *splinegen(type)
{
! return linegen(type);
}
diff -rc /source/third/common/ditroff/pic/pic.h ./pic.h
*** /source/third/common/ditroff/pic/pic.h Wed Jan 8 15:57:31 1986
--- ./pic.h Fri Jan 18 10:03:57 1991
***************
*** 126,129 ****
extern int nstack;
extern int cw;
! extern float atof();
--- 126,129 ----
extern int nstack;
extern int cw;
! #include <math.h>
diff -rc /source/third/common/ditroff/pic/picl.l ./picl.l
*** /source/third/common/ditroff/pic/picl.l Wed Jan 8 15:57:32 1986
--- ./picl.l Fri Jan 18 10:03:57 1991
***************
*** 14,20 ****
#include "pic.h"
#include "y.tab.h"
- extern float atof();
extern struct symtab symtab[];
extern char *filename;
extern int synerr;
--- 14,19 ----
diff -rc /source/third/common/ditroff/pic/pltroff.c ./pltroff.c
*** /source/third/common/ditroff/pic/pltroff.c Tue Jun 3 21:01:10 1986
--- ./pltroff.c Fri Jan 18 10:18:50 1991
***************
*** 395,401 ****
static char *temp = ".";
move(x, y);
! label(temp, 'L');
}
space(x0, y0, x1, y1) /* set limits of page */
--- 395,401 ----
static char *temp = ".";
move(x, y);
! label(temp, 'L',0);
}
space(x0, y0, x1, y1) /* set limits of page */
diff -rc /source/third/common/ditroff/pic/print.c ./print.c
*** /source/third/common/ditroff/pic/print.c Wed Jan 8 15:57:36 1986
--- ./print.c Fri Jan 18 10:22:33 1991
***************
*** 204,209 ****
--- 204,210 ----
nhalf = p->o_nt2 - p->o_nt1 - 1;
for (i = p->o_nt1; i < p->o_nt2; i++) {
+ if (!text[i].t_val) continue;
label(text[i].t_val, text[i].t_type, nhalf);
nhalf -= 2;
}
