/* $Header: qmsfntlex.l,v 1.1 88/01/15 12:19:00 simpson Rel $ */ %{ /* $Log: qmsfntlex.l,v $ * Revision 1.1 88/01/15 12:19:00 simpson * initial release * * Revision 0.1 87/12/11 21:34:44 simpson * beta test * */ #undef input #define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):timedgetc(_Ifp)) \ ==10?(yylineno++, yytchar):yytchar)==EOF?0:yytchar) %} integer [0-9]+ %% FRO: { yylval = FRO; return FRO; } FDL: { yylval = FDL; return FDL; } {integer} { yylval = atoi(yytext); return INTEGER; } P | L | S | V | C { yylval = yytext[0]; return yytext[0]; } . { yylval = yytext[0]; return CHAR; } NONE return NONE; \r\n return ENDLINE;