int gras_ddt_parse_tok_num = 0;
const char *definition;
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_ddt_lexer,gras_ddt_parse,"The crude internals of the lexer used for type parsing");
-#define SHOW_WHERE DEBUG4("%d:%d (char #%d): seen '%s'", gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,gras_ddt_parse_char_pos,yytext)
+#define SHOW_WHERE XBT_DEBUG("%d:%d (char #%d): seen '%s'", gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,gras_ddt_parse_char_pos,yytext)
%}
%x annotate comment foo
"//"[^\n]*
"/*g"{space}* { /****************** ANNOTATION ************************/
- DEBUG0("Begin annotation");
+ XBT_DEBUG("Begin annotation");
annotate_caller = INITIAL;
gras_ddt_parse_char_pos+= strlen(yytext);
gras_ddt_parse_col_pos+= strlen(yytext);
BEGIN(annotate);
}
<foo>"/*g"{space}* { /* trim annotation */
- DEBUG0("Begin annotation");
+ XBT_DEBUG("Begin annotation");
annotate_caller = foo;
gras_ddt_parse_char_pos+= strlen(yytext);
gras_ddt_parse_col_pos+= strlen(yytext);
}
<annotate>{space}*"g*/" {
- DEBUG0("End annotation");
+ XBT_DEBUG("End annotation");
gras_ddt_parse_char_pos+= strlen(yytext);
gras_ddt_parse_col_pos+= strlen(yytext);
BEGIN(annotate_caller);
}
<annotate>"*/" {
- PARSE_ERROR0("``/*g'' construct closed by a regular ``*/''");
+ PARSE_ERROR("``/*g'' construct closed by a regular ``*/''");
}
<annotate>\n {
- PARSE_ERROR0("Type annotation cannot spread over several lines");
+ PARSE_ERROR("Type annotation cannot spread over several lines");
}
<annotate>.* { /* eat the rest */