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 * 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 = cfg->funclist;
  50     struct functionarg *arglistit;
  51     unsigned int lvo;
  52     char *lower;
  53
  54     if (cfg->modtype == DEVICE)
  55     {
  56         /* Skip BeginIO/EndIO */
  57         unsigned int i;
  58
  59         for (i = 0; i < 2; i++)
  60         {
  61             if (!funclistit)
  62                 return;
  63
  64             funclistit = funclistit->next;
  65         }
  66     }
  67
  68     if (!funclistit)
  69         return;
  70
  71     snprintf(line, 255, "%s/%s_lib.fd", cfg->gendir, cfg->modulename);
  72
  73     out = fopen(line, "w");
  74
  75     if (out == NULL)
  76     {
  77         perror(line);
  78         exit(20);
  79     }
  80     else
  81     {
  82         fprintf(out, "##base _%s\n", cfg->libbase);
  83
  84         /*
  85          * This is correct even for devices. cfg->firstlvo holds LVO number for
  86          * the first user function.
  87          */
  88         fprintf(out, "##bias %u\n", cfg->firstlvo * 6);
  89
  90         fprintf(out, "*\n"
  91                      "* Automatically generated from '%s'.\n"
  92                      "* Edits will be lost. This file is supposed to be a support file for identify.library.\n"
  93                      "*\n",
  94                      cfg->conffile
  95         );
  96
  97         fprintf(out, "##public\n");
  98
  99         for (lvo = cfg->firstlvo - 1;
 100              funclistit != NULL;
 101              funclistit = funclistit->next
 102         )
 103         {
 104             switch (funclistit->libcall)
 105             {
 106             case  REGISTERMACRO:
 107                 write_fd_func(out, funclistit, lvo);
 108
 109                 for (arglistit = funclistit->arguments;
 110                      arglistit != NULL;
 111                      arglistit = arglistit->next
 112                 )
 113                 {
 114                     /* Print a , separator when not the first function argument */
 115                     if (arglistit != funclistit->arguments)
 116                         fprintf(out, ",");
 117
 118                     /* Print register name in lower case */
 119                     for (lower = arglistit->reg; *lower != '\0'; lower++)
 120                     {
 121                         fputc(tolower(*lower), out);
 122                     }
 123                 }
 124                 fprintf(out, ")\n");
 125
 126                 lvo = funclistit->lvo;
 127                 break;
 128
 129             case STACK:
 130                 write_fd_func(out, funclistit, lvo);
 131                 fprintf(out, "sysv");
 132                 if (cfg->options & OPTION_DUPBASE)
 133                     fprintf(out, ",rbase");
 134                 fprintf(out, ")\n");
 135
 136                 lvo = funclistit->lvo;
 137                 break;
 138             }
 139         }
 140
 141         fprintf(out, "##end\n");
 142
 143         if (ferror(out))
 144         {
 145             perror(line);
 146             exit(20);
 147         }
 148
 149         fclose(out);
 150     }
 151 }