Mercurial > octave-nkf

comparison src/ov-usr-fcn.h @ 4238:a5a68c0afe56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-12-25 21:04:33 by jwe]
author jwe
date Wed, 25 Dec 2002 21:04:34 +0000
parents 23d06c9e1edd
children fc9a075d10fb
comparison
equal deleted inserted replaced
4237:9c8034434982 4238:a5a68c0afe56
117 117
118 void stash_function_name (const std::string& s); 118 void stash_function_name (const std::string& s);
119 119
120 std::string function_name (void) 120 std::string function_name (void)
121 { return fcn_name; } 121 { return fcn_name; }
122
123 void mark_as_nested_function (void) { nested_function = true; }
124
125 bool is_nested_function (void) const { return nested_function; }
122 126
123 void save_args_passed (const octave_value_list& args) 127 void save_args_passed (const octave_value_list& args)
124 { 128 {
125 if (call_depth > 1) 129 if (call_depth > 1)
126 saved_args.push (args_passed); 130 saved_args.push (args_passed);
209 int call_depth; 213 int call_depth;
210 214
211 // The number of arguments that have names. 215 // The number of arguments that have names.
212 int num_named_args; 216 int num_named_args;
213 217
218 // TRUE means this is a nested function.
219 bool nested_function;
220
214 // The values that were passed as arguments. 221 // The values that were passed as arguments.
215 octave_value_list args_passed; 222 octave_value_list args_passed;
216 223
217 // A place to store the passed args for recursive calls. 224 // A place to store the passed args for recursive calls.
218 std::stack<octave_value_list> saved_args; 225 std::stack<octave_value_list> saved_args;