octave: libinterp/corefcn/stack-frame.cc annotate

annotate libinterp/corefcn/stack-frame.cc @ 28425:a5be4fc661d6 stable

hide specific stack frame and stack frame walker classes * stack-frame.h, stack-frame.cc (compiled_fcn_stack_frame, script_stack_frame, user_fcn_stack_frame, scope_stack_frame): Move class declarations from header to source file. (stack_frame::create): New static member functions that can create specific stack frame types and return pointers to generic stack_frame objects. (stack_frame::who): New function. * call-stack.cc (call_stack::push): Use new stack_frame::create methods instead of creating specific stack frame objects. (call_stack::do_who_two): Simply forward to stack_frame::who method. * stack-frame-walker.h, syminfo-accumulator.h: Delete. Move class declarations and definitions to stack-frame.cc. * libinterp/corefcn/module.mk: Update.

author	John W. Eaton <jwe@octave.org>
date	Fri, 24 Apr 2020 14:21:07 -0400
parents	6349915869f2
children	9a3deb17b4ea

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	3 // Copyright (C) 1995-2020 The Octave Project Developers
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	4 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	7 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	9 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	14 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	19 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ////////////////////////////////////////////////////////////////////////
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	25
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	26 #if defined (HAVE_CONFIG_H)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	27 # include "config.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	28 #endif
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	29
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	30 #include "lo-regexp.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	31 #include "str-vec.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	32
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	33 #include "defun.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	34 #include "interpreter.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	35 #include "interpreter-private.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	36 #include "oct-map.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	37 #include "ov.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	38 #include "ov-fcn.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	39 #include "ov-fcn-handle.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	40 #include "ov-usr-fcn.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	41 #include "pager.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	42 #include "parse.h"
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	43 #include "pt-eval.h"
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	44 #include "stack-frame.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	45 #include "syminfo.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	46 #include "symrec.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	47 #include "symscope.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	48 #include "variables.h"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	49
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	50 namespace octave
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	51 {
28425 a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	52 class compiled_fcn_stack_frame : public stack_frame
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	53 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	54 public:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	55
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	56 compiled_fcn_stack_frame (void) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	57
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	58 compiled_fcn_stack_frame (tree_evaluator& tw, octave_function *fcn,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	59 size_t index, stack_frame *static_link)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	60 : stack_frame (tw, index, static_link, static_link->access_link ()),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	61 m_fcn (fcn)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	62 { }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	63
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	64 compiled_fcn_stack_frame (const compiled_fcn_stack_frame& elt) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	65
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	66 compiled_fcn_stack_frame&
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	67 operator = (const compiled_fcn_stack_frame& elt) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	68
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	69 ~compiled_fcn_stack_frame (void) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	70
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	71 compiled_fcn_stack_frame * dup (void) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	72
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	73 bool is_compiled_fcn_frame (void) const { return true; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	74
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	75 symbol_scope get_scope (void) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	76 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	77 return m_static_link->get_scope ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	78 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	79
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	80 octave_function * function (void) const { return m_fcn; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	81
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	82 symbol_record lookup_symbol (const std::string& name) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	83 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	84 return m_static_link->lookup_symbol (name);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	85 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	86
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	87 symbol_record insert_symbol (const std::string& name)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	88 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	89 return m_static_link->insert_symbol (name);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	90 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	91
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	92 stack_frame::scope_flags scope_flag (const symbol_record& sym) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	93 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	94 // Look in closest stack frame that contains values (either the
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	95 // top scope, or a user-defined function or script).
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	96
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	97 return m_static_link->scope_flag (sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	98 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	99
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	100 void set_auto_fcn_var (auto_var_type avt, const octave_value& val)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	101 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	102 m_static_link->set_auto_fcn_var (avt, val);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	103 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	104
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	105 octave_value get_auto_fcn_var (auto_var_type avt) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	106 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	107 return m_static_link->get_auto_fcn_var (avt);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	108 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	109
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	110 // We only need to override one of each of these functions. The
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	111 // using declaration will avoid warnings about partially-overloaded
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	112 // virtual functions.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	113 using stack_frame::varval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	114 using stack_frame::varref;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	115
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	116 octave_value varval (const symbol_record& sym) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	117 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	118 // Look in closest stack frame that contains values (either the
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	119 // top scope, or a user-defined function or script).
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	120
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	121 return m_static_link->varval (sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	122 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	123
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	124 octave_value& varref (const symbol_record& sym)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	125 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	126 // Look in closest stack frame that contains values (either the
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	127 // top scope, or a user-defined function or script).
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	128
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	129 return m_static_link->varref (sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	130 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	131
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	132 void mark_scope (const symbol_record& sym, scope_flags flag)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	133 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	134 // Look in closest stack frame that contains values (either the
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	135 // top scope, or a user-defined function or script).
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	136
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	137 m_static_link->mark_scope (sym, flag);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	138 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	139
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	140 void display (bool follow = true) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	141
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	142 void accept (stack_frame_walker& sfw);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	143
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	144 private:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	145
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	146 // Compiled function object associated with this stack frame.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	147 // Should always be a built-in, .oct or .mex file function and
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	148 // should always be valid.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	149 octave_function *m_fcn;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	150 };
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	151
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	152 // Scripts have a symbol_scope object to store the set of variables
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	153 // in the script, but values for those variables are stored in the
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	154 // stack frame corresponding to the nearest calling function or in
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	155 // the top-level scope (the evaluation stack frame).
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	156 //
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	157 // Accessing values in a scope requires a mapping from the index of
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	158 // the variable for the script scope to the list of values in the
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	159 // evaluation frame(s). The frame offset tells us how many access
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	160 // links we must follow to find the stack frame that holds the
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	161 // value. The value offset is the index into the vector of values
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	162 // in that stack frame that we should use to find the value.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	163 //
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	164 // Frame and value offsets are set in this stack frame when it is
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	165 // created using information from the script and enclosing scopes.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	166 //
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	167 // If a script is invoked in a nested function context, the frame
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	168 // offsets for individual values may be different. Some may be
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	169 // accessed from the invoking function and some may come from a
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	170 // parent function.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	171
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	172 class script_stack_frame : public stack_frame
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	173 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	174 public:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	175
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	176 script_stack_frame (void) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	177
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	178 script_stack_frame (tree_evaluator& tw, octave_user_script *script,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	179 unwind_protect *up_frame, size_t index,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	180 stack_frame *static_link);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	181
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	182 script_stack_frame (const script_stack_frame& elt) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	183
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	184 script_stack_frame& operator = (const script_stack_frame& elt) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	185
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	186 ~script_stack_frame (void) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	187
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	188 script_stack_frame * dup (void) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	189
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	190 bool is_user_script_frame (void) const { return true; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	191
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	192 static stack_frame * get_access_link (stack_frame *static_link);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	193
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	194 static size_t get_num_symbols (octave_user_script *script);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	195
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	196 void set_script_offsets (void);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	197
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	198 void set_script_offsets_internal (const std::map<std::string,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	199 symbol_record>& symbols);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	200
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	201 void resize_and_update_script_offsets (const symbol_record& sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	202
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	203 symbol_scope get_scope (void) const { return m_script->scope (); }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	204
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	205 octave_function * function (void) const { return m_script; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	206
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	207 unwind_protect *
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	208 unwind_protect_frame (void) const { return m_unwind_protect_frame; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	209
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	210 symbol_record lookup_symbol (const std::string& name) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	211
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	212 symbol_record insert_symbol (const std::string&);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	213
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	214 size_t size (void) const { return m_lexical_frame_offsets.size (); }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	215
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	216 void resize (size_t size)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	217 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	218 m_lexical_frame_offsets.resize (size, 0);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	219 m_value_offsets.resize (size, 0);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	220 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	221
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	222 void get_val_offsets_with_insert (const symbol_record& sym,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	223 size_t& frame_offset,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	224 size_t& data_offset);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	225
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	226 bool get_val_offsets_internal (const symbol_record& sym,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	227 size_t& frame_offset,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	228 size_t& data_offset) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	229
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	230 bool get_val_offsets (const symbol_record& sym, size_t& frame_offset,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	231 size_t& data_offset) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	232
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	233 scope_flags scope_flag (const symbol_record& sym) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	234
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	235 void set_auto_fcn_var (auto_var_type avt, const octave_value& val)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	236 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	237 m_access_link->set_auto_fcn_var (avt, val);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	238 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	239
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	240 octave_value get_auto_fcn_var (auto_var_type avt) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	241 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	242 return m_access_link->get_auto_fcn_var (avt);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	243 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	244
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	245 // We only need to override one of each of these functions. The
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	246 // using declaration will avoid warnings about partially-overloaded
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	247 // virtual functions.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	248 using stack_frame::varval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	249 using stack_frame::varref;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	250
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	251 octave_value varval (const symbol_record& sym) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	252
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	253 octave_value& varref (const symbol_record& sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	254
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	255 void mark_scope (const symbol_record& sym, scope_flags flag);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	256
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	257 void display (bool follow = true) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	258
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	259 void accept (stack_frame_walker& sfw);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	260
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	261 private:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	262
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	263 // Script object associated with this stack frame. Should always
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	264 // be valid.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	265 octave_user_script *m_script;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	266
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	267 // The nearest unwind protect frame that was active when this
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	268 // stack frame was created. Should always be valid.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	269 unwind_protect *m_unwind_protect_frame;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	270
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	271 // Mapping between the symbols in the symbol_scope object of the
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	272 // script to the stack frame in which the script is executed. The
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	273 // frame offsets may be greater than one if the script is executed
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	274 // in a nested function context.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	275
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	276 std::vector<size_t> m_lexical_frame_offsets;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	277 std::vector<size_t> m_value_offsets;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	278 };
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	279
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	280 // Base class for values and offsets shared by user_fcn and scope
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	281 // frames.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	282
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	283 class base_value_stack_frame : public stack_frame
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	284 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	285 public:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	286
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	287 base_value_stack_frame (void) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	288
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	289 base_value_stack_frame (tree_evaluator& tw, size_t num_symbols,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	290 size_t index, stack_frame *static_link,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	291 stack_frame *access_link)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	292 : stack_frame (tw, index, static_link, access_link),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	293 m_values (num_symbols, octave_value ()),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	294 m_flags (num_symbols, LOCAL),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	295 m_auto_vars (NUM_AUTO_VARS, octave_value ())
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	296 { }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	297
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	298 base_value_stack_frame (const base_value_stack_frame& elt) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	299
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	300 base_value_stack_frame&
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	301 operator = (const base_value_stack_frame& elt) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	302
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	303 ~base_value_stack_frame (void) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	304
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	305 size_t size (void) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	306 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	307 return m_values.size ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	308 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	309
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	310 void resize (size_t size)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	311 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	312 m_values.resize (size, octave_value ());
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	313 m_flags.resize (size, LOCAL);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	314 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	315
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	316 stack_frame::scope_flags get_scope_flag (size_t data_offset) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	317 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	318 return m_flags.at (data_offset);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	319 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	320
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	321 void set_scope_flag (size_t data_offset, scope_flags flag)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	322 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	323 m_flags.at (data_offset) = flag;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	324 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	325
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	326 octave_value get_auto_fcn_var (auto_var_type avt) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	327 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	328 return m_auto_vars.at (avt);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	329 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	330
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	331 void set_auto_fcn_var (auto_var_type avt, const octave_value& val)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	332 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	333 m_auto_vars.at (avt) = val;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	334 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	335
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	336 // We only need to override one of each of these functions. The
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	337 // using declaration will avoid warnings about partially-overloaded
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	338 // virtual functions.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	339 using stack_frame::varval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	340 using stack_frame::varref;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	341
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	342 octave_value varval (size_t data_offset) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	343 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	344 return m_values.at (data_offset);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	345 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	346
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	347 octave_value& varref (size_t data_offset)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	348 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	349 return m_values.at (data_offset);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	350 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	351
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	352 void display (bool follow = true) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	353
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	354 protected:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	355
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	356 // Variable values. This array is indexed by the data_offset
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	357 // value stored in the symbol_record objects of the scope
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	358 // associated with this stack frame.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	359 std::vector<octave_value> m_values;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	360
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	361 // The type of each variable (local, global, persistent) of each
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	362 // value. This array is indexed by the data_offset value stored
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	363 // in the symbol_record objects of the scope associated with this
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	364 // stack frame. Local values are found in the M_VALUES array.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	365 // Global values are stored in the tree_evaluator object that contains
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	366 // the stack frame. Persistent values are stored in the function
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	367 // scope corresponding to the stack frame.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	368 std::vector<scope_flags> m_flags;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	369
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	370 // A fixed list of Automatic variables created for this function.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	371 // The elements of this vector correspond to the auto_var_type
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	372 // enum.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	373 std::vector<octave_value> m_auto_vars;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	374 };
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	375
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	376 // User-defined functions have a symbol_scope object to store the set
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	377 // of variables in the function and values are stored in the stack
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	378 // frame corresponding to the invocation of the function or one of
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	379 // its parents. The frame offset tells us how many access links we
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	380 // must follow to find the stack frame that holds the value. The
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	381 // value offset is the index into the vector of values in that stack
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	382 // frame that we should use to find the value.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	383 //
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	384 // Frame and value offsets are determined when the corresponding
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	385 // function is parsed.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	386
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	387 class user_fcn_stack_frame : public base_value_stack_frame
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	388 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	389 public:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	390
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	391 user_fcn_stack_frame (void) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	392
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	393 user_fcn_stack_frame (tree_evaluator& tw, octave_user_function *fcn,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	394 unwind_protect *up_frame, size_t index,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	395 stack_frame *static_link,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	396 stack_frame *access_link = nullptr)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	397 : base_value_stack_frame (tw, get_num_symbols (fcn), index, static_link,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	398 (access_link
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	399 ? access_link
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	400 : get_access_link (fcn, static_link))),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	401 m_fcn (fcn), m_unwind_protect_frame (up_frame)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	402 { }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	403
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	404 user_fcn_stack_frame (const user_fcn_stack_frame& elt) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	405
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	406 user_fcn_stack_frame&
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	407 operator = (const user_fcn_stack_frame& elt) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	408
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	409 ~user_fcn_stack_frame (void) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	410
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	411 user_fcn_stack_frame * dup (void) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	412
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	413 bool is_user_fcn_frame (void) const { return true; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	414
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	415 static stack_frame *
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	416 get_access_link (octave_user_function fcn, stack_frame static_link);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	417
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	418 static size_t get_num_symbols (octave_user_function *fcn)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	419 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	420 symbol_scope fcn_scope = fcn->scope ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	421
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	422 return fcn_scope.num_symbols ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	423 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	424
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	425 void clear_values (void);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	426
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	427 symbol_scope get_scope (void) const { return m_fcn->scope (); }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	428
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	429 octave_function * function (void) const { return m_fcn; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	430
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	431 unwind_protect *
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	432 unwind_protect_frame (void) const { return m_unwind_protect_frame; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	433
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	434 symbol_record lookup_symbol (const std::string& name) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	435
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	436 symbol_record insert_symbol (const std::string&);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	437
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	438 scope_flags scope_flag (const symbol_record& sym) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	439
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	440 // We only need to override one of each of these functions. The
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	441 // using declaration will avoid warnings about partially-overloaded
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	442 // virtual functions.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	443 using base_value_stack_frame::varval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	444 using base_value_stack_frame::varref;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	445
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	446 octave_value varval (const symbol_record& sym) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	447
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	448 octave_value& varref (const symbol_record& sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	449
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	450 void mark_scope (const symbol_record& sym, scope_flags flag);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	451
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	452 void display (bool follow = true) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	453
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	454 void accept (stack_frame_walker& sfw);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	455
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	456 private:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	457
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	458 // User-defined object associated with this stack frame. Should
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	459 // always be valid.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	460 octave_user_function *m_fcn;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	461
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	462 // The nearest unwind protect frame that was active when this
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	463 // stack frame was created. Should always be valid.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	464 unwind_protect *m_unwind_protect_frame;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	465 };
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	466
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	467 // Pure scope stack frames (primarily the top-level workspace) have
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	468 // a set of variables and values are stored in the stack frame. All
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	469 // variable accesses are direct as there are no parent stack frames.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	470 //
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	471 // Value offsets are determined when the corresponding variable is
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	472 // entered into the symbol_scope object corresponding to the frame.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	473
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	474 class scope_stack_frame : public base_value_stack_frame
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	475 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	476 public:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	477
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	478 scope_stack_frame (void) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	479
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	480 scope_stack_frame (tree_evaluator& tw, const symbol_scope& scope,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	481 size_t index, stack_frame *static_link)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	482 : base_value_stack_frame (tw, scope.num_symbols (), index,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	483 static_link, nullptr),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	484 m_scope (scope)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	485 { }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	486
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	487 scope_stack_frame (const scope_stack_frame& elt) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	488
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	489 scope_stack_frame& operator = (const scope_stack_frame& elt) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	490
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	491 ~scope_stack_frame (void) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	492
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	493 scope_stack_frame * dup (void) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	494
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	495 bool is_scope_frame (void) const { return true; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	496
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	497 symbol_scope get_scope (void) const { return m_scope; }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	498
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	499 symbol_record lookup_symbol (const std::string& name) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	500 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	501 return m_scope.lookup_symbol (name);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	502 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	503
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	504 symbol_record insert_symbol (const std::string&);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	505
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	506 scope_flags scope_flag (const symbol_record& sym) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	507
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	508 // We only need to override one of each of these functions. The
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	509 // using declaration will avoid warnings about partially-overloaded
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	510 // virtual functions.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	511 using base_value_stack_frame::varval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	512 using base_value_stack_frame::varref;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	513
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	514 octave_value varval (const symbol_record& sym) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	515
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	516 octave_value& varref (const symbol_record& sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	517
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	518 void mark_scope (const symbol_record& sym, scope_flags flag);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	519
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	520 void display (bool follow = true) const;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	521
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	522 void accept (stack_frame_walker& sfw);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	523
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	524 private:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	525
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	526 // The scope object associated with this stack frame.
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	527 symbol_scope m_scope;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	528 };
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	529
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	530 // FIXME: There should probably be a display method for the script,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	531 // fcn, and scope objects and the script and function objects should
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	532 // be responsible for displaying the scopes they contain.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	533
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	534 static void display_scope (std::ostream& os, const symbol_scope& scope)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	535 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	536 if (scope)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	537 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	538 os << "scope: " << scope.name () << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	539
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	540 if (scope.num_symbols () > 0)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	541 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	542 os << "name (frame offset, data offset, storage class):"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	543 << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	544
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	545 std::list<symbol_record> symbols = scope.symbol_list ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	546
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	547 for (auto& sym : symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	548 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	549 os << " " << sym.name () << " (" << sym.frame_offset ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	550 << ", " << sym.data_offset () << ", " << sym.storage_class ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	551 << ")" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	552 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	553 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	554 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	555 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	556
28425 a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	557 class stack_frame_walker
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	558 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	559 protected:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	560
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	561 stack_frame_walker (void) { }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	562
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	563 virtual ~stack_frame_walker (void) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	564
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	565 public:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	566
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	567 // No copying!
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	568
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	569 stack_frame_walker (const stack_frame_walker&) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	570
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	571 stack_frame_walker& operator = (const stack_frame_walker&) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	572
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	573 virtual void
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	574 visit_compiled_fcn_stack_frame (compiled_fcn_stack_frame&) = 0;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	575
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	576 virtual void
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	577 visit_script_stack_frame (script_stack_frame&) = 0;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	578
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	579 virtual void
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	580 visit_user_fcn_stack_frame (user_fcn_stack_frame&) = 0;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	581
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	582 virtual void
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	583 visit_scope_stack_frame (scope_stack_frame&) = 0;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	584 };
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	585
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	586 class symbol_cleaner : public stack_frame_walker
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	587 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	588 public:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	589
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	590 symbol_cleaner (const std::string& pattern, bool have_regexp = false)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	591 : stack_frame_walker (), m_patterns (pattern),
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	592 m_clear_all_names (false), m_clear_objects (false),
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	593 m_have_regexp (have_regexp), m_cleared_names ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	594 { }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	595
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	596 symbol_cleaner (const string_vector& patterns, bool have_regexp = false)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	597 : stack_frame_walker (), m_patterns (patterns),
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	598 m_clear_all_names (false), m_clear_objects (false),
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	599 m_have_regexp (have_regexp), m_cleared_names ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	600 { }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	601
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	602 symbol_cleaner (bool clear_all_names = true, bool clear_objects = false)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	603 : stack_frame_walker (), m_patterns (),
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	604 m_clear_all_names (clear_all_names), m_clear_objects (clear_objects),
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	605 m_have_regexp (false), m_cleared_names ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	606 { }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	607
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	608 symbol_cleaner (const symbol_cleaner&) = delete;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	609
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	610 symbol_cleaner& operator = (const symbol_cleaner&) = delete;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	611
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	612 ~symbol_cleaner (void) = default;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	613
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	614 void visit_compiled_fcn_stack_frame (compiled_fcn_stack_frame& frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	615 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	616 // This one follows static link always. Hmm, should the access
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	617 // link for a compiled_fcn_stack_frame be the same as the static
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	618 // link?
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	619
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	620 stack_frame *slink = frame.static_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	621
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	622 if (slink)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	623 slink->accept (*this);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	624 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	625
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	626 void visit_script_stack_frame (script_stack_frame& frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	627 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	628 stack_frame *alink = frame.access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	629
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	630 if (alink)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	631 alink->accept (*this);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	632 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	633
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	634 void visit_user_fcn_stack_frame (user_fcn_stack_frame& frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	635 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	636 clean_frame (frame);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	637
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	638 stack_frame *alink = frame.access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	639
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	640 if (alink)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	641 alink->accept (*this);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	642 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	643
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	644 void visit_scope_stack_frame (scope_stack_frame& frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	645 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	646 clean_frame (frame);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	647
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	648 stack_frame *alink = frame.access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	649
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	650 if (alink)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	651 alink->accept (*this);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	652 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	653
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	654 private:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	655
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	656 void maybe_clear_symbol (stack_frame& frame, const symbol_record& sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	657 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	658 std::string name = sym.name ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	659
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	660 if (m_cleared_names.find (name) == m_cleared_names.end ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	661 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	662 // FIXME: Should we check that the name is defined and skip if
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	663 // it is not? Is it possible for another symbol with the same
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	664 // name to appear in a later stack frame?
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	665
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	666 // FIXME: If we are clearing objects and a symbol is found,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	667 // should we add it to the list of cleared names (since
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	668 // we did find a symbol) but skip clearing the object?
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	669
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	670 if (m_clear_objects && ! frame.is_object (sym))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	671 return;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	672
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	673 m_cleared_names.insert (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	674
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	675 frame.clear (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	676 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	677 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	678
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	679 // FIXME: It would be nice to avoid the duplication in the following
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	680 // function.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	681
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	682 void clear_symbols (stack_frame& frame,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	683 const std::list<symbol_record>& symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	684 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	685 if (m_clear_all_names)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	686 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	687 for (const auto& sym : symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	688 maybe_clear_symbol (frame, sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	689 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	690 else if (m_have_regexp)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	691 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	692 octave_idx_type npatterns = m_patterns.numel ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	693
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	694 for (octave_idx_type j = 0; j < npatterns; j++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	695 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	696 std::string pattern = m_patterns[j];
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	697
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	698 regexp pat (pattern);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	699
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	700 for (const auto& sym : symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	701 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	702 if (pat.is_match (sym.name ()))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	703 maybe_clear_symbol (frame, sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	704 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	705 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	706 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	707 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	708 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	709 octave_idx_type npatterns = m_patterns.numel ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	710
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	711 for (octave_idx_type j = 0; j < npatterns; j++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	712 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	713 std::string pattern = m_patterns[j];
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	714
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	715 glob_match pat (pattern);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	716
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	717 for (const auto& sym : symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	718 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	719 if (pat.match (sym.name ()))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	720 maybe_clear_symbol (frame, sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	721 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	722 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	723 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	724 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	725
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	726 void clean_frame (stack_frame& frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	727 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	728 symbol_scope scope = frame.get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	729
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	730 std::list<symbol_record> symbols = scope.symbol_list ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	731
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	732 if (m_clear_all_names \|\| ! m_patterns.empty ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	733 clear_symbols (frame, symbols);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	734 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	735
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	736 string_vector m_patterns;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	737
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	738 bool m_clear_all_names;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	739 bool m_clear_objects;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	740 bool m_have_regexp;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	741
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	742 std::set<std::string> m_cleared_names;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	743 };
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	744
28425 a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	745 class symbol_info_accumulator : public stack_frame_walker
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	746 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	747 public:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	748
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	749 symbol_info_accumulator (const std::string& pattern,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	750 bool have_regexp = false)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	751 : stack_frame_walker (), m_patterns (pattern), m_match_all (false),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	752 m_first_only (false), m_have_regexp (have_regexp), m_sym_inf_list (),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	753 m_found_names ()
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	754 { }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	755
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	756 symbol_info_accumulator (const string_vector& patterns,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	757 bool have_regexp = false)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	758 : stack_frame_walker (), m_patterns (patterns), m_match_all (false),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	759 m_first_only (false), m_have_regexp (have_regexp), m_sym_inf_list (),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	760 m_found_names ()
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	761 { }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	762
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	763 symbol_info_accumulator (bool match_all = true, bool first_only = true)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	764 : stack_frame_walker (), m_patterns (), m_match_all (match_all),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	765 m_first_only (first_only), m_have_regexp (false),
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	766 m_sym_inf_list (), m_found_names ()
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	767 { }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	768
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	769 symbol_info_accumulator (const symbol_info_accumulator&) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	770
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	771 symbol_info_accumulator& operator = (const symbol_info_accumulator&) = delete;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	772
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	773 ~symbol_info_accumulator (void) = default;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	774
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	775 bool is_empty (void) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	776 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	777 for (const auto& nm_sil : m_sym_inf_list)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	778 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	779 const symbol_info_list& lst = nm_sil.second;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	780
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	781 if (! lst.empty ())
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	782 return false;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	783 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	784
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	785 return true;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	786 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	787
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	788 std::list<std::string> names (void) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	789 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	790 std::list<std::string> retval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	791
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	792 for (const auto& nm_sil : m_sym_inf_list)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	793 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	794 const symbol_info_list& lst = nm_sil.second;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	795
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	796 std::list<std::string> nm_list = lst.names ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	797
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	798 for (const auto& nm : nm_list)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	799 retval.push_back (nm);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	800 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	801
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	802 return retval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	803 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	804
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	805 symbol_info_list symbol_info (void) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	806 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	807 symbol_info_list retval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	808
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	809 for (const auto& nm_sil : m_sym_inf_list)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	810 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	811 const symbol_info_list& lst = nm_sil.second;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	812
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	813 for (const auto& syminf : lst)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	814 retval.push_back (syminf);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	815 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	816
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	817 return retval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	818 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	819
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	820 octave_map map_value (void) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	821 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	822 octave_map retval;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	823
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	824 // FIXME: is there a better way to concatenate structures?
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	825
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	826 size_t n_frames = m_sym_inf_list.size ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	827
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	828 OCTAVE_LOCAL_BUFFER (octave_map, map_list, n_frames);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	829
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	830 size_t j = 0;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	831 for (const auto& nm_sil : m_sym_inf_list)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	832 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	833 std::string scope_name = nm_sil.first;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	834 const symbol_info_list& lst = nm_sil.second;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	835
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	836 map_list[j] = lst.map_value (scope_name, n_frames-j);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	837
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	838 j++;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	839 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	840
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	841 return octave_map::cat (-1, n_frames, map_list);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	842 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	843
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	844 void display (std::ostream& os, const std::string& format) const
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	845 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	846 for (const auto& nm_sil : m_sym_inf_list)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	847 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	848 os << "\nvariables in scope: " << nm_sil.first << "\n\n";
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	849
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	850 const symbol_info_list& lst = nm_sil.second;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	851
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	852 lst.display (os, format);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	853 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	854 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	855
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	856 void visit_compiled_fcn_stack_frame (compiled_fcn_stack_frame& frame)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	857 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	858 // This one follows static link always. Hmm, should the access
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	859 // link for a compiled_fcn_stack_frame be the same as the static
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	860 // link?
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	861
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	862 stack_frame *slink = frame.static_link ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	863
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	864 if (slink)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	865 slink->accept (*this);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	866 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	867
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	868 void visit_script_stack_frame (script_stack_frame& frame)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	869 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	870 stack_frame *alink = frame.access_link ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	871
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	872 if (alink)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	873 alink->accept (*this);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	874 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	875
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	876 void visit_user_fcn_stack_frame (user_fcn_stack_frame& frame)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	877 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	878 append_list (frame);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	879
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	880 stack_frame *alink = frame.access_link ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	881
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	882 if (alink)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	883 alink->accept (*this);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	884 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	885
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	886 void visit_scope_stack_frame (scope_stack_frame& frame)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	887 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	888 append_list (frame);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	889
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	890 stack_frame *alink = frame.access_link ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	891
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	892 if (alink)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	893 alink->accept (*this);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	894 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	895
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	896 private:
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	897
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	898 typedef std::pair<std::string, symbol_info_list> syminf_list_elt;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	899
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	900 // FIXME: the following is too complex and duplicates too much
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	901 // code. Maybe it should be split up so we have separate classes
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	902 // that do each job that is needed?
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	903
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	904 std::list<symbol_record>
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	905 filter (stack_frame& frame, const std::list<symbol_record>& symbols)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	906 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	907 std::list<symbol_record> new_symbols;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	908
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	909 if (m_match_all)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	910 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	911 for (const auto& sym : symbols)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	912 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	913 if (frame.is_defined (sym))
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	914 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	915 std::string name = sym.name ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	916
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	917 if (m_first_only
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	918 && m_found_names.find (name) != m_found_names.end ())
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	919 continue;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	920
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	921 m_found_names.insert (name);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	922
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	923 new_symbols.push_back (sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	924 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	925 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	926 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	927 else if (m_have_regexp)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	928 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	929 octave_idx_type npatterns = m_patterns.numel ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	930
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	931 for (octave_idx_type j = 0; j < npatterns; j++)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	932 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	933 std::string pattern = m_patterns[j];
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	934
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	935 regexp pat (pattern);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	936
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	937 for (const auto& sym : symbols)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	938 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	939 std::string name = sym.name ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	940
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	941 if (pat.is_match (name) && frame.is_defined (sym))
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	942 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	943 if (m_first_only
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	944 && m_found_names.find (name) != m_found_names.end ())
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	945 continue;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	946
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	947 m_found_names.insert (name);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	948
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	949 new_symbols.push_back (sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	950 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	951 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	952 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	953 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	954 else
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	955 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	956 octave_idx_type npatterns = m_patterns.numel ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	957
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	958 for (octave_idx_type j = 0; j < npatterns; j++)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	959 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	960 std::string pattern = m_patterns[j];
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	961
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	962 glob_match pat (pattern);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	963
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	964 for (const auto& sym : symbols)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	965 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	966 std::string name = sym.name ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	967
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	968 if (pat.match (name) && frame.is_defined (sym))
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	969 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	970 if (m_first_only
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	971 && m_found_names.find (name) == m_found_names.end ())
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	972 continue;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	973
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	974 m_found_names.insert (name);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	975
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	976 new_symbols.push_back (sym);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	977 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	978 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	979 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	980 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	981
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	982 return new_symbols;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	983 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	984
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	985 void append_list (stack_frame& frame)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	986 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	987 symbol_scope scope = frame.get_scope ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	988
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	989 std::list<symbol_record> symbols = scope.symbol_list ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	990
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	991 if (m_match_all \|\| ! m_patterns.empty ())
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	992 symbols = filter (frame, symbols);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	993
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	994 symbol_info_list syminf_list = frame.make_symbol_info_list (symbols);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	995
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	996 m_sym_inf_list.push_back (syminf_list_elt (scope.name (), syminf_list));
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	997 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	998
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	999 string_vector m_patterns;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1000
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1001 bool m_match_all;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1002 bool m_first_only;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1003 bool m_have_regexp;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1004
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1005 std::list<std::pair<std::string, symbol_info_list>> m_sym_inf_list;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1006
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1007 std::set<std::string> m_found_names;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1008 };
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1009
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1010 stack_frame * stack_frame::create (tree_evaluator& tw, octave_function *fcn,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1011 size_t index, stack_frame *static_link)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1012 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1013 return new compiled_fcn_stack_frame (tw, fcn, index, static_link);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1014 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1015
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1016 stack_frame * stack_frame::create (tree_evaluator& tw,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1017 octave_user_script *script,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1018 unwind_protect *up_frame, size_t index,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1019 stack_frame *static_link)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1020 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1021 return new script_stack_frame (tw, script, up_frame, index, static_link);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1022 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1023
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1024 stack_frame * stack_frame::create (tree_evaluator& tw,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1025 octave_user_function *fcn,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1026 unwind_protect *up_frame, size_t index,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1027 stack_frame *static_link,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1028 stack_frame *access_link)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1029 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1030 return new user_fcn_stack_frame (tw, fcn, up_frame, index, static_link,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1031 access_link);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1032 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1033
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1034 stack_frame * stack_frame::create (tree_evaluator& tw,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1035 const symbol_scope& scope, size_t index,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1036 stack_frame *static_link)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1037 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1038 return new scope_stack_frame (tw, scope, index, static_link);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1039 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1040
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1041 // This function is only implemented for user_fcn stack frames and
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1042 // only called for those objects using unwind_protect and the
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1043 // call_stack::clear_current_frame_values function. Anything else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1044 // indicates an error in the implementation.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1045
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1046 void stack_frame::clear_values (void)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1047 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1048 panic_impossible ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1049 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1050
28329 6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1051 symbol_info_list
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1052 stack_frame::make_symbol_info_list (const std::list<symbol_record>& symrec_list) const
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1053 {
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1054 symbol_info_list symbol_stats;
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1055
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1056 for (const auto& sym : symrec_list)
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1057 {
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1058 octave_value value = varval (sym);
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1059
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1060 if (value.is_defined ())
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1061 {
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1062 symbol_info syminf (sym.name (), value, sym.is_formal (),
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1063 is_global (sym), is_persistent (sym));
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1064
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1065 symbol_stats.append (syminf);
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1066 }
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1067 }
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1068
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1069 return symbol_stats;
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1070 }
6349915869f2 move function definition from header to source file John W. Eaton <jwe@octave.org> parents: 28328 diff changeset	1071
28425 a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1072 octave_value stack_frame::who (const string_vector& patterns,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1073 bool have_regexp, bool return_list,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1074 bool verbose, const std::string& whos_line_fmt,
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1075 const std::string& msg)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1076 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1077 symbol_info_accumulator sym_inf_accum (patterns, have_regexp);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1078
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1079 accept (sym_inf_accum);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1080
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1081 if (return_list)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1082 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1083 if (verbose)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1084 return sym_inf_accum.map_value ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1085 else
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1086 return Cell (string_vector (sym_inf_accum.names ()));
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1087 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1088 else if (! sym_inf_accum.is_empty ())
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1089 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1090
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1091 if (msg.empty ())
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1092 octave_stdout << "Variables visible from the current scope:\n";
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1093 else
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1094 octave_stdout << msg;
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1095
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1096 if (verbose)
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1097 sym_inf_accum.display (octave_stdout, whos_line_fmt);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1098 else
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1099 {
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1100 octave_stdout << "\n";
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1101 string_vector names (sym_inf_accum.names ());
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1102 names.list_in_columns (octave_stdout);
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1103 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1104
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1105 octave_stdout << "\n";
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1106 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1107
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1108 return octave_value ();
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1109 }
a5be4fc661d6 hide specific stack frame and stack frame walker classes John W. Eaton <jwe@octave.org> parents: 28329 diff changeset	1110
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1111 // Return first occurrence of variables in current stack frame and any
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1112 // parent frames reachable through access links.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1113
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1114 symbol_info_list stack_frame::all_variables (void)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1115 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1116 symbol_info_accumulator sia (true, true);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1117
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1118 accept (sia);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1119
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1120 return sia.symbol_info ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1121 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1122
28327 8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1123 // FIXME: Should this function also find any variables in parent
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1124 // scopes accessible through access_links?
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1125
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1126 std::list<std::string> stack_frame::variable_names (void) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1127 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1128 std::list<std::string> retval;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1129
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1130 symbol_scope scope = get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1131
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1132 const std::map<std::string, symbol_record>& symbols = scope.symbols ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1133
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1134 for (const auto& nm_sr : symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1135 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1136 if (is_variable (nm_sr.second))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1137 retval.push_back (nm_sr.first);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1138 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1139
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1140 retval.sort ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1141
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1142 return retval;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1143 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1144
28327 8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1145 symbol_info_list stack_frame::glob_symbol_info (const std::string& pattern)
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1146 {
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1147 symbol_info_accumulator sia (pattern, false);
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1148
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1149 accept (sia);
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1150
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1151 return sia.symbol_info ();
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1152 }
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1153
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1154 symbol_info_list stack_frame::regexp_symbol_info (const std::string& pattern)
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1155 {
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1156 symbol_info_accumulator sia (pattern, true);
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1157
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1158 accept (sia);
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1159
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1160 return sia.symbol_info ();
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1161 }
8db2d4c9a64f correctly find all symbols in script when saving values (bug #58382) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1162
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1163 size_t stack_frame::size (void) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1164 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1165 // This function should only be called for user_fcn_stack_frame or
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1166 // scope_stack_frame objects. Anything else indicates an error in
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1167 // the implementation.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1168
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1169 panic_impossible ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1170 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1171
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1172 void stack_frame::resize (size_t)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1173 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1174 // This function should only be called for user_fcn_stack_frame or
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1175 // scope_stack_frame objects. Anything else indicates an error in
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1176 // the implementation.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1177
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1178 panic_impossible ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1179 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1180
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1181 stack_frame::scope_flags stack_frame::get_scope_flag (size_t) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1182 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1183 // This function should only be called for user_fcn_stack_frame or
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1184 // scope_stack_frame objects. Anything else indicates an error in
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1185 // the implementation.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1186
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1187 panic_impossible ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1188 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1189
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1190 void stack_frame::set_scope_flag (size_t, scope_flags)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1191 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1192 // This function should only be called for user_fcn_stack_frame or
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1193 // scope_stack_frame objects. Anything else indicates an error in
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1194 // the implementation.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1195
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1196 panic_impossible ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1197 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1198
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1199 void stack_frame::install_variable (const symbol_record& sym,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1200 const octave_value& value, bool global)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1201 {
26673 4271b53b24a6 when installing global variable don't warn if it is already global John W. Eaton <jwe@octave.org> parents: 26663 diff changeset	1202 if (global && ! is_global (sym))
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1203 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1204 octave_value val = varval (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1205
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1206 if (val.is_defined ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1207 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1208 std::string nm = sym.name ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1209
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1210 warning_with_id ("Octave:global-local-conflict",
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1211 "global: '%s' is defined in the current scope.\n",
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1212 nm.c_str ());
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1213 warning_with_id ("Octave:global-local-conflict",
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1214 "global: in a future version, global variables must be declared before use.\n");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1215
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1216 // If the symbol is defined in the local but not the
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1217 // global scope, then use the local value as the
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1218 // initial value. This value will also override any
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1219 // initializer in the global statement.
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	1220 octave_value global_val = m_evaluator.global_varval (nm);
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1221
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1222 if (global_val.is_defined ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1223 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1224 warning_with_id ("Octave:global-local-conflict",
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1225 "global: global value overrides existing local value");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1226
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1227 clear (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1228 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1229 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1230 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1231 warning_with_id ("Octave:global-local-conflict",
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1232 "global: existing local value used to initialize global variable");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1233
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	1234 m_evaluator.global_varref (nm) = val;
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1235 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1236 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1237
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1238 mark_global (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1239 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1240
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1241 if (value.is_defined ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1242 assign (sym, value);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1243 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1244
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1245 octave_value stack_frame::varval (size_t) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1246 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1247 // This function should only be called for user_fcn_stack_frame or
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1248 // scope_stack_frame objects. Anything else indicates an error in
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1249 // the implementation.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1250
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1251 panic_impossible ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1252 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1253
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1254 octave_value& stack_frame::varref (size_t)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1255 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1256 // This function should only be called for user_fcn_stack_frame or
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1257 // scope_stack_frame objects. Anything else indicates an error in
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1258 // the implementation.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1259
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1260 panic_impossible ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1261 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1262
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1263 void stack_frame::clear_objects (void)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1264 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1265 symbol_cleaner sc (true, true);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1266
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1267 accept (sc);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1268 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1269
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1270 void stack_frame::clear_variable (const std::string& name)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1271 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1272 symbol_cleaner sc (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1273
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1274 accept (sc);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1275 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1276
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1277 void stack_frame::clear_variable_pattern (const std::string& pattern)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1278 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1279 symbol_cleaner sc (pattern);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1280
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1281 accept (sc);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1282 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1283
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1284 void stack_frame::clear_variable_pattern (const string_vector& patterns)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1285 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1286 symbol_cleaner sc (patterns);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1287
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1288 accept (sc);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1289 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1290
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1291 void stack_frame::clear_variable_regexp (const std::string& pattern)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1292 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1293 symbol_cleaner sc (pattern, true);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1294
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1295 accept (sc);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1296 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1297
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1298 void stack_frame::clear_variable_regexp (const string_vector& patterns)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1299 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1300 symbol_cleaner sc (patterns, true);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1301
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1302 accept (sc);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1303 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1304
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1305 void stack_frame::clear_variables (void)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1306 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1307 symbol_cleaner sc;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1308
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1309 accept (sc);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1310 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1311
27037 8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1312 void stack_frame::display_stopped_in_message (std::ostream& os) const
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1313 {
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1314 if (index () == 0)
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1315 os << "at top level" << std::endl;
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1316 else
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1317 {
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1318 os << "stopped in " << fcn_name ();
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1319
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1320 int l = line ();
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1321 if (l > 0)
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1322 os << " at line " << line ();
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1323
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1324 os << " [" << fcn_file_name () << "] " << std::endl;
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1325 }
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1326 }
8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1327
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1328 void stack_frame::display (bool follow) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1329 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1330 std::ostream& os = octave_stdout;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1331
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1332 os << "-- [stack_frame] (" << this << ") --" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1333
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1334 os << "static link: ";
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1335 if (m_static_link)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1336 os << m_static_link;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1337 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1338 os << "NULL";
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1339 os << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1340
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1341 os << "access link: ";
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1342 if (m_access_link)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1343 os << m_access_link;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1344 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1345 os << "NULL";
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1346 os << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1347
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1348 os << "line: " << m_line << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1349 os << "column: " << m_column << std::endl;
27037 8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1350 os << "index: " << m_index << std::endl;
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1351
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1352 os << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1353
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1354 if (! follow)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1355 return;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1356
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1357 os << "FOLLOWING ACCESS LINKS:" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1358 const stack_frame *frm = access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1359 while (frm)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1360 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1361 frm->display (false);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1362 os << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1363
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1364 frm = frm->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1365 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1366 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1367
26824 d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1368 compiled_fcn_stack_frame *
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1369 compiled_fcn_stack_frame::dup (void) const
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1370 {
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1371 return new compiled_fcn_stack_frame (*this);
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1372 }
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1373
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1374 void compiled_fcn_stack_frame::display (bool follow) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1375 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1376 std::ostream& os = octave_stdout;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1377
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1378 os << "-- [compiled_fcn_stack_frame] (" << this << ") --" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1379 stack_frame::display (follow);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1380
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1381 os << "fcn: " << m_fcn->name ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1382 << " (" << m_fcn->type_name () << ")" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1383 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1384
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1385 void compiled_fcn_stack_frame::accept (stack_frame_walker& sfw)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1386 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1387 sfw.visit_compiled_fcn_stack_frame (*this);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1388 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1389
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	1390 script_stack_frame::script_stack_frame (tree_evaluator& tw,
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1391 octave_user_script *script,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1392 unwind_protect *up_frame,
27037 8408acb7ca4f make dbup/dbdown work again (bug #56020) John W. Eaton <jwe@octave.org> parents: 26824 diff changeset	1393 size_t index,
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1394 stack_frame *static_link)
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	1395 : stack_frame (tw, index, static_link, get_access_link (static_link)),
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1396 m_script (script), m_unwind_protect_frame (up_frame),
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1397 m_lexical_frame_offsets (get_num_symbols (script), 1),
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1398 m_value_offsets (get_num_symbols (script), 0)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1399 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1400 set_script_offsets ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1401 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1402
26824 d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1403 script_stack_frame *
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1404 script_stack_frame::dup (void) const
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1405 {
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1406 return new script_stack_frame (*this);
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1407 }
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1408
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1409 size_t script_stack_frame::get_num_symbols (octave_user_script *script)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1410 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1411 symbol_scope script_scope = script->scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1412
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1413 return script_scope.num_symbols ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1414 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1415
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1416 void script_stack_frame::set_script_offsets (void)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1417 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1418 // Set frame and data offsets inside stack frame based on enclosing
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1419 // scope(s).
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1420
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1421 symbol_scope script_scope = m_script->scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1422
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1423 size_t num_script_symbols = script_scope.num_symbols ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1424
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1425 resize (num_script_symbols);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1426
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1427 const std::map<std::string, symbol_record>& script_symbols
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1428 = script_scope.symbols ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1429
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1430 set_script_offsets_internal (script_symbols);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1431 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1432
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1433 void script_stack_frame::set_script_offsets_internal
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1434 (const std::map<std::string, symbol_record>& script_symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1435 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1436 // This scope will be used to evaluate the script. Find (or
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1437 // possibly insert) symbols from the dummy script scope here.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1438
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1439 symbol_scope eval_scope = m_access_link->get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1440
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1441 if (eval_scope.is_nested ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1442 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1443 bool found = false;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1444
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1445 for (const auto& nm_sr : script_symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1446 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1447 std::string name = nm_sr.first;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1448 symbol_record script_sr = nm_sr.second;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1449
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1450 symbol_scope parent_scope = eval_scope;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1451
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1452 size_t count = 1;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1453
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1454 while (parent_scope)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1455 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1456 const std::map<std::string, symbol_record>& parent_scope_symbols
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1457 = parent_scope.symbols ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1458
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1459 auto p = parent_scope_symbols.find (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1460
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1461 if (p != parent_scope_symbols.end ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1462 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1463 found = true;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1464 symbol_record parent_scope_sr = p->second;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1465
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1466 size_t script_sr_data_offset = script_sr.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1467
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1468 m_lexical_frame_offsets.at (script_sr_data_offset)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1469 = parent_scope_sr.frame_offset () + 1;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1470
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1471 m_value_offsets.at (script_sr_data_offset)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1472 = parent_scope_sr.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1473
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1474 break;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1475 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1476 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1477 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1478 count++;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1479 parent_scope = parent_scope.parent_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1480 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1481 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1482
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1483 if (! found)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1484 error ("symbol '%s' cannot be added to static scope",
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1485 name.c_str ());
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1486 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1487 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1488 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1489 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1490 const std::map<std::string, symbol_record>& eval_scope_symbols
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1491 = eval_scope.symbols ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1492
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1493 for (const auto& nm_sr : script_symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1494 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1495 std::string name = nm_sr.first;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1496 symbol_record script_sr = nm_sr.second;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1497
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1498 auto p = eval_scope_symbols.find (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1499
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1500 symbol_record eval_scope_sr;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1501
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1502 if (p == eval_scope_symbols.end ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1503 eval_scope_sr = eval_scope.insert (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1504 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1505 eval_scope_sr = p->second;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1506
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1507 size_t script_sr_data_offset = script_sr.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1508
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1509 // The +1 is for going from the script frame to the eval
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1510 // frame. Only one access_link should need to be followed.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1511
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1512 m_lexical_frame_offsets.at (script_sr_data_offset)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1513 = eval_scope_sr.frame_offset () + 1;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1514
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1515 m_value_offsets.at (script_sr_data_offset)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1516 = eval_scope_sr.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1517 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1518 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1519 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1520
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1521 void script_stack_frame::resize_and_update_script_offsets (const symbol_record& sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1522 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1523 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1524
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1525 // This function is called when adding new symbols to a script
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1526 // scope. If the symbol wasn't present before, it should be outside
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1527 // the range so we need to resize then update offsets.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1528
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1529 assert (data_offset >= size ());
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1530
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1531 resize (data_offset+1);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1532
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1533 // FIXME: We should be able to avoid creating the map object and the
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1534 // looping in the set_scripts_offsets_internal function. Can we do
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1535 // that without (or with minimal) code duplication?
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1536
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1537 std::map<std::string, symbol_record> tmp_symbols;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1538 tmp_symbols[sym.name ()] = sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1539 set_script_offsets_internal (tmp_symbols);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1540 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1541
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1542 // If this is a nested scope, set access_link to nearest parent
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1543 // stack frame that corresponds to the lexical parent of this scope.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1544
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1545 stack_frame *
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1546 script_stack_frame::get_access_link (stack_frame *static_link)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1547 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1548 stack_frame *alink = nullptr;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1549
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1550 // If this script is called from another script, set access
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1551 // link to ultimate parent stack frame.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1552
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1553 alink = static_link;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1554
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1555 while (alink->is_user_script_frame ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1556 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1557 if (alink->access_link ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1558 alink = alink->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1559 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1560 break;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1561 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1562
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1563 return alink;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1564 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1565
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1566 symbol_record script_stack_frame::lookup_symbol (const std::string& name) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1567 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1568 symbol_scope scope = get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1569
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1570 symbol_record sym = scope.lookup_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1571
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1572 if (sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1573 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1574 assert (sym.frame_offset () == 0);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1575
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1576 return sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1577 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1578
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1579 sym = m_access_link->lookup_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1580
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1581 // Return symbol record with adjusted frame offset.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1582 symbol_record new_sym = sym.dup ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1583
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1584 new_sym.set_frame_offset (sym.frame_offset () + 1);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1585
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1586 return new_sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1587 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1588
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1589 symbol_record script_stack_frame::insert_symbol (const std::string& name)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1590 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1591 // If the symbols is already in the immediate scope, there is
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1592 // nothing more to do.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1593
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1594 symbol_scope scope = get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1595
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1596 symbol_record sym = scope.lookup_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1597
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1598 if (sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1599 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1600 // All symbol records in a script scope should have zero offset,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1601 // which means we redirect our lookup using
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1602 // lexical_frame_offsets and values_offets.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1603 assert (sym.frame_offset () == 0);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1604
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1605 return sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1606 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1607
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1608 // Insert the symbol in the current scope then resize and update
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1609 // offsets. This operation should never fail.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1610
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1611 sym = scope.find_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1612
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1613 assert (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1614
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1615 resize_and_update_script_offsets (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1616
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1617 return sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1618 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1619
26663 fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1620 // Similar to set_script_offsets_internal except that we only return
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1621 // frame and data offsets for symbols found by name in parent scopes
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1622 // instead of updating the offsets stored in the script frame itself.
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1623
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1624 bool
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1625 script_stack_frame::get_val_offsets_internal (const symbol_record& script_sr,
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1626 size_t& frame_offset,
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1627 size_t& data_offset) const
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1628 {
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1629 bool found = false;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1630
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1631 // This scope will be used to evaluate the script. Find symbols
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1632 // here by name.
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1633
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1634 symbol_scope eval_scope = m_access_link->get_scope ();
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1635
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1636 if (eval_scope.is_nested ())
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1637 {
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1638 std::string name = script_sr.name ();
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1639
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1640 symbol_scope parent_scope = eval_scope;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1641
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1642 size_t count = 1;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1643
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1644 while (parent_scope)
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1645 {
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1646 const std::map<std::string, symbol_record>& parent_scope_symbols
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1647 = parent_scope.symbols ();
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1648
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1649 auto p = parent_scope_symbols.find (name);
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1650
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1651 if (p != parent_scope_symbols.end ())
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1652 {
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1653 found = true;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1654 symbol_record parent_scope_sr = p->second;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1655
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1656 frame_offset = parent_scope_sr.frame_offset () + 1;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1657
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1658 data_offset = parent_scope_sr.data_offset ();
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1659
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1660 break;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1661 }
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1662 else
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1663 {
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1664 count++;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1665 parent_scope = parent_scope.parent_scope ();
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1666 }
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1667 }
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1668 }
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1669 else
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1670 {
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1671 const std::map<std::string, symbol_record>& eval_scope_symbols
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1672 = eval_scope.symbols ();
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1673
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1674 std::string name = script_sr.name ();
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1675
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1676 auto p = eval_scope_symbols.find (name);
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1677
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1678 symbol_record eval_scope_sr;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1679
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1680 if (p != eval_scope_symbols.end ())
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1681 {
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1682 found = true;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1683 eval_scope_sr = p->second;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1684
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1685 // The +1 is for going from the script frame to the eval
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1686 // frame. Only one access_link should need to be followed.
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1687
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1688 frame_offset = eval_scope_sr.frame_offset () + 1;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1689
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1690 data_offset = eval_scope_sr.data_offset ();
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1691 }
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1692 }
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1693
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1694 return found;
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1695 }
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1696
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1697 bool script_stack_frame::get_val_offsets (const symbol_record& sym,
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1698 size_t& frame_offset,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1699 size_t& data_offset) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1700 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1701 data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1702 frame_offset = sym.frame_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1703
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1704 if (frame_offset == 0)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1705 {
26663 fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1706 // An out of range data_offset value here means that we have a
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1707 // symbol that was not originally in the script. But this
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1708 // function is called in places where we can't insert a new
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1709 // symbol, so we fail and it is up to the caller to decide what
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1710 // to do.
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1711
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1712 if (data_offset >= size ())
26663 fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1713 return get_val_offsets_internal (sym, frame_offset, data_offset);
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1714
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1715 // Use frame and value offsets stored in this stack frame,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1716 // indexed by data_offset from the symbol_record to find the
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1717 // values. These offsets were determined by
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1718 // script_stack_frame::set_script_offsets when this script was
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1719 // invoked.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1720
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1721 frame_offset = m_lexical_frame_offsets.at (data_offset);
27149 61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1722
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1723 if (frame_offset == 0)
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1724 {
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1725 // If the frame offset stored in m_lexical_frame_offsets is
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1726 // zero, then the data offset in the evaluation scope has
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1727 // not been determined so try to do that now. The symbol
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1728 // may have been added by eval and without calling
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1729 // resize_and_update_script_offsets.
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1730
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1731 return get_val_offsets_internal (sym, frame_offset, data_offset);
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1732 }
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1733
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1734 data_offset = m_value_offsets.at (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1735 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1736 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1737 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1738 // If frame_offset is not zero, then then we must have a symbol
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1739 // that was not originally in the script. The values should
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1740 // have been determined by the script_stack_frame::lookup function.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1741 }
26663 fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1742
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1743 return true;
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1744 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1745
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1746 void script_stack_frame::get_val_offsets_with_insert (const symbol_record& sym,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1747 size_t& frame_offset,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1748 size_t& data_offset)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1749 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1750 data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1751 frame_offset = sym.frame_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1752
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1753 if (frame_offset == 0)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1754 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1755 if (data_offset >= size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1756 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1757 // If the data_offset is out of range, then we must have a
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1758 // symbol that was not originally in the script. Resize and
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1759 // update the offsets.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1760
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1761 resize_and_update_script_offsets (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1762 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1763
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1764 // Use frame and value offsets stored in this stack frame,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1765 // indexed by data_offset from the symbol_record to find the
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1766 // values. These offsets were determined by
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1767 // script_stack_frame::set_script_offsets when this script was
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1768 // invoked.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1769
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1770 frame_offset = m_lexical_frame_offsets.at (data_offset);
27149 61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1771
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1772 if (frame_offset == 0)
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1773 {
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1774 // If the frame offset stored in m_lexical_frame_offsets is
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1775 // zero, then the data offset in the evaluation scope has
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1776 // not been determined so try to do that now. The symbol
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1777 // may have been added by eval and without calling
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1778 // resize_and_update_script_offsets.
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1779
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1780 // We don't need to resize here. That case is handled above.
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1781
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1782 // FIXME: We should be able to avoid creating the map object
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1783 // and the looping in the set_scripts_offsets_internal
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1784 // function. Can we do that without (or with minimal) code
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1785 // duplication?
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1786
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1787 std::map<std::string, symbol_record> tmp_symbols;
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1788 tmp_symbols[sym.name ()] = sym;
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1789 set_script_offsets_internal (tmp_symbols);
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1790 }
61226b7bd6b9 fix calculation of value offsets for variables added to script scopes John W. Eaton <jwe@octave.org> parents: 27037 diff changeset	1791
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1792 data_offset = m_value_offsets.at (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1793 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1794 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1795 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1796 // If frame_offset is not zero, then then we must have a symbol
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1797 // that was not originally in the script. The values were
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1798 // determined by the script_stack_frame::lookup function.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1799 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1800 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1801
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1802 stack_frame::scope_flags
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1803 script_stack_frame::scope_flag (const symbol_record& sym) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1804 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1805 size_t frame_offset;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1806 size_t data_offset;
26663 fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1807
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1808 bool found = get_val_offsets (sym, frame_offset, data_offset);
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1809
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1810 // It can't be global or persistent, so call it local.
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1811 if (! found)
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1812 return LOCAL;
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1813
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1814 // Follow frame_offset access links to stack frame that holds
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1815 // the value.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1816
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1817 const stack_frame *frame = this;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1818
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1819 for (size_t i = 0; i < frame_offset; i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1820 frame = frame->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1821
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1822 if (! frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1823 error ("internal error: invalid access link in function call stack");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1824
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1825 if (data_offset >= frame->size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1826 return LOCAL;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1827
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1828 return frame->get_scope_flag (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1829 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1830
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1831 octave_value script_stack_frame::varval (const symbol_record& sym) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1832 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1833 size_t frame_offset;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1834 size_t data_offset;
26663 fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1835
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1836 bool found = get_val_offsets (sym, frame_offset, data_offset);
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1837
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1838 if (! found)
fad3f19de1be don't fail if symbol in script can't be found (bug #55626) John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	1839 return octave_value ();
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1840
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1841 // Follow frame_offset access links to stack frame that holds
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1842 // the value.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1843
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1844 const stack_frame *frame = this;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1845
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1846 for (size_t i = 0; i < frame_offset; i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1847 frame = frame->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1848
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1849 if (! frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1850 error ("internal error: invalid access link in function call stack");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1851
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1852 if (data_offset >= frame->size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1853 return octave_value ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1854
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1855 switch (frame->get_scope_flag (data_offset))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1856 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1857 case LOCAL:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1858 return frame->varval (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1859
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1860 case PERSISTENT:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1861 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1862 symbol_scope scope = frame->get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1863
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1864 return scope.persistent_varval (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1865 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1866
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1867 case GLOBAL:
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	1868 return m_evaluator.global_varval (sym.name ());
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1869 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1870
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1871 error ("internal error: invalid switch case");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1872 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1873
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1874 octave_value& script_stack_frame::varref (const symbol_record& sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1875 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1876 size_t frame_offset;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1877 size_t data_offset;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1878 get_val_offsets_with_insert (sym, frame_offset, data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1879
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1880 // Follow frame_offset access links to stack frame that holds
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1881 // the value.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1882
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1883 stack_frame *frame = this;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1884
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1885 for (size_t i = 0; i < frame_offset; i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1886 frame = frame->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1887
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1888 if (data_offset >= frame->size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1889 frame->resize (data_offset+1);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1890
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1891 switch (frame->get_scope_flag (data_offset))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1892 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1893 case LOCAL:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1894 return frame->varref (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1895
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1896 case PERSISTENT:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1897 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1898 symbol_scope scope = frame->get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1899
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1900 return scope.persistent_varref (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1901 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1902
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1903 case GLOBAL:
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	1904 return m_evaluator.global_varref (sym.name ());
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1905 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1906
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1907 error ("internal error: invalid switch case");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1908 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1909
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1910 void script_stack_frame::mark_scope (const symbol_record& sym,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1911 scope_flags flag)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1912 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1913 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1914
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1915 // Redirection to evaluation context for the script.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1916
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1917 size_t frame_offset = m_lexical_frame_offsets.at (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1918 data_offset = m_value_offsets.at (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1919
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1920 if (frame_offset > 1)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1921 error ("variables must be made PERSISTENT or GLOBAL in the first scope in which they are used");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1922
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1923 stack_frame *frame = access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1924
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1925 if (data_offset >= frame->size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1926 frame->resize (data_offset+1);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1927
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1928 frame->set_scope_flag (data_offset, flag);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1929 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1930
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1931 void script_stack_frame::display (bool follow) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1932 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1933 std::ostream& os = octave_stdout;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1934
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1935 os << "-- [script_stack_frame] (" << this << ") --" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1936 stack_frame::display (follow);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1937
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1938 os << "script: " << m_script->name ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1939 << " (" << m_script->type_name () << ")" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1940
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1941 os << "lexical_offsets: " << m_lexical_frame_offsets.size ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1942 << " elements:";
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1943
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1944 for (size_t i = 0; i < m_lexical_frame_offsets.size (); i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1945 os << " " << m_lexical_frame_offsets.at (i);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1946 os << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1947
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1948 os << "value_offsets: " << m_value_offsets.size () << " elements:";
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1949 for (size_t i = 0; i < m_value_offsets.size (); i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1950 os << " " << m_value_offsets.at (i);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1951 os << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1952
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1953 display_scope (os, get_scope ());
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1954 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1955
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1956 void script_stack_frame::accept (stack_frame_walker& sfw)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1957 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1958 sfw.visit_script_stack_frame (*this);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1959 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1960
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1961 void base_value_stack_frame::display (bool follow) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1962 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1963 std::ostream& os = octave_stdout;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1964
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1965 os << "-- [base_value_stack_frame] (" << this << ") --" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1966 stack_frame::display (follow);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1967
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1968 os << "values: " << m_values.size ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1969 << " elements (idx, scope flag, type):" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1970
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1971 for (size_t i = 0; i < m_values.size (); i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1972 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1973 os << " (" << i << ", " << m_flags.at (i) << ", ";
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1974
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1975 octave_value val = varval (i);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1976
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1977 os << (val.is_defined () ? val.type_name () : " UNDEFINED") << ")"
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1978 << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1979 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1980 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1981
26824 d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1982 user_fcn_stack_frame *
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1983 user_fcn_stack_frame::dup (void) const
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1984 {
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1985 return new user_fcn_stack_frame (*this);
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1986 }
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	1987
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1988 // If this is a nested scope, set access_link to nearest parent
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1989 // stack frame that corresponds to the lexical parent of this scope.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1990
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1991 stack_frame *
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1992 user_fcn_stack_frame::get_access_link (octave_user_function *fcn,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1993 stack_frame *static_link)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1994 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1995 stack_frame *alink = nullptr;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1996
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1997 symbol_scope fcn_scope = fcn->scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1998
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	1999 if (fcn_scope.is_nested ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2000 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2001 if (! static_link)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2002 error ("internal call stack error (invalid static link)");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2003
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2004 symbol_scope caller_scope = static_link->get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2005
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2006 int nesting_depth = fcn_scope.nesting_depth ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2007 int caller_nesting_depth = caller_scope.nesting_depth ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2008
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2009 if (caller_nesting_depth < nesting_depth)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2010 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2011 // FIXME: do we need to ensure that the called
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2012 // function is a child of the caller? Does it hurt
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2013 // to assert this condition, at least for now?
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2014
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2015 alink = static_link;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2016 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2017 else
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2018 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2019 // FIXME: do we need to check that the parent of the
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2020 // called function is also a parent of the caller?
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2021 // Does it hurt to assert this condition, at least
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2022 // for now?
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2023
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2024 int links_to_follow = caller_nesting_depth - nesting_depth + 1;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2025
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2026 alink = static_link;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2027
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2028 while (alink && --links_to_follow >= 0)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2029 alink = alink->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2030
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2031 if (! alink)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2032 error ("internal function nesting error (invalid access link)");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2033 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2034 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2035
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2036 return alink;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2037 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2038
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2039 void user_fcn_stack_frame::clear_values (void)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2040 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2041 symbol_scope fcn_scope = m_fcn->scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2042
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2043 const std::list<symbol_record>& symbols = fcn_scope.symbol_list ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2044
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2045 if (size () == 0)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2046 return;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2047
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2048 for (const auto& sym : symbols)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2049 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2050 size_t frame_offset = sym.frame_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2051
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2052 if (frame_offset > 0)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2053 continue;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2054
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2055 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2056
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2057 if (data_offset >= size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2058 continue;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2059
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2060 if (get_scope_flag (data_offset) == LOCAL)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2061 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2062 octave_value& ref = m_values.at (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2063
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2064 if (ref.get_count () == 1)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2065 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2066 ref.call_object_destructor ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2067 ref = octave_value ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2068 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2069 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2070 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2071 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2072
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2073 symbol_record user_fcn_stack_frame::lookup_symbol (const std::string& name) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2074 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2075 const stack_frame *frame = this;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2076
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2077 while (frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2078 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2079 symbol_scope scope = frame->get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2080
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2081 symbol_record sym = scope.lookup_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2082
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2083 if (sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2084 return sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2085
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2086 frame = frame->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2087 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2088
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2089 return symbol_record ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2090 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2091
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2092 symbol_record user_fcn_stack_frame::insert_symbol (const std::string& name)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2093 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2094 // If the symbols is already in the immediate scope, there is
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2095 // nothing more to do.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2096
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2097 symbol_scope scope = get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2098
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2099 symbol_record sym = scope.lookup_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2100
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2101 if (sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2102 return sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2103
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2104 // FIXME: This needs some thought... We may need to add a symbol to
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2105 // a static workspace, but the symbol can never be defined as a
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2106 // variable. This currently works by tagging the added symbol as
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2107 // "added_static". Aside from the bad name, this doesn't seem like
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2108 // the best solution. Maybe scopes should have a separate set of
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2109 // symbols that may only be defined as functions?
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2110
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2111 // Insert the symbol in the current scope. This is not possible for
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2112 // anonymous functions, nested functions, or functions that contain
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2113 // nested functions (their scopes will all be marked static).
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2114
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2115 // if (scope.is_static ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2116 // error ("can not add variable '%s' to a static workspace",
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2117 // name.c_str ());
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2118
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2119 // At this point, non-local references are not possible so we only
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2120 // need to look in the current scope and insert there. This
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2121 // operation should never fail.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2122
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2123 sym = scope.find_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2124
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2125 assert (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2126
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2127 return sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2128 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2129
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2130 stack_frame::scope_flags
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2131 user_fcn_stack_frame::scope_flag (const symbol_record& sym) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2132 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2133 size_t frame_offset = sym.frame_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2134 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2135
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2136 // Follow frame_offset access links to stack frame that holds
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2137 // the value.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2138
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2139 const stack_frame *frame = this;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2140
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2141 for (size_t i = 0; i < frame_offset; i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2142 frame = frame->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2143
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2144 if (! frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2145 error ("internal error: invalid access link in function call stack");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2146
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2147 if (data_offset >= frame->size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2148 return LOCAL;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2149
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2150 return frame->get_scope_flag (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2151 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2152
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2153 octave_value user_fcn_stack_frame::varval (const symbol_record& sym) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2154 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2155 size_t frame_offset = sym.frame_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2156 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2157
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2158 // Follow frame_offset access links to stack frame that holds
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2159 // the value.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2160
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2161 const stack_frame *frame = this;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2162
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2163 for (size_t i = 0; i < frame_offset; i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2164 frame = frame->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2165
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2166 if (! frame)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2167 error ("internal error: invalid access link in function call stack");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2168
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2169 if (data_offset >= frame->size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2170 return octave_value ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2171
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2172 switch (frame->get_scope_flag (data_offset))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2173 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2174 case LOCAL:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2175 return frame->varval (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2176
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2177 case PERSISTENT:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2178 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2179 symbol_scope scope = frame->get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2180
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2181 return scope.persistent_varval (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2182 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2183
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2184 case GLOBAL:
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	2185 return m_evaluator.global_varval (sym.name ());
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2186 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2187
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2188 error ("internal error: invalid switch case");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2189 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2190
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2191 octave_value& user_fcn_stack_frame::varref (const symbol_record& sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2192 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2193 size_t frame_offset = sym.frame_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2194 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2195
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2196 // Follow frame_offset access links to stack frame that holds
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2197 // the value.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2198
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2199 stack_frame *frame = this;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2200
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2201 for (size_t i = 0; i < frame_offset; i++)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2202 frame = frame->access_link ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2203
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2204 if (data_offset >= frame->size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2205 frame->resize (data_offset+1);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2206
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2207 switch (frame->get_scope_flag (data_offset))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2208 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2209 case LOCAL:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2210 return frame->varref (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2211
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2212 case PERSISTENT:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2213 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2214 symbol_scope scope = frame->get_scope ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2215
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2216 return scope.persistent_varref (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2217 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2218
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2219 case GLOBAL:
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	2220 return m_evaluator.global_varref (sym.name ());
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2221 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2222
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2223 error ("internal error: invalid switch case");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2224 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2225
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2226 void user_fcn_stack_frame::mark_scope (const symbol_record& sym, scope_flags flag)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2227 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2228 size_t frame_offset = sym.frame_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2229
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2230 if (frame_offset > 0 && (flag == PERSISTENT \|\| flag == GLOBAL))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2231 error ("variables must be made PERSISTENT or GLOBAL in the first scope in which they are used");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2232
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2233 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2234
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2235 if (data_offset >= size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2236 resize (data_offset+1);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2237
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2238 set_scope_flag (data_offset, flag);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2239 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2240
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2241 void user_fcn_stack_frame::display (bool follow) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2242 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2243 std::ostream& os = octave_stdout;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2244
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2245 os << "-- [user_fcn_stack_frame] (" << this << ") --" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2246 base_value_stack_frame::display (follow);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2247
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2248 os << "fcn: " << m_fcn->name ()
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2249 << " (" << m_fcn->type_name () << ")" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2250
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2251 display_scope (os, get_scope ());
27932 b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	2252 }
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2253
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2254 void user_fcn_stack_frame::accept (stack_frame_walker& sfw)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2255 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2256 sfw.visit_user_fcn_stack_frame (*this);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2257 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2258
26824 d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	2259 scope_stack_frame *
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	2260 scope_stack_frame::dup (void) const
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	2261 {
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	2262 return new scope_stack_frame (*this);
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	2263 }
d9770844392e provide virtual dup methods for stack frames John W. Eaton <jwe@octave.org> parents: 26673 diff changeset	2264
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2265 symbol_record scope_stack_frame::insert_symbol (const std::string& name)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2266 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2267 // There is no access link for scope frames, so there is no other
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2268 // frame to search in and the offset must be zero.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2269
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2270 symbol_record sym = m_scope.lookup_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2271
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2272 if (sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2273 return sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2274
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2275 // If the symbol is not found, insert it. We only need to search in
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2276 // the local scope object. This operation should never fail.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2277
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2278 sym = m_scope.find_symbol (name);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2279
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2280 assert (sym);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2281
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2282 return sym;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2283 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2284
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2285 stack_frame::scope_flags
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2286 scope_stack_frame::scope_flag (const symbol_record& sym) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2287 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2288 // There is no access link for scope frames, so the frame
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2289 // offset must be zero.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2290
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2291 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2292
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2293 if (data_offset >= size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2294 return LOCAL;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2295
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2296 return get_scope_flag (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2297 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2298
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2299 octave_value scope_stack_frame::varval (const symbol_record& sym) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2300 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2301 // There is no access link for scope frames, so the frame
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2302 // offset must be zero.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2303
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2304 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2305
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2306 if (data_offset >= size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2307 return octave_value ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2308
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2309 switch (get_scope_flag (data_offset))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2310 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2311 case LOCAL:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2312 return m_values.at (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2313
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2314 case PERSISTENT:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2315 return m_scope.persistent_varval (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2316
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2317 case GLOBAL:
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	2318 return m_evaluator.global_varval (sym.name ());
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2319 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2320
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2321 error ("internal error: invalid switch case");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2322 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2323
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2324 octave_value& scope_stack_frame::varref (const symbol_record& sym)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2325 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2326 // There is no access link for scope frames, so the frame
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2327 // offset must be zero.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2328
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2329 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2330
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2331 if (data_offset >= size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2332 resize (data_offset+1);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2333
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2334 switch (get_scope_flag (data_offset))
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2335 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2336 case LOCAL:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2337 return m_values.at (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2338
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2339 case PERSISTENT:
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2340 return m_scope.persistent_varref (data_offset);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2341
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2342 case GLOBAL:
27211 8c27802a76c4 store reference to evaluator instead of call stack in stack frame John W. Eaton <jwe@octave.org> parents: 27149 diff changeset	2343 return m_evaluator.global_varref (sym.name ());
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2344 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2345
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2346 error ("internal error: invalid switch case");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2347 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2348
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2349 void scope_stack_frame::mark_scope (const symbol_record& sym,
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2350 scope_flags flag)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2351 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2352 // There is no access link for scope frames, so the frame
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2353 // offset must be zero.
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2354
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2355 size_t data_offset = sym.data_offset ();
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2356
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2357 if (data_offset >= size ())
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2358 resize (data_offset+1);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2359
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2360 set_scope_flag (data_offset, flag);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2361 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2362
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2363 void scope_stack_frame::display (bool follow) const
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2364 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2365 std::ostream& os = octave_stdout;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2366
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2367 os << "-- [scope_stack_frame] (" << this << ") --" << std::endl;
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2368 base_value_stack_frame::display (follow);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2369
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2370 display_scope (os, m_scope);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2371 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2372
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2373 void scope_stack_frame::accept (stack_frame_walker& sfw)
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2374 {
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2375 sfw.visit_scope_stack_frame (*this);
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2376 }
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: diff changeset	2377 }

Mercurial > octave

annotate libinterp/corefcn/stack-frame.cc @ 28425:a5be4fc661d6 stable