tools/collect-aros/collect-aros.c

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include <stdlib.h>
   4 #include <errno.h>
   5 #include <sys/stat.h>
   6
   7 #include "misc.h"
   8 #include "docommand.h"
   9 #include "backend.h"
  10 #include "ldscript.h"
  11 #include "gensets.h"
  12 #include "env.h"
  13
  14 static char *ldscriptname, *tempoutput, *ld_name, *strip_name;
  15 static FILE *ldscriptfile;
  16
  17 static void exitfunc(void)
  18 {
  19     if (ldscriptfile != NULL)
  20         fclose(ldscriptfile);
  21
  22     if (ldscriptname != NULL)
  23         remove(ldscriptname);
  24
  25     if (tempoutput != NULL)
  26         remove(tempoutput);
  27 }
  28
  29 int main(int argc, char *argv[])
  30 {
  31     int cnt;
  32     char *output, **ldargs;
  33     /* incremental = 1 -> don't do final linking.
  34        incremental = 2 -> don't do final linking AND STILL produce symbol sets.  */
  35     int incremental = 0, ignore_undefined_symbols = 0;
  36     int strip_all   = 0;
  37     char *do_verbose = NULL;
  38
  39     setnode *setlist = NULL;
  40
  41     program_name = argv[0];
  42     ld_name = LD_NAME;
  43     strip_name = STRIP_NAME;
  44
  45     /* Do some stuff with the arguments */
  46     output = "a.out";
  47     for (cnt = 1; argv[cnt]; cnt++)
  48     {
  49         /* We've encountered an option */
  50         if (argv[cnt][0]=='-')
  51         {
  52             /* Get the output file name */
  53             if (argv[cnt][1]=='o')
  54                 output = argv[cnt][2]?&argv[cnt][2]:argv[++cnt];
  55             else
  56             /* Incremental linking is requested */
  57             if ((argv[cnt][1]=='r' || argv[cnt][1]=='i') && argv[cnt][2]=='\0')
  58                 incremental  = 1;
  59             else
  60             /* Incremental, but produce the symbol sets */
  61             if (strncmp(&argv[cnt][1], "Ur", 3) == 0)
  62             {
  63                 incremental  = 2;
  64
  65                 argv[cnt][1] = 'r';  /* Just some non-harming option... */
  66                 argv[cnt][2] = '\0';
  67             }
  68             else
  69             /* Ignoring of missing symbols is requested */
  70             if (strncmp(&argv[cnt][1], "ius", 4) == 0)
  71             {
  72                 ignore_undefined_symbols = 1;
  73                 argv[cnt][1] = 'r';  /* Just some non-harming option... */
  74                 argv[cnt][2] = '\0';
  75             }
  76             else
  77             /* Complete stripping is requested, but we do it our own way */
  78             if (argv[cnt][1]=='s' && argv[cnt][2]=='\0')
  79             {
  80                 strip_all = 1;
  81                 argv[cnt][1] = 'r'; /* Just some non-harming option... */
  82             }
  83             else
  84             /* The user just requested help info, don't do anything else */
  85             if (strncmp(&argv[cnt][1], "-help", 6) == 0)
  86             {
  87                 /* I know, it's not incremental linking we're after, but the end result
  88                    is the same */
  89                 incremental = 1;
  90                 break;
  91             }
  92             else
  93             /* verbose output */
  94             if (strncmp(&argv[cnt][1], "-verbose", 9) == 0)
  95             {
  96                 do_verbose = argv[cnt];
  97                 break;
  98             }
  99         }
 100     }
 101
 102     ldargs = xmalloc(sizeof(char *) * (argc+2 + 2*(incremental != 1)));
 103
 104     ldargs[0] = ld_name;
 105     ldargs[1] = "-r";
 106
 107     for (cnt = 1; cnt < argc; cnt++)
 108         ldargs[cnt+1] = argv[cnt];
 109
 110     if (incremental != 1)
 111     {
 112         atexit(exitfunc);
 113         if
 114         (
 115             !(tempoutput   = make_temp_file(NULL))     ||
 116             !(ldscriptname = make_temp_file(NULL))     ||
 117             !(ldscriptfile = fopen(ldscriptname, "w"))
 118         )
 119         {
 120             fatal(ldscriptname ? ldscriptname : "make_temp_file()", strerror(errno));
 121         }
 122
 123         ldargs[cnt + 1] = "-o";
 124         ldargs[cnt + 2] = tempoutput;
 125         cnt += 2;
 126     }
 127
 128     ldargs[cnt+1] = NULL;
 129
 130     docommandvp(ld_name, ldargs);
 131
 132     if (incremental == 1)
 133         return EXIT_SUCCESS;
 134
 135     collect_sets(tempoutput, &setlist);
 136
 137     if (setlist != NULL)
 138         fprintf(ldscriptfile, "EXTERN(__this_program_requires_symbol_sets_handling)\n");
 139
 140     fwrite(LDSCRIPT_PART1, sizeof(LDSCRIPT_PART1) - 1, 1, ldscriptfile);
 141     emit_sets(setlist, ldscriptfile);
 142     fwrite(LDSCRIPT_PART2, sizeof(LDSCRIPT_PART2) - 1, 1, ldscriptfile);
 143     if (incremental == 0)
 144         fputs("PROVIDE(SysBase = 0x515BA5E);\n", ldscriptfile);
 145     fwrite(LDSCRIPT_PART3, sizeof(LDSCRIPT_PART3) - 1, 1, ldscriptfile);
 146
 147     fclose(ldscriptfile);
 148     ldscriptfile = NULL;
 149
 150     docommandlp(ld_name, ld_name, "-r", "-o", output, tempoutput, "-T", ldscriptname, do_verbose, NULL);
 151
 152     if (incremental != 0)
 153         return EXIT_SUCCESS;
 154
 155     if (!ignore_undefined_symbols && check_and_print_undefined_symbols(output))
 156     {
 157         remove(output);
 158         return EXIT_FAILURE;
 159     }
 160
 161     chmod(output, 0766);
 162
 163     if (strip_all)
 164     {
 165         docommandlp(strip_name, strip_name, "--strip-unneeded", output, NULL);
 166     }
 167
 168     return 0;
 169 }