tools/genmodule/writeincdefines.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Function to write defines/modulename.h. Part of genmodule.
   6 */
   7 #include "genmodule.h"
   8
   9 static void writedefineregister(FILE *, struct functionhead *, struct config *);
  10 static void writedefinevararg(FILE *, struct functionhead *, struct config *);
  11 static void writedefinestack(FILE *, struct functionhead *, struct config *);
  12 static void writealiases(FILE *, struct functionhead *, struct config *);
  13
  14 void writeincdefines(struct config *cfg)
  15 {
  16     FILE *out;
  17     char line[256];
  18     struct functionhead *funclistit;
  19
  20     snprintf(line, 255, "%s/defines/%s.h", cfg->gendir, cfg->modulename);
  21     out = fopen(line, "w");
  22
  23     if (out == NULL)
  24     {
  25         perror(line);
  26         exit(20);
  27     }
  28
  29     fprintf(out,
  30             "#ifndef DEFINES_%s_PROTOS_H\n"
  31             "#define DEFINES_%s_PROTOS_H\n"
  32             "\n"
  33         "%s"
  34             "\n"
  35         "/*\n"
  36             "    Desc: Defines for %s\n"
  37             "*/\n"
  38             "\n"
  39             "#include <aros/libcall.h>\n"
  40             "#include <exec/types.h>\n"
  41             "#include <aros/preprocessor/variadic/cast2iptr.hpp>\n"
  42             "\n",
  43             cfg->modulenameupper, cfg->modulenameupper, getBanner(cfg), cfg->modulename
  44     );
  45     if (cfg->command!=DUMMY)
  46     {
  47         for (funclistit = cfg->funclist; funclistit!=NULL; funclistit = funclistit->next)
  48         {
  49             if (!funclistit->priv && (funclistit->lvo >= cfg->firstlvo))
  50             {
  51                 if (funclistit->libcall != STACK)
  52                 {
  53                     writedefineregister(out, funclistit, cfg);
  54                     if (!funclistit->novararg)
  55                         writedefinevararg(out, funclistit, cfg);
  56                 }
  57                 else /* libcall == STACK */
  58                 {
  59                     writedefinestack(out, funclistit, cfg);
  60                 }
  61
  62                 writealiases(out, funclistit, cfg);
  63             }
  64         }
  65     }
  66     fprintf(out,
  67             "\n"
  68             "#endif /* DEFINES_%s_PROTOS_H*/\n",
  69             cfg->modulenameupper
  70     );
  71     fclose(out);
  72 }
  73
  74
  75 void
  76 writedefineregister(FILE *out, struct functionhead *funclistit, struct config *cfg)
  77 {
  78     struct functionarg *arglistit;
  79     int count, isvoid;
  80     char *type;
  81
  82     isvoid = strcmp(funclistit->type, "void") == 0
  83         || strcmp(funclistit->type, "VOID") == 0;
  84
  85     fprintf(out,
  86             "\n"
  87             "#define __%s_WB(__%s",
  88             funclistit->name, cfg->libbase
  89     );
  90     for (arglistit = funclistit->arguments, count = 1;
  91          arglistit!=NULL;
  92          arglistit = arglistit->next, count++
  93     )
  94     {
  95         fprintf(out, ", __arg%d", count);
  96     }
  97     fprintf(out,
  98             ") \\\n"
  99             "        AROS_LC%d%s(%s, %s, \\\n",
 100             funclistit->argcount, (isvoid) ? "NR" : "",
 101             funclistit->type, funclistit->name
 102     );
 103
 104     for (arglistit = funclistit->arguments, count = 1;
 105          arglistit!=NULL;
 106          arglistit = arglistit->next, count++
 107     )
 108     {
 109         type = getargtype(arglistit);
 110         assert(type != NULL);
 111         fprintf(out,
 112                 "                  AROS_LCA(%s,(__arg%d),%s), \\\n",
 113                 type, count, arglistit->reg
 114         );
 115         free(type);
 116     }
 117     fprintf(out,
 118             "        %s, (__%s), %u, %s)\n\n",
 119             cfg->libbasetypeptrextern, cfg->libbase,    funclistit->lvo, cfg->basename
 120     );
 121
 122     fprintf(out, "#define %s(", funclistit->name);
 123     for (arglistit = funclistit->arguments, count = 1;
 124          arglistit != NULL;
 125          arglistit = arglistit->next, count++
 126     )
 127     {
 128         if (arglistit != funclistit->arguments)
 129             fprintf(out, ", ");
 130         fprintf(out, "arg%d", count);
 131     }
 132     fprintf(out, ") \\\n    __%s_WB(%s", funclistit->name, cfg->libbase);
 133     for (arglistit = funclistit->arguments, count = 1;
 134          arglistit != NULL;
 135          arglistit = arglistit->next, count++
 136     )
 137         fprintf(out, ", (arg%d)", count);
 138     fprintf(out, ")\n");
 139 }
 140
 141 void
 142 writedefinevararg(FILE *out, struct functionhead *funclistit, struct config *cfg)
 143 {
 144     struct functionarg *arglistit = funclistit->arguments;
 145     char isvararg = 0, *varargname, *lastname;
 146
 147     /* Go to last argument */
 148     if (arglistit == NULL)
 149         return;
 150
 151     while (arglistit->next != NULL) arglistit = arglistit->next;
 152
 153     lastname = getargname(arglistit);
 154     assert(lastname != NULL);
 155
 156     if (*(funclistit->name + strlen(funclistit->name) - 1) == 'A')
 157     {
 158         isvararg = 1;
 159         varargname = strdup(funclistit->name);
 160         varargname[strlen(funclistit->name)-1] = '\0';
 161     }
 162     else if (strcmp(funclistit->name + strlen(funclistit->name) - 7, "TagList") == 0)
 163     {
 164         isvararg = 1;
 165         /* TagList has to be changed in Tags at the end of the functionname */
 166         varargname = strdup(funclistit->name);
 167         varargname[strlen(funclistit->name)-4] = 's';
 168         varargname[strlen(funclistit->name)-3] = '\0';
 169     }
 170     else if (strcmp(funclistit->name + strlen(funclistit->name) - 4, "Args") == 0
 171              && (strcasecmp(lastname, "args") == 0 || strcasecmp(lastname, "arglist") == 0)
 172     )
 173     {
 174         isvararg = 1;
 175         varargname = strdup(funclistit->name);
 176         varargname[strlen(funclistit->name)-4] = '\0';
 177     }
 178     else
 179     {
 180         char *p;
 181
 182         if (strncmp(arglistit->arg, "struct", 6)==0)
 183         {
 184             p = arglistit->arg + 6;
 185             while (isspace(*p)) p++;
 186             if (strncmp(p, "TagItem", 7) == 0)
 187             {
 188                 p += 7;
 189                 while (isspace(*p)) p++;
 190
 191                 if (*p == '*')
 192                 {
 193                     isvararg = 1;
 194                     varargname = malloc(strlen(funclistit->name) + 5);
 195                     strcpy(varargname, funclistit->name);
 196                     strcat(varargname, "Tags");
 197                 }
 198             }
 199         }
 200     }
 201     if (isvararg)
 202     {
 203         int count;
 204         char *type;
 205
 206         fprintf(out,
 207                 "\n#if !defined(NO_INLINE_STDARG) && !defined(%s_NO_INLINE_STDARG)\n"
 208                 "#define %s(",
 209                 cfg->modulenameupper, varargname
 210         );
 211         for (arglistit = funclistit->arguments, count = 1;
 212              arglistit != NULL && arglistit->next != NULL;
 213              arglistit = arglistit->next, count++
 214         )
 215         {
 216             fprintf(out, "arg%d, ", count);
 217         }
 218         fprintf(out,
 219                 "...) \\\n"
 220                 "({ \\\n"
 221                 "    IPTR __args[] = { AROS_PP_VARIADIC_CAST2IPTR(__VA_ARGS__) }; \\\n"
 222                 "    %s(",
 223                 funclistit->name
 224         );
 225         for (arglistit = funclistit->arguments, count = 1;
 226              arglistit != NULL;
 227              arglistit = arglistit->next, count++
 228         )
 229         {
 230             if (arglistit != funclistit->arguments)
 231                 fprintf(out, ", ");
 232
 233             if (arglistit->next == NULL)
 234             {
 235                 type = getargtype(arglistit);
 236                 assert(type != NULL);
 237                 fprintf(out, "(%s)__args", type);
 238                 free(type);
 239             }
 240             else
 241                 fprintf(out, "(arg%d)", count);
 242         }
 243         fprintf(out,
 244                 "); \\\n"
 245                 "})\n"
 246                 "#endif /* !NO_INLINE_STDARG */\n"
 247         );
 248
 249         free(varargname);
 250     }
 251 }
 252
 253 void
 254 writedefinestack(FILE *out, struct functionhead *funclistit, struct config *cfg)
 255 {
 256     struct functionarg *arglistit;
 257
 258     fprintf(out, "#define %s ((%s (*)(", funclistit->name, funclistit->type);
 259     for (arglistit = funclistit->arguments;
 260          arglistit != NULL;
 261          arglistit = arglistit->next
 262     )
 263     {
 264         fprintf(out, "%s", arglistit->arg);
 265         if (arglistit->next != NULL)
 266             fprintf(out, ", ");
 267     }
 268     fprintf(out, "))__AROS_GETVECADDR(%s,%d))\n", cfg->libbase, funclistit->lvo);
 269 }
 270
 271 void
 272 writealiases(FILE *out, struct functionhead *funclistit, struct config *cfg)
 273 {
 274     struct stringlist *aliasesit;
 275
 276     for (aliasesit = funclistit->aliases;
 277          aliasesit != NULL;
 278          aliasesit = aliasesit->next
 279     )
 280     {
 281         fprintf(out, "#define %s %s\n", aliasesit->s, funclistit->name);
 282     }
 283 }