Mercurial > hg > octave-nkf
changeset 1420:9ce9e4f1e5b5
[project @ 1995-09-16 01:18:28 by jwe]
author | jwe |
---|---|
date | Sat, 16 Sep 1995 01:18:28 +0000 |
parents | 0bdbc15a112b |
children | 3b77015d7f42 |
files | src/lex.l |
diffstat | 1 files changed, 1 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lex.l +++ b/src/lex.l @@ -20,7 +20,6 @@ */ -%x HELP_FCN %s TEXT_FCN %s MATRIX @@ -154,7 +153,6 @@ // parser too. %} -<HELP_FCN>{NL} | <TEXT_FCN>{NL} { BEGIN 0; current_input_column = 1; @@ -184,7 +182,6 @@ return handle_string (yytext[0], 1); } -<HELP_FCN>[^ \t\n]*{S}* | <TEXT_FCN>[^ \t\n\;\,]*{S}* { char *tok = strip_trailing_whitespace (yytext); TOK_PUSH_AND_RETURN (tok, TEXT); @@ -1759,9 +1756,7 @@ { BEGIN TEXT_FCN; - if (strcmp (tok, "help") == 0) - BEGIN HELP_FCN; - else if (strcmp (tok, "set") == 0) + if (strcmp (tok, "set") == 0) doing_set = 1; }