include/isl/stream.h

   1 /*
   2  * Copyright 2008-2009 Katholieke Universiteit Leuven
   3  *
   4  * Use of this software is governed by the MIT license
   5  *
   6  * Written by Sven Verdoolaege, K.U.Leuven, Departement
   7  * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium
   8  */
   9
  10 #ifndef ISL_STREAM_H
  11 #define ISL_STREAM_H
  12
  13 #include <stdio.h>
  14 #include <isl/hash.h>
  15 #include <isl/aff_type.h>
  16 #include <isl/obj.h>
  17 #include <isl/val.h>
  18
  19 #if defined(__cplusplus)
  20 extern "C" {
  21 #endif
  22
  23 enum isl_token_type { ISL_TOKEN_ERROR = -1,
  24                         ISL_TOKEN_UNKNOWN = 256, ISL_TOKEN_VALUE,
  25                         ISL_TOKEN_IDENT, ISL_TOKEN_GE,
  26                         ISL_TOKEN_LE, ISL_TOKEN_GT, ISL_TOKEN_LT,
  27                         ISL_TOKEN_NE, ISL_TOKEN_EQ_EQ,
  28                         ISL_TOKEN_LEX_GE, ISL_TOKEN_LEX_LE,
  29                         ISL_TOKEN_LEX_GT, ISL_TOKEN_LEX_LT,
  30                         ISL_TOKEN_TO, ISL_TOKEN_AND,
  31                         ISL_TOKEN_OR, ISL_TOKEN_EXISTS, ISL_TOKEN_NOT,
  32                         ISL_TOKEN_DEF, ISL_TOKEN_INFTY, ISL_TOKEN_NAN,
  33                         ISL_TOKEN_MIN, ISL_TOKEN_MAX, ISL_TOKEN_RAT,
  34                         ISL_TOKEN_TRUE, ISL_TOKEN_FALSE,
  35                         ISL_TOKEN_CEILD, ISL_TOKEN_FLOORD, ISL_TOKEN_MOD,
  36                         ISL_TOKEN_STRING,
  37                         ISL_TOKEN_MAP, ISL_TOKEN_AFF,
  38                         ISL_TOKEN_CEIL, ISL_TOKEN_FLOOR,
  39                         ISL_TOKEN_IMPLIES,
  40                         ISL_TOKEN_LAST };
  41
  42 struct isl_token {
  43         int type;
  44
  45         unsigned int on_new_line : 1;
  46         unsigned is_keyword : 1;
  47         int line;
  48         int col;
  49
  50         union {
  51                 isl_int v;
  52                 char    *s;
  53                 isl_map *map;
  54                 isl_pw_aff *pwaff;
  55         } u;
  56 };
  57
  58 __isl_give isl_val *isl_token_get_val(isl_ctx *ctx, struct isl_token *tok);
  59 __isl_give char *isl_token_get_str(isl_ctx *ctx, struct isl_token *tok);
  60 int isl_token_get_type(struct isl_token *tok);
  61 void isl_token_free(struct isl_token *tok);
  62
  63 struct isl_stream {
  64         struct isl_ctx  *ctx;
  65         FILE            *file;
  66         const char      *str;
  67         int             line;
  68         int             col;
  69         int             eof;
  70
  71         char            *buffer;
  72         size_t          size;
  73         size_t          len;
  74         int             c;
  75         int             un[5];
  76         int             n_un;
  77
  78         struct isl_token        *tokens[5];
  79         int             n_token;
  80
  81         struct isl_hash_table   *keywords;
  82         enum isl_token_type      next_type;
  83 };
  84
  85 struct isl_stream* isl_stream_new_file(struct isl_ctx *ctx, FILE *file);
  86 struct isl_stream* isl_stream_new_str(struct isl_ctx *ctx, const char *str);
  87 void isl_stream_free(struct isl_stream *s);
  88
  89 void isl_stream_error(struct isl_stream *s, struct isl_token *tok, char *msg);
  90
  91 struct isl_token *isl_stream_next_token(struct isl_stream *s);
  92 struct isl_token *isl_stream_next_token_on_same_line(struct isl_stream *s);
  93 int isl_stream_next_token_is(struct isl_stream *s, int type);
  94 void isl_stream_push_token(struct isl_stream *s, struct isl_token *tok);
  95 void isl_stream_flush_tokens(struct isl_stream *s);
  96 int isl_stream_eat_if_available(struct isl_stream *s, int type);
  97 char *isl_stream_read_ident_if_available(struct isl_stream *s);
  98 int isl_stream_eat(struct isl_stream *s, int type);
  99 int isl_stream_is_empty(struct isl_stream *s);
 100 int isl_stream_skip_line(struct isl_stream *s);
 101
 102 enum isl_token_type isl_stream_register_keyword(struct isl_stream *s,
 103         const char *name);
 104
 105 struct isl_obj isl_stream_read_obj(struct isl_stream *s);
 106 __isl_give isl_multi_aff *isl_stream_read_multi_aff(struct isl_stream *s);
 107 __isl_give isl_map *isl_stream_read_map(struct isl_stream *s);
 108 __isl_give isl_set *isl_stream_read_set(struct isl_stream *s);
 109 __isl_give isl_pw_qpolynomial *isl_stream_read_pw_qpolynomial(
 110         struct isl_stream *s);
 111 __isl_give isl_union_map *isl_stream_read_union_map(struct isl_stream *s);
 112
 113 #if defined(__cplusplus)
 114 }
 115 #endif
 116
 117 #endif