tools/genmodule/writestubs.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Function to write module_stubs.c. Part of genmodule.
   6 */
   7 #include "archspecific.h"
   8 #include "genmodule.h"
   9
  10 void writestubs(struct config *cfg)
  11 {
  12     FILE *out, *outasm;
  13     char line[256], *type, *name, *banner;
  14     struct functionhead *funclistit;
  15     struct stringlist *aliasesit;
  16     struct functionarg *arglistit;
  17
  18     snprintf(line, 255, "%s/%s_stubs.c", cfg->gendir, cfg->modulename);
  19     out = fopen(line, "w");
  20
  21     if (out == NULL)
  22     {
  23         perror(line);
  24         exit(20);
  25     }
  26
  27     banner = getBanner(cfg);
  28     fprintf
  29     (
  30         out,
  31         "%s"
  32         "#define NOLIBDEFINES\n"
  33         "/* Be sure that the libbases are included in the stubs file */\n"
  34         "#undef __NOLIBBASE__\n"
  35         "#undef __%s_NOLIBBASE__\n",
  36         banner, cfg->modulenameupper
  37     );
  38
  39     if (cfg->intcfg & CFG_GENASTUBS)
  40     {
  41         snprintf(line, 255, "%s/%s_astubs.S", cfg->gendir, cfg->modulename);
  42         outasm = fopen(line, "w");
  43         if (outasm==NULL)
  44         {
  45             fprintf(stderr, "Could not write %s\n", line);
  46             exit(20);
  47         }
  48         fprintf(outasm, "%s", banner);
  49         fprintf(outasm, STUBCODE_INIT);
  50     }
  51     freeBanner(banner);
  52
  53     if (cfg->modtype != MCC && cfg->modtype != MUI && cfg->modtype != MCP)
  54     {
  55         fprintf(out, "#include <proto/%s.h>\n", cfg->modulename);
  56     }
  57
  58     fprintf
  59     (
  60         out,
  61         "#include <exec/types.h>\n"
  62         "#include <aros/libcall.h>\n"
  63         "\n"
  64     );
  65
  66     for (funclistit = cfg->funclist;
  67          funclistit!=NULL;
  68          funclistit = funclistit->next
  69     )
  70     {
  71         if (funclistit->lvo >= cfg->firstlvo)
  72         {
  73             if (funclistit->libcall != STACK)
  74             {
  75                 int isvoid = strcmp(funclistit->type, "void") == 0
  76                     || strcmp(funclistit->type, "VOID") == 0;
  77
  78                 fprintf(out,
  79                         "\n"
  80                         "%s %s(",
  81                         funclistit->type, funclistit->name
  82                 );
  83                 for (arglistit = funclistit->arguments;
  84                      arglistit!=NULL;
  85                      arglistit = arglistit->next
  86                 )
  87                 {
  88                     if (arglistit != funclistit->arguments)
  89                         fprintf(out, ", ");
  90                     fprintf(out, "%s", arglistit->arg);
  91                 }
  92
  93                 fprintf(out,
  94                         ")\n"
  95                         "{\n"
  96                         "    return AROS_LC%d%s(%s, %s,\n",
  97                         funclistit->argcount, (isvoid) ? "NR" : "",
  98                         funclistit->type, funclistit->name
  99                 );
 100
 101                 for (arglistit = funclistit->arguments;
 102                      arglistit!=NULL;
 103                      arglistit = arglistit->next
 104                 )
 105                 {
 106                     type = getargtype(arglistit);
 107                     name = getargname(arglistit);
 108                     assert(type != NULL && name != NULL);
 109
 110                     fprintf(out, "                    AROS_LCA(%s,%s,%s),\n",
 111                             type, name, arglistit->reg
 112                     );
 113                     free(type);
 114                     free(name);
 115                 }
 116
 117                 fprintf(out, "                    %s, %s, %u, %s);\n}\n",
 118                         cfg->libbasetypeptrextern, cfg->libbase, funclistit->lvo, cfg->basename
 119                 );
 120             }
 121             else /* libcall==STACK */
 122             {
 123                 assert(cfg->intcfg & CFG_GENASTUBS);
 124
 125                 fprintf(outasm,
 126                         STUBCODE,
 127                         funclistit->name,
 128                         cfg->libbase,
 129                         -funclistit->lvo*LIB_VECTSIZE
 130                  );
 131             }
 132
 133             for (aliasesit = funclistit->aliases;
 134                  aliasesit != NULL;
 135                  aliasesit = aliasesit->next
 136             )
 137             {
 138                 assert(cfg->intcfg & CFG_GENASTUBS);
 139
 140                 fprintf(outasm, ALIASCODE, funclistit->name, aliasesit->s);
 141             }
 142         }
 143     }
 144     fclose(out);
 145     if (cfg->intcfg & CFG_GENASTUBS)
 146         fclose(outasm);
 147 }