pt-bp.cc

Go to the documentation of this file.

////////////////////////////////////////////////////////////////////////
//
// Copyright (C) 2001-2025 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"
 
OCTAVE_BEGIN_NAMESPACE(octave)
 
OCTAVE_NORETURN static void
error_unexpected (const char *name)
{
  error ("unexpected call to %s - please report this bug", name);
}
 
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&)
{
  error_unexpected ("tree_breakpoint::visit_argument_list");
}
 
void
tree_breakpoint::visit_arguments_block (tree_arguments_block&)
{
  // FIXME
}
 
void
tree_breakpoint::visit_args_block_attribute_list (tree_args_block_attribute_list&)
{
  error_unexpected ("tree_breakpoint::visit_args_block_attribute_list");
}
 
void
tree_breakpoint::visit_args_block_validation_list (tree_args_block_validation_list&)
{
  error_unexpected ("tree_breakpoint::visit_args_block_validation_list");
}
 
void
tree_breakpoint::visit_arg_validation (tree_arg_validation&)
{
  error_unexpected ("tree_breakpoint::visit_arg_validation");
}
 
void
tree_breakpoint::visit_arg_size_spec (tree_arg_size_spec&)
{
  error_unexpected ("tree_breakpoint::visit_arg_size_spec");
}
 
void
tree_breakpoint::visit_arg_validation_fcns (tree_arg_validation_fcns&)
{
  error_unexpected ("tree_breakpoint::visit_arg_validation_fcns");
}
 
void
tree_breakpoint::visit_binary_expression (tree_binary_expression&)
{
  error_unexpected ("tree_breakpoint::visit_binary_expression");
}
 
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&)
{
  error_unexpected ("tree_breakpoint::visit_colon_expression");
}
 
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&)
{
  error_unexpected ("tree_breakpoint::visit_decl_init_list");
}
 
void
tree_breakpoint::visit_decl_elt (tree_decl_elt&)
{
  error_unexpected ("tree_breakpoint::visit_decl_elt");
}
 
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&)
{
  error_unexpected ("tree_breakpoint::visit_octave_user_function_header");
}
 
void
tree_breakpoint::visit_octave_user_function_trailer (octave_user_function&)
{
  error_unexpected ("tree_breakpoint::visit_octave_user_function_trailer");
}
 
void
tree_breakpoint::visit_identifier (tree_identifier&)
{
  error_unexpected ("tree_breakpoint::visit_identifier");
}
 
void
tree_breakpoint::visit_if_clause (tree_if_clause&)
{
  error_unexpected ("tree_breakpoint::visit_if_clause");
}
 
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&)
{
  error_unexpected ("tree_breakpoint::visit_index_expression");
}
 
void
tree_breakpoint::visit_matrix (tree_matrix&)
{
  error_unexpected ("tree_breakpoint::visit_matrix");
}
 
void
tree_breakpoint::visit_cell (tree_cell&)
{
  error_unexpected ("tree_breakpoint::visit_cell");
}
 
void
tree_breakpoint::visit_multi_assignment (tree_multi_assignment&)
{
  error_unexpected ("tree_breakpoint::visit_multi_assignment");
}
 
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&)
{
  error_unexpected ("tree_breakpoint::visit_anon_fcn_handle");
}
 
void
tree_breakpoint::visit_constant (tree_constant&)
{
  error_unexpected ("tree_breakpoint::visit_constant");
}
 
void
tree_breakpoint::visit_fcn_handle (tree_fcn_handle&)
{
  error_unexpected ("tree_breakpoint::visit_fcn_handle");
}
 
void
tree_breakpoint::visit_parameter_list (tree_parameter_list&)
{
  error_unexpected ("tree_breakpoint::visit_parameter_list");
}
 
void
tree_breakpoint::visit_postfix_expression (tree_postfix_expression&)
{
  error_unexpected ("tree_breakpoint::visit_postfix_expression");
}
 
void
tree_breakpoint::visit_prefix_expression (tree_prefix_expression&)
{
  error_unexpected ("tree_breakpoint::visit_prefix_expression");
}
 
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&)
{
  error_unexpected ("tree_breakpoint::visit_simple_assignment");
}
 
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&)
{
  error_unexpected ("tree_breakpoint::visit_switch_case");
}
 
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)
{
  switch (m_action)
    {
    case set:
      tr.set_breakpoint (m_condition);
      m_line = tr.line ();
      m_found = true;
      break;
 
    case clear:
      if (tr.is_breakpoint ())
        {
          tr.delete_breakpoint ();
          m_found = true;
        }
      break;
 
    case list:
      if (tr.is_breakpoint ())
        {
          m_bp_list.append (octave_value (tr.line ()));
          m_bp_cond_list.append (octave_value (tr.bp_cond ()));
        }
      break;
 
      // We should have handled all possible enum values above.  Rely on
      // compiler diagnostics to warn if we haven't.  For example, GCC's
      // -Wswitch option, enabled by -Wall, will provide a warning.
    }
}
 
void
tree_breakpoint::take_action (tree_statement& stmt)
{
  int lineno = stmt.line ();
 
  switch (m_action)
    {
    case set:
      stmt.set_breakpoint (m_condition);
      m_line = lineno;
      m_found = true;
      break;
 
    case clear:
      if (stmt.is_breakpoint ())
        {
          stmt.delete_breakpoint ();
          m_found = true;
        }
      break;
 
    case list:
      if (stmt.is_breakpoint ())
        {
          m_bp_list.append (octave_value (lineno));
          m_bp_cond_list.append (octave_value (stmt.bp_cond ()));
        }
      break;
 
      // We should have handled all possible enum values above.  Rely on
      // compiler diagnostics to warn if we haven't.  For example, GCC's
      // -Wswitch option, enabled by -Wall, will provide a warning.
    }
}
 
OCTAVE_END_NAMESPACE(octave)