octave: libinterp/parse-tree/pt-eval.h annotate

annotate libinterp/parse-tree/pt-eval.h @ 25404:e37d857716c3

move core of interpreter::main_loop to evaluator * pt-eval.h, pt-eval.cc (tree_evaluator::repl): New fucntion, adapted from core of interpreter::main_loop. (tree_evaluator::breaking, tree_evaluator::continuing, tree_evaluator::returning): New variants to allow the corresponding variables to be set. * interpreter.cc (interpreter::main_loop): Call tree_evaluator::repl.

author	John W. Eaton <jwe@octave.org>
date	Tue, 22 May 2018 15:23:50 -0400
parents	2b7d7a3f5f57
children	b3d357990b52

rev	line source
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	1 /*
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	2
25054 6652d3823428 maint: Update copyright dates in all source files. John W. Eaton <jwe@octave.org> parents: 24563 diff changeset	3 Copyright (C) 2009-2018 John W. Eaton
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	4
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	5 This file is part of Octave.
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	6
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24362 diff changeset	7 Octave is free software: you can redistribute it and/or modify it
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	8 under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24362 diff changeset	9 the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	10 (at your option) any later version.
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	11
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	15 GNU General Public License for more details.
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	16
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	17 You should have received a copy of the GNU General Public License
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	18 along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24362 diff changeset	19 <https://www.gnu.org/licenses/>.
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	20
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	21 */
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	22
20791 f7084eae3318 maint: Use Octave coding conventions for #if statements. Rik <rik@octave.org> parents: 20535 diff changeset	23 #if ! defined (octave_pt_eval_h)
17822 ebb3ef964372 maint: Use common #define syntax "octave_filename_h" in h_files. Rik <rik@octave.org> parents: 17744 diff changeset	24 #define octave_pt_eval_h 1
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	25
21244 1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	26 #include "octave-config.h"
1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 20940 diff changeset	27
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	28 #include <list>
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	29 #include <set>
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	30 #include <stack>
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	31 #include <string>
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	32
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	33 #include "bp-table.h"
23553 14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23532 diff changeset	34 #include "call-stack.h"
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	35 #include "ov.h"
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20824 diff changeset	36 #include "ovl.h"
23753 c3828bd031cd move profiler inside evaluator and inside octave namespace John W. Eaton <jwe@octave.org> parents: 23750 diff changeset	37 #include "profiler.h"
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	38 #include "pt-exp.h"
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	39 #include "pt-walk.h"
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	40
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	41 class octave_user_code;
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	42
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	43 namespace octave
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	44 {
24362 3fc24b792a24 avoid including symtab.h, symscope.h, or symrec.h unnecessarily John W. Eaton <jwe@octave.org> parents: 24361 diff changeset	45 class symbol_scope;
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	46 class tree_decl_elt;
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	47 class tree_expression;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	48
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	49 class interpreter;
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	50 class unwind_protect;
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	51
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	52 enum result_type
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	53 {
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	54 RT_UNDEFINED = 0,
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	55 RT_VALUE = 1,
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	56 RT_VALUE_LIST = 2
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	57 };
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	58
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	59 // How to evaluate the code that the parse trees represent.
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	60
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	61 class OCTINTERP_API tree_evaluator : public tree_walker
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	62 {
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	63 public:
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	64
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	65 enum echo_state
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	66 {
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	67 ECHO_OFF = 0,
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	68 ECHO_SCRIPTS = 1,
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	69 ECHO_FUNCTIONS = 2,
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	70 ECHO_ALL = 4
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	71 };
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	72
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	73 template <typename T>
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	74 class value_stack
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	75 {
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	76 public:
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	77
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	78 value_stack (void) = default;
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	79
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	80 value_stack (const value_stack&) = default;
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	81
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	82 value_stack& operator = (const value_stack&) = default;
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	83
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	84 ~value_stack (void) = default;
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	85
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	86 void push (const T& val) { m_stack.push (val); }
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	87
23481 73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	88 void pop (void)
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	89 {
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	90 m_stack.pop ();
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	91 }
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	92
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	93 T val_pop (void)
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	94 {
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	95 T retval = m_stack.top ();
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	96 m_stack.pop ();
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	97 return retval;
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	98 }
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	99
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	100 T top (void) const
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	101 {
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	102 return m_stack.top ();
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	103 }
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	104
23481 73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	105 size_t size (void) const
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	106 {
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	107 return m_stack.size ();
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	108 }
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	109
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	110 bool empty (void) const
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	111 {
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	112 return m_stack.empty ();
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	113 }
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	114
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	115 void clear (void)
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	116 {
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	117 while (! m_stack.empty ())
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	118 m_stack.pop ();
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	119 }
23458 0f4ed33886de maint: Strip trailing whitespace from source files. John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	120
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	121 private:
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	122
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	123 std::stack<T> m_stack;
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	124 };
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	125
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	126 typedef void (*decl_elt_init_fcn) (tree_decl_elt&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	127
23532 084245f9bd03 pass reference to evaluator to octave_function call methods John W. Eaton <jwe@octave.org> parents: 23482 diff changeset	128 tree_evaluator (interpreter& interp)
25401 6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	129 : m_interpreter (interp), m_statement_context (SC_OTHER),
6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	130 m_result_type (RT_UNDEFINED), m_expr_result_value (),
6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	131 m_expr_result_value_list (), m_lvalue_list_stack (),
6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	132 m_nargout_stack (), m_bp_table (*this), m_call_stack (interp),
25402 ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	133 m_profiler (), m_current_frame (0), m_debug_mode (false),
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	134 m_quiet_breakpoint_flag (false), m_max_recursion_depth (256),
25377 b75d55b3dbb7 maint: Merge stable to default. John W. Eaton <jwe@octave.org> parents: 25360 25372 diff changeset	135 m_silent_functions (false), m_string_fill_char (' '),
b75d55b3dbb7 maint: Merge stable to default. John W. Eaton <jwe@octave.org> parents: 25360 25372 diff changeset	136 m_PS4 ("+ "), m_dbstep_flag (0), m_echo (ECHO_OFF),
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	137 m_echo_state (false), m_echo_file_name (), m_echo_file_pos (1),
25382 749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	138 m_echo_files (), m_in_loop_command (false),
25403 2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	139 m_breaking (0), m_continuing (0), m_returning (0),
25382 749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	140 m_indexed_object (nullptr), m_index_position (0), m_num_indices (0)
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	141 { }
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	142
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	143 // No copying!
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	144
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	145 tree_evaluator (const tree_evaluator&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	146
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	147 tree_evaluator& operator = (const tree_evaluator&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	148
22868 87e3163f6c87 use c++11 "= default" syntax for declaration of trivial destructors John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	149 ~tree_evaluator (void) = default;
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	150
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	151 void reset (void);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	152
25404 e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	153 int repl (bool interactive);
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	154
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	155 void visit_anon_fcn_handle (tree_anon_fcn_handle&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	156
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	157 void visit_argument_list (tree_argument_list&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	158
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	159 void visit_binary_expression (tree_binary_expression&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	160
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	161 void visit_boolean_expression (tree_boolean_expression&);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	162
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	163 void visit_compound_binary_expression (tree_compound_binary_expression&);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	164
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	165 void visit_break_command (tree_break_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	166
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	167 void visit_colon_expression (tree_colon_expression&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	168
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	169 void visit_continue_command (tree_continue_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	170
23469 2699c5974844 handle global and persistent in tree_decl_command, not as separate classes John W. Eaton <jwe@octave.org> parents: 23458 diff changeset	171 void visit_decl_command (tree_decl_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	172
23469 2699c5974844 handle global and persistent in tree_decl_command, not as separate classes John W. Eaton <jwe@octave.org> parents: 23458 diff changeset	173 void visit_decl_init_list (tree_decl_init_list&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	174
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	175 void visit_decl_elt (tree_decl_elt&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	176
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	177 void visit_simple_for_command (tree_simple_for_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	178
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	179 void visit_complex_for_command (tree_complex_for_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	180
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	181 void visit_octave_user_script (octave_user_script&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	182
25400 d423ce60f5c8 evaluate script and function code in tree_evaluator methods John W. Eaton <jwe@octave.org> parents: 25382 diff changeset	183 octave_value_list
d423ce60f5c8 evaluate script and function code in tree_evaluator methods John W. Eaton <jwe@octave.org> parents: 25382 diff changeset	184 execute_user_script (octave_user_script& user_script, int nargout,
d423ce60f5c8 evaluate script and function code in tree_evaluator methods John W. Eaton <jwe@octave.org> parents: 25382 diff changeset	185 const octave_value_list& args);
d423ce60f5c8 evaluate script and function code in tree_evaluator methods John W. Eaton <jwe@octave.org> parents: 25382 diff changeset	186
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	187 void visit_octave_user_function (octave_user_function&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	188
25400 d423ce60f5c8 evaluate script and function code in tree_evaluator methods John W. Eaton <jwe@octave.org> parents: 25382 diff changeset	189 octave_value_list
d423ce60f5c8 evaluate script and function code in tree_evaluator methods John W. Eaton <jwe@octave.org> parents: 25382 diff changeset	190 execute_user_function (octave_user_function& user_function, int nargout,
d423ce60f5c8 evaluate script and function code in tree_evaluator methods John W. Eaton <jwe@octave.org> parents: 25382 diff changeset	191 const octave_value_list& args);
d423ce60f5c8 evaluate script and function code in tree_evaluator methods John W. Eaton <jwe@octave.org> parents: 25382 diff changeset	192
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	193 void visit_octave_user_function_header (octave_user_function&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	194
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	195 void visit_octave_user_function_trailer (octave_user_function&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	196
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	197 void visit_function_def (tree_function_def&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	198
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	199 void visit_identifier (tree_identifier&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	200
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	201 void visit_if_clause (tree_if_clause&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	202
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	203 void visit_if_command (tree_if_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	204
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	205 void visit_if_command_list (tree_if_command_list&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	206
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	207 void visit_index_expression (tree_index_expression&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	208
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	209 void visit_matrix (tree_matrix&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	210
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	211 void visit_cell (tree_cell&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	212
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	213 void visit_multi_assignment (tree_multi_assignment&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	214
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	215 void visit_no_op_command (tree_no_op_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	216
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	217 void visit_constant (tree_constant&);
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	218
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	219 void visit_fcn_handle (tree_fcn_handle&);
15035 a820a990968e new tree_funcall class John W. Eaton <jwe@octave.org> parents: 14294 diff changeset	220
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	221 void visit_funcall (tree_funcall&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	222
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	223 void visit_parameter_list (tree_parameter_list&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	224
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	225 void visit_postfix_expression (tree_postfix_expression&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	226
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	227 void visit_prefix_expression (tree_prefix_expression&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	228
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	229 void visit_return_command (tree_return_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	230
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	231 void visit_return_list (tree_return_list&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	232
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	233 void visit_simple_assignment (tree_simple_assignment&);
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	234
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	235 void visit_statement (tree_statement&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	236
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	237 void visit_statement_list (tree_statement_list&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	238
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	239 void visit_switch_case (tree_switch_case&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	240
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	241 void visit_switch_case_list (tree_switch_case_list&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	242
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	243 void visit_switch_command (tree_switch_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	244
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	245 void visit_try_catch_command (tree_try_catch_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	246
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	247 void do_unwind_protect_cleanup_code (tree_statement_list *list);
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9484 diff changeset	248
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	249 void visit_unwind_protect_command (tree_unwind_protect_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	250
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	251 void visit_while_command (tree_while_command&);
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	252 void visit_do_until_command (tree_do_until_command&);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	253
23702 d396b5fd9199 move bind_ans to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23696 diff changeset	254 void bind_ans (const octave_value& val, bool print);
d396b5fd9199 move bind_ans to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23696 diff changeset	255
23705 4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	256 bool statement_printing_enabled (void);
10186 095a1e670e68 make dbstep work with keyboard function John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	257
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	258 void reset_debug_state (void);
15606 fb9dffe5fbfb The silent_functions flag no longer modifies the parse tree Max Brister <max@2bass.com> parents: 15195 diff changeset	259
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	260 void reset_debug_state (bool mode);
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	261
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	262 void set_dbstep_flag (int step) { m_dbstep_flag = step; }
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	263
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	264 // Possible types of evaluation contexts.
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	265 enum stmt_list_type
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	266 {
25401 6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	267 SC_FUNCTION, // function body
6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	268 SC_SCRIPT, // script file
6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	269 SC_OTHER // command-line input or eval string
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	270 };
11304 c9fefa096ce2 echo commands in scripts John W. Eaton <jwe@octave.org> parents: 10578 diff changeset	271
23481 73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	272 Matrix ignored_fcn_outputs (void) const;
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	273
24349 4ced2bfd737e deprecate defun_isargout functions John W. Eaton <jwe@octave.org> parents: 24270 diff changeset	274 bool isargout (int nargout, int iout) const;
4ced2bfd737e deprecate defun_isargout functions John W. Eaton <jwe@octave.org> parents: 24270 diff changeset	275
4ced2bfd737e deprecate defun_isargout functions John W. Eaton <jwe@octave.org> parents: 24270 diff changeset	276 void isargout (int nargout, int nout, bool *isargout) const;
4ced2bfd737e deprecate defun_isargout functions John W. Eaton <jwe@octave.org> parents: 24270 diff changeset	277
4ced2bfd737e deprecate defun_isargout functions John W. Eaton <jwe@octave.org> parents: 24270 diff changeset	278 const std::list<octave_lvalue> * lvalue_list (void) const
23481 73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	279 {
24349 4ced2bfd737e deprecate defun_isargout functions John W. Eaton <jwe@octave.org> parents: 24270 diff changeset	280 return (m_lvalue_list_stack.empty ()
4ced2bfd737e deprecate defun_isargout functions John W. Eaton <jwe@octave.org> parents: 24270 diff changeset	281 ? nullptr : m_lvalue_list_stack.top ());
23481 73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	282 }
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	283
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	284 void push_result (const octave_value& val)
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	285 {
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	286 m_result_type = RT_VALUE;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	287 m_expr_result_value = val;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	288 }
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	289
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	290 void push_result (const octave_value_list& vals)
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	291 {
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	292 m_result_type = RT_VALUE_LIST;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	293 m_expr_result_value_list = vals;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	294 }
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	295
23481 73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	296 octave_value evaluate (tree_expression *expr, int nargout = 1)
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	297 {
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	298 octave_value retval;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	299
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	300 m_nargout_stack.push (nargout);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	301
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	302 expr->accept (*this);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	303
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	304 m_nargout_stack.pop ();
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	305
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	306 switch (m_result_type)
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	307 {
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	308 case RT_UNDEFINED:
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	309 panic_impossible ();
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	310 break;
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	311
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	312 case RT_VALUE:
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	313 retval = m_expr_result_value;
25317 4a46c83bcb71 don't hold reference to expression result after evaluation is done John W. Eaton <jwe@octave.org> parents: 25054 diff changeset	314 m_expr_result_value = octave_value ();
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	315 break;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	316
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	317 case RT_VALUE_LIST:
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	318 retval = (m_expr_result_value_list.empty ()
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	319 ? octave_value () : m_expr_result_value_list(0));
25317 4a46c83bcb71 don't hold reference to expression result after evaluation is done John W. Eaton <jwe@octave.org> parents: 25054 diff changeset	320 m_expr_result_value_list = octave_value_list ();
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	321 break;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	322 }
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	323
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	324 return retval;
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	325 }
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	326
23481 73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	327 octave_value_list evaluate_n (tree_expression *expr, int nargout = 1)
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	328 {
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	329 octave_value_list retval;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	330
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	331 m_nargout_stack.push (nargout);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	332
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	333 expr->accept (*this);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	334
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	335 m_nargout_stack.pop ();
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	336
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	337 switch (m_result_type)
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	338 {
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	339 case RT_UNDEFINED:
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	340 panic_impossible ();
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	341 break;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	342
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	343 case RT_VALUE:
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	344 retval = ovl (m_expr_result_value);
25317 4a46c83bcb71 don't hold reference to expression result after evaluation is done John W. Eaton <jwe@octave.org> parents: 25054 diff changeset	345 m_expr_result_value = octave_value ();
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	346 break;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	347
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	348 case RT_VALUE_LIST:
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	349 retval = m_expr_result_value_list;
25317 4a46c83bcb71 don't hold reference to expression result after evaluation is done John W. Eaton <jwe@octave.org> parents: 25054 diff changeset	350 m_expr_result_value_list = octave_value_list ();
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	351 break;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	352 }
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	353
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	354 return retval;
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	355 }
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	356
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	357 octave_value evaluate (tree_decl_elt *);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	358
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	359 void define_parameter_list_from_arg_vector
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	360 (tree_parameter_list *param_list, const octave_value_list& args);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	361
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	362 void undefine_parameter_list (tree_parameter_list *param_list);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	363
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	364 octave_value_list
25382 749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	365 convert_to_const_vector (tree_argument_list *arg_list,
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	366 const octave_value *object = nullptr);
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	367
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	368 octave_value_list
23916 85488effc0ff refactor function value return code John W. Eaton <jwe@octave.org> parents: 23795 diff changeset	369 convert_return_list_to_const_vector
85488effc0ff refactor function value return code John W. Eaton <jwe@octave.org> parents: 23795 diff changeset	370 (tree_parameter_list *ret_list, int nargout, const Cell& varargout);
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	371
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	372 bool eval_decl_elt (tree_decl_elt *elt);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	373
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	374 bool switch_case_label_matches (tree_switch_case *expr,
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	375 const octave_value& val);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	376
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	377 interpreter& get_interpreter (void) { return m_interpreter; }
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	378
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	379 bp_table& get_bp_table (void) { return m_bp_table; }
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	380
23553 14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23532 diff changeset	381 call_stack& get_call_stack (void) { return m_call_stack; }
14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23532 diff changeset	382
23753 c3828bd031cd move profiler inside evaluator and inside octave namespace John W. Eaton <jwe@octave.org> parents: 23750 diff changeset	383 profiler& get_profiler (void) { return m_profiler; }
c3828bd031cd move profiler inside evaluator and inside octave namespace John W. Eaton <jwe@octave.org> parents: 23750 diff changeset	384
24361 8bcfddad15ec use shared_ptr to manage symbol_scope objects John W. Eaton <jwe@octave.org> parents: 24349 diff changeset	385 symbol_scope get_current_scope (void);
24037 21915520ac7b use more direct method for non-local symbol access (bug #38236) John W. Eaton <jwe@octave.org> parents: 23916 diff changeset	386
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	387 octave_user_code * get_user_code (const std::string& fname = "");
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	388
23705 4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	389 int max_recursion_depth (void) const { return m_max_recursion_depth; }
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	390
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	391 int max_recursion_depth (int n)
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	392 {
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	393 int val = m_max_recursion_depth;
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	394 m_max_recursion_depth = n;
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	395 return val;
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	396 }
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	397
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	398 octave_value
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	399 max_recursion_depth (const octave_value_list& args, int nargout);
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	400
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	401 bool silent_functions (void) const { return m_silent_functions; }
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	402
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	403 bool silent_functions (bool b)
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	404 {
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	405 int val = m_silent_functions;
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	406 m_silent_functions = b;
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	407 return val;
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	408 }
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	409
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	410 octave_value
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	411 silent_functions (const octave_value_list& args, int nargout);
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	412
25402 ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	413 size_t current_frame (void) const { return m_current_frame; }
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	414
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	415 size_t current_frame (size_t n)
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	416 {
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	417 size_t val = m_current_frame;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	418 m_current_frame = n;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	419 return val;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	420 }
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	421
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	422 bool debug_mode (void) const { return m_debug_mode; }
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	423
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	424 bool debug_mode (bool flag)
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	425 {
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	426 bool val = m_debug_mode;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	427 m_debug_mode = flag;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	428 return val;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	429 }
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	430
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	431 bool quiet_breakpoint_flag (void) const { return m_quiet_breakpoint_flag; }
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	432
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	433 bool quiet_breakpoint_flag (bool flag)
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	434 {
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	435 bool val = m_quiet_breakpoint_flag;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	436 m_quiet_breakpoint_flag = flag;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	437 return val;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	438 }
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	439
23706 6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	440 char string_fill_char (void) const { return m_string_fill_char; }
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	441
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	442 char string_fill_char (char c)
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	443 {
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	444 int val = m_string_fill_char;
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	445 m_string_fill_char = c;
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	446 return val;
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	447 }
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	448
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	449 octave_value PS4 (const octave_value_list& args, int nargout);
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	450
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	451 std::string PS4 (void) const { return m_PS4; }
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	452
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	453 std::string PS4 (const std::string& s)
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	454 {
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	455 std::string val = m_PS4;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	456 m_PS4 = s;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	457 return val;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	458 }
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	459
25382 749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	460 const octave_value * indexed_object (void) const
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	461 {
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	462 return m_indexed_object;
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	463 }
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	464
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	465 int index_position (void) const { return m_index_position; }
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	466
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	467 int num_indices (void) const { return m_num_indices; }
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	468
25403 2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	469 int breaking (void) const { return m_breaking; }
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	470
25404 e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	471 int breaking (int n)
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	472 {
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	473 int val = m_breaking;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	474 m_breaking = n;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	475 return val;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	476 }
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	477
25403 2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	478 int continuing (void) const { return m_continuing; }
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	479
25404 e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	480 int continuing (int n)
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	481 {
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	482 int val = m_continuing;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	483 m_continuing = n;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	484 return val;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	485 }
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	486
25403 2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	487 int returning (void) const { return m_returning; }
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	488
25404 e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	489 int returning (int n)
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	490 {
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	491 int val = m_returning;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	492 m_returning = n;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	493 return val;
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	494 }
e37d857716c3 move core of interpreter::main_loop to evaluator John W. Eaton <jwe@octave.org> parents: 25403 diff changeset	495
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	496 octave_value echo (const octave_value_list& args, int nargout);
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	497
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	498 int echo (void) const { return m_echo; }
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	499
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	500 int echo (int val)
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	501 {
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	502 int old_val = m_echo;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	503 m_echo = val;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	504 return old_val;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	505 }
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	506
23706 6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	507 octave_value
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	508 string_fill_char (const octave_value_list& args, int nargout);
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	509
23729 06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	510 void push_echo_state (unwind_protect& frame, int type,
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	511 const std::string& file_name, size_t pos = 1);
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	512
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	513 private:
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	514
23729 06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	515 void set_echo_state (int type, const std::string& file_name, size_t pos);
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	516
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	517 void maybe_set_echo_state (void);
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	518
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	519 void push_echo_state_cleanup (unwind_protect& frame);
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	520
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	521 bool maybe_push_echo_state_cleanup (void);
06b3d1d54054 allow echo state to be modified from inside functions John W. Eaton <jwe@octave.org> parents: 23728 diff changeset	522
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	523 void do_breakpoint (tree_statement& stmt);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	524
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	525 void do_breakpoint (bool is_breakpoint,
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	526 bool is_end_of_fcn_or_script = false);
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	527
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	528 virtual octave_value
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	529 do_keyboard (const octave_value_list& args = octave_value_list ()) const;
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	530
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	531 bool is_logically_true (tree_expression expr, const char warn_for);
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	532
23482 c9937e865768 make isargout work again for nested function calls John W. Eaton <jwe@octave.org> parents: 23481 diff changeset	533 octave_value_list
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23615 diff changeset	534 make_value_list (tree_argument_list *args,
23482 c9937e865768 make isargout work again for nested function calls John W. Eaton <jwe@octave.org> parents: 23481 diff changeset	535 const string_vector& arg_nm,
c9937e865768 make isargout work again for nested function calls John W. Eaton <jwe@octave.org> parents: 23481 diff changeset	536 const octave_value *object, bool rvalue = true);
c9937e865768 make isargout work again for nested function calls John W. Eaton <jwe@octave.org> parents: 23481 diff changeset	537
23481 73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	538 std::list<octave_lvalue> make_lvalue_list (tree_argument_list *);
73558a835b64 eliminate lvalue list arguments from evaluator functions John W. Eaton <jwe@octave.org> parents: 23469 diff changeset	539
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	540 // For unwind-protect.
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	541 void set_echo_state (bool val) { m_echo_state = val; }
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	542
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	543 // For unwind-protect.
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	544 void set_echo_file_name (const std::string& file_name)
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	545 {
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	546 m_echo_file_name = file_name;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	547 }
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	548
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	549 // For unwind-protect.
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	550 void set_echo_file_pos (const size_t& file_pos)
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	551 {
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	552 m_echo_file_pos = file_pos;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	553 }
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	554
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	555 bool echo_this_file (const std::string& file, int type) const;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	556
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	557 void echo_code (size_t line);
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	558
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	559 void final_index_error (index_exception& e, const tree_expression *expr);
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	560
25403 2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	561 bool quit_loop_now (void);
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	562
23705 4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	563 interpreter& m_interpreter;
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	564
25401 6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	565 // The context for the current evaluation.
6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	566 stmt_list_type m_statement_context;
6f6479125d80 eliminate some globals from tree_evaluator class John W. Eaton <jwe@octave.org> parents: 25400 diff changeset	567
24563 8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	568 result_type m_result_type;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	569 octave_value m_expr_result_value;
8f2c479eb125 eliminate unnecessary value stack in evaluator John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	570 octave_value_list m_expr_result_value_list;
23435 c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	571
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	572 value_stack<const std::list<octave_lvalue>*> m_lvalue_list_stack;
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	573
c452180ab672 begin refactoring parse tree evaluator John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	574 value_stack<int> m_nargout_stack;
10219 979fb2606c4f new tree_evaluator::do_keyoard function Ryan Rusaw <rrusaw@gmail.com> parents: 10186 diff changeset	575
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	576 bp_table m_bp_table;
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	577
23553 14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23532 diff changeset	578 call_stack m_call_stack;
14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23532 diff changeset	579
23753 c3828bd031cd move profiler inside evaluator and inside octave namespace John W. Eaton <jwe@octave.org> parents: 23750 diff changeset	580 profiler m_profiler;
c3828bd031cd move profiler inside evaluator and inside octave namespace John W. Eaton <jwe@octave.org> parents: 23750 diff changeset	581
25402 ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	582 // The number of the stack frame we are currently debugging.
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	583 size_t m_current_frame;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	584
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	585 bool m_debug_mode;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	586
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	587 bool m_quiet_breakpoint_flag;
ef2b9d4abf4a eliminate some global variables from tree_evaluator John W. Eaton <jwe@octave.org> parents: 25401 diff changeset	588
23705 4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	589 // Maximum nesting level for functions, scripts, or sourced files
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	590 // called recursively.
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	591 int m_max_recursion_depth;
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	592
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	593 // If TRUE, turn off printing of results in functions (as if a
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	594 // semicolon has been appended to each statement).
4c597585ff52 move Vmax_recursion_depth and Vsilent_functions to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23702 diff changeset	595 bool m_silent_functions;
23706 6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	596
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	597 // The character to fill with when creating string arrays.
6683451b75b2 move Vstring_fill_char to tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23705 diff changeset	598 char m_string_fill_char;
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	599
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	600 // String printed before echoed commands (enabled by --echo-commands).
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	601 std::string m_PS4;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	602
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	603 // If > 0, stop executing at the (N-1)th stopping point, counting
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	604 // from the the current execution point in the current frame.
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	605 //
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	606 // If < 0, stop executing at the next possible stopping point.
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	607 int m_dbstep_flag;
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	608
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	609 // Echo commands as they are executed?
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	610 //
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	611 // 1 ==> echo commands read from script files
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	612 // 2 ==> echo commands from functions
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	613 //
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	614 // more than one state can be active at once.
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	615 int m_echo;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	616
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	617 // Are we currently echoing commands? This state is set by the
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	618 // functions that execute fucntions and scripts.
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	619 bool m_echo_state;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	620
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	621 std::string m_echo_file_name;
23728 b40b7243a782 new class for caching file contents for debug and echo John W. Eaton <jwe@octave.org> parents: 23723 diff changeset	622
b40b7243a782 new class for caching file contents for debug and echo John W. Eaton <jwe@octave.org> parents: 23723 diff changeset	623 // Next line to echo, counting from 1.
23723 ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	624 size_t m_echo_file_pos;
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	625
ab8831d346c1 revamp echo command and move related variables inside tree_evaluator class John W. Eaton <jwe@octave.org> parents: 23706 diff changeset	626 std::map<std::string, bool> m_echo_files;
25360 bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	627
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	628 // TRUE means we are evaluating some kind of looping construct.
bc5f225bc578 eliminate some global accesses to the breakpoint table John W. Eaton <jwe@octave.org> parents: 25317 diff changeset	629 bool m_in_loop_command;
25382 749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	630
25403 2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	631 // Nonzero means we're breaking out of a loop or function body.
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	632 int m_breaking;
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	633
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	634 // Nonzero means we're jumping to the end of a loop.
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	635 int m_continuing;
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	636
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	637 // Nonzero means we're returning from a function.
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	638 int m_returning;
2b7d7a3f5f57 move returning, breaking, and continuing flags to evaluator John W. Eaton <jwe@octave.org> parents: 25402 diff changeset	639
25382 749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	640 // Used by END function.
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	641 const octave_value *m_indexed_object;
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	642 int m_index_position;
749d9e858553 move convert_to_const_vector from tree_argument_list to tree_evaluator John W. Eaton <jwe@octave.org> parents: 25381 diff changeset	643 int m_num_indices;
22196 dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	644 };
dd992fd74fce put parser, lexer, and evaluator in namespace; interpreter now owns evaluator John W. Eaton <jwe@octave.org> parents: 21244 diff changeset	645 }
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	646
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	647 #if defined (OCTAVE_USE_DEPRECATED_FUNCTIONS)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	648
23615 be7b884ac589 use version number in OCTAVE_DEPRECATED macro John W. Eaton <jwe@octave.org> parents: 23553 diff changeset	649 OCTAVE_DEPRECATED (4.4, "use 'octave::tree_evaluator' instead")
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	650 typedef octave::tree_evaluator tree_evaluator;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	651
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: diff changeset	652 #endif
22407 34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22323 diff changeset	653
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22869 diff changeset	654 #endif

Mercurial > octave

annotate libinterp/parse-tree/pt-eval.h @ 25404:e37d857716c3