summaryrefslogtreecommitdiff
path: root/dviware/quicspool/libqmsquery/qmsfntlex.l
diff options
context:
space:
mode:
Diffstat (limited to 'dviware/quicspool/libqmsquery/qmsfntlex.l')
-rw-r--r--dviware/quicspool/libqmsquery/qmsfntlex.l43
1 files changed, 43 insertions, 0 deletions
diff --git a/dviware/quicspool/libqmsquery/qmsfntlex.l b/dviware/quicspool/libqmsquery/qmsfntlex.l
new file mode 100644
index 0000000000..ea94910f97
--- /dev/null
+++ b/dviware/quicspool/libqmsquery/qmsfntlex.l
@@ -0,0 +1,43 @@
+/* $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;