polly/lib/External/isl/read_in_string_templ.c

   1 #include <isl/stream.h>
   2
   3 #define xCAT(A,B) A ## B
   4 #define CAT(A,B) xCAT(A,B)
   5 #undef TYPE
   6 #define TYPE CAT(isl_,BASE)
   7 #define xFN(TYPE,NAME) TYPE ## _ ## NAME
   8 #define FN(TYPE,NAME) xFN(TYPE,NAME)
   9
  10 /* Read an object of type TYPE from "s", where the object may
  11  * either be specified directly or as a string.
  12  *
  13  * First check if the next token in "s" is a string.  If so, try and
  14  * extract the object from the string.
  15  * Otherwise, try and read the object directly from "s".
  16  */
  17 static __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 }