Subversion Repositories openrisc_2011-10-31

/* dllwrap.c -- wrapper for DLLTOOL and GCC to generate PE style DLLs

   Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007

   Free Software Foundation, Inc.

   Contributed by Mumit Khan (khan@xraylith.wisc.edu).

   This file is part of GNU Binutils.

   This program 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 of the License, or

   (at your option) any later version.

   This program 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 this program; if not, write to the Free Software

   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA

   02110-1301, USA.  */

/* AIX requires this to be the first thing in the file.  */

#ifndef __GNUC__

# ifdef _AIX

 #pragma alloca

#endif

#endif

#include "sysdep.h"

#include "bfd.h"

#include "libiberty.h"

#include "getopt.h"

#include "dyn-string.h"

#include "bucomm.h"

#include <time.h>

#include <sys/stat.h>

#ifdef HAVE_SYS_WAIT_H

#include <sys/wait.h>

#else /* ! HAVE_SYS_WAIT_H */

#if ! defined (_WIN32) || defined (__CYGWIN32__)

#ifndef WIFEXITED

#define WIFEXITED(w)    (((w)&0377) == 0)

#endif

#ifndef WIFSIGNALED

#define WIFSIGNALED(w)  (((w)&0377) != 0177 && ((w)&~0377) == 0)

#endif

#ifndef WTERMSIG

#define WTERMSIG(w)     ((w) & 0177)

#endif

#ifndef WEXITSTATUS

#define WEXITSTATUS(w)  (((w) >> 8) & 0377)

#endif

#else /* defined (_WIN32) && ! defined (__CYGWIN32__) */

#ifndef WIFEXITED

#define WIFEXITED(w)    (((w) & 0xff) == 0)

#endif

#ifndef WIFSIGNALED

#define WIFSIGNALED(w)  (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)

#endif

#ifndef WTERMSIG

#define WTERMSIG(w)     ((w) & 0x7f)

#endif

#ifndef WEXITSTATUS

#define WEXITSTATUS(w)  (((w) & 0xff00) >> 8)

#endif

#endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */

#endif /* ! HAVE_SYS_WAIT_H */

static char *driver_name = NULL;

static char *cygwin_driver_flags =

  "-Wl,--dll -nostartfiles";

static char *mingw32_driver_flags = "-mdll";

static char *generic_driver_flags = "-Wl,--dll";

static char *entry_point;

static char *dlltool_name = NULL;

static char *target = TARGET;

typedef enum {

  UNKNOWN_TARGET,

  CYGWIN_TARGET,

  MINGW_TARGET

}

target_type;

static target_type which_target = UNKNOWN_TARGET;

static int dontdeltemps = 0;

static int dry_run = 0;

static char *prog_name;

static int verbose = 0;

static char *dll_file_name;

static char *dll_name;

static char *base_file_name;

static char *exp_file_name;

static char *def_file_name;

static int delete_base_file = 1;

static int delete_exp_file = 1;

static int delete_def_file = 1;

static int run (const char *, char *);

static char *mybasename (const char *);

static int strhash (const char *);

static void usage (FILE *, int);

static void display (const char *, va_list) ATTRIBUTE_PRINTF(1,0);

static void inform (const char *, ...) ATTRIBUTE_PRINTF_1;

static void warn (const char *, ...) ATTRIBUTE_PRINTF_1;

static char *look_for_prog (const char *, const char *, int);

static char *deduce_name (const char *);

static void delete_temp_files (void);

static void cleanup_and_exit (int);

/**********************************************************************/

/* Please keep the following 4 routines in sync with dlltool.c:

     display ()

     inform ()

     look_for_prog ()

     deduce_name ()

   It's not worth the hassle to break these out since dllwrap will

   (hopefully) soon be retired in favor of `ld --shared.  */

static void

display (const char * message, va_list args)

{

  if (prog_name != NULL)

    fprintf (stderr, "%s: ", prog_name);

  vfprintf (stderr, message, args);

  fputc ('\n', stderr);

}

static void

inform VPARAMS ((const char *message, ...))

{

  VA_OPEN (args, message);

  VA_FIXEDARG (args, const char *, message);

  if (!verbose)

    return;

  display (message, args);

  VA_CLOSE (args);

}

static void

warn VPARAMS ((const char *format, ...))

