octave: libinterp/parse-tree/bp-table.cc annotate

annotate libinterp/parse-tree/bp-table.cc @ 23824:061a343089be

Miscellaneous cleanups of C++11 std::string code. * gl2ps-print.cc (escape_character): Use insert() function prototype for a single character, rather than for a string. * oct-stream.cc (textscan::scan_string): Grow string in an exponential manner using append() to fill with '\0' nulls. For case of fixed delimiter, use string constructor to pre-size the array. Use back() instead of [tmp.length()-1)]. * bp-table.cc (get_user_code): Use iterators and std::replace rather than hand-coded for loop. Remove check for "! name.empty()" since checking for "name.length () > 2" will obviously include this case. * cmd-edit.cc (do_decod_prompt_string, ): Be specific and use character '\\' rather than string constructor "\\".

author	Rik <rik@octave.org>
date	Wed, 02 Aug 2017 12:04:45 -0700
parents	336f89b6208b
children	4d4ba038d103

rev	line source
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	1 /*
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	2
23221 debe0c7dcefc maint: Update copyright dates. John W. Eaton <jwe@octave.org> parents: 23170 diff changeset	3 Copyright (C) 2001-2017 Ben Sapp
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	4 Copyright (C) 2007-2009 John Swensen
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	5
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	6 This file is part of Octave.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	7
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	8 Octave is free software; you can redistribute it and/or modify it
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	9 under the terms of the GNU General Public License as published by
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	10 the Free Software Foundation; either version 3 of the License, or
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	11 (at your option) any later version.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	12
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	13 Octave is distributed in the hope that it will be useful, but
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	14 WITHOUT ANY WARRANTY; without even the implied warranty of
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	16 GNU General Public License for more details.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	17
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	18 You should have received a copy of the GNU General Public License
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	19 along with Octave; see the file COPYING. If not, see
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	20 <http://www.gnu.org/licenses/>.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	21
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	22 */
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	23
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	24 #if defined (HAVE_CONFIG_H)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	25 # include "config.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	26 #endif
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	27
23824 061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	28 #include <algorithm>
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	29 #include <fstream>
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	30 #include <limits>
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	31 #include <list>
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	32 #include <map>
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	33 #include <set>
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	34 #include <string>
23170 b3f2645803fe Add headers needed on MacOS to avoid "implicit instantiation of undefined Mike Miller <mtmiller@octave.org> parents: 23158 diff changeset	35 #include <sstream>
b3f2645803fe Add headers needed on MacOS to avoid "implicit instantiation of undefined Mike Miller <mtmiller@octave.org> parents: 23158 diff changeset	36 #include <iostream>
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	37
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	38 #include "file-ops.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	39 #include "singleton-cleanup.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	40
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	41 #include "bp-table.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	42 #include "defun-int.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	43 #include "call-stack.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	44 #include "error.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	45 #include "input.h"
23553 14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	46 #include "interpreter-private.h"
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	47 #include "oct-map.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	48 #include "octave-link.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	49 #include "ov-usr-fcn.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	50 #include "ov.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	51 #include "ovl.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	52 #include "pager.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	53 #include "parse.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	54 #include "pt-eval.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	55 #include "pt-exp.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	56 #include "pt-stmt.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	57 #include "sighandlers.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	58 #include "symtab.h"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	59
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	60 // Initialize the singleton object
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	61 bp_table *bp_table::instance = nullptr;
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	62
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	63 std::set<std::string> bp_table::errors_that_stop;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	64 std::set<std::string> bp_table::caught_that_stop;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	65 std::set<std::string> bp_table::warnings_that_stop;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	66
23824 061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	67 // Return a pointer to the user-defined function FNAME. If FNAME is empty,
061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	68 // search backward for the first user-defined function in the
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	69 // current call stack.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	70
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	71 octave_user_code *
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	72 get_user_code (const std::string& fname)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	73 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	74 octave_user_code *dbg_fcn = nullptr;
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	75
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	76 if (fname.empty ())
23553 14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	77 {
14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	78 octave::call_stack& cs = octave::__get_call_stack__ ("get_user_code");
14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	79
14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	80 dbg_fcn = cs.debug_user_code ();
14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	81 }
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	82 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	83 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	84 std::string name = fname;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	85
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	86 if (octave::sys::file_ops::dir_sep_char () != '/' && name[0] == '@')
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	87 {
23824 061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	88 auto beg = name.begin () + 2; // never have @/method
061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	89 auto end = name.end () - 1; // never have trailing '/'
061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	90 std::replace (beg, end, octave::sys::file_ops::dir_sep_char (), '/');
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	91 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	92
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	93 size_t name_len = name.length ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	94
23824 061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	95 if (name_len > 2 && name.substr (name_len-2) == ".m")
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	96 name = name.substr (0, name_len-2);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	97
23824 061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	98 octave::symbol_table& symtab =
061a343089be Miscellaneous cleanups of C++11 std::string code. Rik <rik@octave.org> parents: 23807 diff changeset	99 octave::__get_symbol_table__ ("get_user_code");
23599 5cb3a2bb5e1e don't use singleton for symbol_table John W. Eaton <jwe@octave.org> parents: 23586 diff changeset	100
5cb3a2bb5e1e don't use singleton for symbol_table John W. Eaton <jwe@octave.org> parents: 23586 diff changeset	101 octave_value fcn = symtab.find_function (name);
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	102
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	103 if (fcn.is_defined () && fcn.is_user_code ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	104 dbg_fcn = fcn.user_code_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	105 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	106
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	107 return dbg_fcn;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	108 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	109
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	110 // Return true if there is a valid breakpoint table, false otherwise.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	111 // If no table exists, one is created; false is only returned if this fails.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	112 bool
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	113 bp_table::instance_ok (void)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	114 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	115 if (! instance)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	116 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	117 instance = new bp_table ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	118
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	119 if (instance)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	120 singleton_cleanup_list::add (cleanup_instance);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	121 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	122
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	123 if (! instance)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	124 error ("unable to create breakpoint table!");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	125
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	126 return true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	127 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	128
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	129 // Clear all reasons to stop, other than breakpoints
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	130 void
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	131 bp_table::dbclear_all_signals (void)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	132 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	133 Vdebug_on_error = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	134 bp_table::errors_that_stop.clear ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	135
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	136 Vdebug_on_caught = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	137 bp_table::caught_that_stop.clear ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	138
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	139 Vdebug_on_warning = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	140 bp_table::warnings_that_stop.clear ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	141
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	142 octave::Vdebug_on_interrupt = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	143 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	144
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	145 // Process the "warn", "errs", "caught" and "intr" fields for a call of
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	146 // "dbstop (p)".
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	147 void
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	148 bp_table::dbstop_process_map_args (const octave_map& mv)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	149 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	150 // process errs
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	151 // why so many levels of indirection needed?
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	152 bool fail = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	153 Cell U = mv.contents ("errs");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	154 if (U.numel () != 1)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	155 fail = (U.numel () > 1);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	156 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	157 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	158 Array<octave_value> W = U.index (static_cast<octave_idx_type> (0));
23577 80c42f4cca13 maint: Deprecate is_empty and replace with isempty. Rik <rik@octave.org> parents: 23576 diff changeset	159 if (W.isempty () \|\| W(0).isempty ())
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	160 Vdebug_on_error = 1; // like "dbstop if error" with no identifier
23576 00e518162fda maint: Deprecate is_cell and replace with iscell. Rik <rik@octave.org> parents: 23553 diff changeset	161 else if (! W(0).iscell ())
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	162 fail = true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	163 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	164 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	165 Cell V = W(0).cell_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	166 for (int i = 0; i < V.numel (); i++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	167 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	168 errors_that_stop.insert (V(i).string_value ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	169 Vdebug_on_error = 1;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	170 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	171 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	172 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	173 if (fail)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	174 error ("dbstop: invalid 'errs' field");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	175
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	176 // process caught
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	177 // why so many levels of indirection needed?
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	178 fail = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	179 U = mv.contents ("caught");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	180 if (U.numel () != 1)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	181 fail = (U.numel () > 1);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	182 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	183 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	184 Array<octave_value> W = U.index (static_cast<octave_idx_type> (0));
23577 80c42f4cca13 maint: Deprecate is_empty and replace with isempty. Rik <rik@octave.org> parents: 23576 diff changeset	185 if (W.isempty () \|\| W(0).isempty ())
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	186 Vdebug_on_caught = 1; // like "dbstop if caught error" with no ID
23576 00e518162fda maint: Deprecate is_cell and replace with iscell. Rik <rik@octave.org> parents: 23553 diff changeset	187 else if (! W(0).iscell ())
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	188 fail = true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	189 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	190 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	191 Cell V = W(0).cell_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	192 for (int i = 0; i < V.numel (); i++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	193 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	194 caught_that_stop.insert (V(i).string_value ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	195 Vdebug_on_caught = 1;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	196 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	197 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	198 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	199 if (fail)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	200 error ("dbstop: invalid 'caught' field");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	201
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	202 // process warn
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	203 // why so many levels of indirection needed?
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	204 fail = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	205 U = mv.contents ("warn");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	206 if (U.numel () != 1)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	207 fail = (U.numel () > 1);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	208 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	209 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	210 Array<octave_value> W = U.index (static_cast<octave_idx_type> (0));
23577 80c42f4cca13 maint: Deprecate is_empty and replace with isempty. Rik <rik@octave.org> parents: 23576 diff changeset	211 if (W.isempty () \|\| W(0).isempty ())
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	212 Vdebug_on_warning = 1; // like "dbstop if warning" with no identifier
23576 00e518162fda maint: Deprecate is_cell and replace with iscell. Rik <rik@octave.org> parents: 23553 diff changeset	213 else if (! W(0).iscell ())
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	214 fail = true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	215 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	216 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	217 Cell V = W(0).cell_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	218 for (int i = 0; i < V.numel (); i++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	219 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	220 warnings_that_stop.insert (V(i).string_value ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	221 Vdebug_on_warning = 1;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	222 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	223 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	224 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	225 if (fail)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	226 error ("dbstop: invalid 'warn' field");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	227
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	228 // process interrupt
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	229 if (mv.isfield ("intr"))
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	230 octave::Vdebug_on_interrupt = 1;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	231 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	232
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	233 // Insert a breakpoint in function fcn at line within file fname,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	234 // to stop only when condition is true.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	235 // Record in bp_set that fname contains a breakpoint.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	236 bool
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	237 bp_table::do_add_breakpoint_1 (octave_user_code *fcn,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	238 const std::string& fname,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	239 const bp_table::intmap& line,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	240 const std::string& condition,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	241 bp_table::intmap& retval)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	242 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	243 bool found = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	244
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	245 octave::tree_statement_list *cmds = fcn->body ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	246
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	247 std::string file = fcn->fcn_file_name ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	248
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	249 if (cmds)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	250 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	251 retval = cmds->add_breakpoint (file, line, condition);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	252
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	253 for (auto& idx_line_p : retval)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	254 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	255 if (idx_line_p.second != 0)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	256 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	257 // Normalize to store only the file name.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	258 // Otherwise, there can be an entry for both file>subfunction and
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	259 // file, which causes a crash on dbclear all
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	260 const char *s = strchr (fname.c_str (), Vfilemarker);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	261 if (s)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	262 bp_set.insert (fname.substr (0, s - fname.c_str ()));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	263 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	264 bp_set.insert (fname);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	265 found = true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	266 break;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	267 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	268 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	269 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	270
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	271 return found;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	272 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	273
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	274 // Cursory check that cond is a valid condition to use for a breakpoint.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	275 // Currently allows conditions with side-effects, like 'y+=10' and 'y++';
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	276 // it is odd that the former is not flagged by "is_assignment_expression".
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	277 // Throws an exception if not valid.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	278 bool
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	279 bp_table::condition_valid (const std::string& cond)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	280 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	281 if (cond.length () > 0)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	282 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	283 octave::parser parser (cond + " ;"); // ; to reject partial expr like "y=="
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	284 parser.reset ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	285 int parse_status = parser.run ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	286 if (parse_status)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	287 error ("dbstop: Cannot parse condition '%s'", cond.c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	288 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	289 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	290 octave::tree_statement *stmt = nullptr;
23694 4a62da62af09 use m_ prefix for member variables in parser John W. Eaton <jwe@octave.org> parents: 23693 diff changeset	291 if (! parser.m_stmt_list)
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	292 error ("dbstop: "
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	293 "condition is not empty, but has nothing to evaluate");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	294 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	295 {
23694 4a62da62af09 use m_ prefix for member variables in parser John W. Eaton <jwe@octave.org> parents: 23693 diff changeset	296 if (parser.m_stmt_list->length () == 1
4a62da62af09 use m_ prefix for member variables in parser John W. Eaton <jwe@octave.org> parents: 23693 diff changeset	297 && (stmt = parser.m_stmt_list->front ())
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	298 && stmt->is_expression ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	299 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	300 octave::tree_expression *expr = stmt->expression ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	301 if (expr->is_assignment_expression ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	302 error ("dbstop: condition cannot be an assignment. "
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	303 "Did you mean '=='?");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	304 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	305 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	306 error ("dbstop: condition must be an expression");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	307 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	308 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	309 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	310 return true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	311 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	312
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	313 enum
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	314 dbstop_args {dbstop_in, dbstop_at, dbstop_if, dbstop_none};
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	315
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	316 // Parse parameters (args) of dbstop and dbclear commands.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	317 // For dbstop, who=="dbstop"; for dbclear, who=="dbclear".
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	318 // The syntax is: dbstop [[in] symbol] [[at] line [line [...]]] [if condition]
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	319 // where the form of condition depends on whether or not a file or line has
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	320 // been seen.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	321 // Also execute "if [error\|warning\|interrupt\|naninf]" clauses.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	322 void
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	323 bp_table::parse_dbfunction_params (const char *who,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	324 const octave_value_list& args,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	325 std::string& symbol_name,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	326 bp_table::intmap& lines,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	327 std::string& cond)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	328 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	329 int nargin = args.length ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	330 int list_idx = 0;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	331 symbol_name = "";
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	332 lines = bp_table::intmap ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	333
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	334 if (nargin == 0 \|\| ! args(0).is_string ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	335 print_usage (who);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	336
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	337 // elements already processed
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	338 bool seen_in = false, seen_at = false, seen_if = false;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	339 int pos = 0;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	340 dbstop_args tok = dbstop_none;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	341 while (pos < nargin)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	342 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	343 // allow "in" and "at" to be implicit
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	344 if (args(pos).is_string ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	345 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	346 std::string arg = args(pos).string_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	347 if (arg == "in")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	348 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	349 tok = dbstop_in;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	350 pos++;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	351 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	352 else if (arg == "at")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	353 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	354 tok = dbstop_at;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	355 pos++;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	356 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	357 else if (arg == "if")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	358 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	359 tok = dbstop_if;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	360 pos++;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	361 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	362 else if (atoi (args(pos).string_value ().c_str ()) > 0)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	363 tok = dbstop_at;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	364 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	365 tok = dbstop_in;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	366 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	367 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	368 tok = dbstop_at;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	369
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	370 if (pos >= nargin)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	371 error ("%s: '%s' missing argument", who,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	372 (tok == dbstop_in
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	373 ? "in" : (tok == dbstop_at ? "at" : "if")));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	374
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	375 // process the actual arguments
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	376 switch (tok)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	377 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	378 case dbstop_in:
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	379 symbol_name = args(pos).string_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	380 if (seen_in)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	381 error ("%s: Too many function names specified -- %s",
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	382 who, symbol_name.c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	383 else if (seen_at \|\| seen_if)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	384 error ("%s: function name must come before line number and 'if'",
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	385 who);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	386 seen_in = true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	387 pos++;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	388 break;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	389
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	390 case dbstop_at:
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	391 if (seen_at)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	392 error ("%s: Only one 'at' clause is allowed -- %s",
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	393 who, args(pos).string_value ().c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	394 else if (seen_if)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	395 error ("%s: line number must come before 'if' clause\n");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	396 seen_at = true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	397
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	398 if (! seen_in)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	399 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	400 // It was a line number. Get function name from debugger.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	401 if (Vdebugging)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	402 symbol_name = get_user_code ()->profiler_name ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	403 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	404 error ("%s: function name must come before line number "
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	405 "and 'if'", who);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	406 seen_in = true;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	407 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	408 else if (seen_if)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	409 error ("%s: line number must come before 'if' clause\n");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	410
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	411 // Read a list of line numbers (or arrays thereof)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	412 for ( ; pos < nargin; pos++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	413 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	414 if (args(pos).is_string ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	415 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	416 int line = atoi (args(pos).string_value ().c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	417
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	418 if (line > 0)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	419 lines[list_idx++] = line;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	420 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	421 break; // may be "if"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	422 }
23586 f6c5db0a02e7 maint: Deprecate is_numeric_type and replace with isnumeric. Rik <rik@octave.org> parents: 23577 diff changeset	423 else if (args(pos).isnumeric ())
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	424 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	425 const NDArray arg = args(pos).array_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	426
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	427 for (octave_idx_type j = 0; j < arg.numel (); j++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	428 lines[list_idx++] = static_cast<int> (arg.elem (j));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	429 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	430 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	431 error ("%s: Invalid argument type %s",
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	432 args(pos).type_name ().c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	433 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	434 break;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	435
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	436 case dbstop_if:
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	437 if (seen_in) // conditional breakpoint
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	438 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	439 cond = ""; // remaining arguments form condition
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	440 for (; pos < nargin; pos++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	441 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	442 if (args(pos).is_string ())
23807 336f89b6208b Use character literals 'c' rather than string literals "c" when possible. Rik <rik@octave.org> parents: 23795 diff changeset	443 cond = cond + ' ' + args(pos).string_value ();
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	444 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	445 error ("%s: arguments to 'if' must all be strings", who);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	446 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	447
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	448 cond = cond.substr (1); // omit initial space
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	449 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	450 else // stop on event (error, warning, interrupt, NaN/inf)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	451 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	452 std::string condition = args(pos).string_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	453 int on_off = ! strcmp(who, "dbstop");
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	454
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	455 // list of error/warning IDs to update
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	456 std::set<std::string> *id_list = nullptr;
21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	457 bool *stop_flag = nullptr; // Vdebug_on_... flag
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	458
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	459 if (condition == "error")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	460 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	461 id_list = &bp_table::errors_that_stop;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	462 stop_flag = &Vdebug_on_error;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	463 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	464 else if (condition == "warning")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	465 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	466 id_list = &bp_table::warnings_that_stop;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	467 stop_flag = &Vdebug_on_warning;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	468 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	469 else if (condition == "caught" && nargin > pos+1
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	470 && args(pos+1).string_value () == "error")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	471 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	472 id_list = &bp_table::caught_that_stop;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	473 stop_flag = &Vdebug_on_caught;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	474 pos++;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	475 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	476 else if (condition == "interrupt")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	477 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	478 octave::Vdebug_on_interrupt = on_off;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	479 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	480 else if (condition == "naninf")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	481 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	482 #if defined (DBSTOP_NANINF)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	483 Vdebug_on_naninf = on_off;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	484 enable_fpe (on_off);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	485 #else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	486 warning ("%s: condition '%s' not yet supported",
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	487 who, condition.c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	488 #endif
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	489 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	490 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	491 error ("%s: invalid condition %s",
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	492 who, condition.c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	493
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	494 // process ID list for "dbstop if error <error_ID>" etc
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	495 if (id_list != nullptr)
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	496 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	497 pos++;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	498 if (pos < nargin) // only affect a single error ID
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	499 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	500 if (! args(pos).is_string () \|\| nargin > pos+1)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	501 error ("%s: ID must be a single string", who);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	502 else if (on_off == 1)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	503 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	504 id_list->insert (args(pos).string_value ());
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	505 *stop_flag = true;
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	506 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	507 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	508 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	509 id_list->erase (args(pos).string_value ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	510 if (id_list->empty ())
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	511 *stop_flag = false;
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	512 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	513 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	514 else // unqualified. Turn all on or off
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	515 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	516 id_list->clear ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	517 *stop_flag = on_off;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	518 if (stop_flag == &Vdebug_on_error)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	519 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	520 // Matlab stops on both.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	521 octave::Vdebug_on_interrupt = on_off;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	522 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	523 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	524 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	525
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	526 pos = nargin;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	527 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	528 break;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	529
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	530 default: // dbstop_none should never occur
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	531 break;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	532 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	533 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	534 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	535
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	536 /*
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	537 %!test
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	538 %! dbclear all; # Clear out breakpoints before test
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	539 %! dbstop help;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	540 %! dbstop in ls;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	541 %! dbstop help at 100;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	542 %! dbstop in ls 100;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	543 %! dbstop help 201 if a==5;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	544 %! dbstop if error Octave:undefined-function;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	545 %! s = dbstatus;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	546 %! dbclear all;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	547 %! assert ({s.bkpt(:).name}, {"help", "help", "help>do_contents", "ls", "ls"});
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	548 %! assert ([s.bkpt(:).line], [48, 100, 201, 58, 100]);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	549 %! assert (s.errs, {"Octave:undefined-function"});
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	550 */
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	551
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	552 // Return the sub/nested/main function of MAIN_FCN that contains
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	553 // line number LINENO of the source file.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	554 // If END_LINE != 0, *END_LINE is set to last line of the returned function.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	555 static octave_user_code*
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	556 find_fcn_by_line (octave_user_code main_fcn, int lineno, int end_line = nullptr)
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	557 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	558 octave_user_code *retval = nullptr;
21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23447 diff changeset	559 octave_user_code *next_fcn = nullptr; // 1st function starting after lineno
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	560
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	561 // Find innermost nested (or parent) function containing lineno.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	562 int earliest_end = std::numeric_limits<int>::max ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	563
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	564 std::map<std::string, octave_value> subfcns = main_fcn->subfunctions ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	565 for (const auto& str_val_p : subfcns)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	566 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	567 if (str_val_p.second.is_user_function ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	568 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	569 auto *dbg_subfcn = str_val_p.second.user_function_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	570
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	571 // Check if lineno is within dbg_subfcn.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	572 // FIXME: we could break when beginning_line() > lineno,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	573 // but that makes the code "fragile"
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	574 // if the order of walking subfcns changes,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	575 // for a minor speed improvement in non-critical code.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	576 if (dbg_subfcn->ending_line () < earliest_end
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	577 && dbg_subfcn->ending_line () >= lineno
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	578 && dbg_subfcn->beginning_line () <= lineno)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	579 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	580 earliest_end = dbg_subfcn->ending_line ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	581 retval = find_fcn_by_line (dbg_subfcn, lineno, &earliest_end);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	582 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	583
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	584 // Find the first fcn starting after lineno.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	585 // This is used if line is not inside any function.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	586 if (dbg_subfcn->beginning_line () >= lineno && ! next_fcn)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	587 next_fcn = dbg_subfcn;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	588 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	589 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	590
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	591 // The breakpoint is either in the subfunction found above,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	592 // or in the main function, which we check now.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	593 if (main_fcn->is_user_function ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	594 {
23447 db1fdf4384dd maint: Use convention "static_cast<void >" for casting of pointers. Rik <rik@octave.org>* parents: 23221 diff changeset	595 int e = dynamic_cast<octave_user_function *> (main_fcn)->ending_line ();
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	596 if (e >= lineno && e < earliest_end)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	597 retval = main_fcn;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	598
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	599 if (! retval)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	600 retval = next_fcn;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	601 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	602 else // main_fcn is a script.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	603 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	604 if (! retval)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	605 retval = main_fcn;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	606 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	607
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23728 diff changeset	608 if (end_line != nullptr && earliest_end < *end_line)
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	609 *end_line = earliest_end;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	610
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	611 return retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	612 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	613
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	614 // Given file name fname, find the subfunction at line and create
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	615 // a breakpoint there. Put the system into debug_mode.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	616 bp_table::intmap
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	617 bp_table::do_add_breakpoint (const std::string& fname,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	618 const bp_table::intmap& line,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	619 const std::string& condition)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	620 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	621 octave_user_code *main_fcn = get_user_code (fname);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	622
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	623 if (! main_fcn)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	624 error ("add_breakpoint: unable to find function '%s'\n", fname.c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	625
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	626 condition_valid (condition); // Throw error if condition not valid.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	627
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	628 intmap retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	629
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	630 octave_idx_type len = line.size ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	631
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	632 for (int i = 0; i < len; i++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	633 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	634 const_intmap_iterator m = line.find (i);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	635
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	636 if (m != line.end ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	637 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	638 int lineno = m->second;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	639
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	640 octave_user_code *dbg_fcn = find_fcn_by_line (main_fcn, lineno);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	641
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	642 // We've found the right (sub)function. Now insert the breakpoint.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	643 // We insert all breakpoints.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	644 // If multiple are in the same function, we insert multiple times.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	645 intmap ret_one;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	646 if (dbg_fcn
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	647 && do_add_breakpoint_1 (dbg_fcn, fname, line, condition, ret_one))
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	648 retval.insert (std::pair<int,int> (i, ret_one.find (i)->second));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	649 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	650 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	651
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	652 octave::tree_evaluator::debug_mode = bp_table::have_breakpoints ()
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	653 \|\| Vdebugging;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	654
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	655 return retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	656 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	657
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	658 int
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	659 bp_table::do_remove_breakpoint_1 (octave_user_code *fcn,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	660 const std::string& fname,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	661 const bp_table::intmap& line)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	662 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	663 int retval = 0;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	664
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	665 std::string file = fcn->fcn_file_name ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	666
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	667 octave::tree_statement_list *cmds = fcn->body ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	668
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	669 // FIXME: move the operation on cmds to the tree_statement_list class?
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	670
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	671 if (cmds)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	672 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	673 octave_value_list results = cmds->list_breakpoints ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	674
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	675 if (results.length () > 0)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	676 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	677 octave_idx_type len = line.size ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	678
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	679 for (int i = 0; i < len; i++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	680 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	681 const_intmap_iterator p = line.find (i);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	682
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	683 if (p != line.end ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	684 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	685 int lineno = p->second;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	686
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	687 cmds->delete_breakpoint (lineno);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	688
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	689 if (! file.empty ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	690 octave_link::update_breakpoint (false, file, lineno);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	691 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	692 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	693
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	694 results = cmds->list_breakpoints ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	695
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	696 bp_set_iterator it = bp_set.find (fname);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	697 if (results.empty () && it != bp_set.end ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	698 bp_set.erase (it);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	699 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	700
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	701 retval = results.length ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	702 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	703
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	704 return retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	705 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	706
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	707 int
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	708 bp_table::do_remove_breakpoint (const std::string& fname,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	709 const bp_table::intmap& line)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	710 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	711 int retval = 0;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	712
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	713 octave_idx_type len = line.size ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	714
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	715 if (len == 0)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	716 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	717 intmap results = remove_all_breakpoints_in_file (fname);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	718 retval = results.size ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	719 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	720 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	721 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	722 octave_user_code *dbg_fcn = get_user_code (fname);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	723
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	724 if (! dbg_fcn)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	725 error ("remove_breakpoint: unable to find function %s\n",
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	726 fname.c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	727
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	728 retval = do_remove_breakpoint_1 (dbg_fcn, fname, line);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	729
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	730 // Search subfunctions in the order they appear in the file.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	731
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	732 const std::list<std::string> subfcn_names
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	733 = dbg_fcn->subfunction_names ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	734
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	735 std::map<std::string, octave_value> subfcns
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	736 = dbg_fcn->subfunctions ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	737
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	738 for (const auto& subf_nm : subfcn_names)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	739 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	740 const auto q = subfcns.find (subf_nm);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	741
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	742 if (q != subfcns.end ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	743 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	744 octave_user_code *dbg_subfcn = q->second.user_code_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	745
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	746 retval += do_remove_breakpoint_1 (dbg_subfcn, fname, line);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	747 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	748 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	749 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	750
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	751 octave::tree_evaluator::debug_mode = bp_table::have_breakpoints ()
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	752 \|\| Vdebugging;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	753
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	754 return retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	755 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	756
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	757 // Remove all breakpoints from a file, including those in subfunctions
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	758 bp_table::intmap
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	759 bp_table::do_remove_all_breakpoints_in_file (const std::string& fname,
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	760 bool silent)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	761 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	762 intmap retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	763
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	764 octave_user_code *dbg_fcn = get_user_code (fname);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	765
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	766 if (dbg_fcn)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	767 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	768 std::string file = dbg_fcn->fcn_file_name ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	769
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	770 octave::tree_statement_list *cmds = dbg_fcn->body ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	771
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	772 if (cmds)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	773 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	774 retval = cmds->remove_all_breakpoints (file);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	775
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	776 bp_set_iterator it = bp_set.find (fname);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	777 if (it != bp_set.end ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	778 bp_set.erase (it);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	779 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	780 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	781 else if (! silent)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	782 error ("remove_all_breakpoint_in_file: "
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	783 "unable to find function %s\n", fname.c_str ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	784
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	785 octave::tree_evaluator::debug_mode = bp_table::have_breakpoints ()
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	786 \|\| Vdebugging;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	787
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	788 return retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	789 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	790
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	791 void
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	792 bp_table::do_remove_all_breakpoints (void)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	793 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	794 // Odd loop structure required because delete will invalidate bp_set iterators
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	795 for (const_bp_set_iterator it=bp_set.begin (), it_next=it;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	796 it != bp_set.end ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	797 it=it_next)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	798 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	799 ++it_next;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	800 remove_all_breakpoints_in_file (*it);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	801 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	802
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	803 octave::tree_evaluator::debug_mode = bp_table::have_breakpoints ()
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	804 \|\| Vdebugging;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	805 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	806
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	807 std::string
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	808 do_find_bkpt_list (octave_value_list slist, std::string match)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	809 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	810 std::string retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	811
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	812 for (int i = 0; i < slist.length (); i++)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	813 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	814 if (slist(i).string_value () == match)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	815 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	816 retval = slist(i).string_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	817 break;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	818 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	819 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	820
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	821 return retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	822 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	823
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	824 bp_table::fname_bp_map
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	825 bp_table::do_get_breakpoint_list (const octave_value_list& fname_list)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	826 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	827 fname_bp_map retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	828
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	829 // make copy since changes may invalidate iters of bp_set.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	830 std::set<std::string> tmp_bp_set = bp_set;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	831
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	832 for (auto& bp_fname : tmp_bp_set)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	833 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	834 if (fname_list.empty ()
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	835 \|\| do_find_bkpt_list (fname_list, bp_fname) != "")
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	836 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	837 octave_user_code *f = get_user_code (bp_fname);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	838
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	839 if (f)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	840 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	841 octave::tree_statement_list *cmds = f->body ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	842
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	843 // FIXME: move the operation on cmds to the
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	844 // tree_statement_list class?
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	845 if (cmds)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	846 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	847 std::list<bp_type> bkpts = cmds->breakpoints_and_conds ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	848
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	849 if (! bkpts.empty ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	850 retval[bp_fname] = bkpts;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	851 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	852
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	853 // look for breakpoints in subfunctions
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	854 const std::list<std::string> subf_nm = f->subfunction_names ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	855
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	856 std::map<std::string, octave_value> subf = f->subfunctions ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	857
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	858 for (const auto& subfcn_nm : subf_nm)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	859 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	860 const auto q = subf.find (subfcn_nm);
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	861
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	862 if (q != subf.end ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	863 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	864 octave_user_code *ff = q->second.user_code_value ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	865
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	866 cmds = ff->body ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	867 if (cmds)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	868 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	869 std::list<bp_type> bkpts
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	870 = cmds->breakpoints_and_conds ();
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	871
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	872 if (! bkpts.empty ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	873 retval[bp_fname + Vfilemarker + ff->name ()] = bkpts;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	874 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	875 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	876 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	877 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	878 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	879 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	880
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	881 return retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	882 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	883
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	884 // Report the status of "dbstop if error ..." and "dbstop if warning ..."
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	885 // If to_screen is true, the output goes to octave_stdout; otherwise it is
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	886 // returned.
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	887 // If dbstop if error is true but no explicit IDs are specified, the return
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	888 // value will have an empty field called "errs". If IDs are specified, the
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	889 // "errs" field will have a row per ID. If dbstop if error is false, there
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	890 // is no "errs" field. The "warn" field is set similarly by dbstop if warning
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	891 octave_map
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	892 bp_table::stop_on_err_warn_status (bool to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	893 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	894 octave_map retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	895
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	896 // print dbstop if error information
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	897 if (Vdebug_on_error)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	898 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	899 if (errors_that_stop.empty ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	900 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	901 if (to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	902 octave_stdout << "stop if error\n";
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	903 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	904 retval.assign ("errs", octave_value(""));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	905 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	906 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	907 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	908 Cell errs (dim_vector (bp_table::errors_that_stop.size (), 1));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	909 int i = 0;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	910
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	911 for (const auto& e : errors_that_stop)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	912 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	913 if (to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	914 octave_stdout << "stop if error " << e << "\n";
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	915 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	916 errs(i++) = e;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	917 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	918 if (! to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	919 retval.assign ("errs", octave_value (errs));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	920 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	921 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	922
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	923 // print dbstop if caught error information
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	924 if (Vdebug_on_caught)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	925 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	926 if (caught_that_stop.empty ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	927 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	928 if (to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	929 octave_stdout << "stop if caught error\n";
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	930 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	931 retval.assign ("caught", octave_value(""));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	932 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	933 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	934 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	935 Cell errs (dim_vector (caught_that_stop.size (), 1));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	936 int i = 0;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	937
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	938 for (const auto& e : caught_that_stop)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	939 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	940 if (to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	941 octave_stdout << "stop if caught error " << e << "\n";
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	942 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	943 errs(i++) = e;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	944 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	945 if (! to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	946 retval.assign ("caught", octave_value (errs));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	947 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	948 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	949
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	950 // print dbstop if warning information
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	951 if (Vdebug_on_warning)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	952 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	953 if (warnings_that_stop.empty ())
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	954 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	955 if (to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	956 octave_stdout << "stop if warning\n";
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	957 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	958 retval.assign ("warn", octave_value(""));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	959 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	960 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	961 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	962 Cell warn (dim_vector (warnings_that_stop.size (), 1));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	963 int i = 0;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	964
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	965 for (const auto& w : warnings_that_stop)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	966 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	967 if (to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	968 octave_stdout << "stop if warning " << w << "\n";
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	969 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	970 warn(i++) = w;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	971 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	972 if (! to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	973 retval.assign ("warn", octave_value (warn));
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	974 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	975 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	976
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	977 // print dbstop if interrupt information
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	978 if (octave::Vdebug_on_interrupt)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	979 {
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	980 if (to_screen)
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	981 octave_stdout << "stop if interrupt\n";
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	982 else
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	983 retval.assign ("intr", octave_value ());
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	984 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	985
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	986 return retval;
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	987 }
334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: diff changeset	988

Mercurial > octave

annotate libinterp/parse-tree/bp-table.cc @ 23824:061a343089be