Mercurial > hg > octave-lyh
comparison libinterp/interpfcn/input.cc @ 16109:229eb14653fd
new entry point for parser
* oct-parse.yy (octave_parse_input): New function.
(parse_fcn_file, eval_string): Use it instead of yyparse.
* toplev.cc (main_loop): Use it instead of octave_parse.
* input.cc (get_debug_input): Use it instead of octave_parse.
* oct-parse.h (octave_parse_input): Provide decl.
(octave_parse): Delete decl.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Tue, 26 Feb 2013 00:45:43 -0500 |
| parents | 24b3800d30e7 |
| children | 7302f8a4df83 |
comparison
equal
deleted
inserted
replaced
| 16108:3cce6b4e0f7c | 16109:229eb14653fd |
|---|---|
| 692 // Do this with an unwind-protect cleanup function so that the | 692 // Do this with an unwind-protect cleanup function so that the |
| 693 // forced variables will be unmarked in the event of an interrupt. | 693 // forced variables will be unmarked in the event of an interrupt. |
| 694 symbol_table::scope_id scope = symbol_table::top_scope (); | 694 symbol_table::scope_id scope = symbol_table::top_scope (); |
| 695 frame.add_fcn (symbol_table::unmark_forced_variables, scope); | 695 frame.add_fcn (symbol_table::unmark_forced_variables, scope); |
| 696 | 696 |
| 697 // This is the same as yyparse in parse.y. | 697 int retval = octave_parse_input (); |
| 698 int retval = octave_parse (); | |
| 699 | 698 |
| 700 if (retval == 0 && global_command) | 699 if (retval == 0 && global_command) |
| 701 { | 700 { |
| 702 unwind_protect inner_frame; | 701 unwind_protect inner_frame; |
| 703 | 702 |