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	Thu May 15 19:30:57 1997 +0000
+++ b/src/ov-base.cc	Thu May 15 19:42:59 1997 +0000
@@ -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
 {