BSD 4_3_Net_2 development

Work on file usr/src/kerberosIV/compile_et/et_lex.lex.l

Synthesized-from: CSRG/cd2/net.2

diff --git a/usr/src/kerberosIV/compile_et/et_lex.lex.l b/usr/src/kerberosIV/compile_et/et_lex.lex.l
new file mode 100644 (file)
index 0000000..c4b499b
--- /dev/null
+++ b/usr/src/kerberosIV/compile_et/et_lex.lex.l
@@ -0,0 +1,29 @@
+%{
+extern int yylineno;
+int yylineno = 1;
+%}
+
+PC     [^\"\n]
+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             ++yylineno;
+
+\"{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          ++yylineno;
+
+.              { return (*yytext); }
+%%