int yylex(union YYSTYPE *yyval, struct ctf_scanner *scanner);
int yylex_init_extra(struct ctf_scanner *scanner, yyscan_t * ptr_yy_globals);
int yylex_destroy(yyscan_t yyscanner);
-void yyset_in(FILE * in_str, yyscan_t scanner);
+void yyrestart(FILE * in_str, yyscan_t scanner);
int yydebug;
fprintf(stderr, "yylex_init error\n");
goto cleanup_scanner;
}
- yyset_in(input, scanner);
+ /* Start processing new stream */
+ yyrestart(input, scanner->scanner);
scanner->ast = ctf_ast_alloc();
if (!scanner->ast)
scanner->cs = &scanner->root_scope;
CDS_INIT_LIST_HEAD(&scanner->allocated_strings);
+ if (yydebug)
+ fprintf(stdout, "Scanner input is a%s.\n",
+ isatty(fileno(input)) ? "n interactive tty" :
+ " noninteractive file");
+
return scanner;
cleanup_lexer:
if (set_parent_node($3, $$->u.type_specifier.node))
reparent_error(scanner, "integer reparent error");
}
+ | STRING
+ {
+ $$ = make_node(scanner, NODE_TYPE_SPECIFIER);
+ $$->u.type_specifier.type = TYPESPEC_STRING;
+ $$->u.type_specifier.node = make_node(scanner, NODE_STRING);
+ }
| STRING LBRAC RBRAC
{
$$ = make_node(scanner, NODE_TYPE_SPECIFIER);