Mercurial > octave-nkf
diff src/ov-base.cc @ 7761:5adeea5de26c
symbol table reporting functions
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 06 May 2008 05:51:17 -0400 |
parents | 39930366b709 |
children | 82be108cc558 |
line wrap: on
line diff
--- a/src/ov-base.cc Tue May 06 03:23:12 2008 -0400 +++ b/src/ov-base.cc Tue May 06 05:51:17 2008 -0400 @@ -771,6 +771,17 @@ return retval; } +const octave_function * +octave_base_value::function_value (bool silent) const +{ + const octave_function *retval = 0; + + if (! silent) + gripe_wrong_type_arg ("octave_base_value::function_value()", + type_name ()); + return retval; +} + octave_user_function * octave_base_value::user_function_value (bool silent) { @@ -1011,6 +1022,16 @@ gripe_wrong_type_arg ("octave_base_value::unlock ()", type_name ()); } +void +octave_base_value::dump (std::ostream& os) const +{ + dim_vector dv = this->dims (); + + os << "class: " << this->class_name () + << " type: " << this->type_name () + << " dims: " << dv.str (); +} + static void gripe_indexed_assignment (const std::string& tn1, const std::string& tn2) {