Removed.
authorArnaud Charlet <charlet@gcc.gnu.org>
Tue, 8 Apr 2008 07:19:28 +0000 (09:19 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 8 Apr 2008 07:19:28 +0000 (09:19 +0200)
From-SVN: r134083

gcc/ada/gnatbl.c [deleted file]

diff --git a/gcc/ada/gnatbl.c b/gcc/ada/gnatbl.c
deleted file mode 100644 (file)
index 7dde58e..0000000
+++ /dev/null
@@ -1,387 +0,0 @@
-/****************************************************************************
- *                                                                          *
- *                           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 *[]);
-\f
-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);
-}