{

  VA_OPEN (args, format);

  VA_FIXEDARG (args, const char *, format);

  display (format, args);

  VA_CLOSE (args);

}

/* Look for the program formed by concatenating PROG_NAME and the

   string running from PREFIX to END_PREFIX.  If the concatenated

   string contains a '/', try appending EXECUTABLE_SUFFIX if it is

   appropriate.  */

static char *

look_for_prog (const char *prog_name, const char *prefix, int end_prefix)

{

  struct stat s;

  char *cmd;

  cmd = xmalloc (strlen (prefix)

                 + strlen (prog_name)

#ifdef HAVE_EXECUTABLE_SUFFIX

                 + strlen (EXECUTABLE_SUFFIX)

#endif

                 + 10);

  strcpy (cmd, prefix);

  sprintf (cmd + end_prefix, "%s", prog_name);

  if (strchr (cmd, '/') != NULL)

    {

      int found;

      found = (stat (cmd, &s) == 0

#ifdef HAVE_EXECUTABLE_SUFFIX

               || stat (strcat (cmd, EXECUTABLE_SUFFIX), &s) == 0

#endif

               );

      if (! found)

        {

          /* xgettext:c-format */

          inform (_("Tried file: %s"), cmd);

          free (cmd);

          return NULL;

        }

    }

  /* xgettext:c-format */

  inform (_("Using file: %s"), cmd);

  return cmd;

}

/* Deduce the name of the program we are want to invoke.

   PROG_NAME is the basic name of the program we want to run,

   eg "as" or "ld".  The catch is that we might want actually

   run "i386-pe-as" or "ppc-pe-ld".

   If argv[0] contains the full path, then try to find the program

   in the same place, with and then without a target-like prefix.

   Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,

   deduce_name("as") uses the following search order:

     /usr/local/bin/i586-cygwin32-as

     /usr/local/bin/as

     as

   If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each

   name, it'll try without and then with EXECUTABLE_SUFFIX.

   Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"

   as the fallback, but rather return i586-cygwin32-as.

   Oh, and given, argv[0] = dlltool, it'll return "as".

   Returns a dynamically allocated string.  */

static char *

deduce_name (const char * name)

{

  char *cmd;

  const char *dash;

  const char *slash;

  const char *cp;

  dash = NULL;

  slash = NULL;

  for (cp = prog_name; *cp != '\0'; ++cp)

    {

      if (*cp == '-')

        dash = cp;

      if (

#if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)

          *cp == ':' || *cp == '\\' ||

#endif

          *cp == '/')

        {

          slash = cp;

          dash = NULL;

        }

    }

  cmd = NULL;

  if (dash != NULL)

    /* First, try looking for a prefixed NAME in the

       PROG_NAME directory, with the same prefix as PROG_NAME.  */

    cmd = look_for_prog (name, prog_name, dash - prog_name + 1);

  if (slash != NULL && cmd == NULL)

    /* Next, try looking for a NAME in the same directory as

       that of this program.  */

    cmd = look_for_prog (name, prog_name, slash - prog_name + 1);

  if (cmd == NULL)

    /* Just return NAME as is.  */

    cmd = xstrdup (name);

  return cmd;

}

static void

delete_temp_files (void)

{

  if (delete_base_file && base_file_name)

    {

      if (verbose)

        {

          if (dontdeltemps)

            warn (_("Keeping temporary base file %s"), base_file_name);

          else

            warn (_("Deleting temporary base file %s"), base_file_name);

        }

      if (! dontdeltemps)

        {

          unlink (base_file_name);

          free (base_file_name);

        }

    }

  if (delete_exp_file && exp_file_name)

    {

      if (verbose)

        {

          if (dontdeltemps)

            warn (_("Keeping temporary exp file %s"), exp_file_name);

          else

            warn (_("Deleting temporary exp file %s"), exp_file_name);

        }

      if (! dontdeltemps)

        {

          unlink (exp_file_name);

          free (exp_file_name);

        }

    }

  if (delete_def_file && def_file_name)

    {

      if (verbose)

        {

          if (dontdeltemps)

            warn (_("Keeping temporary def file %s"), def_file_name);

          else

            warn (_("Deleting temporary def file %s"), def_file_name);

        }

      if (! dontdeltemps)

        {

          unlink (def_file_name);

          free (def_file_name);

        }

    }

}

static void

cleanup_and_exit (int status)

