From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Tue, 19 Jun 1990 12:08:32 +0000 (-0800)
Subject: BSD 4_3_Reno development
X-Git-Tag: BSD-4_3_Reno~209
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/9544a5856c575de99e2449689b3bdd71fde6d12a

BSD 4_3_Reno development
Work on file usr/src/kerberosIV/compile_et/et_lex.lex.l

Synthesized-from: CSRG/cd2/4.3reno
---

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
index 0000000000..c4b499b958
--- /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); }
+%%