Mercurial > octave
view libinterp/parse-tree/pt-walk.h @ 23469:2699c5974844
handle global and persistent in tree_decl_command, not as separate classes
* pt-decl.h, pt-decl.cc (tree_decl_command::mark_as_global,
tree_decl_command::mark_as_persistent, tree_decl_command::dup):
New functions.
(tree_global_command, tree_persistent_command): Delete classes.
(tree_decl_elt::decl_type): New enum. Store command type in each
initializer list element.
(tree_decl_elt::mark_as_global, tree_decl_elt::is_global,
tree_decl_elt::mark_as_persistent, tree_decl_elt::is_persistent):
New functions.
(tree_decl_init_list::mark_as_global, tree_decl_init_list::is_global,
tree_decl_init_list::mark_as_persistent, tree_decl_init_list::is_persistent):
New functions.
* pt-walk.h (tree_walker::visit_decl_command): New function.
(tree_walker::visit_global_command,
tree_walker::visit_persistent_command): Delete.
Update all derived classes.
* oct-parse.in.yy (base_parser::make_decl_command): Tag initialization
lists as global or persistent here.
* pt-eval.cc (tree_evaluator::visit_decl_command): New function.
Visit initialization list instead of looping here.
(tree_evaluator::visit_decl_init_list): Loop and visit elements here.
(tree_evaluator::visit_decl_elt): Handle evaluation of elements here.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 04 May 2017 15:02:46 -0400 |
parents | 872f42fb26dc |
children | be7b884ac589 |
line wrap: on
line source
/* Copyright (C) 1996-2017 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #if ! defined (octave_pt_walk_h) #define octave_pt_walk_h 1 #include "octave-config.h" class octave_user_script; class octave_user_function; namespace octave { // No separate visitor needed // Base classes only, so no need to include them. // // class tree_array_list // class tree_unary_expression // class tree_black_hole class tree_anon_fcn_handle; class tree_argument_list; class tree_binary_expression; class tree_boolean_expression; class tree_compound_binary_expression; class tree_break_command; class tree_colon_expression; class tree_continue_command; class tree_decl_command; class tree_decl_init_list; class tree_decl_elt; class tree_simple_for_command; class tree_complex_for_command; class tree_function_def; class tree_identifier; class tree_if_clause; class tree_if_command; class tree_if_command_list; class tree_switch_case; class tree_switch_case_list; class tree_switch_command; class tree_index_expression; class tree_matrix; class tree_cell; class tree_multi_assignment; class tree_no_op_command; class tree_constant; class tree_fcn_handle; class tree_funcall; class tree_parameter_list; class tree_postfix_expression; class tree_prefix_expression; class tree_return_command; class tree_return_list; class tree_simple_assignment; class tree_statement; class tree_statement_list; class tree_try_catch_command; class tree_unwind_protect_command; class tree_while_command; class tree_do_until_command; class tree_classdef_attribute; class tree_classdef_attribute_list; class tree_classdef_superclass; class tree_classdef_superclass_list; class tree_classdef_property; class tree_classdef_property_list; class tree_classdef_properties_block; class tree_classdef_methods_list; class tree_classdef_methods_block; class tree_classdef_event; class tree_classdef_events_list; class tree_classdef_events_block; class tree_classdef_enum; class tree_classdef_enum_list; class tree_classdef_enum_block; class tree_classdef_body; class tree_classdef; class tree_walker { protected: tree_walker (void) { } virtual ~tree_walker (void) = default; public: // No copying! tree_walker (const tree_walker&) = delete; tree_walker& operator = (const tree_walker&) = delete; virtual void visit_anon_fcn_handle (tree_anon_fcn_handle&) = 0; virtual void visit_argument_list (tree_argument_list&) = 0; virtual void visit_binary_expression (tree_binary_expression&) = 0; virtual void visit_boolean_expression (tree_boolean_expression& expr); virtual void visit_compound_binary_expression (tree_compound_binary_expression& expr); virtual void visit_break_command (tree_break_command&) = 0; virtual void visit_colon_expression (tree_colon_expression&) = 0; virtual void visit_continue_command (tree_continue_command&) = 0; virtual void visit_decl_command (tree_decl_command&) = 0; virtual void visit_decl_elt (tree_decl_elt&) = 0; virtual void visit_decl_init_list (tree_decl_init_list&) = 0; virtual void visit_simple_for_command (tree_simple_for_command&) = 0; virtual void visit_complex_for_command (tree_complex_for_command&) = 0; virtual void visit_octave_user_script (octave_user_script&) = 0; virtual void visit_octave_user_function (octave_user_function&) = 0; virtual void visit_function_def (tree_function_def&) = 0; virtual void visit_identifier (tree_identifier&) = 0; virtual void visit_if_clause (tree_if_clause&) = 0; virtual void visit_if_command (tree_if_command&) = 0; virtual void visit_if_command_list (tree_if_command_list&) = 0; virtual void visit_switch_case (tree_switch_case&) = 0; virtual void visit_switch_case_list (tree_switch_case_list&) = 0; virtual void visit_switch_command (tree_switch_command&) = 0; virtual void visit_index_expression (tree_index_expression&) = 0; virtual void visit_matrix (tree_matrix&) = 0; virtual void visit_cell (tree_cell&) = 0; virtual void visit_multi_assignment (tree_multi_assignment&) = 0; virtual void visit_no_op_command (tree_no_op_command&) = 0; virtual void visit_constant (tree_constant&) = 0; virtual void visit_fcn_handle (tree_fcn_handle&) = 0; virtual void visit_funcall (tree_funcall&) = 0; virtual void visit_parameter_list (tree_parameter_list&) = 0; virtual void visit_postfix_expression (tree_postfix_expression&) = 0; virtual void visit_prefix_expression (tree_prefix_expression&) = 0; virtual void visit_return_command (tree_return_command&) = 0; virtual void visit_return_list (tree_return_list&) = 0; virtual void visit_simple_assignment (tree_simple_assignment&) = 0; virtual void visit_statement (tree_statement&) = 0; virtual void visit_statement_list (tree_statement_list&) = 0; virtual void visit_try_catch_command (tree_try_catch_command&) = 0; virtual void visit_unwind_protect_command (tree_unwind_protect_command&) = 0; virtual void visit_while_command (tree_while_command&) = 0; virtual void visit_do_until_command (tree_do_until_command&) = 0; virtual void visit_classdef_attribute (tree_classdef_attribute&) { } /* = 0; */ virtual void visit_classdef_attribute_list (tree_classdef_attribute_list&) { } // = 0; virtual void visit_classdef_superclass (tree_classdef_superclass&) { } // = 0; virtual void visit_classdef_superclass_list (tree_classdef_superclass_list&) { } // = 0; virtual void visit_classdef_property (tree_classdef_property&) { } // = 0; virtual void visit_classdef_property_list (tree_classdef_property_list&) { } // = 0; virtual void visit_classdef_properties_block (tree_classdef_properties_block&) { } // = 0; virtual void visit_classdef_methods_list (tree_classdef_methods_list&) { } // = 0; virtual void visit_classdef_methods_block (tree_classdef_methods_block&) { } // = 0; virtual void visit_classdef_event (tree_classdef_event&) { } // = 0; virtual void visit_classdef_events_list (tree_classdef_events_list&) { } // = 0; virtual void visit_classdef_events_block (tree_classdef_events_block&) { } // = 0; virtual void visit_classdef_enum (tree_classdef_enum&) { } // = 0; virtual void visit_classdef_enum_list (tree_classdef_enum_list&) { } // = 0; virtual void visit_classdef_enum_block (tree_classdef_enum_block&) { } // = 0; virtual void visit_classdef_body (tree_classdef_body&) { } // = 0; virtual void visit_classdef (tree_classdef&) { } // = 0; }; } #if defined (OCTAVE_USE_DEPRECATED_FUNCTIONS) OCTAVE_DEPRECATED ("use 'octave::tree_walker' instead") typedef octave::tree_walker tree_walker; #endif #endif