d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

1 - Added RCS identification.

Browse source 
2 - Removed the default for compiler and error file pathname.
    These are now always supplied by the callee.
This commit is contained in:
keie 1984-10-04 11:08:42 +00:00
parent 00bd62d942
commit 5376af0d04
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
util/ack/pc/em_pc.c
View file

@ -15,6 +15,8 @@
* *
*/ */
/* $Header$ */
/* /*
* put all the pieces of the pascal part of the EM project together * put all the pieces of the pascal part of the EM project together
* original author: Johan Stevenson, Vrije Universiteit, Amsterdam * original author: Johan Stevenson, Vrije Universiteit, Amsterdam
@ -33,8 +35,8 @@
#define void int #define void int
char *pc_path = PEM_PATH ; char *pc_path;
char *err_path = ERR_PATH; char *err_path;
int toterr; int toterr;
int parent; int parent;
@ -210,6 +212,7 @@ pem(p,q) char *p,*q; {
int i; int i;
FILE *erfil; FILE *erfil;
if ( !pc_path ) fatal("Missing compiler pathname specification\n") ;
v = initvector(pc_path); v = initvector(pc_path);
d = tempfile('d'); d = tempfile('d');
if ((erfil = fopen(d,"w")) == NULL) if ((erfil = fopen(d,"w")) == NULL)
@ -614,6 +617,7 @@ int nexterror() {
fillindex() { fillindex() {
register *ip,n,c; register *ip,n,c;
if ( !err_path ) fatal("Missing error file name\n") ;
if ((mesfil = fopen(err_path,"r")) == NULL) if ((mesfil = fopen(err_path,"r")) == NULL)
syserr(err_path); syserr(err_path);
ip = index; ip = index;