39 lines · c
1#include <isl/stream.h>2 3#define xCAT(A,B) A ## B4#define CAT(A,B) xCAT(A,B)5#undef TYPE6#define TYPE CAT(isl_,BASE)7#define xFN(TYPE,NAME) TYPE ## _ ## NAME8#define FN(TYPE,NAME) xFN(TYPE,NAME)9 10/* Read an object of type TYPE from "s", where the object may11 * either be specified directly or as a string.12 *13 * First check if the next token in "s" is a string. If so, try and14 * extract the object from the string.15 * Otherwise, try and read the object directly from "s".16 */17static __isl_give TYPE *FN(read,BASE)(__isl_keep isl_stream *s)18{19 struct isl_token *tok;20 int type;21 22 tok = isl_stream_next_token(s);23 type = isl_token_get_type(tok);24 if (type == ISL_TOKEN_STRING) {25 char *str;26 isl_ctx *ctx;27 TYPE *res;28 29 ctx = isl_stream_get_ctx(s);30 str = isl_token_get_str(ctx, tok);31 res = FN(TYPE,read_from_str)(ctx, str);32 free(str);33 isl_token_free(tok);34 return res;35 }36 isl_stream_push_token(s, tok);37 return FN(isl_stream_read,BASE)(s);38}39