diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/quicspool/libqmsquery/qmsverlex.l |
Initial commit
Diffstat (limited to 'dviware/quicspool/libqmsquery/qmsverlex.l')
-rw-r--r-- | dviware/quicspool/libqmsquery/qmsverlex.l | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/dviware/quicspool/libqmsquery/qmsverlex.l b/dviware/quicspool/libqmsquery/qmsverlex.l new file mode 100644 index 0000000000..be5dba8982 --- /dev/null +++ b/dviware/quicspool/libqmsquery/qmsverlex.l @@ -0,0 +1,41 @@ +/* $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 <local/standard.h> +#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]+ ; |