source/input.c

   1 #include <ctype.h>
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4 #include "../include/cloog/cloog.h"
   5
   6 #define ALLOC(type) (type*)malloc(sizeof(type))
   7
   8 static char *next_line(FILE *input, char *line, unsigned len)
   9 {
  10         char *p;
  11
  12         do {
  13                 if (!(p = fgets(line, len, input)))
  14                         return NULL;
  15                 while (isspace(*p) && *p != '\n')
  16                         ++p;
  17         } while (*p == '#' || *p == '\n');
  18
  19         return p;
  20 }
  21
  22 /**
  23  * Read input from a .cloog file, putting most of the information
  24  * in the returned CloogInput.  The chosen language is put in
  25  * options->language.
  26  */
  27 CloogInput *cloog_input_read(FILE *file, CloogOptions *options)
  28 {
  29         char line[MAX_STRING];
  30         char language;
  31         CloogDomain *context;
  32         CloogUnionDomain *ud;
  33         int nb_par;
  34
  35         /* First of all, we read the language to use. */
  36         if (!next_line(file, line, sizeof(line)))
  37                 cloog_die("Input error.\n");
  38         if (sscanf(line, "%c", &language) != 1)
  39                 cloog_die("Input error.\n");
  40
  41         if (language == 'f')
  42                 options->language = LANGUAGE_FORTRAN;
  43         else
  44                 options->language = LANGUAGE_C;
  45
  46         /* We then read the context data. */
  47         context = cloog_domain_read_context(options->state, file);
  48         nb_par = cloog_domain_parameter_dimension(context);
  49
  50         ud = cloog_union_domain_read(file, nb_par, options);
  51
  52         return cloog_input_alloc(context, ud);
  53 }
  54
  55 /**
  56  * Create a CloogInput from a CloogDomain context and a CloogUnionDomain.
  57  */
  58 CloogInput *cloog_input_alloc(CloogDomain *context, CloogUnionDomain *ud)
  59 {
  60         CloogInput *input;
  61
  62         input = ALLOC(CloogInput);
  63         if (!input)
  64                 cloog_die("memory overflow.\n");
  65
  66         input->context = context;
  67         input->ud = ud;
  68
  69         return input;
  70 }
  71
  72 void cloog_input_free(CloogInput *input)
  73 {
  74         cloog_domain_free(input->context);
  75         cloog_union_domain_free(input->ud);
  76         free(input);
  77 }