*/
#ifndef lint
-static char sccsid[] = "@(#)f77.c 5.4 (Berkeley) %G%";
+static char sccsid[] = "@(#)f77.c 5.5 (Berkeley) %G%";
#endif
/*
*/
char *xxxvers = "\n@(#) F77 DRIVER, VERSION 4.2, 1984 JULY 28\n";
-#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
+#include <sys/signal.h>
#include <ctype.h>
-#include <signal.h>
+#include <stdio.h>
#ifdef SIGPROF
/*
#include "defines.h"
#include "machdefs.h"
-#include "drivedefs.h"
+#include "pathnames.h"
#include "version.h"
static FILEP diagfile = {stderr} ;
static char *footname = FOOTNAME;
static char *proffoot = PROFFOOT;
static char *macroname = "m4";
-static char *shellname = "/bin/sh";
-static char *cppname = "/lib/cpp";
+static char *shellname = _PATH_BSHELL;
+static char *cppname = _PATH_CPP;
static char *aoutname = "a.out" ;
static char *temppref = TEMPPREF;
char *str;
{
register char *s, *t;
-char *argv[100], path[100];
+char *argv[100];
char *inname, *outname;
int append;
int waitpid;
return(-1);
argv[argc] = 0;
-s = path;
-t = "/usr/bin/";
-while(*t)
- *s++ = *t++;
-for(t = argv[1] ; *s++ = *t++ ; )
- ;
if((waitpid = fork()) == 0)
{
if(inname)
fatalstr("Cannot open %s", outname);
enbint(SIG_DFL);
- texec(path+9, argv); /* command */
- texec(path+4, argv); /* /bin/command */
- texec(path , argv); /* /usr/bin/command */
+ texec(argv[1], argv);
- fatalstr("Cannot load %s",path+9);
+ fatalstr("Cannot load %s", argv[1]);
}
return( await(waitpid) );
LOCAL fname(name, suff)
char *name, *suff;
{
-sprintf(name, "/tmp/%s%d.%s", temppref, pid, suff);
+sprintf(name, "%s/%s%d.%s", _PATH_TMP, temppref, pid, suff);
}