-char *xxxvers[] = "\n FORTRAN 77 DRIVER, VERSION 1.13, 20 APRIL 1979\n";
+char *xxxvers[] = "\n FORTRAN 77 DRIVER, VERSION 1.11, 28 JULY 1978\n";
#include <stdio.h>
#include <ctype.h>
#include "defines"
static int pid;
static int sigivalue = 0;
static int sigqvalue = 0;
-static int sighvalue = 0;
-static int sigtvalue = 0;
static char *pass1name = PASS1NAME ;
static char *pass2name = PASS2NAME ;
static char **loadargs;
static char **loadp;
-static flag erred = NO;
static flag loadflag = YES;
static flag saveasmflag = NO;
static flag profileflag = NO;
sigivalue = (int) signal(SIGINT, 1) & 01;
sigqvalue = (int) signal(SIGQUIT,1) & 01;
-sighvalue = (int) signal(SIGHUP, 1) & 01;
-sigtvalue = (int) signal(SIGTERM,1) & 01;
enbint(intrupt);
pid = getpid();
case 'r': /* Ratfor file */
case 'e': /* EFL file */
if( unreadable(argv[i]) )
- {
- erred = YES;
break;
- }
s = fortfile;
t = lastfield(argv[i]);
while( *s++ = *t++)
if(sys(sprintf(buff, "%s %s >%s", macroname, infname, prepfname) ))
{
rmf(prepfname);
- erred = YES;
break;
}
infname = prepfname;
rmf(infname);
if(status)
{
- erred = YES;
+ loadflag = NO;
rmf(fortfile);
break;
}
*lastchar(infname) = 'f';
if( dofort(argv[i]) )
- erred = YES;
+ loadflag = NO;
else {
if( nodup(t = setdoto(argv[i])) )
*loadp++ = t;
case 'f': /* Fortran file */
case 'F':
if( unreadable(argv[i]) )
- erred = YES;
- else if( dofort(argv[i]) )
- erred = YES;
+ break;
+ if( dofort(argv[i]) )
+ loadflag = NO;
else if( nodup(t=setdoto(argv[i])) )
*loadp++ = t;
break;
case 'c': /* C file */
case 's': /* Assembler file */
if( unreadable(argv[i]) )
- {
- erred = YES;
break;
- }
#if HERE==PDP11 || HERE==VAX
fprintf(diagfile, "%s:\n", argv[i]);
#endif
sprintf(buff, "cc -c %s", argv[i] );
if( sys(buff) )
- erred = YES;
+ loadflag = NO;
else
if( nodup(t = setdoto(argv[i])) )
*loadp++ = t;
break;
}
-if(loadflag && !erred)
+if(loadflag)
doload(loadargs, loadp);
-done(erred);
+done(0);
}
\f
dofort(s)
-#include "errno.h"
+#include <errno.h>
/* modified version from the Shell */
texec(f, av)
signal(SIGINT,k);
if(sigqvalue == 0)
signal(SIGQUIT,k);
-if(sighvalue == 0)
- signal(SIGHUP,k);
-if(sigtvalue == 0)
- signal(SIGTERM,k);
}
else
{
fprintf(diagfile, "Error: Cannot read file %s\n", s);
+ loadflag = NO;
return(YES);
}
}
content(filename)
char *filename;
{
-#ifdef VERSION6
- struct stat
- {
- char cjunk[9];
- char size0;
- int size1;
- int ijunk[12];
- } buf;
-#else
-# include <sys/types.h>
-# include <sys/stat.h>
- struct stat buf;
-#endif
-
+#include <sys/types.h>
+#include <sys/stat.h>
+struct stat buf;
if(stat(filename,&buf) < 0)
return(-1);
-#ifdef VERSION6
- return(buf.size0 || buf.size1);
-#else
+else
return( buf.st_size > 0 );
-#endif
}