tools/genmodule/writeautoinit.c

   1 /*
   2     Copyright © 1995-2004, 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];
  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     fprintf(out,
  24         "%s"
  25             "\n"
  26             "#include <proto/%s.h>\n"
  27             "#include <aros/symbolsets.h>\n"
  28             "\n"
  29             "ADD2LIBS(\"%s.library\",%u, %s, %s);\n",
  30             getBanner(cfg), cfg->modulename,
  31             cfg->modulename, cfg->majorversion, cfg->libbasetypeptrextern, cfg->libbase
  32     );
  33
  34     if (cfg->forcelist!=NULL)
  35     {
  36         struct stringlist * forcelistit;
  37
  38         fprintf(out, "\n");
  39         for (forcelistit = cfg->forcelist;
  40              forcelistit!=NULL;
  41              forcelistit = forcelistit->next
  42             )
  43         {
  44             fprintf(out, "extern struct Library *%s;\n", forcelistit->s);
  45         }
  46         fprintf(out, "\nvoid __%s_forcelibs(void)\n{\n", cfg->modulename);
  47         for (forcelistit = cfg->forcelist;
  48              forcelistit!=NULL;
  49              forcelistit = forcelistit->next
  50             )
  51         {
  52             fprintf(out, "    %s = NULL;\n", forcelistit->s);
  53         }
  54         fprintf(out, "}\n");
  55     }
  56     fclose(out);
  57 }