polly/lib/External/isl/isl_list_read_templ.c

/*
 * Copyright 2017      Sven Verdoolaege
 *
 * Use of this software is governed by the MIT license
 *
 * Written by Sven Verdoolaege.
 */

#include <isl/stream.h>

#include <isl_list_macro.h>

/* Read a list of elements of type EL from "s".
 * The input format corresponds to the way lists are printed
 * by isl_printer_print_list_*.
 * In particular, the elements are separated by a comma and
 * the entire list is surrounded by parentheses.
 */
static __isl_give LIST(EL) *FN(isl_stream_read,LIST(EL_BASE))(isl_stream *s)
{
	isl_ctx *ctx;
	LIST(EL) *list;

	if (!s)
		return NULL;
	ctx = isl_stream_get_ctx(s);
	list = FN(LIST(EL),alloc)(ctx, 0);
	if (!list)
		return NULL;
	if (isl_stream_eat(s, '(') < 0)
		return FN(LIST(EL),free)(list);
	if (isl_stream_eat_if_available(s, ')'))
		return list;
	do {
		EL *el;

		el = FN(isl_stream_read,EL_BASE)(s);
		list = FN(LIST(EL),add)(list, el);
		if (!list)
			return NULL;
	} while (isl_stream_eat_if_available(s, ','));
	if (isl_stream_eat(s, ')') < 0)
		return FN(LIST(EL),free)(list);
	return list;
}

/* Read a list of elements of type EL from the string "str".
 * The input format corresponds to the way lists are printed
 * by isl_printer_print_list_*.
 * In particular, the elements are separated by a comma and
 * the entire list is surrounded by parentheses.
 */
__isl_give LIST(EL) *FN(LIST(EL),read_from_str)(isl_ctx *ctx,
	const char *str)
{
	LIST(EL) *list;
	isl_stream *s;

	s = isl_stream_new_str(ctx, str);
	if (!s)
		return NULL;
	list = FN(isl_stream_read,LIST(EL_BASE))(s);
	isl_stream_free(s);
	return list;
}