tools/collect-aros/gensets.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <stdio.h>
   7 #include <string.h>
   8 #include <stdlib.h>
   9 #include <ctype.h>
  10 #include <errno.h>
  11
  12 #include "misc.h"
  13
  14 typedef struct setnode
  15 {
  16     char *secname;
  17     int   off_setname;
  18     long  pri;
  19     struct setnode *next;
  20 } setnode;
  21
  22 static char* pointer_size = "LONG";
  23 static char pointer_bytes = 4;
  24
  25 static setnode *new_setnode(const char *name, setnode *next, int off, long pri){
  26    setnode *n;
  27
  28    if (!(n          = calloc(1, sizeof(setnode))) ||
  29        !(n->secname = strdup(name))
  30       )
  31    {
  32         fatal("new_setnode()", strerror(errno));
  33    }
  34
  35    n->off_setname = off;
  36    n->pri = pri;
  37    n->next = next;
  38
  39    return n;
  40 }
  41
  42 static setnode *get_setnode(setnode **list, const char *name, int off, long pri)
  43 {
  44     setnode **curr = list;
  45
  46     while (*curr)
  47     {
  48         if (strcmp((*curr)->secname, name) == 0)
  49         {
  50             do
  51             {
  52                 if ((*curr)->pri == pri)
  53                     return *curr;
  54
  55                 if ((*curr)->pri > pri)
  56                     break;
  57
  58                 curr = &(*curr)->next;
  59
  60             } while (*curr && strcmp((*curr)->secname, name) == 0);
  61
  62             break;
  63         }
  64
  65         curr = &(*curr)->next;
  66     }
  67
  68     return (*curr = new_setnode(name, *curr, off, pri));
  69 }
  70
  71 void emit_sets(setnode *setlist, FILE *out)
  72 {
  73     char setname_big[201];
  74     int i;
  75
  76     while (setlist)
  77     {
  78         setnode *oldnode = setlist;
  79         i = 0;
  80
  81         do
  82         {
  83             setname_big[i] = toupper(setlist->secname[setlist->off_setname + i]);
  84         } while (setlist->secname[setlist->off_setname + i++]);
  85
  86         fprintf
  87         (
  88             out,
  89             "    __%s_LIST__ = .;\n"
  90             "    %s((__%s_END__ - __%s_LIST__) / %d - 2)\n",
  91             setname_big, pointer_size, setname_big, setname_big, pointer_bytes
  92         );
  93
  94         do
  95         {
  96             fprintf
  97             (
  98                 out,
  99                 "    KEEP(*(%s.%ld))\n",
 100                 setlist->secname, setlist->pri
 101             );
 102
 103             setlist = setlist->next;
 104         } while (setlist && (strcmp(oldnode->secname, setlist->secname) == 0));
 105
 106
 107         fprintf
 108         (
 109             out,
 110             "    KEEP(*(%s))\n"
 111             "    %s(0)\n"
 112             "    __%s_END__ = .;\n",
 113             oldnode->secname, pointer_size, setname_big
 114         );
 115     }
 116 }
 117
 118
 119 void parse_secname(const char *secname, setnode **setlist_ptr)
 120 {
 121     char  *idx;
 122     int    off;
 123     long   pri = 0;
 124
 125     if (strncmp(secname, ".aros.set.", 10) == 0)
 126         off = 10;
 127     else
 128     if (strncmp(secname, ".ctors", 5) == 0)
 129         off = 1;
 130     else
 131     if (strncmp(secname, ".dtors", 5) == 0)
 132         off = 1;
 133     else
 134         return;
 135
 136     idx = strchr(secname + off, '.');
 137     if (idx)
 138     {
 139         *idx = '\0';
 140         pri  = strtol(&idx[1], NULL, 10);
 141     }
 142
 143     get_setnode(setlist_ptr, secname, off, pri);
 144 }
 145
 146 void parse_format(const char *format)
 147 {
 148     if (strncmp(format, "elf64", 5) == 0) {
 149         pointer_size = "QUAD";
 150         pointer_bytes = 8;
 151     }
 152 }
 153
 154 void emit_libs(setnode *liblist, FILE *out)
 155 {
 156     while (liblist) {
 157         fprintf(out, "PROVIDE(%s = .); LONG(%ld)\n", liblist->secname, liblist->pri);
 158         liblist = liblist->next;
 159     }
 160 }