Import latest com_err sources from Athena

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

diff --git a/util/et/et_lex.lex.l b/util/et/et_lex.lex.l
index 5d38000b3c12dd1c3c42604e1bdde9c76aa91f0f..ceef46a045dfe05fecc79cbe62baa441ff0d8def 100644 (file)
--- a/util/et/et_lex.lex.l
+++ b/util/et/et_lex.lex.l
@@ -1,6 +1,12 @@
+%{
+#undef yywrap
+int num_lines = 0;
+%}
+
 PC     [^\"]
 AN     [A-Z_a-z0-9]
 %%
+\n             ++num_lines;
 
 error_table    return ERROR_TABLE;
 et             return ERROR_TABLE;
@@ -11,7 +17,8 @@ end           return END;
 [\t\n ]                ;
 
 \"{PC}*\"      { register char *p; yylval.dynstr = ds(yytext+1);
-                 if (p=rindex(yylval.dynstr, '"')) *p='\0';
+                 p=strrchr(yylval.dynstr, '"');
+                 if (p) *p='\0';
                  return QUOTED_STRING;
                }
 
@@ -21,6 +28,9 @@ end           return END;
 
 .              { return (*yytext); }
 %%
-#ifndef lint
-static char rcsid_et_lex_lex_l[] = "$Header$";
-#endif
+static const char l_rcsid[] = "$Id$";
+
+int yywrap()
+{
+       return 1;
+}