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