isl_list_read_templ.c

   1 /*
   2  * Copyright 2017      Sven Verdoolaege
   3  *
   4  * Use of this software is governed by the MIT license
   5  *
   6  * Written by Sven Verdoolaege.
   7  */
   8
   9 #include <isl/stream.h>
  10
  11 #include <isl_list_macro.h>
  12
  13 /* Read a list of elements of type EL from "s".
  14  * The input format corresponds to the way lists are printed
  15  * by isl_printer_print_list_*.
  16  * In particular, the elements are separated by a comma and
  17  * the entire list is surrounded by parentheses.
  18  */
  19 static __isl_give LIST(EL) *FN(isl_stream_read,LIST(EL_BASE))(isl_stream *s)
  20 {
  21         isl_ctx *ctx;
  22         LIST(EL) *list;
  23
  24         if (!s)
  25                 return NULL;
  26         ctx = isl_stream_get_ctx(s);
  27         list = FN(LIST(EL),alloc)(ctx, 0);
  28         if (!list)
  29                 return NULL;
  30         if (isl_stream_eat(s, '(') < 0)
  31                 return FN(LIST(EL),free)(list);
  32         if (isl_stream_eat_if_available(s, ')'))
  33                 return list;
  34         do {
  35                 EL *el;
  36
  37                 el = FN(isl_stream_read,EL_BASE)(s);
  38                 list = FN(LIST(EL),add)(list, el);
  39                 if (!list)
  40                         return NULL;
  41         } while (isl_stream_eat_if_available(s, ','));
  42         if (isl_stream_eat(s, ')') < 0)
  43                 return FN(LIST(EL),free)(list);
  44         return list;
  45 }
  46
  47 /* Read a list of elements of type EL from the string "str".
  48  * The input format corresponds to the way lists are printed
  49  * by isl_printer_print_list_*.
  50  * In particular, the elements are separated by a comma and
  51  * the entire list is surrounded by parentheses.
  52  */
  53 __isl_give LIST(EL) *FN(LIST(EL),read_from_str)(isl_ctx *ctx,
  54         const char *str)
  55 {
  56         LIST(EL) *list;
  57         isl_stream *s;
  58
  59         s = isl_stream_new_str(ctx, str);
  60         if (!s)
  61                 return NULL;
  62         list = FN(isl_stream_read,LIST(EL_BASE))(s);
  63         isl_stream_free(s);
  64         return list;
  65 }