/* $Header: qmsopclex.l,v 1.1 88/01/15 12:19:11 simpson Rel $ %{ /* $Log: qmsopclex.l,v $ * Revision 1.1 88/01/15 12:19:11 simpson * initial release * * Revision 0.1 87/12/11 21:34:46 simpson * beta test * */ #undef input #define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):timedgetc(_Ifp)) \ ==10?(yylineno++, yytchar):yytchar)==EOF?0:yytchar) %} integer [0-9]+ %% OC[1-5]: { yylval.i = yytext[2] - '0'; return OC; } {integer} { yylval.i = atoi(yytext); return INTEGER; } \, return yytext[0]; NONE return NONE; \r\n return ENDLINE;