Mercurial > octave
view libinterp/parse-tree/pt-bp.cc @ 31215:5573b1d511c9
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Tue, 30 Aug 2022 11:16:55 +0200 |
parents | 796f54d4ddbf |
children | e88a07dec498 |
line wrap: on
line source
//////////////////////////////////////////////////////////////////////// // // Copyright (C) 2001-2022 The Octave Project Developers // // See the file COPYRIGHT.md in the top-level directory of this // distribution or <https://octave.org/copyright/>. // // 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 // <https://www.gnu.org/licenses/>. // //////////////////////////////////////////////////////////////////////// #if defined (HAVE_CONFIG_H) # include "config.h" #endif #include "ov-usr-fcn.h" #include "pager.h" #include "pt-all.h" namespace octave { void tree_breakpoint::visit_while_command (tree_while_command& cmd) { if (cmd.line () >= m_line) take_action (cmd); if (! m_found) { tree_statement_list *lst = cmd.body (); if (lst) lst->accept (*this); } } void tree_breakpoint::visit_do_until_command (tree_do_until_command& cmd) { if (! m_found) { tree_statement_list *lst = cmd.body (); if (lst) lst->accept (*this); if (! m_found) { if (cmd.line () >= m_line) take_action (cmd); } } } void tree_breakpoint::visit_argument_list (tree_argument_list&) { panic_impossible (); } void tree_breakpoint::visit_arguments_block (tree_arguments_block&) { // FIXME } void tree_breakpoint::visit_args_block_attribute_list (tree_args_block_attribute_list&) { panic_impossible (); } void tree_breakpoint::visit_args_block_validation_list (tree_args_block_validation_list&) { panic_impossible (); } void tree_breakpoint::visit_arg_validation (tree_arg_validation&) { panic_impossible (); } void tree_breakpoint::visit_arg_size_spec (tree_arg_size_spec&) { panic_impossible (); } void tree_breakpoint::visit_arg_validation_fcns (tree_arg_validation_fcns&) { panic_impossible (); } void tree_breakpoint::visit_binary_expression (tree_binary_expression&) { panic_impossible (); } void tree_breakpoint::visit_break_command (tree_break_command& cmd) { if (cmd.line () >= m_line) take_action (cmd); } void tree_breakpoint::visit_colon_expression (tree_colon_expression&) { panic_impossible (); } void tree_breakpoint::visit_continue_command (tree_continue_command& cmd) { if (cmd.line () >= m_line) take_action (cmd); } void tree_breakpoint::visit_decl_command (tree_decl_command& cmd) { if (cmd.line () >= m_line) take_action (cmd); } void tree_breakpoint::visit_decl_init_list (tree_decl_init_list&) { panic_impossible (); } void tree_breakpoint::visit_decl_elt (tree_decl_elt&) { panic_impossible (); } void tree_breakpoint::visit_simple_for_command (tree_simple_for_command& cmd) { if (cmd.line () >= m_line) take_action (cmd); if (! m_found) { tree_statement_list *lst = cmd.body (); if (lst) lst->accept (*this); } } void tree_breakpoint::visit_complex_for_command (tree_complex_for_command& cmd) { if (cmd.line () >= m_line) take_action (cmd); if (! m_found) { tree_statement_list *lst = cmd.body (); if (lst) lst->accept (*this); } } void tree_breakpoint::visit_octave_user_function_header (octave_user_function&) { panic_impossible (); } void tree_breakpoint::visit_octave_user_function_trailer (octave_user_function&) { panic_impossible (); } void tree_breakpoint::visit_identifier (tree_identifier&) { panic_impossible (); } void tree_breakpoint::visit_if_clause (tree_if_clause&) { panic_impossible (); } void tree_breakpoint::visit_if_command_list (tree_if_command_list& lst) { for (tree_if_clause *t : lst) { if (t->line () >= m_line) take_action (*t); if (! m_found) { tree_statement_list *stmt_lst = t->commands (); if (stmt_lst) stmt_lst->accept (*this); } if (m_found) break; } } void tree_breakpoint::visit_index_expression (tree_index_expression&) { panic_impossible (); } void tree_breakpoint::visit_matrix (tree_matrix&) { panic_impossible (); } void tree_breakpoint::visit_cell (tree_cell&) { panic_impossible (); } void tree_breakpoint::visit_multi_assignment (tree_multi_assignment&) { panic_impossible (); } void tree_breakpoint::visit_no_op_command (tree_no_op_command& cmd) { if (cmd.is_end_of_fcn_or_script () && cmd.line () >= m_line) take_action (cmd); } void tree_breakpoint::visit_anon_fcn_handle (tree_anon_fcn_handle&) { panic_impossible (); } void tree_breakpoint::visit_constant (tree_constant&) { panic_impossible (); } void tree_breakpoint::visit_fcn_handle (tree_fcn_handle&) { panic_impossible (); } void tree_breakpoint::visit_parameter_list (tree_parameter_list&) { panic_impossible (); } void tree_breakpoint::visit_postfix_expression (tree_postfix_expression&) { panic_impossible (); } void tree_breakpoint::visit_prefix_expression (tree_prefix_expression&) { panic_impossible (); } void tree_breakpoint::visit_return_command (tree_return_command& cmd) { if (cmd.line () >= m_line) take_action (cmd); } void tree_breakpoint::visit_simple_assignment (tree_simple_assignment&) { panic_impossible (); } void tree_breakpoint::visit_statement (tree_statement& stmt) { if (stmt.is_command ()) { tree_command *cmd = stmt.command (); cmd->accept (*this); } else { if (stmt.line () >= m_line) take_action (stmt); } } // Called by // tree_statement_list::set_breakpoint (int line, std::string& condition) // with <lst> consisting of a user function in which to set a breakpoint. void tree_breakpoint::visit_statement_list (tree_statement_list& lst) { for (tree_statement *elt : lst) { if (elt) { elt->accept (*this); if (m_found) break; } } } void tree_breakpoint::visit_switch_case (tree_switch_case&) { panic_impossible (); } void tree_breakpoint::visit_switch_case_list (tree_switch_case_list& lst) { for (tree_switch_case *t : lst) { if (t->line () >= m_line) take_action (*t); if (! m_found) { tree_statement_list *stmt_lst = t->commands (); if (stmt_lst) stmt_lst->accept (*this); } if (m_found) break; } } void tree_breakpoint::visit_switch_command (tree_switch_command& cmd) { if (cmd.line () >= m_line) take_action (cmd); if (! m_found) { tree_switch_case_list *lst = cmd.case_list (); if (lst) lst->accept (*this); } } void tree_breakpoint::visit_try_catch_command (tree_try_catch_command& cmd) { tree_statement_list *try_code = cmd.body (); if (try_code) try_code->accept (*this); if (! m_found) { tree_statement_list *catch_code = cmd.cleanup (); if (catch_code) catch_code->accept (*this); } } void tree_breakpoint::visit_unwind_protect_command (tree_unwind_protect_command& cmd) { tree_statement_list *body = cmd.body (); if (body) body->accept (*this); if (! m_found) { tree_statement_list *cleanup = cmd.cleanup (); if (cleanup) cleanup->accept (*this); } } void tree_breakpoint::take_action (tree& tr) { if (m_action == set) { tr.set_breakpoint (m_condition); m_line = tr.line (); m_found = true; } else if (m_action == clear) { if (tr.is_breakpoint ()) { tr.delete_breakpoint (); m_found = true; } } else if (m_action == list) { if (tr.is_breakpoint ()) { m_bp_list.append (octave_value (tr.line ())); m_bp_cond_list.append (octave_value (tr.bp_cond ())); } } else panic_impossible (); } void tree_breakpoint::take_action (tree_statement& stmt) { int lineno = stmt.line (); if (m_action == set) { stmt.set_breakpoint (m_condition); m_line = lineno; m_found = true; } else if (m_action == clear) { if (stmt.is_breakpoint ()) { stmt.delete_breakpoint (); m_found = true; } } else if (m_action == list) { if (stmt.is_breakpoint ()) { m_bp_list.append (octave_value (lineno)); m_bp_cond_list.append (octave_value (stmt.bp_cond ())); } } else panic_impossible (); } }