Mercurial > hg > octave-nkf

comparison src/lex.l @ 627:739d16c30481

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-08-19 13:23:14 by jwe]
author jwe
date Fri, 19 Aug 1994 13:24:32 +0000
parents 8e4e7e5f307e
children 9ccf86647203
comparison
equal deleted inserted replaced
626:96be9eae023f 627:739d16c30481
177 <TEXT_FCN>\'{QSTR}*[\n\'] { 177 <TEXT_FCN>\'{QSTR}*[\n\'] {
178 if (yytext[yyleng-1] == '\n') 178 if (yytext[yyleng-1] == '\n')
179 { 179 {
180 error ("unterminated string constant"); 180 error ("unterminated string constant");
181 current_input_column = 1; 181 current_input_column = 1;
182 jump_to_top_level (); 182 return LEXICAL_ERROR;
183 } 183 }
184 else 184 else
185 { 185 {
186 static char *tok = 0; 186 static char *tok = 0;
187 delete [] tok; 187 delete [] tok;
200 <TEXT_FCN>\"{DQSTR}*[\n\"] { 200 <TEXT_FCN>\"{DQSTR}*[\n\"] {
201 if (yytext[yyleng-1] == '\n') 201 if (yytext[yyleng-1] == '\n')
202 { 202 {
203 error ("unterminated string constant"); 203 error ("unterminated string constant");
204 current_input_column = 1; 204 current_input_column = 1;
205 jump_to_top_level (); 205 return LEXICAL_ERROR;
206 } 206 }
207 else 207 else
208 { 208 {
209 static char *tok = 0; 209 static char *tok = 0;
210 delete [] tok; 210 delete [] tok;
230 230
231 if (yytext[yyleng-1] == '\n') 231 if (yytext[yyleng-1] == '\n')
232 { 232 {
233 error ("unterminated string constant"); 233 error ("unterminated string constant");
234 current_input_column = 1; 234 current_input_column = 1;
235 jump_to_top_level (); 235 return LEXICAL_ERROR;
236 } 236 }
237 else 237 else
238 { 238 {
239 static char *tok = 0; 239 static char *tok = 0;
240 delete [] tok; 240 delete [] tok;
260 260
261 if (yytext[yyleng-1] == '\n') 261 if (yytext[yyleng-1] == '\n')
262 { 262 {
263 error ("unterminated string constant"); 263 error ("unterminated string constant");
264 current_input_column = 1; 264 current_input_column = 1;
265 jump_to_top_level (); 265 return LEXICAL_ERROR;
266 } 266 }
267 else 267 else
268 { 268 {
269 static char *tok = 0; 269 static char *tok = 0;
270 delete [] tok; 270 delete [] tok;
1041 error ("defining new function near line %d of file `%s.m'", 1041 error ("defining new function near line %d of file `%s.m'",
1042 input_line_number, curr_fcn_file_name); 1042 input_line_number, curr_fcn_file_name);
1043 else 1043 else
1044 error ("defining new function near line %d", input_line_number); 1044 error ("defining new function near line %d", input_line_number);
1045 1045
1046 jump_to_top_level (); // XXX FIXME XXX 1046 return LEXICAL_ERROR;
1047 } 1047 }
1048 else 1048 else
1049 { 1049 {
1050 tmp_local_sym_tab = new symbol_table (); 1050 tmp_local_sym_tab = new symbol_table ();
1051 curr_sym_tab = tmp_local_sym_tab; 1051 curr_sym_tab = tmp_local_sym_tab;