summaryrefslogtreecommitdiff
path: root/gcc/ada/gnatbl.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/gnatbl.c')
-rw-r--r--gcc/ada/gnatbl.c397
1 files changed, 397 insertions, 0 deletions
diff --git a/gcc/ada/gnatbl.c b/gcc/ada/gnatbl.c
new file mode 100644
index 00000000000..18529a272b7
--- /dev/null
+++ b/gcc/ada/gnatbl.c
@@ -0,0 +1,397 @@
+/****************************************************************************
+ * *
+ * GNAT COMPILER TOOLS *
+ * *
+ * G N A T B L *
+ * *
+ * C Implementation File *
+ * *
+ * $Revision: 1.65 $
+ * *
+ * Copyright (C) 1992-2001 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 2, 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 COPYING. If not, write *
+ * to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, *
+ * MA 02111-1307, USA. *
+ * *
+ * GNAT was originally developed by the GNAT team at New York University. *
+ * It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). *
+ * *
+ ****************************************************************************/
+
+#include "config.h"
+#include "system.h"
+
+#if defined (__EMX__) || defined (MSDOS)
+#include <process.h>
+#endif
+#include "adaint.h"
+
+#ifdef VMS
+#ifdef exit
+#undef exit
+#endif
+#define exit __posix_exit
+#endif
+
+/* 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 PARAMS ((char *));
+static void process_args PARAMS ((int *, char *[]));
+
+static void
+addarg (str)
+ 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 (p_argc, argv)
+ 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 PARAMS ((int, char **));
+
+int
+main (argc, argv)
+ 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 =
+ strdup (__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);
+}
View Lorry Controller Status