Mercurial > hg > octave-lyh

comparison src/ov-complex.h @ 4749:a4bc7156bd60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-07 16:59:28 by jwe]
author jwe
date Sat, 07 Feb 2004 16:59:28 +0000
parents e95c86d48732
children c638c144d4da
comparison
equal deleted inserted replaced
4748:7b145222fea3 4749:a4bc7156bd60
36 #include "oct-alloc.h" 36 #include "oct-alloc.h"
37 #include "str-vec.h" 37 #include "str-vec.h"
38 38
39 #include "error.h" 39 #include "error.h"
40 #include "ov-base.h" 40 #include "ov-base.h"
41 #include "ov-cx-mat.h"
41 #include "ov-base-scalar.h" 42 #include "ov-base-scalar.h"
42 #include "ov-typeinfo.h" 43 #include "ov-typeinfo.h"
43 44
44 class Octave_map; 45 class Octave_map;
45 class octave_value_list; 46 class octave_value_list;
63 : octave_base_scalar<Complex> (c) { } 64 : octave_base_scalar<Complex> (c) { }
64 65
65 ~octave_complex (void) { } 66 ~octave_complex (void) { }
66 67
67 octave_value *clone (void) const { return new octave_complex (*this); } 68 octave_value *clone (void) const { return new octave_complex (*this); }
68 octave_value *empty_clone (void) const { return new octave_complex (); } 69
70 // We return an octave_complex_matrix object here instead of an
71 // octave_complex object so that in expressions like A(2,2,2) = 2
72 // (for A previously undefined), A will be empty instead of a 1x1
73 // object.
74 octave_value *empty_clone (void) const
75 { return new octave_complex_matrix (); }
69 76
70 octave_value *try_narrowing_conversion (void); 77 octave_value *try_narrowing_conversion (void);
71 78
72 octave_value do_index_op (const octave_value_list& idx, int resize_ok); 79 octave_value do_index_op (const octave_value_list& idx, int resize_ok);
73 80