/* $Header: qmsramlex.l,v 1.1 88/01/15 12:19:37 simpson Rel $ */ %{ /* $Log: qmsramlex.l,v $ * Revision 1.1 88/01/15 12:19:37 simpson * initial release * * Revision 0.1 87/12/11 21:34:49 simpson * beta test * */ #undef input #define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):timedgetc(_Ifp)) \ ==10?(yylineno++, yytchar):yytchar)==EOF?0:yytchar) %} integer [0-9]+ %% RAM: return RAM; TR return TRT; AR return ART; FR return FRT; OR return ORT; {integer} { yylval = atoi(yytext); return INTEGER; } = | \, return yytext[0]; \r\n return ENDLINE;