From fff195710798cd5e5222768e3bbce81246f8cc0f Mon Sep 17 00:00:00 2001 From: ljo Date: Tue, 25 Oct 1994 14:36:50 +0000 Subject: Added f77 program. This is a modified version of the c++ program. All it does is add -lf2c and -lm. --- gnu/usr.bin/cc/Makefile | 4 +- gnu/usr.bin/cc/f77/Makefile | 10 + gnu/usr.bin/cc/f77/f77.c | 542 ++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 554 insertions(+), 2 deletions(-) create mode 100644 gnu/usr.bin/cc/f77/Makefile create mode 100644 gnu/usr.bin/cc/f77/f77.c (limited to 'gnu') diff --git a/gnu/usr.bin/cc/Makefile b/gnu/usr.bin/cc/Makefile index cbec53b..344b60c 100644 --- a/gnu/usr.bin/cc/Makefile +++ b/gnu/usr.bin/cc/Makefile @@ -1,8 +1,8 @@ # -# $Id$ +# $Id: Makefile,v 1.2 1994/09/18 22:35:35 wollman Exp $ # -PGMDIR= cc_int cpp cc1 cc cc1plus c++ libgcc +PGMDIR= cc_int cpp cc1 cc cc1plus c++ f77 libgcc SUBDIR= $(PGMDIR) .include diff --git a/gnu/usr.bin/cc/f77/Makefile b/gnu/usr.bin/cc/f77/Makefile new file mode 100644 index 0000000..4af4448 --- /dev/null +++ b/gnu/usr.bin/cc/f77/Makefile @@ -0,0 +1,10 @@ +# +# $Id: Makefile,v 1.3 1994/09/18 22:35:43 wollman Exp $ +# + +PROG = f77 +SRCS = f77.c +BINDIR= /usr/bin +NOMAN= 1 + +.include diff --git a/gnu/usr.bin/cc/f77/f77.c b/gnu/usr.bin/cc/f77/f77.c new file mode 100644 index 0000000..5920a07 --- /dev/null +++ b/gnu/usr.bin/cc/f77/f77.c @@ -0,0 +1,542 @@ +/* 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 +#else +#include +#endif +#include +#include +#include /* 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; +} -- cgit v1.1