tools/genmodule/writeautoinit.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Function to write module_autoinit.c. Part of genmodule.
   6 */
   7 #include "genmodule.h"
   8
   9 void writeautoinit(struct config *cfg)
  10 {
  11     FILE *out;
  12     char line[256], *banner;
  13
  14     snprintf(line, 255, "%s/%s_autoinit.c", cfg->gendir, cfg->modulename);
  15     out = fopen(line, "w");
  16
  17     if (out==NULL)
  18     {
  19         perror(line);
  20         exit(20);
  21     }
  22
  23     banner = getBanner(cfg);
  24     fprintf(out,
  25         "%s"
  26             "\n"
  27             "#include <proto/%s.h>\n"
  28             "#include <aros/symbolsets.h>\n"
  29             "\n"
  30             "ADD2LIBS((CONST_STRPTR)\"%s.library\",%u, %s, %s);\n",
  31             banner, cfg->modulename,
  32             cfg->modulename, cfg->majorversion, cfg->libbasetypeptrextern, cfg->libbase
  33     );
  34     freeBanner(banner);
  35
  36     if (cfg->forcelist!=NULL)
  37     {
  38         struct stringlist * forcelistit;
  39
  40         fprintf(out, "\n");
  41         for (forcelistit = cfg->forcelist;
  42              forcelistit!=NULL;
  43              forcelistit = forcelistit->next
  44             )
  45         {
  46             fprintf(out, "extern struct Library *%s;\n", forcelistit->s);
  47         }
  48         fprintf(out, "\nvoid __%s_forcelibs(void)\n{\n", cfg->modulename);
  49         for (forcelistit = cfg->forcelist;
  50              forcelistit!=NULL;
  51              forcelistit = forcelistit->next
  52             )
  53         {
  54             fprintf(out, "    %s = NULL;\n", forcelistit->s);
  55         }
  56         fprintf(out, "}\n");
  57     }
  58     fclose(out);
  59 }