Mercurial > hg > octave-nkf

comparison src/lex.l @ 1829:7d2982b55242

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-02-02 14:12:59 by jwe]
author jwe
date Fri, 02 Feb 1996 14:13:13 +0000
parents b14829582cc4
children e62277bf5fe0
comparison
equal deleted inserted replaced
1828:3bd6fe04ca27 1829:7d2982b55242
52 #include "token.h" 52 #include "token.h"
53 #include "pt-base.h" 53 #include "pt-base.h"
54 #include "pt-cmd.h" 54 #include "pt-cmd.h"
55 #include "pt-const.h" 55 #include "pt-const.h"
56 #include "pt-exp.h" 56 #include "pt-exp.h"
57 #include "pt-mat.h"
57 #include "pt-misc.h" 58 #include "pt-misc.h"
58 #include "pt-plot.h" 59 #include "pt-plot.h"
59 #include "user-prefs.h" 60 #include "user-prefs.h"
60 #include "utils.h" 61 #include "utils.h"
61 #include "variables.h" 62 #include "variables.h"
323 lexer_flags.in_plot_range = 1; 324 lexer_flags.in_plot_range = 1;
324 return OPEN_BRACE; 325 return OPEN_BRACE;
325 } 326 }
326 else 327 else
327 { 328 {
328 mlnm.push (1);
329 lexer_flags.braceflag++; 329 lexer_flags.braceflag++;
330 BEGIN MATRIX; 330 BEGIN MATRIX;
331 return '['; 331 return '[';
332 } 332 }
333 } 333 }
610 // We do want a prompt by default. 610 // We do want a prompt by default.
611 promptflag = 1; 611 promptflag = 1;
612 612
613 // Error may have occurred inside some parentheses or braces. 613 // Error may have occurred inside some parentheses or braces.
614 nesting_level.clear (); 614 nesting_level.clear ();
615
616 // Not initially defining a matrix list.
617 ml.clear ();
618 mlnm.clear ();
619 615
620 // Clear out the stack of token info used to track line and column 616 // Clear out the stack of token info used to track line and column
621 // numbers. 617 // numbers.
622 while (! token_stack.empty ()) 618 while (! token_stack.empty ())
623 delete token_stack.pop (); 619 delete token_stack.pop ();