external/bsd/flex/dist/tests/test-include-by-buffer/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 buffer switch.
  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 warn
  37
  38 %x GET_FILENAME
  39 %{
  40
  41 #define MAX_INCLUDE_DEPTH 10
  42 YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
  43 int include_stack_ptr = 0;
  44 %}
  45 %%
  46
  47 <INITIAL>{
  48 ^"#include"[[:blank:]]+"<"  { BEGIN(GET_FILENAME); }
  49 .|\n      { ECHO; }
  50 }
  51
  52 <GET_FILENAME>{
  53 [[:alnum:]_.-]+>  {
  54      /* recurse */
  55     yytext[yyleng-1]='\0';
  56     include_stack[include_stack_ptr++] = YY_CURRENT_BUFFER;
  57     if((yyin=fopen(yytext,"r"))==NULL) {
  58         fprintf(stderr,"*** Error: Could not open include file \"%s\".\n",yytext);
  59         yyterminate();
  60     }
  61     yy_switch_to_buffer( yy_create_buffer( yyin, YY_BUF_SIZE ));
  62     BEGIN(0);
  63     }
  64 .|\n  {
  65     fprintf(stderr,"Invalid input \"%s\".\n", yytext);
  66     yyterminate();
  67    }
  68 }
  69
  70 <<EOF>> {
  71        if ( --include_stack_ptr < 0 ) {
  72            yyterminate();
  73        }
  74        else {
  75             fclose(yyin);
  76            yy_delete_buffer( YY_CURRENT_BUFFER );
  77            yy_switch_to_buffer( include_stack[include_stack_ptr] );
  78        }
  79    }
  80
  81 %%
  82
  83 int main(int argc, char** argv);
  84
  85 int
  86 main ( int argc, char** argv )
  87 {
  88     FILE * fp;
  89     if( argc != 2 ) {
  90         fprintf(stderr,"*** Error: Must specifiy one filename.\n");
  91         exit(-1);
  92     }
  93     if((fp=fopen(argv[1],"r"))==NULL) {
  94         fprintf(stderr,"*** Error: fopen(%s) failed.\n",argv[1]);
  95         exit(-1);
  96     }
  97     yyin = fp;
  98     yyout = stdout;
  99     yylex();
 100     printf("TEST RETURNING OK.\n");
 101     return 0;
 102 }