changeset 970:9382316a8a01

[project @ 1994-12-12 06:03:34 by jwe]
author jwe
date Mon, 12 Dec 1994 06:03:34 +0000
parents ddfbda8bf9fb
children fe71abb43457
files src/lex.l
diffstat 1 files changed, 5 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/src/lex.l
+++ b/src/lex.l
@@ -545,23 +545,17 @@
   }
 
 %{
-// Identifiers.  It matters if the next non-whitespace token is `=',
-// so match that here.
+// Identifiers.  Truncate the token at the first space or tab but
+// don't write directly on yytext.
 %}
 
 {IDENT}{S}* {
-
-// Truncate the token at the first space or tab but don't write
-// directly on yytext.
-
     static char *tok = 0;
     delete [] tok;
     tok = strip_trailing_whitespace (yytext);
-    return handle_identifier (tok, 0);
-  }
-
-{IDENT}/{S}*= {
-    return handle_identifier (yytext, 1);
+    int c = yyinput ();
+    unput (c);
+    return handle_identifier (tok, (c == '='));
   }
 
 %{