/* $Header: qmsverlex.l,v 1.1 88/01/15 12:19:49 simpson Rel $ */ %{ /* $Log: qmsverlex.l,v $ * Revision 1.1 88/01/15 12:19:49 simpson * initial release * * Revision 0.1 87/12/11 21:34:50 simpson * beta test * */ #ifdef TRW #include #else #define EQN(s, t, n) (!strncmp(s, t, n)) #endif #undef input #define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):timedgetc(_Ifp)) \ ==10?(yylineno++, yytchar):yytchar)==EOF?0:yytchar) double atof(); %} real ([0-9]*\.[0-9]+)|([0-9]+\.[0-9]*) integer [0-9]+ %% QUIC return QUIC; Date return DATE; Firmware return FIRMWARE; Version return VERSION; = | : | \/ return yytext[0]; {integer} { yylval.i = atoi(yytext); return INTEGER; } {real} { yylval.r = atof(yytext); return REAL; } \r\n return ENDLINE; [ \t]+ ;