From 5de44250f1558b92d1634f8610ae33f8a8844df9 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 8 Apr 2008 07:19:28 +0000 Subject: Removed. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134083 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/gnatbl.c | 387 ------------------------------------------------------- 1 file changed, 387 deletions(-) delete mode 100644 gcc/ada/gnatbl.c (limited to 'gcc') diff --git a/gcc/ada/gnatbl.c b/gcc/ada/gnatbl.c deleted file mode 100644 index 7dde58ea0db..00000000000 --- a/gcc/ada/gnatbl.c +++ /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 -#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); -} -- cgit v1.2.1