1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255 |
- /* dllwrap.c -- wrapper for DLLTOOL and GCC to generate PE style DLLs
- Copyright (C) 1998-2022 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. */
- #include "sysdep.h"
- #include "bfd.h"
- #include "libiberty.h"
- #include "getopt.h"
- #include "dyn-string.h"
- #include "bucomm.h"
- #include <time.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;
- /* -1: use default, 0: no underscoring, 1: underscore. */
- static int is_leading_underscore = -1;
- typedef enum {
- UNKNOWN_TARGET,
- CYGWIN_TARGET,
- MINGW_TARGET
- }
- target_type;
- typedef enum {
- UNKNOWN_CPU,
- X86_CPU,
- X64_CPU,
- ARM_CPU
- }
- target_cpu;
- static target_type which_target = UNKNOWN_TARGET;
- static target_cpu which_cpu = UNKNOWN_CPU;
- 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 (const char *message, ...)
- {
- va_list args;
- va_start (args, message);
- if (!verbose)
- return;
- display (message, args);
- va_end (args);
- }
- static void
- warn (const char *format, ...)
- {
- va_list args;
- va_start (args, format);
- display (format, args);
- va_end (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 *progname, const char *prefix, int end_prefix)
- {
- struct stat s;
- char *cmd;
- cmd = xmalloc (strlen (prefix)
- + strlen (progname)
- #ifdef HAVE_EXECUTABLE_SUFFIX
- + strlen (EXECUTABLE_SUFFIX)
- #endif
- + 10);
- strcpy (cmd, prefix);
- sprintf (cmd + end_prefix, "%s", progname);
- 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 = xmalloc (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);
- free (argv);
- 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 (_("pwait returns: %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, _(" --no-leading-underscore Entrypoint without underscore\n"));
- fprintf (file, _(" --leading-underscore Entrypoint with underscore.\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)
- #define OPTION_NO_LEADING_UNDERSCORE (OPTION_MNO_CYGWIN + 1)
- #define OPTION_LEADING_UNDERSCORE (OPTION_NO_LEADING_UNDERSCORE + 1)
- /* DLLTOOL options. */
- #define OPTION_NODELETE (OPTION_LEADING_UNDERSCORE + 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},
- {"no-leading-underscore", no_argument, NULL, OPTION_NO_LEADING_UNDERSCORE},
- {"leading-underscore", no_argument, NULL, OPTION_NO_LEADING_UNDERSCORE},
- /* 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];
- #ifdef HAVE_LC_MESSAGES
- setlocale (LC_MESSAGES, "");
- #endif
- setlocale (LC_CTYPE, "");
- bindtextdomain (PACKAGE, LOCALEDIR);
- textdomain (PACKAGE);
- warn (_("WARNING: %s is deprecated, use gcc -shared or ld -shared instead\n"),
- prog_name);
- 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;
- while ((c = getopt_long_only (argc, argv, "nkAqve:Uho:l:L:I:",
- long_options, (int *) 0)) != EOF)
- {
- int dlltool_arg;
- int driver_arg;
- int single_word_option_value_pair;
- dlltool_arg = 0;
- driver_arg = 1;
- single_word_option_value_pair = 0;
- if (c != '?')
- {
- /* We recognize this option, so it has to be either dllwrap or
- dlltool option. Do not pass to driver unless it's one of the
- generic options that are passed to all the tools (such as -v)
- which are dealt with later. */
- driver_arg = 0;
- }
- /* deal with generic and dllwrap options first. */
- switch (c)
- {
- case 'h':
- usage (stdout, 0);
- break;
- case 'q':
- verbose = 0;
- break;
- case 'v':
- verbose = 1;
- break;
- case OPTION_VERSION:
- print_version (prog_name);
- break;
- case 'e':
- entry_point = optarg;
- break;
- case OPTION_IMAGE_BASE:
- image_base_str = optarg;
- break;
- case OPTION_DEF:
- def_file_name = optarg;
- def_file_seen = 1;
- delete_def_file = 0;
- break;
- case 'n':
- dontdeltemps = 1;
- dlltool_arg = 1;
- break;
- case 'o':
- dll_file_name = optarg;
- break;
- case 'I':
- case 'l':
- case 'L':
- driver_arg = 1;
- break;
- case OPTION_DLLNAME:
- dll_name = optarg;
- break;
- case OPTION_DRY_RUN:
- dry_run = 1;
- break;
- case OPTION_DRIVER_NAME:
- driver_name = optarg;
- break;
- case OPTION_DRIVER_FLAGS:
- driver_flags = optarg;
- break;
- case OPTION_DLLTOOL_NAME:
- dlltool_name = optarg;
- break;
- case OPTION_TARGET:
- target = optarg;
- break;
- case OPTION_MNO_CYGWIN:
- target = "i386-mingw32";
- break;
- case OPTION_NO_LEADING_UNDERSCORE:
- is_leading_underscore = 0;
- break;
- case OPTION_LEADING_UNDERSCORE:
- is_leading_underscore = 1;
- break;
- case OPTION_BASE_FILE:
- base_file_name = optarg;
- delete_base_file = 0;
- break;
- case OPTION_OUTPUT_EXP:
- exp_file_name = optarg;
- delete_exp_file = 0;
- break;
- case OPTION_EXPORT_ALL_SYMS:
- export_all = 1;
- break;
- case OPTION_OUTPUT_LIB:
- output_lib_file_name = optarg;
- break;
- case '?':
- break;
- default:
- dlltool_arg = 1;
- break;
- }
- /* Handle passing through --option=value case. */
- if (optarg
- && saved_argv[optind-1][0] == '-'
- && saved_argv[optind-1][1] == '-'
- && strchr (saved_argv[optind-1], '='))
- single_word_option_value_pair = 1;
- if (dlltool_arg)
- {
- dlltool_arg_indices[optind-1] = 1;
- if (optarg && ! single_word_option_value_pair)
- {
- dlltool_arg_indices[optind-2] = 1;
- }
- }
- if (! driver_arg)
- {
- driver_arg_indices[optind-1] = 0;
- if (optarg && ! single_word_option_value_pair)
- {
- driver_arg_indices[optind-2] = 0;
- }
- }
- }
- /* Sanity checks. */
- if (! dll_name && ! dll_file_name)
- {
- warn (_("Must provide at least one of -o or --dllname options"));
- exit (1);
- }
- else if (! dll_name)
- {
- dll_name = xstrdup (mybasename (dll_file_name));
- }
- else if (! dll_file_name)
- {
- dll_file_name = xstrdup (dll_name);
- }
- /* Deduce driver-name and dlltool-name from our own. */
- if (driver_name == NULL)
- driver_name = deduce_name ("gcc");
- if (dlltool_name == NULL)
- dlltool_name = deduce_name ("dlltool");
- if (! def_file_seen)
- {
- char *fileprefix = choose_temp_base ();
- def_file_name = (char *) xmalloc (strlen (fileprefix) + 5);
- sprintf (def_file_name, "%s.def",
- (dontdeltemps) ? mybasename (fileprefix) : fileprefix);
- delete_def_file = 1;
- free (fileprefix);
- delete_def_file = 1;
- warn (_("no export definition file provided.\n\
- Creating one, but that may not be what you want"));
- }
- /* Set the target platform. */
- if (strstr (target, "cygwin"))
- which_target = CYGWIN_TARGET;
- else if (strstr (target, "mingw"))
- which_target = MINGW_TARGET;
- else
- which_target = UNKNOWN_TARGET;
- if (startswith (target, "arm"))
- which_cpu = ARM_CPU;
- else if (startswith (target, "x86_64")
- || startswith (target, "athlon64")
- || startswith (target, "amd64"))
- which_cpu = X64_CPU;
- else if (target[0] == 'i' && (target[1] >= '3' && target[1] <= '6')
- && target[2] == '8' && target[3] == '6')
- which_cpu = X86_CPU;
- else
- which_cpu = UNKNOWN_CPU;
- if (is_leading_underscore == -1)
- is_leading_underscore = (which_cpu != X64_CPU && which_cpu != ARM_CPU);
- /* Re-create the command lines as a string, taking care to quote stuff. */
- dlltool_cmdline = dyn_string_new (cmdline_len);
- if (verbose)
- dyn_string_append_cstr (dlltool_cmdline, " -v");
- dyn_string_append_cstr (dlltool_cmdline, " --dllname ");
- dyn_string_append_cstr (dlltool_cmdline, dll_name);
- for (i = 1; i < argc; ++i)
- {
- if (dlltool_arg_indices[i])
- {
- char *arg = saved_argv[i];
- int quote = (strchr (arg, ' ') || strchr (arg, '\t'));
- dyn_string_append_cstr (dlltool_cmdline,
- (quote) ? " \"" : " ");
- dyn_string_append_cstr (dlltool_cmdline, arg);
- dyn_string_append_cstr (dlltool_cmdline,
- (quote) ? "\"" : "");
- }
- }
- driver_cmdline = dyn_string_new (cmdline_len);
- if (! driver_flags || strlen (driver_flags) == 0)
- {
- switch (which_target)
- {
- case CYGWIN_TARGET:
- driver_flags = cygwin_driver_flags;
- break;
- case MINGW_TARGET:
- driver_flags = mingw32_driver_flags;
- break;
- default:
- driver_flags = generic_driver_flags;
- break;
- }
- }
- dyn_string_append_cstr (driver_cmdline, driver_flags);
- dyn_string_append_cstr (driver_cmdline, " -o ");
- dyn_string_append_cstr (driver_cmdline, dll_file_name);
- if (is_leading_underscore == 0)
- dyn_string_append_cstr (driver_cmdline, " --no-leading-underscore");
- else if (is_leading_underscore == 1)
- dyn_string_append_cstr (driver_cmdline, " --leading-underscore");
- if (! entry_point || strlen (entry_point) == 0)
- {
- const char *prefix = (is_leading_underscore != 0 ? "_" : "");
- const char *postfix = "";
- const char *name_entry;
- if (which_cpu == X86_CPU || which_cpu == UNKNOWN_CPU)
- postfix = "@12";
- switch (which_target)
- {
- case CYGWIN_TARGET:
- name_entry = "_cygwin_dll_entry";
- break;
- case MINGW_TARGET:
- name_entry = "DllMainCRTStartup";
- break;
- default:
- name_entry = "DllMain";
- break;
- }
- entry_point =
- (char *) malloc (strlen (name_entry) + strlen (prefix)
- + strlen (postfix) + 1);
- sprintf (entry_point, "%s%s%s", prefix, name_entry, postfix);
- }
- dyn_string_append_cstr (driver_cmdline, " -Wl,-e,");
- dyn_string_append_cstr (driver_cmdline, entry_point);
- dyn_string_append_cstr (dlltool_cmdline, " --exclude-symbol=");
- dyn_string_append_cstr (dlltool_cmdline,
- (entry_point[0] == '_') ? entry_point+1 : entry_point);
- if (! image_base_str || strlen (image_base_str) == 0)
- {
- char *tmpbuf = (char *) xmalloc (sizeof ("0x12345678") + 1);
- unsigned long hash = strhash (dll_file_name);
- sprintf (tmpbuf, "0x%.8lX", 0x60000000|((hash<<16)&0xFFC0000));
- image_base_str = tmpbuf;
- }
- dyn_string_append_cstr (driver_cmdline, " -Wl,--image-base,");
- dyn_string_append_cstr (driver_cmdline, image_base_str);
- if (verbose)
- {
- dyn_string_append_cstr (driver_cmdline, " -v");
- }
- for (i = 1; i < argc; ++i)
- {
- if (driver_arg_indices[i])
- {
- char *arg = saved_argv[i];
- int quote = (strchr (arg, ' ') || strchr (arg, '\t'));
- dyn_string_append_cstr (driver_cmdline,
- (quote) ? " \"" : " ");
- dyn_string_append_cstr (driver_cmdline, arg);
- dyn_string_append_cstr (driver_cmdline,
- (quote) ? "\"" : "");
- }
- }
- /* Step pre-1. If no --def <EXPORT_DEF> is specified,
- then create it and then pass it on. */
- if (! def_file_seen)
- {
- dyn_string_t step_pre1;
- step_pre1 = dyn_string_new (1024);
- dyn_string_append_cstr (step_pre1, dlltool_cmdline->s);
- if (export_all)
- {
- dyn_string_append_cstr (step_pre1, " --export-all --exclude-symbol=");
- dyn_string_append_cstr (step_pre1,
- "_cygwin_dll_entry@12,DllMainCRTStartup@12,DllMain@12,DllEntryPoint@12");
- }
- dyn_string_append_cstr (step_pre1, " --output-def ");
- dyn_string_append_cstr (step_pre1, def_file_name);
- for (i = 1; i < argc; ++i)
- {
- if (driver_arg_indices[i])
- {
- char *arg = saved_argv[i];
- size_t len = strlen (arg);
- if (len >= 2 && arg[len-2] == '.'
- && (arg[len-1] == 'o' || arg[len-1] == 'a'))
- {
- int quote = (strchr (arg, ' ') || strchr (arg, '\t'));
- dyn_string_append_cstr (step_pre1,
- (quote) ? " \"" : " ");
- dyn_string_append_cstr (step_pre1, arg);
- dyn_string_append_cstr (step_pre1,
- (quote) ? "\"" : "");
- }
- }
- }
- if (run (dlltool_name, step_pre1->s))
- cleanup_and_exit (1);
- dyn_string_delete (step_pre1);
- }
- dyn_string_append_cstr (dlltool_cmdline, " --def ");
- dyn_string_append_cstr (dlltool_cmdline, def_file_name);
- if (verbose)
- {
- fprintf (stderr, _("DLLTOOL name : %s\n"), dlltool_name);
- fprintf (stderr, _("DLLTOOL options : %s\n"), dlltool_cmdline->s);
- fprintf (stderr, _("DRIVER name : %s\n"), driver_name);
- fprintf (stderr, _("DRIVER options : %s\n"), driver_cmdline->s);
- }
- /* Step 1. Call GCC/LD to create base relocation file. If using GCC, the
- driver command line will look like the following:
- % gcc -Wl,--dll --Wl,--base-file,foo.base [rest of command line]
- If the user does not specify a base name, create temporary one that
- is deleted at exit. */
- if (! base_file_name)
- {
- char *fileprefix = choose_temp_base ();
- base_file_name = (char *) xmalloc (strlen (fileprefix) + 6);
- sprintf (base_file_name, "%s.base",
- (dontdeltemps) ? mybasename (fileprefix) : fileprefix);
- delete_base_file = 1;
- free (fileprefix);
- }
- {
- int quote;
- dyn_string_t step1 = dyn_string_new (driver_cmdline->length
- + strlen (base_file_name)
- + 20);
- dyn_string_append_cstr (step1, "-Wl,--base-file,");
- quote = (strchr (base_file_name, ' ')
- || strchr (base_file_name, '\t'));
- dyn_string_append_cstr (step1,
- (quote) ? "\"" : "");
- dyn_string_append_cstr (step1, base_file_name);
- dyn_string_append_cstr (step1,
- (quote) ? "\"" : "");
- if (driver_cmdline->length)
- {
- dyn_string_append_cstr (step1, " ");
- dyn_string_append_cstr (step1, driver_cmdline->s);
- }
- if (run (driver_name, step1->s))
- cleanup_and_exit (1);
- dyn_string_delete (step1);
- }
- /* Step 2. generate the exp file by running dlltool.
- dlltool command line will look like the following:
- % dlltool -Wl,--dll --Wl,--base-file,foo.base [rest of command line]
- If the user does not specify a base name, create temporary one that
- is deleted at exit. */
- if (! exp_file_name)
- {
- char *p = strrchr (dll_name, '.');
- size_t prefix_len = (p) ? (size_t) (p - dll_name) : strlen (dll_name);
- exp_file_name = (char *) xmalloc (prefix_len + 4 + 1);
- strncpy (exp_file_name, dll_name, prefix_len);
- exp_file_name[prefix_len] = '\0';
- strcat (exp_file_name, ".exp");
- delete_exp_file = 1;
- }
- {
- int quote;
- dyn_string_t step2 = dyn_string_new (dlltool_cmdline->length
- + strlen (base_file_name)
- + strlen (exp_file_name)
- + 20);
- dyn_string_append_cstr (step2, "--base-file ");
- quote = (strchr (base_file_name, ' ')
- || strchr (base_file_name, '\t'));
- dyn_string_append_cstr (step2,
- (quote) ? "\"" : "");
- dyn_string_append_cstr (step2, base_file_name);
- dyn_string_append_cstr (step2,
- (quote) ? "\" " : " ");
- dyn_string_append_cstr (step2, "--output-exp ");
- quote = (strchr (exp_file_name, ' ')
- || strchr (exp_file_name, '\t'));
- dyn_string_append_cstr (step2,
- (quote) ? "\"" : "");
- dyn_string_append_cstr (step2, exp_file_name);
- dyn_string_append_cstr (step2,
- (quote) ? "\"" : "");
- if (dlltool_cmdline->length)
- {
- dyn_string_append_cstr (step2, " ");
- dyn_string_append_cstr (step2, dlltool_cmdline->s);
- }
- if (run (dlltool_name, step2->s))
- cleanup_and_exit (1);
- dyn_string_delete (step2);
- }
- /*
- * Step 3. Call GCC/LD to again, adding the exp file this time.
- * driver command line will look like the following:
- *
- * % gcc -Wl,--dll --Wl,--base-file,foo.base foo.exp [rest ...]
- */
- {
- int quote;
- dyn_string_t step3 = dyn_string_new (driver_cmdline->length
- + strlen (exp_file_name)
- + strlen (base_file_name)
- + 20);
- dyn_string_append_cstr (step3, "-Wl,--base-file,");
- quote = (strchr (base_file_name, ' ')
- || strchr (base_file_name, '\t'));
- dyn_string_append_cstr (step3,
- (quote) ? "\"" : "");
- dyn_string_append_cstr (step3, base_file_name);
- dyn_string_append_cstr (step3,
- (quote) ? "\" " : " ");
- quote = (strchr (exp_file_name, ' ')
- || strchr (exp_file_name, '\t'));
- dyn_string_append_cstr (step3,
- (quote) ? "\"" : "");
- dyn_string_append_cstr (step3, exp_file_name);
- dyn_string_append_cstr (step3,
- (quote) ? "\"" : "");
- if (driver_cmdline->length)
- {
- dyn_string_append_cstr (step3, " ");
- dyn_string_append_cstr (step3, driver_cmdline->s);
- }
- if (run (driver_name, step3->s))
- cleanup_and_exit (1);
- dyn_string_delete (step3);
- }
- /*
- * Step 4. Run DLLTOOL again using the same command line.
- */
- {
- int quote;
- dyn_string_t step4 = dyn_string_new (dlltool_cmdline->length
- + strlen (base_file_name)
- + strlen (exp_file_name)
- + 20);
- dyn_string_append_cstr (step4, "--base-file ");
- quote = (strchr (base_file_name, ' ')
- || strchr (base_file_name, '\t'));
- dyn_string_append_cstr (step4,
- (quote) ? "\"" : "");
- dyn_string_append_cstr (step4, base_file_name);
- dyn_string_append_cstr (step4,
- (quote) ? "\" " : " ");
- dyn_string_append_cstr (step4, "--output-exp ");
- quote = (strchr (exp_file_name, ' ')
- || strchr (exp_file_name, '\t'));
- dyn_string_append_cstr (step4,
- (quote) ? "\"" : "");
- dyn_string_append_cstr (step4, exp_file_name);
- dyn_string_append_cstr (step4,
- (quote) ? "\"" : "");
- if (dlltool_cmdline->length)
- {
- dyn_string_append_cstr (step4, " ");
- dyn_string_append_cstr (step4, dlltool_cmdline->s);
- }
- if (output_lib_file_name)
- {
- dyn_string_append_cstr (step4, " --output-lib ");
- dyn_string_append_cstr (step4, output_lib_file_name);
- }
- if (run (dlltool_name, step4->s))
- cleanup_and_exit (1);
- dyn_string_delete (step4);
- }
- /*
- * Step 5. Link it all together and be done with it.
- * driver command line will look like the following:
- *
- * % gcc -Wl,--dll foo.exp [rest ...]
- *
- */
- {
- int quote;
- dyn_string_t step5 = dyn_string_new (driver_cmdline->length
- + strlen (exp_file_name)
- + 20);
- quote = (strchr (exp_file_name, ' ')
- || strchr (exp_file_name, '\t'));
- dyn_string_append_cstr (step5,
- (quote) ? "\"" : "");
- dyn_string_append_cstr (step5, exp_file_name);
- dyn_string_append_cstr (step5,
- (quote) ? "\"" : "");
- if (driver_cmdline->length)
- {
- dyn_string_append_cstr (step5, " ");
- dyn_string_append_cstr (step5, driver_cmdline->s);
- }
- if (run (driver_name, step5->s))
- cleanup_and_exit (1);
- dyn_string_delete (step5);
- }
- cleanup_and_exit (0);
- return 0;
- }
|