diff options
Diffstat (limited to 'tests/include_by_reentrant.direct.l')
-rw-r--r-- | tests/include_by_reentrant.direct.l | 101 |
1 files changed, 101 insertions, 0 deletions
diff --git a/tests/include_by_reentrant.direct.l b/tests/include_by_reentrant.direct.l new file mode 100644 index 0000000..8cd4900 --- /dev/null +++ b/tests/include_by_reentrant.direct.l @@ -0,0 +1,101 @@ +/* + * This file is part of flex. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR + * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR + * PURPOSE. + */ + +%{ +/* A scanner file to build "scanner.c". + Input language is any text. + "#include <filename>" causes a new scanner to be created. + */ +#include <stdio.h> +#include <stdlib.h> +#include "config.h" +%} + +%option 8bit prefix="test" +%option nounput nomain noyywrap noinput +%option reentrant +%option warn + +%x GET_FILENAME + +%% + +<INITIAL>{ +^"#include"[[:blank:]]+"<" { BEGIN(GET_FILENAME); } +.|\n { ECHO; } +} + +<GET_FILENAME>{ +[[:alnum:]_.-]+> { + /* recurse */ + yyscan_t scanner; + FILE * fp; + yytext[yyleng-1]='\0'; + if((fp=fopen(yytext,"r"))==NULL) { + fprintf(stderr,"*** Error: Could not open include file \"%s\".\n", + yytext); + yyterminate(); + } + yylex_init(&scanner); + yyset_in( fp, scanner); + yyset_out( stdout, scanner); + yylex(scanner); + yylex_destroy(scanner); + + BEGIN(0); + } +.|\n { + fprintf(stderr,"Invalid input \"%s\".\n", yytext); + yyterminate(); + } +} + +<<EOF>> { fclose(yyin); yyterminate();} + +%% + +int main (int argc, char** argv); + +int +main ( argc, argv ) + int argc; + char ** argv; +{ + FILE * fp; + yyscan_t scanner; + if( argc != 2 ) { + fprintf(stderr,"*** Error: Must specify one filename.\n"); + exit(-1); + } + if((fp=fopen(argv[1],"r"))==NULL) { + fprintf(stderr,"*** Error: fopen(%s) failed.\n",argv[1]); + exit(-1); + } + yylex_init(&scanner); + yyset_in( fp, scanner); + yyset_out( stdout, scanner); + yylex(scanner); + yylex_destroy(scanner); + printf("TEST RETURNING OK.\n"); + return 0; +} |