vms-ld.c, vms-cc.c: New files.

	* config/alpha/vms-ld.c, config/alpha/vms-cc.c: New files.
	* config/alpha/x-vms: New file, to compile the above.
	* config.gcc (alpha*-dec-vms*): Add x-vms.

From-SVN: r47312

gcc/ChangeLog

+Sun Nov 25 06:22:09 2001  Douglas B. Rupp  <rupp@gnat.com>
+
+	* config/alpha/vms-ld.c, config/alpha/vms-cc.c: New files.
+	* config/alpha/x-vms: New file, to compile the above.
+	* config.gcc (alpha*-dec-vms*): Add x-vms.
+
 2001-11-24  Hans-Peter Nilsson  <hp@axis.com>
 
 	* genextract.c (main): Set ro_loc for peepholes.

gcc/config.gcc

@@ -524,6 +524,7 @@ alpha*-dec-vms*)
 	tm_file=alpha/vms.h
 	xm_file=alpha/xm-vms.h
 	tmake_file="alpha/t-alpha alpha/t-vms alpha/t-ieee"
+	xmake_file=alpha/x-vms
 	;;
 arc-*-elf*)
 	tm_file="elfos.h svr4.h ${tm_file}"

gcc/config/alpha/vms-cc.c

+/* VMS DEC C wrapper.
+   Copyright (C) 2001 Free Software Foundation, Inc.
+   Contributed by Douglas B. Rupp (rupp@gnat.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, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+/* This program is a wrapper around the VMS DEC C compiler.
+   It translates Unix style command line options into corresponding
+   VMS style qualifiers and then spawns the DEC C compiler.  */
+
+#include "config.h"
+#include "system.h"
+
+#undef PATH_SEPARATOR
+#undef PATH_SEPARATOR_STR
+#define PATH_SEPARATOR ','
+#define PATH_SEPARATOR_STR ","
+
+/* These can be set by command line arguments */
+int verbose = 0;
+int save_temps = 0;
+
+int comp_arg_max = -1;
+const char **comp_args = 0;
+int comp_arg_index = -1;
+char *objfilename = 0;
+
+char *system_search_dirs = (char *) "";
+char *search_dirs;
+
+char *default_defines = (char *) "";
+char *defines;
+
+/* Translate a Unix syntax directory specification into VMS syntax.
+   If indicators of VMS syntax found, return input string. */
+static char *to_host_dir_spec PARAMS ((char *));
+
+/* Translate a Unix syntax file specification into VMS syntax.
+   If indicators of VMS syntax found, return input string. */
+static char *to_host_file_spec PARAMS ((char *));
+
+/* Add a translated arg to the list to be passed to DEC CC */
+static void addarg PARAMS ((const char *));
+
+/* Preprocess the number of args in P_ARGC and contained in ARGV.
+   Look for special flags, etc. that must be handled first. */
+static void preprocess_args PARAMS ((*, **));
+
+/* Process the number of args in P_ARGC and contained in ARGV. Look
+   for special flags, etc. that must be handled for the VMS compiler. */
+static void process_args PARAMS ((int *, char **));
+
+/* Action routine called by decc$to_vms */
+static int translate_unix PARAMS ((char *, int));
+
+int main PARAMS ((int, char **));
+
+/* Add the argument contained in STR to the list of arguments to pass to the
+   compiler.  */
+
+static void
+addarg (str)
+     const char *str;
+{
+  int i;
+
+  if (++comp_arg_index >= comp_arg_max)
+    {
+      const char **new_comp_args
+	= (const char **) xcalloc (comp_arg_max + 1000, sizeof (char *));
+
+      for (i = 0; i <= comp_arg_max; i++)
+	new_comp_args [i] = comp_args [i];
+
+      if (comp_args)
+	free (comp_args);
+
+      comp_arg_max += 1000;
+      comp_args = new_comp_args;
+    }
+
+  comp_args [comp_arg_index] = str;
+}
+
+static void
+preprocess_args (p_argc, argv)
+     int *p_argc;
+     char *argv[];
+{
+  int i;
+
+  for (i = 1; i < *p_argc; i++)
+    {
+      if (strcmp (argv[i], "-o") == 0)
+	{
+	  char *buff, *ptr;
+	  int out_len;
+
+	  i++;
+	  ptr = to_host_file_spec (argv[i]);
+	  objfilename = xstrdup (ptr);
+	  out_len = strlen (ptr);
+	  buff = xmalloc (out_len + 6);
+
+	  strcpy (buff, "/obj=");
+	  strcat (buff, ptr);
+	  addarg (buff);
+	}
+    }
+}
+
+static void
+process_args (p_argc, argv)
+     int *p_argc;
+     char *argv[];
+{
+  int i;
+
+  for (i = 1; i < *p_argc; i++)
+    {
+      if (strlen (argv[i]) < 2)
+	continue;
+
+      if (strncmp (argv[i], "-I", 2) == 0)
+	{
+	  char *ptr;
+	  int new_len, search_dirs_len;
+
+	  ptr = to_host_dir_spec (&argv[i][2]);
+	  new_len = strlen (ptr);
+	  search_dirs_len = strlen (search_dirs);
+
+	  search_dirs = xrealloc (search_dirs, search_dirs_len + new_len + 2);
+	  if (search_dirs_len > 0)
+	    strcat (search_dirs, PATH_SEPARATOR_STR);
+	  strcat (search_dirs, ptr);
+	}
+      else if (strncmp (argv[i], "-D", 2) == 0)
+	{
+	  char *ptr;
+	  int new_len, defines_len;
+
+	  ptr = &argv[i][2];
+	  new_len = strlen (ptr);
+	  defines_len = strlen (defines);
+
+	  defines = xrealloc (defines, defines_len + new_len + 4);
+	  if (defines_len > 0)
+	    strcat (defines, ",");
+
+	  strcat (defines, "\"");
+	  strcat (defines, ptr);
+	  strcat (defines, "\"");
+	}
+      else if (strcmp (argv[i], "-v") == 0)
+	verbose = 1;
+      else if (strcmp (argv[i], "-g0") == 0)
+	addarg ("/nodebug");
+      else if (strcmp (argv[i], "-O0") == 0)
+	addarg ("/noopt");
+      else if (strncmp (argv[i], "-g", 2) == 0)
+	addarg ("/debug");
+      else if (strcmp (argv[i], "-E") == 0)
+	addarg ("/preprocess");
+      else if (strcmp (argv[i], "-save-temps") == 0)
+	save_temps = 1;
+    }
+}
+
+/* The main program.  Spawn the VMS DEC C compiler after fixing up the
+   Unix-like flags and args to be what VMS DEC C wants.  */
+
+typedef struct dsc {unsigned short len, mbz; char *adr; } Descr;
+
+int
+main (argc, argv)
+     int argc;
+     char **argv;
+{
+  int i;
+  char cwdev [128], *devptr;
+  int devlen;
+  char *cwd = getcwd (0, 1024);
+
+  devptr = strchr (cwd, ':');
+  devlen = (devptr - cwd) + 1;
+  strncpy (cwdev, cwd, devlen);
+  cwdev [devlen] = '\0';
+
+  search_dirs = xmalloc (strlen (system_search_dirs) + 1);
+  strcpy (search_dirs, system_search_dirs);
+
+  defines = xmalloc (strlen (default_defines) + 1);
+  strcpy (defines, default_defines);
+
+  addarg ("cc");
+  preprocess_args (&argc , argv);
+  process_args (&argc , argv);
+
+  if (strlen (search_dirs) > 0)
+    {
+      addarg ("/include=(");
+      addarg (search_dirs);
+      addarg (")");
+    }
+
+  if (strlen (defines) > 0)
+    {
+      addarg ("/define=(");
+      addarg (defines);
+      addarg (")");
+    }
+
+  for (i = 1; i < argc; i++)
+    {
+      int arg_len = strlen (argv[i]);
+
+      if (strcmp (argv[i], "-o") == 0)
+	i++;
+      else if (strcmp (argv[i], "-v" ) == 0
+	       || strcmp (argv[i], "-E") == 0
+	       || strcmp (argv[i], "-c") == 0
+	       || strncmp (argv[i], "-g", 2 ) == 0
+	       || strncmp (argv[i], "-O", 2 ) == 0
+	       || strcmp (argv[i], "-save-temps") == 0
+	       || (arg_len > 2 && strncmp (argv[i], "-I", 2) == 0)
+	       || (arg_len > 2 && strncmp (argv[i], "-D", 2) == 0))
+	;
+
+      /* Unix style file specs and VMS style switches look alike, so assume
+	 an arg consisting of one and only one slash, and that being first, is
+	 really a switch.  */
+      else if ((argv[i][0] == '/') && (strchr (&argv[i][1], '/') == 0))
+	addarg (argv[i]);
+      else
+	{
+	  /* Assume filename arg */
+	  char buff [256], *ptr;
+	  int buff_len;
+
+	  ptr = to_host_file_spec (argv[i]);
+	  arg_len = strlen (ptr);
+
+	  if (ptr[0] == '[')
+	    sprintf (buff, "%s%s", cwdev, ptr);
+	  else if (strchr (ptr, ':'))
+	    sprintf (buff, "%s", ptr);
+	  else
+	    sprintf (buff, "%s%s", cwd, ptr);
+
+	  buff_len = strlen (buff);
+	  ptr = xmalloc (buff_len + 1);
+
+	  strcpy (ptr, buff);
+	  addarg (ptr);
+	}
+    }
+
+  addarg (NULL);
+
+  if (verbose)
+    {
+      int i;
+
+      for (i = 0; i < comp_arg_index; i++)
+	printf ("%s ", comp_args [i]);
+
+      putchar ('\n');
+    }
+
+  {
+    int i;
+    int len = 0;
+
+    for (i = 0; comp_args[i]; i++)
+      len = len + strlen (comp_args[i]) + 1;
+
+    {
+      char *allargs = (char *) alloca (len + 1);
+      Descr cmd;
+      int status;
+      int status1 = 1;
+
+      for (i = 0; i < len + 1; i++)
+	allargs [i] = 0;
+
+      for (i = 0; comp_args [i]; i++)
+	{
+	  strcat (allargs, comp_args [i]);
+	  strcat (allargs, " ");
+	}
+
+      cmd.adr = allargs;
+      cmd.len = len;
+      cmd.mbz = 0;
+
+      i = LIB$SPAWN (&cmd, 0, 0, 0, 0, 0, &status);
+
+      if ((i & 1) != 1)
+	{
+	  LIB$SIGNAL (i);
+	  exit (1);
+	}
+
+      if ((status & 1) == 1 && (status1 & 1) == 1)
+	exit (0);
+
+      exit (1);
+    }
+  }
+}
+
+static char new_host_filespec [255];
+static char new_host_dirspec [255];
+static char filename_buff [256];
+
+static int
+translate_unix (name, type)
+     char *name;
+     int type ATTRIBUTE_UNUSED;
+{
+  strcpy (filename_buff, name);
+  return 0;
+}
+
+static char *
+to_host_dir_spec (dirspec)
+     char *dirspec;
+{
+  int len = strlen (dirspec);
+
+  strcpy (new_host_dirspec, dirspec);
+
+  if (strchr (new_host_dirspec, ']') || strchr (new_host_dirspec, ':'))
+    return new_host_dirspec;
+
+  while (len > 1 && new_host_dirspec [len-1] == '/')
+    {
+      new_host_dirspec [len-1] = 0;
+      len--;
+    }
+
+  decc$to_vms (new_host_dirspec, translate_unix, 1, 2);
+  strcpy (new_host_dirspec, filename_buff);
+
+  return new_host_dirspec;
+
+}
+
+static char *
+to_host_file_spec (filespec)
+     char *filespec;
+{
+  strcpy (new_host_filespec, "");
+  if (strchr (filespec, ']') || strchr (filespec, ':'))
+    strcpy (new_host_filespec, filespec);
+  else
+    {
+      decc$to_vms (filespec, translate_unix, 1, 1);
+      strcpy (new_host_filespec, filename_buff);
+    }
+
+  return new_host_filespec;
+}

gcc/config/alpha/x-vms

+vms-ld.o : $(srcdir)/config/alpha/vms-ld.c
+	$(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $< $(OUTPUT_OPTION)
+ld.exe : vms-ld.o
+	$(CC) -o $@ vms-ld.o ../libiberty/libiberty.a
+
+vms-cc.o : $(srcdir)/config/alpha/vms-cc.c
+	$(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $< $(OUTPUT_OPTION)
+decc.exe : vms-cc.o
+	$(CC) -o $@ vms-cc.o ../libiberty/libiberty.a
+
+EXTRA_PROGRAMS=ld.exe decc.exe