{

  delete_temp_files ();

  exit (status);

}

static int

run (const char *what, char *args)

{

  char *s;

  int pid, wait_status, retcode;

  int i;

  const char **argv;

  char *errmsg_fmt, *errmsg_arg;

  char *temp_base = choose_temp_base ();

  int in_quote;

  char sep;

  if (verbose || dry_run)

    fprintf (stderr, "%s %s\n", what, args);

  /* Count the args */

  i = 0;

  for (s = args; *s; s++)

    if (*s == ' ')

      i++;

  i++;

  argv = alloca (sizeof (char *) * (i + 3));

  i = 0;

  argv[i++] = what;

  s = args;

  while (1)

    {

      while (*s == ' ' && *s != 0)

        s++;

      if (*s == 0)

        break;

      in_quote = (*s == '\'' || *s == '"');

      sep = (in_quote) ? *s++ : ' ';

      argv[i++] = s;

      while (*s != sep && *s != 0)

        s++;

      if (*s == 0)

        break;

      *s++ = 0;

      if (in_quote)

        s++;

    }

  argv[i++] = NULL;

  if (dry_run)

    return 0;

  pid = pexecute (argv[0], (char * const *) argv, prog_name, temp_base,

                  &errmsg_fmt, &errmsg_arg, PEXECUTE_ONE | PEXECUTE_SEARCH);

  if (pid == -1)

    {

      int errno_val = errno;

      fprintf (stderr, "%s: ", prog_name);

      fprintf (stderr, errmsg_fmt, errmsg_arg);

      fprintf (stderr, ": %s\n", strerror (errno_val));

      return 1;

    }

  retcode = 0;

  pid = pwait (pid, &wait_status, 0);

  if (pid == -1)

    {

      warn ("wait: %s", strerror (errno));

      retcode = 1;

    }

  else if (WIFSIGNALED (wait_status))

    {

      warn (_("subprocess got fatal signal %d"), WTERMSIG (wait_status));

      retcode = 1;

    }

  else if (WIFEXITED (wait_status))

    {

      if (WEXITSTATUS (wait_status) != 0)

        {

          warn (_("%s exited with status %d"), what, WEXITSTATUS (wait_status));

          retcode = 1;

        }

    }

  else

    retcode = 1;

  return retcode;

}

static char *

mybasename (const char *name)

{

  const char *base = name;

  while (*name)

    {

      if (*name == '/' || *name == '\\')

        {

          base = name + 1;

        }

      ++name;

    }

  return (char *) base;

}

static int

strhash (const char *str)

{

  const unsigned char *s;

  unsigned long hash;

  unsigned int c;

  unsigned int len;

  hash = 0;

  len = 0;

  s = (const unsigned char *) str;

  while ((c = *s++) != '\0')

    {

      hash += c + (c << 17);

      hash ^= hash >> 2;

      ++len;

    }

  hash += len + (len << 17);

  hash ^= hash >> 2;

  return hash;

}

/**********************************************************************/

static void

usage (FILE *file, int status)

