Mercurial > hg > octave-lojdl
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 == '=')); } %{