tools/genmodule/writefd.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Write the functionlist to a FD file for identify.library.
   6 */
   7
   8 #include "genmodule.h"
   9
  10 static void write_fd_func(FILE *out, struct functionhead *funclistit, unsigned int lvo)
  11 {
  12     struct functionarg *arglistit;
  13     char *variable;
  14
  15     if (funclistit->lvo > lvo + 1)
  16     {
  17         if (funclistit->lvo == lvo + 2)
  18             fprintf(out, "private()()\n");
  19         else
  20             fprintf(out, "##bias %u\n", (funclistit->lvo - 1) * 6);
  21     }
  22
  23     fprintf(out, "%s(", funclistit->name);
  24
  25     for (arglistit = funclistit->arguments;
  26          arglistit!=NULL;
  27          arglistit = arglistit->next)
  28     {
  29         /* Print a , separator when not the first function argument */
  30         if (arglistit != funclistit->arguments)
  31             fprintf(out, ",");
  32
  33         /* Print only variable name */
  34         variable = arglistit->arg + strlen(arglistit->arg) - 1;
  35         while ((variable >= arglistit->arg) &&
  36                (isalnum(*variable) || (*variable == '_')))
  37         {
  38             variable--;
  39         }
  40         fprintf(out, "%s", variable + 1);
  41     }
  42     fprintf(out, ")(");
  43 }
  44
  45 void writefd(struct config *cfg)
  46 {
  47     FILE *out;
  48     char line[256];
  49     struct functionhead *funclistit;
  50     struct functionarg *arglistit;
  51     unsigned int lvo;
  52     char *lower;
  53
  54     if (!cfg->funclist)
  55         return;
  56
  57     snprintf(line, 255, "%s/%s_lib.fd", cfg->gendir, cfg->modulename);
  58
  59     out = fopen(line, "w");
  60
  61     if (out == NULL)
  62     {
  63         perror(line);
  64         exit(20);
  65     }
  66     else
  67     {
  68         fprintf(out, "##base _%s\n", cfg->libbase);
  69
  70         if (cfg->modtype == DEVICE)
  71         {
  72             /* because of BeginIO/EndIO */
  73             /* FIXME: do we need special handling for other module types, too? */
  74             fprintf(out, "##bias %u\n", (cfg->firstlvo - 2) * 6);
  75         }
  76         else
  77         {
  78             fprintf(out, "##bias %u\n", cfg->firstlvo * 6);
  79         }
  80
  81         fprintf(out, "*\n"
  82                      "* Automatically generated from '%s'.\n"
  83                      "* Edits will be lost. This file is supposed to be a support file for identify.library.\n"
  84                      "*\n",
  85                      cfg->conffile
  86         );
  87
  88         fprintf(out, "##public\n");
  89
  90         for (funclistit = cfg->funclist, lvo = cfg->firstlvo - 1;
  91              funclistit != NULL;
  92              funclistit = funclistit->next
  93         )
  94         {
  95             switch (funclistit->libcall)
  96             {
  97             case  REGISTERMACRO:
  98                 write_fd_func(out, funclistit, lvo);
  99
 100                 for (arglistit = funclistit->arguments;
 101                      arglistit != NULL;
 102                      arglistit = arglistit->next
 103                 )
 104                 {
 105                     /* Print a , separator when not the first function argument */
 106                     if (arglistit != funclistit->arguments)
 107                         fprintf(out, ",");
 108
 109                     /* Print register name in lower case */
 110                     for (lower = arglistit->reg; *lower != '\0'; lower++)
 111                     {
 112                         fputc(tolower(*lower), out);
 113                     }
 114                 }
 115                 fprintf(out, ")\n");
 116
 117                 lvo = funclistit->lvo;
 118                 break;
 119
 120             case STACK:
 121                 write_fd_func(out, funclistit, lvo);
 122                 /* TODO: Currently all SYSV ABI vectors are base-less */
 123                 fprintf(out, "sysv)\n");
 124                 lvo = funclistit->lvo;
 125                 break;
 126             }
 127         }
 128
 129         fprintf(out, "##end\n");
 130
 131         if (ferror(out))
 132         {
 133             perror(line);
 134             exit(20);
 135         }
 136
 137         fclose(out);
 138     }
 139 }