{

  fprintf (file, _("Usage %s <option(s)> <object-file(s)>\n"), prog_name);

  fprintf (file, _("  Generic options:\n"));

  fprintf (file, _("   @<file>                Read options from <file>\n"));

  fprintf (file, _("   --quiet, -q            Work quietly\n"));

  fprintf (file, _("   --verbose, -v          Verbose\n"));

  fprintf (file, _("   --version              Print dllwrap version\n"));

  fprintf (file, _("   --implib <outname>     Synonym for --output-lib\n"));

  fprintf (file, _("  Options for %s:\n"), prog_name);

  fprintf (file, _("   --driver-name <driver> Defaults to \"gcc\"\n"));

  fprintf (file, _("   --driver-flags <flags> Override default ld flags\n"));

  fprintf (file, _("   --dlltool-name <dlltool> Defaults to \"dlltool\"\n"));

  fprintf (file, _("   --entry <entry>        Specify alternate DLL entry point\n"));

  fprintf (file, _("   --image-base <base>    Specify image base address\n"));

  fprintf (file, _("   --target <machine>     i386-cygwin32 or i386-mingw32\n"));

  fprintf (file, _("   --dry-run              Show what needs to be run\n"));

  fprintf (file, _("   --mno-cygwin           Create Mingw DLL\n"));

  fprintf (file, _("  Options passed to DLLTOOL:\n"));

  fprintf (file, _("   --machine <machine>\n"));

  fprintf (file, _("   --output-exp <outname> Generate export file.\n"));

  fprintf (file, _("   --output-lib <outname> Generate input library.\n"));

  fprintf (file, _("   --add-indirect         Add dll indirects to export file.\n"));

  fprintf (file, _("   --dllname <name>       Name of input dll to put into output lib.\n"));

  fprintf (file, _("   --def <deffile>        Name input .def file\n"));

  fprintf (file, _("   --output-def <deffile> Name output .def file\n"));

  fprintf (file, _("   --export-all-symbols     Export all symbols to .def\n"));

  fprintf (file, _("   --no-export-all-symbols  Only export .drectve symbols\n"));

  fprintf (file, _("   --exclude-symbols <list> Exclude <list> from .def\n"));

  fprintf (file, _("   --no-default-excludes    Zap default exclude symbols\n"));

  fprintf (file, _("   --base-file <basefile> Read linker generated base file\n"));

  fprintf (file, _("   --no-idata4           Don't generate idata$4 section\n"));

  fprintf (file, _("   --no-idata5           Don't generate idata$5 section\n"));

  fprintf (file, _("   -U                     Add underscores to .lib\n"));

  fprintf (file, _("   -k                     Kill @<n> from exported names\n"));

  fprintf (file, _("   --add-stdcall-alias    Add aliases without @<n>\n"));

  fprintf (file, _("   --as <name>            Use <name> for assembler\n"));

  fprintf (file, _("   --nodelete             Keep temp files.\n"));

  fprintf (file, _("  Rest are passed unmodified to the language driver\n"));

  fprintf (file, "\n\n");

  if (REPORT_BUGS_TO[0] && status == 0)

    fprintf (file, _("Report bugs to %s\n"), REPORT_BUGS_TO);

  exit (status);

}

#define OPTION_START            149

/* GENERIC options.  */

#define OPTION_QUIET            (OPTION_START + 1)

#define OPTION_VERBOSE          (OPTION_QUIET + 1)

#define OPTION_VERSION          (OPTION_VERBOSE + 1)

/* DLLWRAP options.  */

#define OPTION_DRY_RUN          (OPTION_VERSION + 1)

#define OPTION_DRIVER_NAME      (OPTION_DRY_RUN + 1)

#define OPTION_DRIVER_FLAGS     (OPTION_DRIVER_NAME + 1)

#define OPTION_DLLTOOL_NAME     (OPTION_DRIVER_FLAGS + 1)

#define OPTION_ENTRY            (OPTION_DLLTOOL_NAME + 1)

#define OPTION_IMAGE_BASE       (OPTION_ENTRY + 1)

#define OPTION_TARGET           (OPTION_IMAGE_BASE + 1)

#define OPTION_MNO_CYGWIN       (OPTION_TARGET + 1)

/* DLLTOOL options.  */

#define OPTION_NODELETE         (OPTION_MNO_CYGWIN + 1)

#define OPTION_DLLNAME          (OPTION_NODELETE + 1)

#define OPTION_NO_IDATA4        (OPTION_DLLNAME + 1)

#define OPTION_NO_IDATA5        (OPTION_NO_IDATA4 + 1)

#define OPTION_OUTPUT_EXP       (OPTION_NO_IDATA5 + 1)

#define OPTION_OUTPUT_DEF       (OPTION_OUTPUT_EXP + 1)

#define OPTION_EXPORT_ALL_SYMS  (OPTION_OUTPUT_DEF + 1)

#define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)

#define OPTION_EXCLUDE_SYMS     (OPTION_NO_EXPORT_ALL_SYMS + 1)

#define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)

#define OPTION_OUTPUT_LIB       (OPTION_NO_DEFAULT_EXCLUDES + 1)

#define OPTION_DEF              (OPTION_OUTPUT_LIB + 1)

#define OPTION_ADD_UNDERSCORE   (OPTION_DEF + 1)

#define OPTION_KILLAT           (OPTION_ADD_UNDERSCORE + 1)

#define OPTION_HELP             (OPTION_KILLAT + 1)

#define OPTION_MACHINE          (OPTION_HELP + 1)

#define OPTION_ADD_INDIRECT     (OPTION_MACHINE + 1)

