add isl_token_get_type

Signed-off-by: Sven Verdoolaege <skimo@kotnet.org>

diff --git a/include/isl/stream.h b/include/isl/stream.h
index 2e6e1b7..7484af1 100644 (file)
--- a/include/isl/stream.h
+++ b/include/isl/stream.h
@@ -55,6 +55,7 @@ struct isl_token {
 
 __isl_give isl_val *isl_token_get_val(isl_ctx *ctx, struct isl_token *tok);
 __isl_give char *isl_token_get_str(isl_ctx *ctx, struct isl_token *tok);
+int isl_token_get_type(struct isl_token *tok);
 void isl_token_free(struct isl_token *tok);
 
 struct isl_stream {

diff --git a/isl_stream.c b/isl_stream.c
index 388c204..c40756d 100644 (file)
--- a/isl_stream.c
+++ b/isl_stream.c
@@ -81,6 +81,13 @@ struct isl_token *isl_token_new(isl_ctx *ctx,
        return tok;
 }
 
+/* Return the type of "tok".
+ */
+int isl_token_get_type(struct isl_token *tok)
+{
+       return tok ? tok->type : ISL_TOKEN_ERROR;
+}
+
 /* Given a token of type ISL_TOKEN_VALUE, return the value it represents.
  */
 __isl_give isl_val *isl_token_get_val(isl_ctx *ctx, struct isl_token *tok)