external/bsd/flex/dist/tests/test-include-by-reentrant/scanner.l

   1 /*
   2  * This file is part of flex.
   3  *
   4  * Redistribution and use in source and binary forms, with or without
   5  * modification, are permitted provided that the following conditions
   6  * are met:
   7  *
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * Neither the name of the University nor the names of its contributors
  15  * may be used to endorse or promote products derived from this software
  16  * without specific prior written permission.
  17  *
  18  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  19  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  20  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  21  * PURPOSE.
  22  */
  23
  24 %{
  25 /* A scanner file to build "scanner.c".
  26    Input language is any text.
  27    "#include <filename>" causes a new scanner to be created.
  28  */
  29 #include <stdio.h>
  30 #include <stdlib.h>
  31 #include "config.h"
  32 %}
  33
  34 %option 8bit outfile="scanner.c" prefix="test"
  35 %option nounput nomain noyywrap
  36 %option reentrant
  37 %option warn
  38
  39 %x GET_FILENAME
  40
  41 %%
  42
  43 <INITIAL>{
  44 ^"#include"[[:blank:]]+"<"  { BEGIN(GET_FILENAME); }
  45 .|\n      { ECHO; }
  46 }
  47
  48 <GET_FILENAME>{
  49 [[:alnum:]_.-]+>  {
  50      /* recurse */
  51     yyscan_t  scanner;
  52     FILE * fp;
  53     yytext[yyleng-1]='\0';
  54     if((fp=fopen(yytext,"r"))==NULL) {
  55         fprintf(stderr,"*** Error: Could not open include file \"%s\".\n",
  56             yytext);
  57         yyterminate();
  58     }
  59     yylex_init(&scanner);
  60     yyset_in( fp, scanner);
  61     yyset_out( stdout, scanner);
  62     yylex(scanner);
  63     yylex_destroy(scanner);
  64
  65     BEGIN(0);
  66     }
  67 .|\n  {
  68     fprintf(stderr,"Invalid input \"%s\".\n", yytext);
  69     yyterminate();
  70    }
  71 }
  72
  73 <<EOF>> { fclose(yyin); yyterminate();}
  74
  75 %%
  76
  77 int main (int argc, char** argv);
  78
  79 int
  80 main ( argc, argv )
  81     int argc;
  82     char ** argv;
  83 {
  84     FILE * fp;
  85     yyscan_t  scanner;
  86     if( argc != 2 ) {
  87         fprintf(stderr,"*** Error: Must specifiy one filename.\n");
  88         exit(-1);
  89     }
  90     if((fp=fopen(argv[1],"r"))==NULL) {
  91         fprintf(stderr,"*** Error: fopen(%s) failed.\n",argv[1]);
  92         exit(-1);
  93     }
  94     yylex_init(&scanner);
  95     yyset_in( fp, scanner);
  96     yyset_out( stdout, scanner);
  97     yylex(scanner);
  98     yylex_destroy(scanner);
  99     printf("TEST RETURNING OK.\n");
 100     return 0;
 101 }