Mercurial > octave-nkf

comparison src/lex.l @ 922:708827b941b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-14 22:14:13 by jwe]
author jwe
date Mon, 14 Nov 1994 22:14:13 +0000
parents 2f35156aa18b
children 8b0920cc1d64
comparison
equal deleted inserted replaced
921:58f0c171bbbd 922:708827b941b4
966 } 966 }
967 967
968 int l = input_line_number; 968 int l = input_line_number;
969 int c = current_input_column; 969 int c = current_input_column;
970 970
971 // XXX FIXME XXX -- this has really become too large a list to search
972 // like this...
973
971 int end_found = 0; 974 int end_found = 0;
972 if (strcmp ("break", s) == 0) 975 if (strcmp ("break", s) == 0)
973 { 976 {
974 yylval.tok_val = new token (l, c); 977 yylval.tok_val = new token (l, c);
975 token_stack.push (yylval.tok_val); 978 token_stack.push (yylval.tok_val);
1123 else if (strcmp ("end_unwind_protect", s) == 0) 1126 else if (strcmp ("end_unwind_protect", s) == 0)
1124 { 1127 {
1125 end_found = 1; 1128 end_found = 1;
1126 yylval.tok_val = new token (token::unwind_protect_end, l, c); 1129 yylval.tok_val = new token (token::unwind_protect_end, l, c);
1127 token_stack.push (yylval.tok_val); 1130 token_stack.push (yylval.tok_val);
1131 }
1132 else if (strcmp ("all_va_args", s) == 0)
1133 {
1134 yylval.tok_val = new token (l, c);
1135 token_stack.push (yylval.tok_val);
1136 return ALL_VA_ARGS;
1128 } 1137 }
1129 1138
1130 if (end_found) 1139 if (end_found)
1131 { 1140 {
1132 if (! defining_func && ! looping) 1141 if (! defining_func && ! looping)