Subversion Repositories openrisc_me

/* VMS DEC C wrapper.
   Copyright (C) 2001, 2003, 2007 Free Software Foundation, Inc.
   Contributed by Douglas B. Rupp (rupp@gnat.com).
 
This file is part of GCC.
 
GCC 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 3, or (at your option)
any later version.
 
GCC 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 GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.  */
 
/* 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"
#include "coretypes.h"
#include "tm.h"
 
#undef PATH_SEPARATOR
#undef PATH_SEPARATOR_STR
#define PATH_SEPARATOR ','
#define PATH_SEPARATOR_STR ","
 
/* These can be set by command line arguments */
static int verbose = 0;
static int save_temps = 0;
 
static int comp_arg_max = -1;
static const char **comp_args = 0;
static int comp_arg_index = -1;
static char *objfilename = 0;
 
static char *system_search_dirs = (char *) "";
static char *search_dirs;
 
static char *default_defines = (char *) "";
static 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 (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 (char *);
 
/* Add a translated arg to the list to be passed to DEC CC.  */
static void addarg (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 (int *, char **);
 
/* 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 (int *, char **);
 
/* Action routine called by decc$to_vms */
static int translate_unix (char *, int);

/* Add the argument contained in STR to the list of arguments to pass to the
   compiler.  */
 
static void
addarg (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 (int *p_argc, char *argv[])
{
  int i;
 
  for (i = 1; i < *p_argc; i++)
    {
      if (strcmp (argv[i], "-o") == 0)
	{
	  char *buff, *ptr;
 
	  i++;
	  ptr = to_host_file_spec (argv[i]);
	  objfilename = xstrdup (ptr);
	  buff = concat ("/obj=", ptr, NULL);
	  addarg (buff);
	}
    }
}
 
static void
process_args (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 (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 = xstrdup (system_search_dirs);
  defines = xstrdup (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;
 
	  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);
 
	  ptr = xstrdup (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 (char *name, int type ATTRIBUTE_UNUSED)
{
  strcpy (filename_buff, name);
  return 0;
}
 
static char *
to_host_dir_spec (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 (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;
}