Mercurial > octave-nkf

comparison src/ov-base.cc @ 2974:ebbc34ff7f66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-05-15 19:36:16 by jwe]
author jwe
date Thu, 15 May 1997 19:42:59 +0000
parents 5e0fe4c5d52f
children a3556d2adec9
comparison
equal deleted inserted replaced
2973:ef3379196bcf 2974:ebbc34ff7f66
32 32
33 #include "lo-ieee.h" 33 #include "lo-ieee.h"
34 34
35 #include "gripes.h" 35 #include "gripes.h"
36 #include "oct-map.h" 36 #include "oct-map.h"
37 #include "oct-obj.h"
37 #include "oct-var-ref.h" 38 #include "oct-var-ref.h"
38 #include "ops.h" 39 #include "ops.h"
39 #include "ov-base.h" 40 #include "ov-base.h"
40 #include "ov-scalar.h" 41 #include "ov-scalar.h"
41 #include "ov-re-mat.h" 42 #include "ov-re-mat.h"
50 int octave_base_value::t_id = -1; 51 int octave_base_value::t_id = -1;
51 52
52 const string octave_base_value::t_name ("<unknown type>"); 53 const string octave_base_value::t_name ("<unknown type>");
53 54
54 octave_value 55 octave_value
55 octave_base_value::do_index_op (const octave_value_list&) const 56 octave_base_value::do_index_op (const octave_value_list&)
57 {
58 string nm = type_name ();
59 error ("can't perform indexing operations for %s type", nm.c_str ());
60 return octave_value ();
61 }
62
63 octave_value_list
64 octave_base_value::do_index_op (int, const octave_value_list&)
56 { 65 {
57 string nm = type_name (); 66 string nm = type_name ();
58 error ("can't perform indexing operations for %s type", nm.c_str ()); 67 error ("can't perform indexing operations for %s type", nm.c_str ());
59 return octave_value (); 68 return octave_value ();
60 } 69 }
219 int 228 int
220 octave_base_value::stream_number (void) const 229 octave_base_value::stream_number (void) const
221 { 230 {
222 int retval = -1; 231 int retval = -1;
223 gripe_wrong_type_arg ("octave_base_value::stream_number()", type_name ()); 232 gripe_wrong_type_arg ("octave_base_value::stream_number()", type_name ());
233 return retval;
234 }
235
236 octave_function *
237 octave_base_value::function_value (bool silent)
238 {
239 octave_function *retval = 0;
240
241 if (! silent)
242 gripe_wrong_type_arg ("octave_base_value::function_value()",
243 type_name ());
224 return retval; 244 return retval;
225 } 245 }
226 246
227 octave_value_list 247 octave_value_list
228 octave_base_value::list_value (void) const 248 octave_base_value::list_value (void) const