tools/genmodule/writethunk.c

   1 /*
   2     Copyright © 2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     The code for creating a thunk file for the functions present in the module
   6 */
   7 #include <string.h>
   8 #include <assert.h>
   9 #include <stdint.h>
  10 #include "functionhead.h"
  11 #include "config.h"
  12
  13 static void writethunkfunc(FILE *out, struct config *cfg, struct functionhead *funclist)
  14 {
  15     struct functionarg *arglistit;
  16     char *type, *name;
  17     int is_void;
  18
  19     is_void = (strcasecmp(funclist->type, "void") == 0);
  20
  21     fprintf(out,
  22             "THUNK_PROTO%d(%s, %s, %s %s",
  23             funclist->argcount,
  24             funclist->type, funclist->internalname,
  25             cfg->libbasetypeptrextern, cfg->libbase);
  26     for (arglistit = funclist->arguments;
  27          arglistit!=NULL;
  28          arglistit = arglistit->next
  29     )
  30     {
  31         type = getargtype(arglistit);
  32         name = getargname(arglistit);
  33         assert(name != NULL && type != NULL);
  34         fprintf(out, ", %s %s", type, name);
  35         free(name);
  36         free(type);
  37     }
  38     fprintf(out, ");\n\n");
  39
  40     fprintf(out,
  41             "AROS_LH%d(%s, %s,\n",
  42             funclist->argcount, funclist->type, funclist->internalname
  43     );
  44
  45     for (arglistit = funclist->arguments;
  46          arglistit!=NULL;
  47          arglistit = arglistit->next
  48     )
  49     {
  50         type = getargtype(arglistit);
  51         name = getargname(arglistit);
  52         assert(name != NULL && type != NULL);
  53
  54         fprintf(out,
  55                 "        AROS_LHA(%s, %s, %s),\n",
  56                 type, name, arglistit->reg
  57         );
  58         free(type);
  59         free(name);
  60     }
  61
  62     fprintf(out,
  63             "        %s, %s, %u, %s)\n"
  64             "{\n"
  65             "    AROS_LIBFUNC_INIT\n\n",
  66             cfg->libbasetypeptrextern, cfg->libbase, funclist->lvo, cfg->basename
  67     );
  68     fprintf(out, "    ");
  69     fprintf(out, "THUNK_CALL%d(%s, %s, %s",
  70             funclist->argcount,
  71             is_void ? "" : "return ",
  72             funclist->internalname,
  73             cfg->libbase);
  74
  75     for (arglistit = funclist->arguments;
  76          arglistit!=NULL;
  77          arglistit = arglistit->next
  78     )
  79     {
  80         name = getargname(arglistit);
  81         assert(name != NULL);
  82         fprintf(out, ", %s", name);
  83         free(name);
  84     }
  85     fprintf(out, ");\n\n");
  86     fprintf(out,
  87             "    AROS_LIBFUNC_EXIT\n"
  88             "}\n\n"
  89     );
  90 }
  91
  92 void writethunk(struct config *cfg)
  93 {
  94     struct functionhead *funclistit;
  95     FILE *out = NULL;
  96     char line[256];
  97     struct functionarg *arglistit;
  98     char *type, *name;
  99     uint64_t argmask = 0;
 100     int i;
 101
 102     for(funclistit = cfg->funclist; funclistit != NULL; funclistit = funclistit->next)
 103     {
 104         argmask |= (1ULL << funclistit->argcount);
 105     }
 106
 107     snprintf(line, 255, "%s/%s_thunk.c", cfg->gendir, cfg->modulename);
 108     out = fopen(line, "w");
 109
 110     if (out == NULL)
 111     {
 112         perror(line);
 113         exit(20);
 114     }
 115
 116     for (i = 0; i < 64; i++) {
 117         if (argmask & (1ULL << i)) {
 118             int j;
 119
 120             fprintf(out,
 121                     "#define THUNK_PROTO%d(type, name, arg_base", i);
 122             for (j = 0; j < i; j++) {
 123                 fprintf(out, ", arg_%d", j);
 124             }
 125             fprintf(out, ")\\\n\ttype name(");
 126             for (j = 0; j < i; j++) {
 127                 fprintf(out, "arg_%d, ", j);
 128             }
 129             fprintf(out, "arg_base)\n");
 130
 131             fprintf(out,
 132                     "#define THUNK_CALL%d(retcode, name, arg_base", i);
 133             for (j = 0; j < i; j++) {
 134                 fprintf(out, ", arg_%d", j);
 135             }
 136             fprintf(out, ")\\\n\tretcode name(");
 137             for (j = 0; j < i; j++) {
 138                 fprintf(out, "arg_%d, ", j);
 139             }
 140             fprintf(out, "arg_base)\n");
 141         }
 142     }
 143
 144     for(funclistit = cfg->funclist; funclistit != NULL; funclistit = funclistit->next)
 145     {
 146         writethunkfunc(out, cfg, funclistit);
 147     }
 148
 149     fclose(out);
 150 }