sync'ing files for RCS->CVS migration

[moira.git] / util / et / et_lex.lex.l

diff --git a/util/et/et_lex.lex.l b/util/et/et_lex.lex.l
new file mode 100644 (file)
index 0000000..5d38000
--- /dev/null
+++ b/util/et/et_lex.lex.l
@@ -0,0 +1,26 @@
+PC     [^\"]
+AN     [A-Z_a-z0-9]
+%%
+
+error_table    return ERROR_TABLE;
+et             return ERROR_TABLE;
+error_code     return ERROR_CODE_ENTRY;
+ec             return ERROR_CODE_ENTRY;
+end            return END;
+
+[\t\n ]                ;
+
+\"{PC}*\"      { register char *p; yylval.dynstr = ds(yytext+1);
+                 if (p=rindex(yylval.dynstr, '"')) *p='\0';
+                 return QUOTED_STRING;
+               }
+
+{AN}*  { yylval.dynstr = ds(yytext); return STRING; }
+
+#.*\n          ;
+
+.              { return (*yytext); }
+%%
+#ifndef lint
+static char rcsid_et_lex_lex_l[] = "$Header$";
+#endif