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 */
LIST(EL)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 */
LIST(EL)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 }
66