Mercurial > hg > octave-lyh
diff src/ov-base.cc @ 2974:ebbc34ff7f66
[project @ 1997-05-15 19:36:16 by jwe]
author | jwe |
---|---|
date | Thu, 15 May 1997 19:42:59 +0000 |
parents | 5e0fe4c5d52f |
children | a3556d2adec9 |
line wrap: on
line diff
--- a/src/ov-base.cc +++ b/src/ov-base.cc @@ -34,6 +34,7 @@ #include "gripes.h" #include "oct-map.h" +#include "oct-obj.h" #include "oct-var-ref.h" #include "ops.h" #include "ov-base.h" @@ -52,7 +53,15 @@ const string octave_base_value::t_name ("<unknown type>"); octave_value -octave_base_value::do_index_op (const octave_value_list&) const +octave_base_value::do_index_op (const octave_value_list&) +{ + string nm = type_name (); + error ("can't perform indexing operations for %s type", nm.c_str ()); + return octave_value (); +} + +octave_value_list +octave_base_value::do_index_op (int, const octave_value_list&) { string nm = type_name (); error ("can't perform indexing operations for %s type", nm.c_str ()); @@ -224,6 +233,17 @@ return retval; } +octave_function * +octave_base_value::function_value (bool silent) +{ + octave_function *retval = 0; + + if (! silent) + gripe_wrong_type_arg ("octave_base_value::function_value()", + type_name ()); + return retval; +} + octave_value_list octave_base_value::list_value (void) const {