#define OPTION_BASE_FILE        (OPTION_ADD_INDIRECT + 1)

#define OPTION_AS               (OPTION_BASE_FILE + 1)

static const struct option long_options[] =

{

  /* generic options.  */

  {"quiet", no_argument, NULL, 'q'},

  {"verbose", no_argument, NULL, 'v'},

  {"version", no_argument, NULL, OPTION_VERSION},

  {"implib", required_argument, NULL, OPTION_OUTPUT_LIB},

  /* dllwrap options.  */

  {"dry-run", no_argument, NULL, OPTION_DRY_RUN},

  {"driver-name", required_argument, NULL, OPTION_DRIVER_NAME},

  {"driver-flags", required_argument, NULL, OPTION_DRIVER_FLAGS},

  {"dlltool-name", required_argument, NULL, OPTION_DLLTOOL_NAME},

  {"entry", required_argument, NULL, 'e'},

  {"image-base", required_argument, NULL, OPTION_IMAGE_BASE},

  {"target", required_argument, NULL, OPTION_TARGET},

  /* dlltool options.  */

  {"no-delete", no_argument, NULL, 'n'},

  {"dllname", required_argument, NULL, OPTION_DLLNAME},

  {"no-idata4", no_argument, NULL, OPTION_NO_IDATA4},

  {"no-idata5", no_argument, NULL, OPTION_NO_IDATA5},

  {"output-exp", required_argument, NULL, OPTION_OUTPUT_EXP},

  {"output-def", required_argument, NULL, OPTION_OUTPUT_DEF},

  {"export-all-symbols", no_argument, NULL, OPTION_EXPORT_ALL_SYMS},

  {"no-export-all-symbols", no_argument, NULL, OPTION_NO_EXPORT_ALL_SYMS},

  {"exclude-symbols", required_argument, NULL, OPTION_EXCLUDE_SYMS},

  {"no-default-excludes", no_argument, NULL, OPTION_NO_DEFAULT_EXCLUDES},

  {"output-lib", required_argument, NULL, OPTION_OUTPUT_LIB},

  {"def", required_argument, NULL, OPTION_DEF},

  {"add-underscore", no_argument, NULL, 'U'},

  {"killat", no_argument, NULL, 'k'},

  {"add-stdcall-alias", no_argument, NULL, 'A'},

  {"help", no_argument, NULL, 'h'},

  {"machine", required_argument, NULL, OPTION_MACHINE},

  {"add-indirect", no_argument, NULL, OPTION_ADD_INDIRECT},

  {"base-file", required_argument, NULL, OPTION_BASE_FILE},

  {"as", required_argument, NULL, OPTION_AS},

  {0, 0, 0, 0}

};

int main (int, char **);

int

main (int argc, char **argv)

{

  int c;

  int i;

  char **saved_argv = 0;

  int cmdline_len = 0;

  int export_all = 0;

  int *dlltool_arg_indices;

  int *driver_arg_indices;

  char *driver_flags = 0;

  char *output_lib_file_name = 0;

  dyn_string_t dlltool_cmdline;

  dyn_string_t driver_cmdline;

  int def_file_seen = 0;

  char *image_base_str = 0;

  prog_name = argv[0];

#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)

  setlocale (LC_MESSAGES, "");

#endif

#if defined (HAVE_SETLOCALE)

  setlocale (LC_CTYPE, "");

#endif

  bindtextdomain (PACKAGE, LOCALEDIR);

  textdomain (PACKAGE);

  expandargv (&argc, &argv);

  saved_argv = (char **) xmalloc (argc * sizeof (char*));

  dlltool_arg_indices = (int *) xmalloc (argc * sizeof (int));

  driver_arg_indices = (int *) xmalloc (argc * sizeof (int));

  for (i = 0; i < argc; ++i)

    {

      size_t len = strlen (argv[i]);

      char *arg = (char *) xmalloc (len + 1);

      strcpy (arg, argv[i]);

      cmdline_len += len;

      saved_argv[i] = arg;

      dlltool_arg_indices[i] = 0;

      driver_arg_indices[i] = 1;

    }

  cmdline_len++;

  /* We recognize dllwrap and dlltool options, and everything else is

     passed onto the language driver (eg., to GCC). We collect options

     to dlltool and driver in dlltool_args and driver_args.  */

  opterr = 0;