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         CloogInput *input;
  31         char language;
  32         int nb_par;
  33
  34         input = ALLOC(CloogInput);
  35         if (!input)
  36                 cloog_die("memory overflow.\n");
  37
  38         /* First of all, we read the language to use. */
  39         if (!next_line(file, line, sizeof(line)))
  40                 cloog_die("Input error.\n");
  41         if (sscanf(line, "%c", &language) != 1)
  42                 cloog_die("Input error.\n");
  43
  44         if (language == 'f')
  45                 options->language = LANGUAGE_FORTRAN;
  46         else
  47                 options->language = LANGUAGE_C;
  48
  49         /* We then read the context data. */
  50         input->context = cloog_domain_read_context(options->state, file);
  51         nb_par = cloog_domain_parameter_dimension(input->context);
  52
  53         input->ud = cloog_union_domain_read(file, nb_par, options);
  54
  55         return input;
  56 }