]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - binutils/dllwrap.c
projects / thirdparty / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
From 2000-03-27 Peter Schauer <pes@regent.e-technik.tu-muenchen.de>:
[thirdparty/binutils-gdb.git] / binutils / dllwrap.c
CommitLineData
252b5132 1/* dllwrap.c -- wrapper for DLLTOOL and GCC to generate PE style DLLs
087f88b2 2 Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
252b5132
RH		 3 Contributed by Mumit Khan (khan@xraylith.wisc.edu).
4
5 This file is part of GNU Binutils.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA. */
21
22/* AIX requires this to be the first thing in the file. */
23#ifndef __GNUC__
24# ifdef _AIX
25 #pragma alloca
26#endif
27#endif
28
252b5132
RH		 29#ifdef HAVE_CONFIG_H
30#include "config.h"
31#endif
32
252b5132
RH		 33#include "bfd.h"
34#include "libiberty.h"
35#include "bucomm.h"
36#include "getopt.h"
37#include "dyn-string.h"
38
39#include <ctype.h>
40#include <time.h>
bb0cb4db
ILT		 41#include <sys/stat.h>
42
43#ifdef ANSI_PROTOTYPES
44#include <stdarg.h>
45#else
46#include <varargs.h>
47#endif
252b5132
RH		 48
49#ifdef HAVE_SYS_WAIT_H
50#include <sys/wait.h>
51#else /* ! HAVE_SYS_WAIT_H */
52#if ! defined (_WIN32) || defined (__CYGWIN32__)
53#ifndef WIFEXITED
54#define WIFEXITED(w) (((w)&0377) == 0)
55#endif
56#ifndef WIFSIGNALED
57#define WIFSIGNALED(w) (((w)&0377) != 0177 && ((w)&~0377) == 0)
58#endif
59#ifndef WTERMSIG
60#define WTERMSIG(w) ((w) & 0177)
61#endif
62#ifndef WEXITSTATUS
63#define WEXITSTATUS(w) (((w) >> 8) & 0377)
64#endif
65#else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
66#ifndef WIFEXITED
67#define WIFEXITED(w) (((w) & 0xff) == 0)
68#endif
69#ifndef WIFSIGNALED
70#define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
71#endif
72#ifndef WTERMSIG
73#define WTERMSIG(w) ((w) & 0x7f)
74#endif
75#ifndef WEXITSTATUS
76#define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
77#endif
78#endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
79#endif /* ! HAVE_SYS_WAIT_H */
80
81static char *program_version = "0.2.4";
bb0cb4db 82static char *driver_name = NULL;
252b5132
RH		 83static char *cygwin_driver_flags =
84 "-Wl,--dll -nostartfiles";
85static char *mingw32_driver_flags = "-mdll";
86static char *generic_driver_flags = "-Wl,--dll";
87
88static char *entry_point;
89
bb0cb4db 90static char *dlltool_name = NULL;
252b5132
RH		 91
92static char *target = TARGET;
93
94typedef enum {
95 UNKNOWN_TARGET,
96 CYGWIN_TARGET,
087f88b2 97 MINGW_TARGET
252b5132
RH		 98}
99target_type;
100
101static target_type which_target = UNKNOWN_TARGET;
102
103static int dontdeltemps = 0;
104static int dry_run = 0;
105
106static char *program_name;
107
108static int verbose = 0;
109
110static char *dll_file_name;
111static char *dll_name;
112static char *base_file_name;
113static char *exp_file_name;
114static char *def_file_name;
115static int delete_base_file = 1;
116static int delete_exp_file = 1;
117static int delete_def_file = 1;
118
119static int run PARAMS ((const char *, char *));
120static void usage PARAMS ((FILE *, int));
bb0cb4db
ILT		 121static void display PARAMS ((const char *, va_list));
122static void inform PARAMS ((const char *, ...));
123static char *look_for_prog PARAMS ((const char *, const char *, int));
124static char *deduce_name PARAMS ((const char *));
252b5132
RH		 125static void delete_temp_files PARAMS ((void));
126static void cleanup_and_exit PARAMS ((int status));
127
128/**********************************************************************/
129
bb0cb4db
ILT		 130/* Please keep the following 4 routines in sync with dlltool.c:
131 display ()
132 inform ()
133 look_for_prog ()
134 deduce_name ()
135 It's not worth the hassle to break these out since dllwrap will
136 (hopefully) soon be retired in favor of `ld --shared. */
137
138static void
139display (message, args)
140 const char * message;
141 va_list args;
142{
143 if (program_name != NULL)
144 fprintf (stderr, "%s: ", program_name);
145
146 vfprintf (stderr, message, args);
147
148 if (message [strlen (message) - 1] != '\n')
149 fputc ('\n', stderr);
150}
151
152
153static void
154#ifdef __STDC__
155inform (const char * message, ...)
156#else
157inform (message, va_alist)
158 const char * message;
159 va_dcl
160#endif
161{
162 va_list args;
163
164 if (!verbose)
165 return;
166
167#ifdef __STDC__
168 va_start (args, message);
169#else
170 va_start (args);
171#endif
172
173 display (message, args);
174
175 va_end (args);
176}
177
178/* Look for the program formed by concatenating PROG_NAME and the
179 string running from PREFIX to END_PREFIX. If the concatenated
180 string contains a '/', try appending EXECUTABLE_SUFFIX if it is
2481e6a2 181 appropriate. */
bb0cb4db
ILT		 182
183static char *
184look_for_prog (prog_name, prefix, end_prefix)
185 const char *prog_name;
186 const char *prefix;
187 int end_prefix;
188{
189 struct stat s;
190 char *cmd;
191
192 cmd = xmalloc (strlen (prefix)
193 + strlen (prog_name)
2481e6a2 194#ifdef HAVE_EXECUTABLE_SUFFIX
bb0cb4db
ILT		 195 + strlen (EXECUTABLE_SUFFIX)
196#endif
197 + 10);
198 strcpy (cmd, prefix);
199
200 sprintf (cmd + end_prefix, "%s", prog_name);
201
202 if (strchr (cmd, '/') != NULL)
203 {
204 int found;
205
206 found = (stat (cmd, &s) == 0
2481e6a2 207#ifdef HAVE_EXECUTABLE_SUFFIX
bb0cb4db
ILT		 208 || stat (strcat (cmd, EXECUTABLE_SUFFIX), &s) == 0
209#endif
210 );
211
212 if (! found)
213 {
214 /* xgettext:c-format */
215 inform (_("Tried file: %s"), cmd);
216 free (cmd);
217 return NULL;
218 }
219 }
220
221 /* xgettext:c-format */
222 inform (_("Using file: %s"), cmd);
223
224 return cmd;
225}
226
227/* Deduce the name of the program we are want to invoke.
228 PROG_NAME is the basic name of the program we want to run,
229 eg "as" or "ld". The catch is that we might want actually
230 run "i386-pe-as" or "ppc-pe-ld".
231
232 If argv[0] contains the full path, then try to find the program
233 in the same place, with and then without a target-like prefix.
234
235 Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
236 deduce_name("as") uses the following search order:
237
238 /usr/local/bin/i586-cygwin32-as
239 /usr/local/bin/as
240 as
241
242 If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
243 name, it'll try without and then with EXECUTABLE_SUFFIX.
244
245 Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
246 as the fallback, but rather return i586-cygwin32-as.
247
248 Oh, and given, argv[0] = dlltool, it'll return "as".
249
250 Returns a dynamically allocated string. */
251
252static char *
253deduce_name (prog_name)
254 const char *prog_name;
255{
256 char *cmd;
257 char *dash, *slash, *cp;
258
259 dash = NULL;
260 slash = NULL;
261 for (cp = program_name; *cp != '\0'; ++cp)
262 {
263 if (*cp == '-')
264 dash = cp;
265 if (
266#if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
267 *cp == ':' || *cp == '\\' ||
268#endif
269 *cp == '/')
270 {
271 slash = cp;
272 dash = NULL;
273 }
274 }
275
276 cmd = NULL;
277
278 if (dash != NULL)
279 {
280 /* First, try looking for a prefixed PROG_NAME in the
281 PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
282 cmd = look_for_prog (prog_name, program_name, dash - program_name + 1);
283 }
284
285 if (slash != NULL && cmd == NULL)
286 {
287 /* Next, try looking for a PROG_NAME in the same directory as
288 that of this program. */
289 cmd = look_for_prog (prog_name, program_name, slash - program_name + 1);
290 }
291
292 if (cmd == NULL)
293 {
294 /* Just return PROG_NAME as is. */
295 cmd = xstrdup (prog_name);
296 }
297
298 return cmd;
299}
300
252b5132
RH		 301static void
302delete_temp_files ()
303{
304 if (delete_base_file && base_file_name)
305 {
306 if (verbose)
307 fprintf (stderr, "%s temporary base file %s\n",
308 dontdeltemps ? "Keeping" : "Deleting",
309 base_file_name);
310 if (! dontdeltemps)
311 {
312 unlink (base_file_name);
313 free (base_file_name);
314 }
315 }
316
317 if (delete_exp_file && exp_file_name)
318 {
319 if (verbose)
320 fprintf (stderr, "%s temporary exp file %s\n",
321 dontdeltemps ? "Keeping" : "Deleting",
322 exp_file_name);
323 if (! dontdeltemps)
324 {
325 unlink (exp_file_name);
326 free (exp_file_name);
327 }
328 }
329 if (delete_def_file && def_file_name)
330 {
331 if (verbose)
332 fprintf (stderr, "%s temporary def file %s\n",
333 dontdeltemps ? "Keeping" : "Deleting",
334 def_file_name);
335 if (! dontdeltemps)
336 {
337 unlink (def_file_name);
338 free (def_file_name);
339 }
340 }
341}
342
343static void
344cleanup_and_exit (int status)
345{
346 delete_temp_files ();
347 exit (status);
348}
349
350static int
351run (what, args)
352 const char *what;
353 char *args;
354{
355 char *s;
356 int pid, wait_status, retcode;
357 int i;
358 const char **argv;
359 char *errmsg_fmt, *errmsg_arg;
360 char *temp_base = choose_temp_base ();
361 int in_quote;
362 char sep;
363
364 if (verbose || dry_run)
365 fprintf (stderr, "%s %s\n", what, args);
366
367 /* Count the args */
368 i = 0;
369 for (s = args; *s; s++)
370 if (*s == ' ')
371 i++;
372 i++;
373 argv = alloca (sizeof (char *) * (i + 3));
374 i = 0;
375 argv[i++] = what;
376 s = args;
377 while (1)
378 {
379 while (*s == ' ' && *s != 0)
380 s++;
381 if (*s == 0)
382 break;
383 in_quote = (*s == '\'' || *s == '"');
384 sep = (in_quote) ? *s++ : ' ';
385 argv[i++] = s;
386 while (*s != sep && *s != 0)
387 s++;
388 if (*s == 0)
389 break;
390 *s++ = 0;
391 if (in_quote)
392 s++;
393 }
394 argv[i++] = NULL;
395
396 if (dry_run)
397 return 0;
398
399 pid = pexecute (argv[0], (char * const *) argv, program_name, temp_base,
400 &errmsg_fmt, &errmsg_arg, PEXECUTE_ONE | PEXECUTE_SEARCH);
401
402 if (pid == -1)
403 {
404 int errno_val = errno;
405
406 fprintf (stderr, "%s: ", program_name);
407 fprintf (stderr, errmsg_fmt, errmsg_arg);
408 fprintf (stderr, ": %s\n", strerror (errno_val));
409 return 1;
410 }
411
412 retcode = 0;
413 pid = pwait (pid, &wait_status, 0);
414 if (pid == -1)
415 {
416 fprintf (stderr, "%s: wait: %s\n", program_name, strerror (errno));
417 retcode = 1;
418 }
419 else if (WIFSIGNALED (wait_status))
420 {
421 fprintf (stderr, "%s: subprocess got fatal signal %d\n",
422 program_name, WTERMSIG (wait_status));
423 retcode = 1;
424 }
425 else if (WIFEXITED (wait_status))
426 {
427 if (WEXITSTATUS (wait_status) != 0)
428 {
429 fprintf (stderr, "%s: %s exited with status %d\n",
430 program_name, what, WEXITSTATUS (wait_status));
431 retcode = 1;
432 }
433 }
434 else
435 retcode = 1;
436
437 return retcode;
438}
439
440static char *
441mybasename (name)
442 const char *name;
443{
444 const char *base = name;
445
446 while (*name)
447 {
448 if (*name == '/' || *name == '\\')
449 {
450 base = name + 1;
451 }
452 ++name;
453 }
454 return (char *) base;
455}
456
457static int
458strhash (const char *str)
459{
460 const unsigned char *s;
461 unsigned long hash;
462 unsigned int c;
463 unsigned int len;
464
465 hash = 0;
466 len = 0;
467 s = (const unsigned char *) str;
468 while ((c = *s++) != '\0')
469 {
470 hash += c + (c << 17);
471 hash ^= hash >> 2;
472 ++len;
473 }
474 hash += len + (len << 17);
475 hash ^= hash >> 2;
476
477 return hash;
478}
479
480/**********************************************************************/
481
482void
483print_version (name)
484 const char *name;
485{
486 /* This output is intended to follow the GNU standards document. */
487 /* xgettext:c-format */
488 printf ("GNU %s %s\n", name, program_version);
489 printf ("Copyright 1998 Free Software Foundation, Inc.\n");
490 printf ("\
491This program is free software; you may redistribute it under the terms of\n\
492the GNU General Public License. This program has absolutely no warranty.\n");
493 exit (0);
494}
495
496static void
497usage (file, status)
498 FILE *file;
499 int status;
500{
501 fprintf (file, "Usage %s <options> <object-files>\n", program_name);
502 fprintf (file, " Generic options:\n");
503 fprintf (file, " --quiet, -q Work quietly\n");
504 fprintf (file, " --verbose, -v Verbose\n");
505 fprintf (file, " --version Print dllwrap version\n");
506 fprintf (file, " --implib <outname> Synonym for --output-lib\n");
507 fprintf (file, " Options for %s:\n", program_name);
508 fprintf (file, " --driver-name <driver> Defaults to \"gcc\"\n");
509 fprintf (file, " --driver-flags <flags> Override default ld flags\n");
510 fprintf (file, " --dlltool-name <dlltool> Defaults to \"dlltool\"\n");
511 fprintf (file, " --entry <entry> Specify alternate DLL entry point\n");
512 fprintf (file, " --image-base <base> Specify image base address\n");
513 fprintf (file, " --target <machine> i386-cygwin32 or i386-mingw32\n");
514 fprintf (file, " --dry-run Show what needs to be run\n");
bb0cb4db 515 fprintf (file, " --mno-cygwin Create Mingw DLL\n");
252b5132
RH		 516 fprintf (file, " Options passed to DLLTOOL:\n");
517 fprintf (file, " --machine <machine>\n");
518 fprintf (file, " --output-exp <outname> Generate export file.\n");
519 fprintf (file, " --output-lib <outname> Generate input library.\n");
520 fprintf (file, " --add-indirect Add dll indirects to export file.\n");
521 fprintf (file, " --dllname <name> Name of input dll to put into output lib.\n");
522 fprintf (file, " --def <deffile> Name input .def file\n");
523 fprintf (file, " --output-def <deffile> Name output .def file\n");
524 fprintf (file, " --export-all-symbols Export all symbols to .def\n");
525 fprintf (file, " --no-export-all-symbols Only export .drectve symbols\n");
526 fprintf (file, " --exclude-symbols <list> Exclude <list> from .def\n");
527 fprintf (file, " --no-default-excludes Zap default exclude symbols\n");
528 fprintf (file, " --base-file <basefile> Read linker generated base file\n");
529 fprintf (file, " --no-idata4 Don't generate idata$4 section\n");
530 fprintf (file, " --no-idata5 Don't generate idata$5 section\n");
531 fprintf (file, " -U Add underscores to .lib\n");
532 fprintf (file, " -k Kill @<n> from exported names\n");
533 fprintf (file, " --add-stdcall-alias Add aliases without @<n>\n");
534 fprintf (file, " --as <name> Use <name> for assembler\n");
535 fprintf (file, " --nodelete Keep temp files.\n");
536 fprintf (file, " Rest are passed unmodified to the language driver\n");
537 fprintf (file, "\n\n");
538 exit (status);
539}
540
541#define OPTION_START 149
542
543/* GENERIC options. */
544#define OPTION_QUIET (OPTION_START + 1)
545#define OPTION_VERBOSE (OPTION_QUIET + 1)
546#define OPTION_VERSION (OPTION_VERBOSE + 1)
547
548/* DLLWRAP options. */
549#define OPTION_DRY_RUN (OPTION_VERSION + 1)
550#define OPTION_DRIVER_NAME (OPTION_DRY_RUN + 1)
551#define OPTION_DRIVER_FLAGS (OPTION_DRIVER_NAME + 1)
552#define OPTION_DLLTOOL_NAME (OPTION_DRIVER_FLAGS + 1)
553#define OPTION_ENTRY (OPTION_DLLTOOL_NAME + 1)
554#define OPTION_IMAGE_BASE (OPTION_ENTRY + 1)
555#define OPTION_TARGET (OPTION_IMAGE_BASE + 1)
bb0cb4db 556#define OPTION_MNO_CYGWIN (OPTION_TARGET + 1)
252b5132
RH		 557
558/* DLLTOOL options. */
bb0cb4db 559#define OPTION_NODELETE (OPTION_MNO_CYGWIN + 1)
252b5132
RH		 560#define OPTION_DLLNAME (OPTION_NODELETE + 1)
561#define OPTION_NO_IDATA4 (OPTION_DLLNAME + 1)
562#define OPTION_NO_IDATA5 (OPTION_NO_IDATA4 + 1)
563#define OPTION_OUTPUT_EXP (OPTION_NO_IDATA5 + 1)
564#define OPTION_OUTPUT_DEF (OPTION_OUTPUT_EXP + 1)
565#define OPTION_EXPORT_ALL_SYMS (OPTION_OUTPUT_DEF + 1)
566#define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
567#define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
568#define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
569#define OPTION_OUTPUT_LIB (OPTION_NO_DEFAULT_EXCLUDES + 1)
570#define OPTION_DEF (OPTION_OUTPUT_LIB + 1)
571#define OPTION_ADD_UNDERSCORE (OPTION_DEF + 1)
572#define OPTION_KILLAT (OPTION_ADD_UNDERSCORE + 1)
573#define OPTION_HELP (OPTION_KILLAT + 1)
574#define OPTION_MACHINE (OPTION_HELP + 1)
575#define OPTION_ADD_INDIRECT (OPTION_MACHINE + 1)
576#define OPTION_BASE_FILE (OPTION_ADD_INDIRECT + 1)
577#define OPTION_AS (OPTION_BASE_FILE + 1)
578
579static const struct option long_options[] =
580{
581 /* generic options. */
582 {"quiet", no_argument, NULL, 'q'},
583 {"verbose", no_argument, NULL, 'v'},
584 {"version", no_argument, NULL, OPTION_VERSION},
585 {"implib", required_argument, NULL, OPTION_OUTPUT_LIB},
586
587 /* dllwrap options. */
588 {"dry-run", no_argument, NULL, OPTION_DRY_RUN},
589 {"driver-name", required_argument, NULL, OPTION_DRIVER_NAME},
590 {"driver-flags", required_argument, NULL, OPTION_DRIVER_FLAGS},
591 {"dlltool-name", required_argument, NULL, OPTION_DLLTOOL_NAME},
592 {"entry", required_argument, NULL, 'e'},
593 {"image-base", required_argument, NULL, OPTION_IMAGE_BASE},
594 {"target", required_argument, NULL, OPTION_TARGET},
595
596 /* dlltool options. */
597 {"no-delete", no_argument, NULL, 'n'},
598 {"dllname", required_argument, NULL, OPTION_DLLNAME},
599 {"no-idata4", no_argument, NULL, OPTION_NO_IDATA4},
600 {"no-idata5", no_argument, NULL, OPTION_NO_IDATA5},
601 {"output-exp", required_argument, NULL, OPTION_OUTPUT_EXP},
602 {"output-def", required_argument, NULL, OPTION_OUTPUT_DEF},
603 {"export-all-symbols", no_argument, NULL, OPTION_EXPORT_ALL_SYMS},
604 {"no-export-all-symbols", no_argument, NULL, OPTION_NO_EXPORT_ALL_SYMS},
605 {"exclude-symbols", required_argument, NULL, OPTION_EXCLUDE_SYMS},
606 {"no-default-excludes", no_argument, NULL, OPTION_NO_DEFAULT_EXCLUDES},
607 {"output-lib", required_argument, NULL, OPTION_OUTPUT_LIB},
608 {"def", required_argument, NULL, OPTION_DEF},
609 {"add-underscore", no_argument, NULL, 'U'},
610 {"killat", no_argument, NULL, 'k'},
611 {"add-stdcall-alias", no_argument, NULL, 'A'},
612 {"help", no_argument, NULL, 'h'},
613 {"machine", required_argument, NULL, OPTION_MACHINE},
614 {"add-indirect", no_argument, NULL, OPTION_ADD_INDIRECT},
615 {"base-file", required_argument, NULL, OPTION_BASE_FILE},
616 {"as", required_argument, NULL, OPTION_AS},
617 {0}
618};
619
620int
621main (argc, argv)
622 int argc;
623 char **argv;
624{
625 int c;
626 int i;
627
628 char **saved_argv = 0;
629 int cmdline_len = 0;
630
631 int export_all = 0;
632
633 int *dlltool_arg_indices;
634 int *driver_arg_indices;
635
636 char *driver_flags = 0;
637 char *output_lib_file_name = 0;
638
639 dyn_string_t dlltool_cmdline;
640 dyn_string_t driver_cmdline;
641
642 int def_file_seen = 0;
643
644 char *image_base_str = 0;
645
646 program_name = argv[0];
647
648 saved_argv = (char **) xmalloc (argc * sizeof (char*));
649 dlltool_arg_indices = (int *) xmalloc (argc * sizeof (int));
650 driver_arg_indices = (int *) xmalloc (argc * sizeof (int));
651 for (i = 0; i < argc; ++i)
652 {
653 size_t len = strlen (argv[i]);
654 char *arg = (char *) xmalloc (len + 1);
655 strcpy (arg, argv[i]);
656 cmdline_len += len;
657 saved_argv[i] = arg;
658 dlltool_arg_indices[i] = 0;
659 driver_arg_indices[i] = 1;
660 }
661 cmdline_len++;
662
663 /* We recognize dllwrap and dlltool options, and everything else is
664 passed onto the language driver (eg., to GCC). We collect options
665 to dlltool and driver in dlltool_args and driver_args. */
666
667 opterr = 0;
668 while ((c = getopt_long_only (argc, argv, "nkAqve:Uho:l:L:I:",
669 long_options, (int *) 0)) != EOF)
670 {
671 int dlltool_arg;
672 int driver_arg;
673 int single_word_option_value_pair;
674
675 dlltool_arg = 0;
676 driver_arg = 1;
677 single_word_option_value_pair = 0;
678
679 if (c != '?')
680 {
681 /* We recognize this option, so it has to be either dllwrap or
682 dlltool option. Do not pass to driver unless it's one of the
683 generic options that are passed to all the tools (such as -v)
684 which are dealt with later. */
685 driver_arg = 0;
686 }
687
688 /* deal with generic and dllwrap options first. */
689 switch (c)
690 {
691 case 'h':
692 usage (stdout, 0);
693 break;
694 case 'q':
695 verbose = 0;
696 break;
697 case 'v':
698 verbose = 1;
699 break;
700 case OPTION_VERSION:
701 print_version (program_name);
702 break;
703 case 'e':
704 entry_point = optarg;
705 break;
706 case OPTION_IMAGE_BASE:
707 image_base_str = optarg;
708 break;
709 case OPTION_DEF:
710 def_file_name = optarg;
711 def_file_seen = 1;
712 delete_def_file = 0;
713 break;
714 case 'n':
715 dontdeltemps = 1;
716 dlltool_arg = 1;
717 break;
718 case 'o':
719 dll_file_name = optarg;
720 break;
721 case 'I':
722 case 'l':
723 case 'L':
724 driver_arg = 1;
725 break;
726 case OPTION_DLLNAME:
727 dll_name = optarg;
728 break;
729 case OPTION_DRY_RUN:
730 dry_run = 1;
731 break;
732 case OPTION_DRIVER_NAME:
733 driver_name = optarg;
734 break;
735 case OPTION_DRIVER_FLAGS:
736 driver_flags = optarg;
737 break;
738 case OPTION_DLLTOOL_NAME:
739 dlltool_name = optarg;
740 break;
741 case OPTION_TARGET:
742 target = optarg;
743 break;
bb0cb4db
ILT		 744 case OPTION_MNO_CYGWIN:
745 target = "i386-mingw32";
746 break;
252b5132
RH		 747 case OPTION_BASE_FILE:
748 base_file_name = optarg;
749 delete_base_file = 0;
750 break;
751 case OPTION_OUTPUT_EXP:
752 exp_file_name = optarg;
753 delete_exp_file = 0;
754 break;
755 case OPTION_EXPORT_ALL_SYMS:
756 export_all = 1;
757 break;
758 case OPTION_OUTPUT_LIB:
759 output_lib_file_name = optarg;
760 break;
761 case '?':
762 break;
763 default:
764 dlltool_arg = 1;
765 break;
766 }
767
768 /* Handle passing through --option=value case. */
769 if (optarg
770 && saved_argv[optind-1][0] == '-'
771 && saved_argv[optind-1][1] == '-'
772 && strchr (saved_argv[optind-1], '='))
773 single_word_option_value_pair = 1;
774
775 if (dlltool_arg)
776 {
777 dlltool_arg_indices[optind-1] = 1;
778 if (optarg && ! single_word_option_value_pair)
779 {
780 dlltool_arg_indices[optind-2] = 1;
781 }
782 }
783
784 if (! driver_arg)
785 {
786 driver_arg_indices[optind-1] = 0;
787 if (optarg && ! single_word_option_value_pair)
788 {
789 driver_arg_indices[optind-2] = 0;
790 }
791 }
792 }
bb0cb4db 793
252b5132
RH		 794 /* sanity checks. */
795 if (! dll_name && ! dll_file_name)
796 {
797 fprintf (stderr,
798 "%s: Must provide at least one of -o or --dllname options\n",
799 program_name);
800 exit (1);
801 }
802 else if (! dll_name)
803 {
804 dll_name = xstrdup (mybasename (dll_file_name));
805 }
806 else if (! dll_file_name)
807 {
808 dll_file_name = xstrdup (dll_name);
809 }
bb0cb4db
ILT		 810
811 /* Deduce driver-name and dlltool-name from our own. */
812 if (driver_name == NULL)
813 driver_name = deduce_name ("gcc");
814
815 if (dlltool_name == NULL)
816 dlltool_name = deduce_name ("dlltool");
817
252b5132
RH		 818 if (! def_file_seen)
819 {
820 char *fileprefix = choose_temp_base ();
821 def_file_name = (char *) xmalloc (strlen (fileprefix) + 5);
822 sprintf (def_file_name, "%s.def",
823 (dontdeltemps) ? mybasename (fileprefix) : fileprefix);
824 delete_def_file = 1;
825 free (fileprefix);
826 delete_def_file = 1;
827 fprintf (stderr, "Warning: no export definition file provided\n");
828 fprintf (stderr,
829 "dllwrap will create one, but may not be what you want\n");
830 }
831
832 /* set the target platform. */
087f88b2 833 if (strstr (target, "cygwin"))
252b5132 834 which_target = CYGWIN_TARGET;
087f88b2
NC		 835 else if (strstr (target, "mingw"))
836 which_target = MINGW_TARGET;
252b5132
RH		 837 else
838 which_target = UNKNOWN_TARGET;
839
840 /* re-create the command lines as a string, taking care to quote stuff. */
841 dlltool_cmdline = dyn_string_new (cmdline_len);
842 if (verbose)
843 {
844 dyn_string_append (dlltool_cmdline, " -v");
845 }
846 dyn_string_append (dlltool_cmdline, " --dllname ");
847 dyn_string_append (dlltool_cmdline, dll_name);
848
849 for (i = 1; i < argc; ++i)
850 {
851 if (dlltool_arg_indices[i])
852 {
853 char *arg = saved_argv[i];
854 int quote = (strchr (arg, ' ') || strchr (arg, '\t'));
855 dyn_string_append (dlltool_cmdline,
856 (quote) ? " \"" : " ");
857 dyn_string_append (dlltool_cmdline, arg);
858 dyn_string_append (dlltool_cmdline,
859 (quote) ? "\"" : "");
860 }
861 }
862
863 driver_cmdline = dyn_string_new (cmdline_len);
864 if (! driver_flags || strlen (driver_flags) == 0)
865 {
866 switch (which_target)
867 {
868 case CYGWIN_TARGET:
869 driver_flags = cygwin_driver_flags;
870 break;
871
087f88b2 872 case MINGW_TARGET:
252b5132
RH		 873 driver_flags = mingw32_driver_flags;
874 break;
875
876 default:
877 driver_flags = generic_driver_flags;
878 break;
879 }
880 }
881 dyn_string_append (driver_cmdline, driver_flags);
882 dyn_string_append (driver_cmdline, " -o ");
883 dyn_string_append (driver_cmdline, dll_file_name);
884
885 if (! entry_point || strlen (entry_point) == 0)
886 {
887 switch (which_target)
888 {
889 case CYGWIN_TARGET:
890 entry_point = "__cygwin_dll_entry@12";
891 break;
892
087f88b2 893 case MINGW_TARGET:
252b5132
RH		 894 entry_point = "_DllMainCRTStartup@12";
895 break;
896
897 default:
898 entry_point = "_DllMain@12";
899 break;
900 }
901 }
902 dyn_string_append (driver_cmdline, " -Wl,-e,");
903 dyn_string_append (driver_cmdline, entry_point);
904 dyn_string_append (dlltool_cmdline, " --exclude-symbol=");
905 dyn_string_append (dlltool_cmdline,
906 (entry_point[0] == '_') ? entry_point+1 : entry_point);
907
908 if (! image_base_str || strlen (image_base_str) == 0)
909 {
910 char *tmpbuf = (char *) xmalloc (sizeof ("0x12345678") + 1);
911 unsigned long hash = strhash (dll_file_name);
912 sprintf (tmpbuf, "0x%.8lX", 0x60000000|((hash<<16)&0xFFC0000));
913 image_base_str = tmpbuf;
914 }
915
916 dyn_string_append (driver_cmdline, " -Wl,--image-base,");
917 dyn_string_append (driver_cmdline, image_base_str);
918
919 if (verbose)
920 {
921 dyn_string_append (driver_cmdline, " -v");
922 }
923
924 for (i = 1; i < argc; ++i)
925 {
926 if (driver_arg_indices[i])
927 {
928 char *arg = saved_argv[i];
929 int quote = (strchr (arg, ' ') || strchr (arg, '\t'));
930 dyn_string_append (driver_cmdline,
931 (quote) ? " \"" : " ");
932 dyn_string_append (driver_cmdline, arg);
933 dyn_string_append (driver_cmdline,
934 (quote) ? "\"" : "");
935 }
936 }
937
938 /*
939 * Step pre-1. If no --def <EXPORT_DEF> is specified, then create it
940 * and then pass it on.
941 */
942
943 if (! def_file_seen)
944 {
945 int i;
946 dyn_string_t step_pre1;
947
948 step_pre1 = dyn_string_new (1024);
949
950 dyn_string_append (step_pre1, dlltool_cmdline->s);
951 if (export_all)
952 {
953 dyn_string_append (step_pre1, " --export-all --exclude-symbol=");
954 dyn_string_append (step_pre1,
955 "_cygwin_dll_entry@12,DllMainCRTStartup@12,DllMain@12,DllEntryPoint@12");
956 }
957 dyn_string_append (step_pre1, " --output-def ");
958 dyn_string_append (step_pre1, def_file_name);
959
960 for (i = 1; i < argc; ++i)
961 {
962 if (driver_arg_indices[i])
963 {
964 char *arg = saved_argv[i];
965 size_t len = strlen (arg);
966 if (len >= 2 && arg[len-2] == '.'
967 && (arg[len-1] == 'o' || arg[len-1] == 'a'))
968 {
969 int quote = (strchr (arg, ' ') || strchr (arg, '\t'));
970 dyn_string_append (step_pre1,
971 (quote) ? " \"" : " ");
972 dyn_string_append (step_pre1, arg);
973 dyn_string_append (step_pre1,
974 (quote) ? "\"" : "");
975 }
976 }
977 }
978
979 if (run (dlltool_name, step_pre1->s))
980 cleanup_and_exit (1);
981
982 dyn_string_delete (step_pre1);
983 }
984
985 dyn_string_append (dlltool_cmdline, " --def ");
986 dyn_string_append (dlltool_cmdline, def_file_name);
987
988 if (verbose)
989 {
990 fprintf (stderr, "DLLTOOL name : %s\n", dlltool_name);
991 fprintf (stderr, "DLLTOOL options : %s\n", dlltool_cmdline->s);
992 fprintf (stderr, "DRIVER name : %s\n", driver_name);
993 fprintf (stderr, "DRIVER options : %s\n", driver_cmdline->s);
994 }
995
996 /*
997 * Step 1. Call GCC/LD to create base relocation file. If using GCC, the
998 * driver command line will look like the following:
999 *
1000 * % gcc -Wl,--dll --Wl,--base-file,foo.base [rest of command line]
1001 *
1002 * If the user does not specify a base name, create temporary one that
1003 * is deleted at exit.
1004 *
1005 */
1006
1007 if (! base_file_name)
1008 {
1009 char *fileprefix = choose_temp_base ();
1010 base_file_name = (char *) xmalloc (strlen (fileprefix) + 6);
1011 sprintf (base_file_name, "%s.base",
1012 (dontdeltemps) ? mybasename (fileprefix) : fileprefix);
1013 delete_base_file = 1;
1014 free (fileprefix);
1015 }
1016
1017 {
1018 int quote;
1019
1020 dyn_string_t step1 = dyn_string_new (driver_cmdline->length
1021 + strlen (base_file_name)
1022 + 20);
1023 dyn_string_append (step1, "-Wl,--base-file,");
1024 quote = (strchr (base_file_name, ' ')
1025 || strchr (base_file_name, '\t'));
1026 dyn_string_append (step1,
1027 (quote) ? "\"" : "");
1028 dyn_string_append (step1, base_file_name);
1029 dyn_string_append (step1,
1030 (quote) ? "\"" : "");
1031 if (driver_cmdline->length)
1032 {
1033 dyn_string_append (step1, " ");
1034 dyn_string_append (step1, driver_cmdline->s);
1035 }
1036
1037 if (run (driver_name, step1->s))
1038 cleanup_and_exit (1);
1039
1040 dyn_string_delete (step1);
1041 }
1042
1043
1044
1045 /*
1046 * Step 2. generate the exp file by running dlltool.
1047 * dlltool command line will look like the following:
1048 *
1049 * % dlltool -Wl,--dll --Wl,--base-file,foo.base [rest of command line]
1050 *
1051 * If the user does not specify a base name, create temporary one that
1052 * is deleted at exit.
1053 *
1054 */
1055
1056 if (! exp_file_name)
1057 {
1058 char *p = strrchr (dll_name, '.');
1059 size_t prefix_len = (p) ? p - dll_name : strlen (dll_name);
1060 exp_file_name = (char *) xmalloc (prefix_len + 4 + 1);
1061 strncpy (exp_file_name, dll_name, prefix_len);
1062 exp_file_name[prefix_len] = '\0';
1063 strcat (exp_file_name, ".exp");
1064 delete_exp_file = 1;
1065 }
1066
1067 {
1068 int quote;
1069 dyn_string_t step2 = dyn_string_new (dlltool_cmdline->length
1070 + strlen (base_file_name)
1071 + strlen (exp_file_name)
1072 + 20);
1073
1074 dyn_string_append (step2, "--base-file ");
1075 quote = (strchr (base_file_name, ' ')
1076 || strchr (base_file_name, '\t'));
1077 dyn_string_append (step2,
1078 (quote) ? "\"" : "");
1079 dyn_string_append (step2, base_file_name);
1080 dyn_string_append (step2,
1081 (quote) ? "\" " : " ");
1082
1083 dyn_string_append (step2, "--output-exp ");
1084 quote = (strchr (exp_file_name, ' ')
1085 || strchr (exp_file_name, '\t'));
1086 dyn_string_append (step2,
1087 (quote) ? "\"" : "");
1088 dyn_string_append (step2, exp_file_name);
1089 dyn_string_append (step2,
1090 (quote) ? "\"" : "");
1091
1092 if (dlltool_cmdline->length)
1093 {
1094 dyn_string_append (step2, " ");
1095 dyn_string_append (step2, dlltool_cmdline->s);
1096 }
1097
1098 if (run (dlltool_name, step2->s))
1099 cleanup_and_exit (1);
1100
1101 dyn_string_delete (step2);
1102 }
1103
1104 /*
1105 * Step 3. Call GCC/LD to again, adding the exp file this time.
1106 * driver command line will look like the following:
1107 *
1108 * % gcc -Wl,--dll --Wl,--base-file,foo.base foo.exp [rest ...]
1109 */
1110
1111 {
1112 int quote;
1113
1114 dyn_string_t step3 = dyn_string_new (driver_cmdline->length
1115 + strlen (exp_file_name)
1116 + strlen (base_file_name)
1117 + 20);
1118 dyn_string_append (step3, "-Wl,--base-file,");
1119 quote = (strchr (base_file_name, ' ')
1120 || strchr (base_file_name, '\t'));
1121 dyn_string_append (step3,
1122 (quote) ? "\"" : "");
1123 dyn_string_append (step3, base_file_name);
1124 dyn_string_append (step3,
1125 (quote) ? "\" " : " ");
1126
1127 quote = (strchr (exp_file_name, ' ')
1128 || strchr (exp_file_name, '\t'));
1129 dyn_string_append (step3,
1130 (quote) ? "\"" : "");
1131 dyn_string_append (step3, exp_file_name);
1132 dyn_string_append (step3,
1133 (quote) ? "\"" : "");
1134
1135 if (driver_cmdline->length)
1136 {
1137 dyn_string_append (step3, " ");
1138 dyn_string_append (step3, driver_cmdline->s);
1139 }
1140
1141 if (run (driver_name, step3->s))
1142 cleanup_and_exit (1);
1143
1144 dyn_string_delete (step3);
1145 }
1146
1147
1148 /*
1149 * Step 4. Run DLLTOOL again using the same command line.
1150 */
1151
1152 {
1153 int quote;
1154 dyn_string_t step4 = dyn_string_new (dlltool_cmdline->length
1155 + strlen (base_file_name)
1156 + strlen (exp_file_name)
1157 + 20);
1158
1159 dyn_string_append (step4, "--base-file ");
1160 quote = (strchr (base_file_name, ' ')
1161 || strchr (base_file_name, '\t'));
1162 dyn_string_append (step4,
1163 (quote) ? "\"" : "");
1164 dyn_string_append (step4, base_file_name);
1165 dyn_string_append (step4,
1166 (quote) ? "\" " : " ");
1167
1168 dyn_string_append (step4, "--output-exp ");
1169 quote = (strchr (exp_file_name, ' ')
1170 || strchr (exp_file_name, '\t'));
1171 dyn_string_append (step4,
1172 (quote) ? "\"" : "");
1173 dyn_string_append (step4, exp_file_name);
1174 dyn_string_append (step4,
1175 (quote) ? "\"" : "");
1176
1177 if (dlltool_cmdline->length)
1178 {
1179 dyn_string_append (step4, " ");
1180 dyn_string_append (step4, dlltool_cmdline->s);
1181 }
1182
1183 if (output_lib_file_name)
1184 {
1185 dyn_string_append (step4, " --output-lib ");
1186 dyn_string_append (step4, output_lib_file_name);
1187 }
1188
1189 if (run (dlltool_name, step4->s))
1190 cleanup_and_exit (1);
1191
1192 dyn_string_delete (step4);
1193 }
1194
1195
1196 /*
1197 * Step 5. Link it all together and be done with it.
1198 * driver command line will look like the following:
1199 *
1200 * % gcc -Wl,--dll foo.exp [rest ...]
1201 *
1202 */
1203
1204 {
1205 int quote;
1206
1207 dyn_string_t step5 = dyn_string_new (driver_cmdline->length
1208 + strlen (exp_file_name)
1209 + 20);
1210 quote = (strchr (exp_file_name, ' ')
1211 || strchr (exp_file_name, '\t'));
1212 dyn_string_append (step5,
1213 (quote) ? "\"" : "");
1214 dyn_string_append (step5, exp_file_name);
1215 dyn_string_append (step5,
1216 (quote) ? "\"" : "");
1217
1218 if (driver_cmdline->length)
1219 {
1220 dyn_string_append (step5, " ");
1221 dyn_string_append (step5, driver_cmdline->s);
1222 }
1223
1224 if (run (driver_name, step5->s))
1225 cleanup_and_exit (1);
1226
1227 dyn_string_delete (step5);
1228 }
1229
1230 cleanup_and_exit (0);
1231
1232 return 0;
1233}
A mirror of the official binutils-gdb repository