543 lines
12 KiB
C
543 lines
12 KiB
C
/* f77 driver dervied from g++.c by Jonas Olsson */
|
||
|
||
/* G++ preliminary semantic processing for the compiler driver.
|
||
Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
||
Contributed by Brendan Kehoe (brendan@cygnus.com).
|
||
|
||
This file is part of GNU CC.
|
||
|
||
GNU CC is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 2, or (at your option)
|
||
any later version.
|
||
|
||
GNU CC is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with GNU CC; see the file COPYING. If not, write to
|
||
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
||
/* This program is a wrapper to the main `gcc' driver. For GNU C++,
|
||
we need to do two special things: a) append `-lg++' in situations
|
||
where it's appropriate, to link in libg++, and b) add `-xc++'..`-xnone'
|
||
around file arguments named `foo.c' or `foo.i'. So, we do all of
|
||
this semantic processing then just exec gcc with the new argument
|
||
list.
|
||
|
||
We used to do all of this in a small shell script, but many users
|
||
found the performance of this as a shell script to be unacceptable.
|
||
In situations where your PATH has a lot of NFS-mounted directories,
|
||
using a script that runs sed and other things would be a nasty
|
||
performance hit. With this program, we never search the PATH at all. */
|
||
|
||
#include "config.h"
|
||
#ifdef __STDC__
|
||
#include <stdarg.h>
|
||
#else
|
||
#include <varargs.h>
|
||
#endif
|
||
#include <stdio.h>
|
||
#include <sys/types.h>
|
||
#include <sys/file.h> /* May get R_OK, etc. on some systems. */
|
||
|
||
/* Defined to the name of the compiler; if using a cross compiler, the
|
||
Makefile should compile this file with the proper name
|
||
(e.g., "i386-aout-gcc"). */
|
||
#ifndef GCC_NAME
|
||
#define GCC_NAME "gcc"
|
||
#endif
|
||
|
||
/* This bit is set if we saw a `-xfoo' language specification. */
|
||
#define LANGSPEC (1<<1)
|
||
/* This bit is set if they did `-lm' or `-lmath'. */
|
||
#define MATHLIB (1<<2)
|
||
/* This bit is set if they did `-lf2c'. */
|
||
#define F2CLIB (1<<3)
|
||
|
||
/* On MSDOS, write temp files in current dir
|
||
because there's no place else we can expect to use. */
|
||
#ifdef __MSDOS__
|
||
#ifndef P_tmpdir
|
||
#define P_tmpdir "."
|
||
#endif
|
||
#ifndef R_OK
|
||
#define R_OK 4
|
||
#define W_OK 2
|
||
#define X_OK 1
|
||
#endif
|
||
#endif
|
||
|
||
#ifndef VPROTO
|
||
#ifdef __STDC__
|
||
#define PVPROTO(ARGS) ARGS
|
||
#define VPROTO(ARGS) ARGS
|
||
#define VA_START(va_list,var) va_start(va_list,var)
|
||
#else
|
||
#define PVPROTO(ARGS) ()
|
||
#define VPROTO(ARGS) (va_alist) va_dcl
|
||
#define VA_START(va_list,var) va_start(va_list)
|
||
#endif
|
||
#endif
|
||
|
||
extern int errno, sys_nerr;
|
||
#if defined(bsd4_4) || defined(__NetBSD__)
|
||
extern const char *const sys_errlist[];
|
||
#else
|
||
extern char *sys_errlist[];
|
||
#endif
|
||
|
||
/* Name with which this program was invoked. */
|
||
static char *programname;
|
||
|
||
#ifdef HAVE_VPRINTF
|
||
/* Output an error message and exit */
|
||
|
||
static void
|
||
fatal VPROTO((char *format, ...))
|
||
{
|
||
#ifndef __STDC__
|
||
char *format;
|
||
#endif
|
||
va_list ap;
|
||
|
||
VA_START (ap, format);
|
||
|
||
#ifndef __STDC__
|
||
format = va_arg (ap, char*);
|
||
#endif
|
||
|
||
fprintf (stderr, "%s: ", programname);
|
||
vfprintf (stderr, format, ap);
|
||
va_end (ap);
|
||
fprintf (stderr, "\n");
|
||
#if 0
|
||
/* XXX Not needed for g++ driver. */
|
||
delete_temp_files ();
|
||
#endif
|
||
exit (1);
|
||
}
|
||
|
||
static void
|
||
error VPROTO((char *format, ...))
|
||
{
|
||
#ifndef __STDC__
|
||
char *format;
|
||
#endif
|
||
va_list ap;
|
||
|
||
VA_START (ap, format);
|
||
|
||
#ifndef __STDC__
|
||
format = va_arg (ap, char*);
|
||
#endif
|
||
|
||
fprintf (stderr, "%s: ", programname);
|
||
vfprintf (stderr, format, ap);
|
||
va_end (ap);
|
||
|
||
fprintf (stderr, "\n");
|
||
}
|
||
|
||
#else /* not HAVE_VPRINTF */
|
||
|
||
static void
|
||
error (msg, arg1, arg2)
|
||
char *msg, *arg1, *arg2;
|
||
{
|
||
fprintf (stderr, "%s: ", programname);
|
||
fprintf (stderr, msg, arg1, arg2);
|
||
fprintf (stderr, "\n");
|
||
}
|
||
|
||
static void
|
||
fatal (msg, arg1, arg2)
|
||
char *msg, *arg1, *arg2;
|
||
{
|
||
error (msg, arg1, arg2);
|
||
#if 0
|
||
/* XXX Not needed for g++ driver. */
|
||
delete_temp_files ();
|
||
#endif
|
||
exit (1);
|
||
}
|
||
|
||
#endif /* not HAVE_VPRINTF */
|
||
|
||
/* More 'friendly' abort that prints the line and file.
|
||
config.h can #define abort fancy_abort if you like that sort of thing. */
|
||
|
||
void
|
||
fancy_abort ()
|
||
{
|
||
fatal ("Internal f77 abort.");
|
||
}
|
||
|
||
char *
|
||
xmalloc (size)
|
||
unsigned size;
|
||
{
|
||
register char *value = (char *) malloc (size);
|
||
if (value == 0)
|
||
fatal ("virtual memory exhausted");
|
||
return value;
|
||
}
|
||
|
||
/* Return a newly-allocated string whose contents concatenate those
|
||
of s1, s2, s3. */
|
||
static char *
|
||
concat (s1, s2, s3)
|
||
char *s1, *s2, *s3;
|
||
{
|
||
int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
|
||
char *result = xmalloc (len1 + len2 + len3 + 1);
|
||
|
||
strcpy (result, s1);
|
||
strcpy (result + len1, s2);
|
||
strcpy (result + len1 + len2, s3);
|
||
*(result + len1 + len2 + len3) = 0;
|
||
|
||
return result;
|
||
}
|
||
|
||
static void
|
||
pfatal_with_name (name)
|
||
char *name;
|
||
{
|
||
char *s;
|
||
|
||
if (errno < sys_nerr)
|
||
s = concat ("%s: ", sys_errlist[errno], "");
|
||
else
|
||
s = "cannot open %s";
|
||
fatal (s, name);
|
||
}
|
||
|
||
#ifdef __MSDOS__
|
||
/* This is the common prefix we use to make temp file names. */
|
||
char *temp_filename;
|
||
|
||
/* Length of the prefix. */
|
||
int temp_filename_length;
|
||
|
||
/* Compute a string to use as the base of all temporary file names. */
|
||
static char *
|
||
choose_temp_base_try (try, base)
|
||
char *try;
|
||
char *base;
|
||
{
|
||
char *rv;
|
||
if (base)
|
||
rv = base;
|
||
else if (try == (char *)0)
|
||
rv = 0;
|
||
else if (access (try, R_OK | W_OK) != 0)
|
||
rv = 0;
|
||
else
|
||
rv = try;
|
||
return rv;
|
||
}
|
||
|
||
static void
|
||
choose_temp_base ()
|
||
{
|
||
char *base = 0;
|
||
int len;
|
||
|
||
base = choose_temp_base_try (getenv ("TMPDIR"), base);
|
||
base = choose_temp_base_try (getenv ("TMP"), base);
|
||
base = choose_temp_base_try (getenv ("TEMP"), base);
|
||
|
||
#ifdef P_tmpdir
|
||
base = choose_temp_base_try (P_tmpdir, base);
|
||
#endif
|
||
|
||
base = choose_temp_base_try ("/usr/tmp", base);
|
||
base = choose_temp_base_try ("/tmp", base);
|
||
|
||
/* If all else fails, use the current directory! */
|
||
if (base == (char *)0)
|
||
base = "./";
|
||
|
||
len = strlen (base);
|
||
temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
|
||
strcpy (temp_filename, base);
|
||
if (len > 0 && temp_filename[len-1] != '/')
|
||
temp_filename[len++] = '/';
|
||
strcpy (temp_filename + len, "ccXXXXXX");
|
||
|
||
mktemp (temp_filename);
|
||
temp_filename_length = strlen (temp_filename);
|
||
if (temp_filename_length == 0)
|
||
abort ();
|
||
}
|
||
|
||
static void
|
||
perror_exec (name)
|
||
char *name;
|
||
{
|
||
char *s;
|
||
|
||
if (errno < sys_nerr)
|
||
s = concat ("installation problem, cannot exec %s: ",
|
||
sys_errlist[errno], "");
|
||
else
|
||
s = "installation problem, cannot exec %s";
|
||
error (s, name);
|
||
}
|
||
|
||
/* This is almost exactly what's in gcc.c:pexecute for MSDOS. */
|
||
void
|
||
run_dos (program, argv)
|
||
char *program;
|
||
char *argv[];
|
||
{
|
||
char *scmd, *rf;
|
||
FILE *argfile;
|
||
int i;
|
||
|
||
choose_temp_base (); /* not in gcc.c */
|
||
|
||
scmd = (char *) malloc (strlen (program) + strlen (temp_filename) + 10);
|
||
rf = scmd + strlen (program) + 6;
|
||
sprintf (scmd, "%s.exe @%s.gp", program, temp_filename);
|
||
|
||
argfile = fopen (rf, "w");
|
||
if (argfile == 0)
|
||
pfatal_with_name (rf);
|
||
|
||
for (i=1; argv[i]; i++)
|
||
{
|
||
char *cp;
|
||
for (cp = argv[i]; *cp; cp++)
|
||
{
|
||
if (*cp == '"' || *cp == '\'' || *cp == '\\' || isspace (*cp))
|
||
fputc ('\\', argfile);
|
||
fputc (*cp, argfile);
|
||
}
|
||
fputc ('\n', argfile);
|
||
}
|
||
fclose (argfile);
|
||
|
||
i = system (scmd);
|
||
|
||
remove (rf);
|
||
|
||
if (i == -1)
|
||
perror_exec (program);
|
||
}
|
||
#endif /* __MSDOS__ */
|
||
|
||
int
|
||
main (argc, argv)
|
||
int argc;
|
||
char **argv;
|
||
{
|
||
register int i, j = 0;
|
||
register char *p;
|
||
int verbose = 0;
|
||
|
||
/* This will be NULL if we encounter a situation where we should not
|
||
link in libf2c. */
|
||
char *library = "-lf2c";
|
||
|
||
/* Used to track options that take arguments, so we don't go wrapping
|
||
those with -xf2c/-xnone. */
|
||
char *quote = NULL;
|
||
|
||
/* The new argument list will be contained in this. */
|
||
char **arglist;
|
||
|
||
/* The name of the compiler we will want to run---by default, it
|
||
will be the definition of `GCC_NAME', e.g., `gcc'. */
|
||
char *gcc = GCC_NAME;
|
||
|
||
/* Non-zero if we saw a `-xfoo' language specification on the
|
||
command line. Used to avoid adding our own -xf2c if the user
|
||
already gave a language for the file. */
|
||
int saw_speclang = 0;
|
||
|
||
/* Non-zero if we saw `-lm' or `-lmath' on the command line. */
|
||
int saw_math = 0;
|
||
|
||
/* The number of arguments being added to what's in argv. By
|
||
default it's one new argument (adding `-lf2c'). We use this
|
||
to track the number of times we've inserted -xf2c/-xnone as well. */
|
||
int added = 2;
|
||
|
||
/* An array used to flag each argument that needs a bit set for
|
||
LANGSPEC or MATHLIB. */
|
||
int *args;
|
||
|
||
p = argv[0] + strlen (argv[0]);
|
||
while (p != argv[0] && p[-1] != '/')
|
||
--p;
|
||
programname = p;
|
||
|
||
if (argc == 1)
|
||
fatal ("No input files specified.\n");
|
||
|
||
#ifndef __MSDOS__
|
||
/* We do a little magic to find out where the main gcc executable
|
||
is. If they ran us as /usr/local/bin/f77, then we will look
|
||
for /usr/local/bin/gcc; similarly, if they just ran us as `f77',
|
||
we'll just look for `gcc'. */
|
||
if (p != argv[0])
|
||
{
|
||
*--p = '\0';
|
||
gcc = (char *) malloc ((strlen (argv[0]) + 1 + strlen (GCC_NAME) + 1)
|
||
* sizeof (char));
|
||
sprintf (gcc, "%s/%s", argv[0], GCC_NAME);
|
||
}
|
||
#endif
|
||
|
||
args = (int *) malloc (argc * sizeof (int));
|
||
bzero (args, argc * sizeof (int));
|
||
|
||
for (i = 1; i < argc; i++)
|
||
{
|
||
/* If the previous option took an argument, we swallow it here. */
|
||
if (quote)
|
||
{
|
||
quote = NULL;
|
||
continue;
|
||
}
|
||
|
||
if (argv[i][0] == '\0' || argv[i][1] == '\0')
|
||
continue;
|
||
|
||
if (argv[i][0] == '-')
|
||
{
|
||
if (strcmp (argv[i], "-nostdlib") == 0)
|
||
{
|
||
added--;
|
||
library = NULL;
|
||
}
|
||
else if (strcmp (argv[i], "-lm") == 0
|
||
|| strcmp (argv[i], "-lmath") == 0)
|
||
args[i] |= MATHLIB;
|
||
else if (strcmp (argv[i], "-v") == 0)
|
||
{
|
||
verbose = 1;
|
||
if (argc == 2)
|
||
{
|
||
/* If they only gave us `-v', don't try to link
|
||
in libf2c. */
|
||
added--;
|
||
library = NULL;
|
||
}
|
||
}
|
||
else if (strncmp (argv[i], "-x", 2) == 0)
|
||
saw_speclang = 1;
|
||
else if (((argv[i][2] == '\0'
|
||
&& (char *)strchr ("bBVDUoeTuIYmLiA", argv[i][1]) != NULL)
|
||
|| strcmp (argv[i], "-Tdata") == 0))
|
||
quote = argv[i];
|
||
else if (((argv[i][2] == '\0'
|
||
&& (char *) strchr ("cSEM", argv[i][1]) != NULL)
|
||
|| strcmp (argv[i], "-MM") == 0))
|
||
{
|
||
/* Don't specify libraries if we won't link, since that would
|
||
cause a warning. */
|
||
added--;
|
||
library = NULL;
|
||
}
|
||
else
|
||
/* Pass other options through. */
|
||
continue;
|
||
}
|
||
else
|
||
{
|
||
int len;
|
||
|
||
if (saw_speclang)
|
||
continue;
|
||
|
||
/* If the filename ends in .c or .i, put options around it.
|
||
But not if a specified -x option is currently active. */
|
||
len = strlen (argv[i]);
|
||
if (len > 2
|
||
&& (argv[i][len - 1] == 'c' || argv[i][len - 1] == 'i')
|
||
&& argv[i][len - 2] == '.')
|
||
{
|
||
args[i] |= LANGSPEC;
|
||
added += 2;
|
||
}
|
||
}
|
||
}
|
||
|
||
if (quote)
|
||
fatal ("argument to `%s' missing\n", quote);
|
||
|
||
if (added)
|
||
{
|
||
arglist = (char **) malloc ((argc + added + 1) * sizeof (char *));
|
||
|
||
for (i = 1, j = 1; i < argc; i++, j++)
|
||
{
|
||
arglist[j] = argv[i];
|
||
|
||
/* Make sure -lf2c is before the math library, since libg++
|
||
itself uses those math routines. */
|
||
if (!saw_math && (args[i] & MATHLIB) && library)
|
||
{
|
||
saw_math = 1;
|
||
arglist[j] = library;
|
||
arglist[++j] = argv[i];
|
||
}
|
||
/* ljo: We want .i and .c treated as C, so don't do anything */
|
||
#if 0
|
||
/* Wrap foo.c and foo.i files in a language specification to
|
||
force the gcc compiler driver to run cc1plus on them. */
|
||
if (args[i] & LANGSPEC)
|
||
{
|
||
int len = strlen (argv[i]);
|
||
if (argv[i][len - 1] == 'i')
|
||
arglist[j++] = "-xc++-cpp-output";
|
||
else
|
||
arglist[j++] = "-xc++";
|
||
arglist[j++] = argv[i];
|
||
arglist[j] = "-xnone";
|
||
}
|
||
#endif
|
||
}
|
||
|
||
/* Add `-lf2c' if we haven't already done so. */
|
||
if (library && !saw_math){
|
||
arglist[j++] = library;
|
||
arglist[j++] = "-lm";
|
||
}
|
||
arglist[j] = NULL;
|
||
}
|
||
else
|
||
/* No need to copy 'em all. */
|
||
arglist = argv;
|
||
|
||
arglist[0] = gcc;
|
||
|
||
if (verbose)
|
||
{
|
||
if (j == 0)
|
||
j = argc;
|
||
|
||
for (i = 0; i < j; i++)
|
||
fprintf (stderr, " %s", arglist[i]);
|
||
fprintf (stderr, "\n");
|
||
}
|
||
#ifndef OS2
|
||
#ifdef __MSDOS__
|
||
run_dos (gcc, arglist);
|
||
#else /* !__MSDOS__ */
|
||
if (execvp (gcc, arglist) < 0)
|
||
pfatal_with_name (gcc);
|
||
#endif /* __MSDOS__ */
|
||
#else /* OS2 */
|
||
if (spawnvp (gcc, arglist) < 0)
|
||
pfatal_with_name (gcc);
|
||
#endif
|
||
|
||
return 0;
|
||
}
|