diff options
Diffstat (limited to 'gcc-4.3.1/gcc/ada/gnatbl.c')
| -rw-r--r-- | gcc-4.3.1/gcc/ada/gnatbl.c | 387 |
1 files changed, 387 insertions, 0 deletions
diff --git a/gcc-4.3.1/gcc/ada/gnatbl.c b/gcc-4.3.1/gcc/ada/gnatbl.c new file mode 100644 index 000000000..7dde58ea0 --- /dev/null +++ b/gcc-4.3.1/gcc/ada/gnatbl.c @@ -0,0 +1,387 @@ +/**************************************************************************** + * * + * GNAT COMPILER TOOLS * + * * + * G N A T B L * + * * + * C Implementation File * + * * + * Copyright (C) 1992-2007, Free Software Foundation, Inc. * + * * + * GNAT is free software; you can redistribute it and/or modify it under * + * terms of the GNU General Public License as published by the Free Soft- * + * ware Foundation; either version 3, or (at your option) any later ver- * + * sion. GNAT is distributed in the hope that it will be useful, but WITH- * + * OUT 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 distributed with GNAT; see file COPYING3. If not, go to * + * http://www.gnu.org/licenses for a complete copy of the license. * + * * + * * + * GNAT was originally developed by the GNAT team at New York University. * + * Extensive contributions were provided by Ada Core Technologies Inc. * + * * + ****************************************************************************/ + +#ifdef VMS +#define _POSIX_EXIT 1 +#endif + +#include "config.h" +#include "system.h" + +#if defined (__EMX__) || defined (MSDOS) +#include <process.h> +#endif +#include "adaint.h" + +/* These can be set by command line arguments */ +char *binder_path = 0; +char *linker_path = 0; +char *exec_file_name = 0; +char *ali_file_name = 0; +#define BIND_ARG_MAX 512 +char *bind_args[BIND_ARG_MAX]; +int bind_arg_index = -1; +#ifdef MSDOS +char *coff2exe_path = 0; +char *coff2exe_args[] = {(char *) 0, (char *) 0}; +char *del_command = 0; +#endif +int verbose = 0; +int o_present = 0; +int g_present = 0; + +int link_arg_max = -1; +char **link_args = (char **) 0; +int link_arg_index = -1; + +char *gcc_B_arg = 0; + +#ifndef DIR_SEPARATOR +#if defined (__EMX__) +#define DIR_SEPARATOR '\\' +#else +#define DIR_SEPARATOR '/' +#endif +#endif + +static int linkonly = 0; + +static void addarg (char *); +static void process_args (int *, char *[]); + +static void +addarg (char *str) +{ + int i; + + if (++link_arg_index >= link_arg_max) + { + char **new_link_args + = (char **) xcalloc (link_arg_max + 1000, sizeof (char *)); + + for (i = 0; i <= link_arg_max; i++) + new_link_args[i] = link_args[i]; + + if (link_args) + free (link_args); + + link_arg_max += 1000; + link_args = new_link_args; + } + + link_args[link_arg_index] = str; +} + +static void +process_args (int *p_argc, char *argv[]) +{ + int i, j; + + for (i = 1; i < *p_argc; i++) + { + /* -I is passed on to gnatbind */ + if (! strncmp( argv[i], "-I", 2)) + { + bind_arg_index += 1; + if (bind_arg_index >= BIND_ARG_MAX) + { + fprintf (stderr, "Too many arguments to gnatbind\n"); + exit (-1); + } + + bind_args[bind_arg_index] = argv[i]; + } + + /* -B is passed on to gcc */ + if (! strncmp (argv[i], "-B", 2)) + gcc_B_arg = argv[i]; + + /* -v turns on verbose option here and is passed on to gcc */ + + if (! strcmp (argv[i], "-v")) + verbose = 1; + + if (! strcmp (argv[i], "-o")) + { + o_present = 1; + exec_file_name = argv[i + 1]; + } + + if (! strcmp (argv[i], "-g")) + g_present = 1; + + if (! strcmp (argv[i], "-gnatbind")) + { + /* Explicit naming of binder. Grab the value then remove the + two arguments from the argument list. */ + if ( i + 1 >= *p_argc ) + { + fprintf (stderr, "Missing argument for -gnatbind\n"); + exit (1); + } + + binder_path = __gnat_locate_exec (argv[i + 1], (char *) "."); + if (!binder_path) + { + fprintf (stderr, "Could not locate binder: %s\n", argv[i + 1]); + exit (1); + } + + for (j = i + 2; j < *p_argc; j++) + argv[j - 2] = argv[j]; + + (*p_argc) -= 2; + i--; + } + + else if (! strcmp (argv[i], "-linkonly")) + { + /* Don't call the binder. Set the flag and then remove the + argument from the argument list. */ + linkonly = 1; + for (j = i + 1; j < *p_argc; j++) + argv[j - 1] = argv[j]; + + *p_argc -= 1; + i--; + } + + else if (! strcmp (argv[i], "-gnatlink")) + { + /* Explicit naming of binder. Grab the value then remove the + two arguments from the argument list. */ + if (i + 1 >= *p_argc) + { + fprintf (stderr, "Missing argument for -gnatlink\n"); + exit (1); + } + + linker_path = __gnat_locate_exec (argv[i + 1], (char *) "."); + if (!linker_path) + { + fprintf (stderr, "Could not locate linker: %s\n", argv[i + 1]); + exit (1); + } + + for (j = i + 2; j < *p_argc; j++) + argv[j - 2] = argv[j]; + *p_argc -= 2; + i--; + } + } +} +extern int main (int, char **); + +int +main (int argc, char **argv) +{ + int i, j; + int done_an_ali = 0; + int retcode; +#ifdef VMS + /* Warning: getenv only retrieves the first directory in VAXC$PATH */ + char *pathval = + xstrdup (__gnat_to_canonical_dir_spec (getenv ("VAXC$PATH"), 0)); +#else + char *pathval = getenv ("PATH"); +#endif + char *spawn_args[5]; + int spawn_index = 0; + +#if defined (__EMX__) || defined(MSDOS) + char *tmppathval = malloc (strlen (pathval) + 3); + strcpy (tmppathval, ".;"); + pathval = strcat (tmppathval, pathval); +#endif + + process_args (&argc , argv); + + if (argc == 1) + { + fprintf + (stdout, + "Usage: %s 'name'.ali\n", argv[0]); + fprintf + (stdout, + " [-o exec_name] -- by default it is 'name'\n"); + fprintf + (stdout, + " [-v] -- verbose mode\n"); + fprintf + (stdout, + " [-linkonly] -- doesn't call binder\n"); + fprintf + (stdout, + " [-gnatbind name] -- full name for gnatbind\n"); + fprintf + (stdout, + " [-gnatlink name] -- full name for linker (gcc)\n"); + fprintf + (stdout, + " [list of objects] -- non Ada binaries\n"); + fprintf + (stdout, + " [linker options] -- other options for linker\n"); + exit (1); + } + + if (!binder_path && !linkonly) + binder_path = __gnat_locate_exec ((char *) "gnatbind", pathval); + + if (!binder_path && !linkonly) + { + fprintf (stderr, "Couldn't locate gnatbind\n"); + exit (1); + } + + if (!linker_path) + linker_path = __gnat_locate_exec ((char *) "gnatlink", pathval); + if (!linker_path) + { + fprintf (stderr, "Couldn't locate gnatlink\n"); + exit (1); + } + +#ifdef MSDOS + coff2exe_path = __gnat_locate_regular_file ("coff2exe.bat", pathval); + if (!coff2exe_path) + { + fprintf (stderr, "Couldn't locate %s\n", "coff2exe.bat"); + exit (1); + } + else + coff2exe_args[0] = coff2exe_path; +#endif + + addarg (linker_path); + + for (i = 1; i < argc; i++) + { + int arg_len = strlen (argv[i]); + + if (arg_len > 4 && ! strcmp (&argv[i][arg_len - 4], ".ali")) + { + if (done_an_ali) + { + fprintf (stderr, + "Sorry - cannot handle more than one ALI file\n"); + exit (1); + } + + done_an_ali = 1; + + if (__gnat_is_regular_file (argv[i])) + { + ali_file_name = argv[i]; + if (!linkonly) + { + /* Run gnatbind */ + spawn_index = 0; + spawn_args[spawn_index++] = binder_path; + spawn_args[spawn_index++] = ali_file_name; + for (j = 0 ; j <= bind_arg_index ; j++ ) + spawn_args[spawn_index++] = bind_args[j]; + spawn_args[spawn_index] = 0; + + if (verbose) + { + int i; + for (i = 0; i < 2; i++) + printf ("%s ", spawn_args[i]); + + putchar ('\n'); + } + + retcode = __gnat_portable_spawn (spawn_args); + if (retcode != 0) + exit (retcode); + } + } + else + addarg (argv[i]); + } +#ifdef MSDOS + else if (!strcmp (argv[i], "-o")) + { + addarg (argv[i]); + if (i < argc) + i++; + + { + char *ptr = strstr (argv[i], ".exe"); + + arg_len = strlen (argv[i]); + coff2exe_args[1] = malloc (arg_len + 1); + strcpy (coff2exe_args[1], argv[i]); + if (ptr != NULL && strlen (ptr) == 4) + coff2exe_args[1][arg_len-4] = 0; + + addarg (coff2exe_args[1]); + } + } +#endif + else + addarg (argv[i]); + } + + if (! done_an_ali) + { + fprintf (stderr, "No \".ali\" file specified\n"); + exit (1); + } + + addarg (ali_file_name); + addarg (NULL); + + if (verbose) + { + int i; + + for (i = 0; i < link_arg_index; i++) + printf ("%s ", link_args[i]); + + putchar ('\n'); + } + + retcode = __gnat_portable_spawn (link_args); + if (retcode != 0) + exit (retcode); + +#ifdef MSDOS + retcode = __gnat_portable_spawn (coff2exe_args); + if (retcode != 0) + exit (retcode); + + if (!g_present) + { + del_command = malloc (strlen (coff2exe_args[1]) + 5); + sprintf (del_command, "del %s", coff2exe_args[1]); + retcode = system (del_command); + } +#endif + + exit(0); +} |