tools/collect-aros/backend-generic.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "misc.h"
   7 #include "backend.h"
   8 #include <sys/param.h>
   9 #include <string.h>
  10 #include <errno.h>
  11 #include <stdlib.h>
  12
  13 #include "env.h"
  14
  15 static FILE *my_popen(const char *command, const char *file)
  16 {
  17     static char command_buf[MAXPATHLEN];
  18
  19     size_t command_len = strlen(command);
  20     size_t file_len    = strlen(file);
  21
  22     FILE *pipe;
  23
  24     if (file_len + command_len >= sizeof(command_buf))
  25         fatal("collect_sets()", strerror(ENAMETOOLONG));
  26
  27     memcpy(command_buf, command, command_len);
  28     memcpy(command_buf + command_len, file, file_len + 1);
  29
  30     set_compiler_path();
  31
  32     pipe = popen(command_buf, "r");
  33     if (pipe == NULL)
  34         fatal(command_buf, strerror(errno));
  35
  36     return pipe;
  37 }
  38
  39
  40 /*
  41     This routine is slow, but does the work and it's the simplest to write down.
  42     All this will get integrated into the linker anyway, so there's no point
  43     in doing optimizations
  44 */
  45 void collect_sets(const char *file, setnode **setlist_ptr)
  46 {
  47     char secname[201];
  48
  49     FILE *pipe = my_popen(OBJDUMP_NAME " -h ", file);
  50
  51     /* This fscanf() simply splits the whole stream into separate words */
  52     while (fscanf(pipe, " %200s ", secname) > 0)
  53     {
  54         parse_format(secname);
  55         parse_secname(secname, setlist_ptr);
  56     }
  57
  58     pclose(pipe);
  59 }
  60
  61 /*
  62     This routine is slow, but does the work and it's the simplest to write down.
  63     All this will get integrated into the linker anyway, so there's no point
  64     in doing optimizations
  65 */
  66 void collect_libs(const char *file, setnode **liblist_ptr)
  67 {
  68     unsigned long offset;
  69     char type;
  70     char secname[201];
  71     char buff[256];
  72
  73     FILE *pipe = my_popen("nm ", file);
  74
  75     /* This fscanf() simply splits the whole stream into separate words */
  76     while (fgets(buff, sizeof(buff), pipe)) {
  77         struct setnode *node;
  78         int pri;
  79
  80         offset = 0;
  81
  82         if (sscanf(buff, "%lx %c %200s ", &offset, &type, secname) != 3 &&
  83             sscanf(buff, " %c %200s", &type, secname) != 2)
  84             continue;
  85
  86         if (strncmp(secname, "__aros_libreq_", 14) != 0)
  87             continue;
  88
  89         if (type == 'A') {
  90             char *cp, *tmp;
  91
  92             cp = strchr(secname + 14, '.');
  93             if (cp == NULL)
  94                 continue;
  95
  96             pri = strtoul(cp+1, &tmp, 0);
  97             if ((cp+1) == tmp)
  98                 continue;
  99
 100             *(cp++) = 0;
 101         } else if (type == 'w') {
 102             pri = 0;
 103         } else {
 104             continue;
 105         }
 106
 107         node = calloc(sizeof(*node),1);
 108         node->secname = strdup(secname);
 109         node->off_setname = 14;
 110         node->pri = pri;
 111         node->next = *liblist_ptr;
 112         *liblist_ptr = node;
 113     }
 114
 115     pclose(pipe);
 116 }
 117
 118
 119 int check_and_print_undefined_symbols(const char *file)
 120 {
 121     int there_are_undefined_syms = 0;
 122     char buf[200];
 123     size_t cnt;
 124
 125     FILE *pipe = my_popen(NM_NAME " -ulC ", file);
 126
 127     while ((cnt = fread(buf, 1, sizeof(buf), pipe)) != 0)
 128     {
 129         if (!there_are_undefined_syms)
 130         {
 131             there_are_undefined_syms = 1;
 132             fprintf(stderr, "There are undefined symbols in '%s':\n", file);
 133         }
 134
 135         fwrite(buf, cnt, 1, stderr);
 136     }
 137
 138     pclose(pipe);
 139
 140     return there_are_undefined_syms;
 141 }