Mercurial > octave-dspies

comparison src/lex.l @ 916:2f35156aa18b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-11 00:36:31 by jwe]
author jwe
date Fri, 11 Nov 1994 00:36:31 +0000
parents ff0bbf26b028
children 708827b941b4
comparison
equal deleted inserted replaced
915:b632b159b4ed 916:2f35156aa18b
1105 looping++; 1105 looping++;
1106 yylval.tok_val = new token (l, c); 1106 yylval.tok_val = new token (l, c);
1107 token_stack.push (yylval.tok_val); 1107 token_stack.push (yylval.tok_val);
1108 return WHILE; 1108 return WHILE;
1109 } 1109 }
1110 else if (strcmp ("unwind_protect", s) == 0)
1111 {
1112 promptflag--;
1113 yylval.tok_val = new token (l, c);
1114 token_stack.push (yylval.tok_val);
1115 return UNWIND_PROTECT;
1116 }
1117 else if (strcmp ("unwind_protect_cleanup", s) == 0)
1118 {
1119 yylval.tok_val = new token (l, c);
1120 token_stack.push (yylval.tok_val);
1121 return UNWIND_PROTECT_CLEANUP;
1122 }
1123 else if (strcmp ("end_unwind_protect", s) == 0)
1124 {
1125 end_found = 1;
1126 yylval.tok_val = new token (token::unwind_protect_end, l, c);
1127 token_stack.push (yylval.tok_val);
1128 }
1110 1129
1111 if (end_found) 1130 if (end_found)
1112 { 1131 {
1113 if (! defining_func && ! looping) 1132 if (! defining_func && ! looping)
1114 promptflag++; 1133 promptflag++;