Mercurial > hg > octave-nkf
annotate src/ov-base.cc @ 10828:322f43e0e170
Grammarcheck .txi documentation files.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Wed, 28 Jul 2010 12:45:04 -0700 |
| parents | 8a868004a437 |
| children | 1b2fcd122c6a |
| rev | line source |
|---|---|
| 2376 | 1 /* |
| 2 | |
| 7017 | 3 Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, 2005, |
| 8920 | 4 2006, 2007, 2008, 2009 John W. Eaton |
|
10521
4d1fc073fbb7
add some missing copyright stmts
Jaroslav Hajek <highegg@gmail.com>
parents:
10513
diff
changeset
|
5 Copyright (C) 2009, 2010 VZLU Prague |
| 2376 | 6 |
| 7 This file is part of Octave. | |
| 8 | |
| 9 Octave is free software; you can redistribute it and/or modify it | |
| 10 under the terms of the GNU General Public License as published by the | |
| 7016 | 11 Free Software Foundation; either version 3 of the License, or (at your |
| 12 option) any later version. | |
| 2376 | 13 |
| 14 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 17 for more details. | |
| 18 | |
| 19 You should have received a copy of the GNU General Public License | |
| 7016 | 20 along with Octave; see the file COPYING. If not, see |
| 21 <http://www.gnu.org/licenses/>. | |
| 2376 | 22 |
| 23 */ | |
| 24 | |
| 25 #ifdef HAVE_CONFIG_H | |
| 26 #include <config.h> | |
| 27 #endif | |
| 28 | |
| 4254 | 29 #include <climits> |
| 30 | |
| 3503 | 31 #include <iostream> |
| 2901 | 32 |
| 2376 | 33 #include "lo-ieee.h" |
| 4732 | 34 #include "lo-mappers.h" |
| 2376 | 35 |
| 5759 | 36 #include "defun.h" |
| 2376 | 37 #include "gripes.h" |
| 38 #include "oct-map.h" | |
| 2974 | 39 #include "oct-obj.h" |
| 2979 | 40 #include "oct-lvalue.h" |
| 3340 | 41 #include "oct-stream.h" |
| 2376 | 42 #include "ops.h" |
| 43 #include "ov-base.h" | |
| 3928 | 44 #include "ov-cell.h" |
| 45 #include "ov-ch-mat.h" | |
| 2376 | 46 #include "ov-complex.h" |
| 47 #include "ov-cx-mat.h" | |
| 3928 | 48 #include "ov-range.h" |
| 49 #include "ov-re-mat.h" | |
| 50 #include "ov-scalar.h" | |
| 2376 | 51 #include "ov-str-mat.h" |
| 4343 | 52 #include "ov-fcn-handle.h" |
| 5759 | 53 #include "parse.h" |
| 54 #include "utils.h" | |
| 2948 | 55 #include "variables.h" |
| 2376 | 56 |
|
9790
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
57 builtin_type_t btyp_mixed_numeric (builtin_type_t x, builtin_type_t y) |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
58 { |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
59 builtin_type_t retval = btyp_unknown; |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
60 |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
61 if (x == btyp_bool) |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
62 x = btyp_double; |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
63 if (y == btyp_bool) |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
64 y = btyp_double; |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
65 |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
66 if (x <= btyp_float_complex && y <= btyp_float_complex) |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
67 retval = static_cast<builtin_type_t> (x | y); |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
68 else if (x <= btyp_uint64 && y <= btyp_float) |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
69 retval = x; |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
70 else if (x <= btyp_float && y <= btyp_uint64) |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
71 retval = y; |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
72 else if ((x >= btyp_int8 && x <= btyp_int64 |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
73 && y >= btyp_int8 && y <= btyp_int64) |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
74 || (x >= btyp_uint8 && x <= btyp_uint64 |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
75 && y >= btyp_uint8 && y <= btyp_uint64)) |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
76 retval = (x > y) ? x : y; |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
77 |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
78 return retval; |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
79 } |
|
a5035bc7fbfb
rewrite dispatch part & slightly improve min,max,cummin,cummax
Jaroslav Hajek <highegg@gmail.com>
parents:
9753
diff
changeset
|
80 |
|
10087
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
81 std::string btyp_class_name[btyp_num_types] = |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
82 { |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
83 "double", "single", "double", "single", |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
84 "int8", "int16", "int32", "int64", |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
85 "uint8", "uint16", "uint32", "uint64", |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
86 "logical", "char", |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
87 "struct", "cell", "function_handle" |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
88 }; |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
89 |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
90 string_vector |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
91 get_builtin_classes (void) |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
92 { |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
93 static string_vector retval; |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
94 |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
95 if (retval.is_empty ()) |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
96 { |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
97 int n = btyp_num_types - 2; |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
98 retval = string_vector (n); |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
99 int j = 0; |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
100 for (int i = 0; i < btyp_num_types; i++) |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
101 { |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
102 builtin_type_t ityp = static_cast<builtin_type_t> (i); |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
103 if (ityp != btyp_complex && ityp != btyp_float_complex) |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
104 retval(j++) = btyp_class_name[i]; |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
105 } |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
106 } |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
107 |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
108 return retval; |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
109 } |
|
090173f2db40
improve overload dispatching of built-in classes
Jaroslav Hajek <highegg@gmail.com>
parents:
10075
diff
changeset
|
110 |
| 4612 | 111 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_base_value, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
112 "<unknown type>", "unknown"); |
| 2376 | 113 |
| 7193 | 114 // TRUE means to perform automatic sparse to real mutation if there |
| 115 // is memory to be saved | |
| 116 bool Vsparse_auto_mutate = false; | |
| 117 | |
|
10544
9961fc022d9d
fix assignment to non-existing variables and octave_value::assign
Jaroslav Hajek <highegg@gmail.com>
parents:
10521
diff
changeset
|
118 octave_base_value * |
|
9961fc022d9d
fix assignment to non-existing variables and octave_value::assign
Jaroslav Hajek <highegg@gmail.com>
parents:
10521
diff
changeset
|
119 octave_base_value::empty_clone (void) const |
|
9961fc022d9d
fix assignment to non-existing variables and octave_value::assign
Jaroslav Hajek <highegg@gmail.com>
parents:
10521
diff
changeset
|
120 { |
|
9961fc022d9d
fix assignment to non-existing variables and octave_value::assign
Jaroslav Hajek <highegg@gmail.com>
parents:
10521
diff
changeset
|
121 return resize (dim_vector ()).clone (); |
|
9961fc022d9d
fix assignment to non-existing variables and octave_value::assign
Jaroslav Hajek <highegg@gmail.com>
parents:
10521
diff
changeset
|
122 } |
|
9961fc022d9d
fix assignment to non-existing variables and octave_value::assign
Jaroslav Hajek <highegg@gmail.com>
parents:
10521
diff
changeset
|
123 |
| 2376 | 124 octave_value |
| 4532 | 125 octave_base_value::squeeze (void) const |
| 126 { | |
| 127 std::string nm = type_name (); | |
| 128 error ("squeeze: invalid operation for %s type", nm.c_str ()); | |
| 129 return octave_value (); | |
| 130 } | |
| 131 | |
| 132 octave_value | |
|
8458
d254a21e0120
reimplement full as method of octave_base_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8345
diff
changeset
|
133 octave_base_value::full_value (void) const |
|
d254a21e0120
reimplement full as method of octave_base_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8345
diff
changeset
|
134 { |
|
d254a21e0120
reimplement full as method of octave_base_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8345
diff
changeset
|
135 gripe_wrong_type_arg ("full: invalid operation for %s type", type_name ()); |
|
d254a21e0120
reimplement full as method of octave_base_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8345
diff
changeset
|
136 return octave_value (); |
|
d254a21e0120
reimplement full as method of octave_base_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8345
diff
changeset
|
137 } |
|
d254a21e0120
reimplement full as method of octave_base_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8345
diff
changeset
|
138 |
|
9329
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
139 Matrix |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
140 octave_base_value::size (void) |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
141 { |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
142 const dim_vector dv = dims (); |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
143 Matrix mdv (1, dv.length ()); |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
144 for (octave_idx_type i = 0; i < dv.length (); i++) |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
145 mdv(i) = dv(i); |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
146 return mdv; |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
147 } |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
148 |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
149 octave_idx_type |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
150 octave_base_value::numel (const octave_value_list& idx) |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
151 { |
|
9705
5acd99c3e794
avoid recursive overloaded calls in builtin numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9689
diff
changeset
|
152 return dims_to_numel (dims (), idx); |
|
9329
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
153 } |
|
67fc970dad7d
improve indexed assignment using indexed numel
Jaroslav Hajek <highegg@gmail.com>
parents:
9286
diff
changeset
|
154 |
|
8458
d254a21e0120
reimplement full as method of octave_base_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8345
diff
changeset
|
155 octave_value |
| 4247 | 156 octave_base_value::subsref (const std::string&, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
157 const std::list<octave_value_list>&) |
| 3933 | 158 { |
| 159 std::string nm = type_name (); | |
| 160 error ("can't perform indexing operations for %s type", nm.c_str ()); | |
| 161 return octave_value (); | |
| 162 } | |
| 163 | |
| 164 octave_value_list | |
| 4247 | 165 octave_base_value::subsref (const std::string&, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
166 const std::list<octave_value_list>&, int) |
| 3933 | 167 { |
| 168 std::string nm = type_name (); | |
| 169 error ("can't perform indexing operations for %s type", nm.c_str ()); | |
| 170 return octave_value (); | |
| 171 } | |
| 172 | |
| 173 octave_value | |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8458
diff
changeset
|
174 octave_base_value::subsref (const std::string& type, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
175 const std::list<octave_value_list>& idx, |
|
8677
095ae5e0a831
eliminte some compiler warnings
John W. Eaton <jwe@octave.org>
parents:
8658
diff
changeset
|
176 bool /* auto_add */) |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8458
diff
changeset
|
177 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8458
diff
changeset
|
178 // This way we may get a more meaningful error message. |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8458
diff
changeset
|
179 return subsref (type, idx); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8458
diff
changeset
|
180 } |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8458
diff
changeset
|
181 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8458
diff
changeset
|
182 octave_value |
| 5885 | 183 octave_base_value::do_index_op (const octave_value_list&, bool) |
| 2974 | 184 { |
| 3523 | 185 std::string nm = type_name (); |
| 2974 | 186 error ("can't perform indexing operations for %s type", nm.c_str ()); |
| 187 return octave_value (); | |
| 188 } | |
| 189 | |
| 190 octave_value_list | |
| 3544 | 191 octave_base_value::do_multi_index_op (int, const octave_value_list&) |
| 2376 | 192 { |
| 3523 | 193 std::string nm = type_name (); |
| 2376 | 194 error ("can't perform indexing operations for %s type", nm.c_str ()); |
| 195 return octave_value (); | |
| 196 } | |
| 197 | |
| 198 idx_vector | |
| 199 octave_base_value::index_vector (void) const | |
| 200 { | |
| 3523 | 201 std::string nm = type_name (); |
| 2376 | 202 error ("%s type invalid as index value", nm.c_str ()); |
| 203 return idx_vector (); | |
| 204 } | |
| 205 | |
| 206 octave_value | |
| 4247 | 207 octave_base_value::subsasgn (const std::string& type, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
208 const std::list<octave_value_list>& idx, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
209 const octave_value& rhs) |
| 2376 | 210 { |
| 3933 | 211 octave_value retval; |
| 2376 | 212 |
| 3933 | 213 if (is_defined ()) |
| 214 { | |
| 4139 | 215 if (is_numeric_type ()) |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
216 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
217 switch (type[0]) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
218 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
219 case '(': |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
220 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
221 if (type.length () == 1) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
222 retval = numeric_assign (type, idx, rhs); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
223 else if (is_empty ()) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
224 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
225 // Allow conversion of empty matrix to some other |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
226 // type in cases like |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
227 // |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
228 // x = []; x(i).f = rhs |
| 4436 | 229 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
230 octave_value tmp = octave_value::empty_conv (type, rhs); |
| 4436 | 231 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
232 retval = tmp.subsasgn (type, idx, rhs); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
233 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
234 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
235 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
236 std::string nm = type_name (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
237 error ("in indexed assignment of %s, last rhs index must be ()", |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
238 nm.c_str ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
239 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
240 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
241 break; |
| 4139 | 242 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
243 case '{': |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
244 case '.': |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
245 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
246 std::string nm = type_name (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
247 error ("%s cannot be indexed with %c", nm.c_str (), type[0]); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
248 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
249 break; |
| 4139 | 250 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
251 default: |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
252 panic_impossible (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
253 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
254 } |
| 4139 | 255 else |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
256 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
257 std::string nm = type_name (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
258 error ("can't perform indexed assignment for %s type", nm.c_str ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
259 } |
| 3933 | 260 } |
| 261 else | |
| 262 { | |
| 263 // Create new object of appropriate type for given index and rhs | |
| 264 // types and then call subsasgn again for that object. | |
| 265 | |
| 266 octave_value tmp = octave_value::empty_conv (type, rhs); | |
| 267 | |
| 268 retval = tmp.subsasgn (type, idx, rhs); | |
| 269 } | |
| 270 | |
| 271 return retval; | |
| 2376 | 272 } |
| 273 | |
| 5602 | 274 octave_idx_type |
| 275 octave_base_value::nnz (void) const | |
| 276 { | |
| 277 gripe_wrong_type_arg ("octave_base_value::nnz ()", type_name ()); | |
| 278 return -1; | |
| 279 } | |
| 280 | |
| 5604 | 281 octave_idx_type |
| 282 octave_base_value::nzmax (void) const | |
| 283 { | |
|
10513
c5005bc2b7a9
implement working spalloc
Jaroslav Hajek <highegg@gmail.com>
parents:
10414
diff
changeset
|
284 return numel (); |
| 5604 | 285 } |
| 286 | |
| 5900 | 287 octave_idx_type |
| 288 octave_base_value::nfields (void) const | |
| 289 { | |
| 290 gripe_wrong_type_arg ("octave_base_value::nfields ()", type_name ()); | |
| 291 return -1; | |
| 292 } | |
| 293 | |
| 2376 | 294 octave_value |
| 4567 | 295 octave_base_value::reshape (const dim_vector&) const |
| 296 { | |
| 297 gripe_wrong_type_arg ("octave_base_value::reshape ()", type_name ()); | |
| 298 return octave_value (); | |
| 299 } | |
| 300 | |
| 301 octave_value | |
| 4593 | 302 octave_base_value::permute (const Array<int>&, bool) const |
| 303 { | |
| 304 gripe_wrong_type_arg ("octave_base_value::permute ()", type_name ()); | |
| 305 return octave_value (); | |
| 306 } | |
| 307 | |
| 308 octave_value | |
| 5731 | 309 octave_base_value::resize (const dim_vector&, bool) const |
| 4915 | 310 { |
| 311 gripe_wrong_type_arg ("octave_base_value::resize ()", type_name ()); | |
| 312 return octave_value (); | |
| 313 } | |
| 314 | |
| 5785 | 315 MatrixType |
| 316 octave_base_value::matrix_type (void) const | |
| 317 { | |
| 318 gripe_wrong_type_arg ("octave_base_value::matrix_type ()", type_name ()); | |
| 319 return MatrixType (); | |
| 320 } | |
| 321 | |
| 322 MatrixType | |
| 323 octave_base_value::matrix_type (const MatrixType&) const | |
| 324 { | |
| 325 gripe_wrong_type_arg ("octave_base_value::matrix_type ()", type_name ()); | |
| 326 return MatrixType (); | |
| 327 } | |
| 328 | |
| 4915 | 329 octave_value |
| 5759 | 330 octave_base_value::all (int) const |
| 331 { | |
| 332 return 0.0; | |
| 333 } | |
| 334 | |
| 335 octave_value | |
| 336 octave_base_value::any (int) const | |
| 337 { | |
| 338 return 0.0; | |
| 339 } | |
| 340 | |
| 341 octave_value | |
| 342 octave_base_value::convert_to_str (bool pad, bool force, char type) const | |
| 343 { | |
| 344 octave_value retval = convert_to_str_internal (pad, force, type); | |
| 345 | |
| 5781 | 346 if (! force && is_numeric_type ()) |
| 347 gripe_implicit_conversion ("Octave:num-to-str", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
348 type_name (), retval.type_name ()); |
| 5759 | 349 |
| 350 return retval; | |
| 351 } | |
| 352 | |
| 353 octave_value | |
| 5279 | 354 octave_base_value::convert_to_str_internal (bool, bool, char) const |
| 2376 | 355 { |
| 4452 | 356 gripe_wrong_type_arg ("octave_base_value::convert_to_str_internal ()", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
357 type_name ()); |
| 2376 | 358 return octave_value (); |
| 359 } | |
| 360 | |
| 361 void | |
| 362 octave_base_value::convert_to_row_or_column_vector (void) | |
| 363 { | |
| 364 gripe_wrong_type_arg | |
| 365 ("octave_base_value::convert_to_row_or_column_vector ()", | |
| 366 type_name ()); | |
| 367 } | |
| 368 | |
| 369 void | |
| 3523 | 370 octave_base_value::print (std::ostream&, bool) const |
| 2376 | 371 { |
| 3195 | 372 gripe_wrong_type_arg ("octave_base_value::print ()", type_name ()); |
| 2376 | 373 } |
| 374 | |
| 2901 | 375 void |
| 3523 | 376 octave_base_value::print_raw (std::ostream&, bool) const |
| 2901 | 377 { |
| 3195 | 378 gripe_wrong_type_arg ("octave_base_value::print_raw ()", type_name ()); |
| 2901 | 379 } |
| 380 | |
| 381 bool | |
| 3523 | 382 octave_base_value::print_name_tag (std::ostream& os, const std::string& name) const |
| 2901 | 383 { |
| 4604 | 384 bool retval = false; |
| 385 | |
| 2901 | 386 indent (os); |
| 4604 | 387 |
| 388 if (print_as_scalar ()) | |
| 389 os << name << " = "; | |
| 390 else | |
| 391 { | |
| 392 os << name << " ="; | |
| 393 newline (os); | |
| 394 newline (os); | |
| 395 retval = true; | |
| 396 } | |
| 397 | |
| 398 return retval; | |
| 2901 | 399 } |
| 400 | |
| 3933 | 401 void |
| 5759 | 402 octave_base_value::print_with_name (std::ostream& output_buf, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
403 const std::string& name, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
404 bool print_padding) |
| 5759 | 405 { |
|
8658
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8551
diff
changeset
|
406 bool pad_after = print_name_tag (output_buf, name); |
| 5759 | 407 |
|
8658
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8551
diff
changeset
|
408 print (output_buf); |
| 5759 | 409 |
|
8658
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8551
diff
changeset
|
410 if (print_padding && pad_after) |
|
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8551
diff
changeset
|
411 newline (output_buf); |
| 5759 | 412 } |
| 413 | |
| 414 void | |
| 3933 | 415 octave_base_value::print_info (std::ostream& os, |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
416 const std::string& /* prefix */) const |
| 3933 | 417 { |
| 418 os << "no info for type: " << type_name () << "\n"; | |
| 419 } | |
| 420 | |
| 4254 | 421 #define INT_CONV_METHOD(T, F, MIN_LIMIT, MAX_LIMIT) \ |
| 422 T \ | |
| 423 octave_base_value::F ## _value (bool require_int, bool frc_str_conv) const \ | |
| 424 { \ | |
| 425 T retval = 0; \ | |
| 426 \ | |
| 427 double d = double_value (frc_str_conv); \ | |
| 428 \ | |
| 429 if (! error_state) \ | |
| 430 { \ | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
431 if (require_int && D_NINT (d) != d) \ |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
432 error_with_cfn ("conversion of %g to " #T " value failed", d); \ |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
433 else if (d < MIN_LIMIT) \ |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
434 retval = MIN_LIMIT; \ |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
435 else if (d > MAX_LIMIT) \ |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
436 retval = MAX_LIMIT; \ |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
437 else \ |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
438 retval = static_cast<T> (::fix (d)); \ |
| 4254 | 439 } \ |
| 440 else \ | |
| 441 gripe_wrong_type_arg ("octave_base_value::" #F "_value ()", \ | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
442 type_name ()); \ |
| 4254 | 443 \ |
| 444 return retval; \ | |
| 445 } | |
| 3202 | 446 |
| 4254 | 447 INT_CONV_METHOD (short int, short, SHRT_MIN, SHRT_MAX) |
| 448 INT_CONV_METHOD (unsigned short int, ushort, 0, USHRT_MAX) | |
| 3202 | 449 |
| 4254 | 450 INT_CONV_METHOD (int, int, INT_MIN, INT_MAX) |
| 451 INT_CONV_METHOD (unsigned int, uint, 0, UINT_MAX) | |
| 3202 | 452 |
| 4254 | 453 INT_CONV_METHOD (long int, long, LONG_MIN, LONG_MAX) |
| 454 INT_CONV_METHOD (unsigned long int, ulong, 0, ULONG_MAX) | |
| 3202 | 455 |
| 456 int | |
| 457 octave_base_value::nint_value (bool frc_str_conv) const | |
| 458 { | |
| 459 int retval = 0; | |
| 460 | |
| 461 double d = double_value (frc_str_conv); | |
| 462 | |
| 463 if (! error_state) | |
| 464 { | |
| 465 if (xisnan (d)) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
466 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
467 error ("conversion of NaN to integer value failed"); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
468 return retval; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
469 } |
| 3202 | 470 |
|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7489
diff
changeset
|
471 retval = static_cast<int> (::fix (d)); |
| 3202 | 472 } |
| 473 else | |
| 474 gripe_wrong_type_arg ("octave_base_value::nint_value ()", type_name ()); | |
| 475 | |
| 476 return retval; | |
| 477 } | |
| 478 | |
| 2376 | 479 double |
| 480 octave_base_value::double_value (bool) const | |
| 481 { | |
| 4102 | 482 double retval = lo_ieee_nan_value (); |
| 2376 | 483 gripe_wrong_type_arg ("octave_base_value::double_value ()", type_name ()); |
| 484 return retval; | |
| 485 } | |
| 486 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
487 float |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
488 octave_base_value::float_value (bool) const |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
489 { |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
490 float retval = lo_ieee_float_nan_value (); |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
491 gripe_wrong_type_arg ("octave_base_value::float_value ()", type_name ()); |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
492 return retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
493 } |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
494 |
| 3351 | 495 Cell |
| 3539 | 496 octave_base_value::cell_value () const |
| 3351 | 497 { |
| 498 Cell retval; | |
| 499 gripe_wrong_type_arg ("octave_base_value::cell_value()", type_name ()); | |
| 500 return retval; | |
| 501 } | |
| 502 | |
| 2376 | 503 Matrix |
| 504 octave_base_value::matrix_value (bool) const | |
| 505 { | |
| 506 Matrix retval; | |
| 507 gripe_wrong_type_arg ("octave_base_value::matrix_value()", type_name ()); | |
| 508 return retval; | |
| 509 } | |
| 510 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
511 FloatMatrix |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
512 octave_base_value::float_matrix_value (bool) const |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
513 { |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
514 FloatMatrix retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
515 gripe_wrong_type_arg ("octave_base_value::float_matrix_value()", type_name ()); |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
516 return retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
517 } |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
518 |
| 4507 | 519 NDArray |
| 4550 | 520 octave_base_value::array_value (bool) const |
| 4505 | 521 { |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
522 FloatNDArray retval; |
| 4550 | 523 gripe_wrong_type_arg ("octave_base_value::array_value()", type_name ()); |
| 4505 | 524 return retval; |
| 525 } | |
| 526 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
527 FloatNDArray |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
528 octave_base_value::float_array_value (bool) const |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
529 { |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
530 FloatNDArray retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
531 gripe_wrong_type_arg ("octave_base_value::float_array_value()", type_name ()); |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
532 return retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
533 } |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
534 |
| 2376 | 535 Complex |
| 536 octave_base_value::complex_value (bool) const | |
| 537 { | |
| 4102 | 538 double tmp = lo_ieee_nan_value (); |
| 539 Complex retval (tmp, tmp); | |
| 2376 | 540 gripe_wrong_type_arg ("octave_base_value::complex_value()", type_name ()); |
| 541 return retval; | |
| 542 } | |
| 543 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
544 FloatComplex |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
545 octave_base_value::float_complex_value (bool) const |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
546 { |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
547 float tmp = lo_ieee_float_nan_value (); |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
548 FloatComplex retval (tmp, tmp); |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
549 gripe_wrong_type_arg ("octave_base_value::float_complex_value()", type_name ()); |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
550 return retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
551 } |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
552 |
| 2376 | 553 ComplexMatrix |
| 554 octave_base_value::complex_matrix_value (bool) const | |
| 555 { | |
| 556 ComplexMatrix retval; | |
| 557 gripe_wrong_type_arg ("octave_base_value::complex_matrix_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
558 type_name ()); |
| 2376 | 559 return retval; |
| 560 } | |
| 561 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
562 FloatComplexMatrix |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
563 octave_base_value::float_complex_matrix_value (bool) const |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
564 { |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
565 FloatComplexMatrix retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
566 gripe_wrong_type_arg ("octave_base_value::float_complex_matrix_value()", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
567 type_name ()); |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
568 return retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
569 } |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
570 |
| 4550 | 571 ComplexNDArray |
| 572 octave_base_value::complex_array_value (bool) const | |
| 573 { | |
| 574 ComplexNDArray retval; | |
| 575 gripe_wrong_type_arg ("octave_base_value::complex_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
576 type_name ()); |
| 4550 | 577 return retval; |
| 578 } | |
| 579 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
580 FloatComplexNDArray |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
581 octave_base_value::float_complex_array_value (bool) const |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
582 { |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
583 FloatComplexNDArray retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
584 gripe_wrong_type_arg ("octave_base_value::float_complex_array_value()", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
585 type_name ()); |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
586 return retval; |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
587 } |
|
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7761
diff
changeset
|
588 |
| 4550 | 589 bool |
| 5943 | 590 octave_base_value::bool_value (bool) const |
| 4550 | 591 { |
| 592 bool retval = false; | |
| 593 gripe_wrong_type_arg ("octave_base_value::bool_value()", type_name ()); | |
| 594 return retval; | |
| 595 } | |
| 596 | |
| 597 boolMatrix | |
| 5943 | 598 octave_base_value::bool_matrix_value (bool) const |
| 4550 | 599 { |
| 600 boolMatrix retval; | |
| 601 gripe_wrong_type_arg ("octave_base_value::bool_matrix_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
602 type_name ()); |
| 4550 | 603 return retval; |
| 604 } | |
| 605 | |
| 606 boolNDArray | |
| 5943 | 607 octave_base_value::bool_array_value (bool) const |
| 4550 | 608 { |
| 609 boolNDArray retval; | |
| 610 gripe_wrong_type_arg ("octave_base_value::bool_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
611 type_name ()); |
| 4550 | 612 return retval; |
| 613 } | |
| 614 | |
| 2376 | 615 charMatrix |
| 4741 | 616 octave_base_value::char_matrix_value (bool force) const |
| 2376 | 617 { |
| 618 charMatrix retval; | |
| 4257 | 619 |
| 4741 | 620 octave_value tmp = convert_to_str (false, force); |
| 4257 | 621 |
| 4452 | 622 if (! error_state) |
| 623 retval = tmp.char_matrix_value (); | |
| 624 | |
| 2376 | 625 return retval; |
| 626 } | |
| 627 | |
| 4550 | 628 charNDArray |
| 629 octave_base_value::char_array_value (bool) const | |
| 630 { | |
| 631 charNDArray retval; | |
| 632 gripe_wrong_type_arg ("octave_base_value::char_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
633 type_name ()); |
| 4550 | 634 return retval; |
| 635 } | |
| 636 | |
| 5164 | 637 SparseMatrix |
| 638 octave_base_value::sparse_matrix_value (bool) const | |
| 639 { | |
| 640 SparseMatrix retval; | |
| 641 gripe_wrong_type_arg ("octave_base_value::sparse_matrix_value()", type_name ()); | |
| 642 return retval; | |
| 643 } | |
| 644 | |
| 645 SparseComplexMatrix | |
| 646 octave_base_value::sparse_complex_matrix_value (bool) const | |
| 647 { | |
| 648 SparseComplexMatrix retval; | |
| 649 gripe_wrong_type_arg ("octave_base_value::sparse_complex_matrix_value()", type_name ()); | |
| 650 return retval; | |
| 651 } | |
| 652 | |
| 653 SparseBoolMatrix | |
| 654 octave_base_value::sparse_bool_matrix_value (bool) const | |
| 655 { | |
| 656 SparseBoolMatrix retval; | |
| 657 gripe_wrong_type_arg ("octave_base_value::sparse_bool_matrix_value()", type_name ()); | |
| 658 return retval; | |
| 659 } | |
| 660 | |
|
8916
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
661 DiagMatrix |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
662 octave_base_value::diag_matrix_value (bool) const |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
663 { |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
664 DiagMatrix retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
665 gripe_wrong_type_arg ("octave_base_value::diag_matrix_value()", type_name ()); |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
666 return retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
667 } |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
668 |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
669 FloatDiagMatrix |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
670 octave_base_value::float_diag_matrix_value (bool) const |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
671 { |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
672 FloatDiagMatrix retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
673 gripe_wrong_type_arg ("octave_base_value::float_diag_matrix_value()", type_name ()); |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
674 return retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
675 } |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
676 |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
677 ComplexDiagMatrix |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
678 octave_base_value::complex_diag_matrix_value (bool) const |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
679 { |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
680 ComplexDiagMatrix retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
681 gripe_wrong_type_arg ("octave_base_value::complex_diag_matrix_value()", type_name ()); |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
682 return retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
683 } |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
684 |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
685 FloatComplexDiagMatrix |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
686 octave_base_value::float_complex_diag_matrix_value (bool) const |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
687 { |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
688 FloatComplexDiagMatrix retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
689 gripe_wrong_type_arg ("octave_base_value::float_complex_diag_matrix_value()", type_name ()); |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
690 return retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
691 } |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
692 |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
693 PermMatrix |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
694 octave_base_value::perm_matrix_value (void) const |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
695 { |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
696 PermMatrix retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
697 gripe_wrong_type_arg ("octave_base_value::perm_matrix_value()", type_name ()); |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
698 return retval; |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
699 } |
|
a2878ba31a9e
add diag & perm matrix query methods to octave_value
Jaroslav Hajek <highegg@gmail.com>
parents:
8734
diff
changeset
|
700 |
| 4910 | 701 octave_int8 |
| 702 octave_base_value::int8_scalar_value (void) const | |
| 703 { | |
| 704 octave_int8 retval; | |
| 705 gripe_wrong_type_arg ("octave_base_value::int8_scalar_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
706 type_name ()); |
| 4910 | 707 return retval; |
| 708 } | |
| 709 | |
| 710 octave_int16 | |
| 711 octave_base_value::int16_scalar_value (void) const | |
| 712 { | |
| 713 octave_int16 retval; | |
| 714 gripe_wrong_type_arg ("octave_base_value::int16_scalar_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
715 type_name ()); |
| 4910 | 716 return retval; |
| 717 } | |
| 718 | |
| 719 octave_int32 | |
| 720 octave_base_value::int32_scalar_value (void) const | |
| 721 { | |
| 722 octave_int32 retval; | |
| 723 gripe_wrong_type_arg ("octave_base_value::int32_scalar_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
724 type_name ()); |
| 4910 | 725 return retval; |
| 726 } | |
| 727 | |
| 728 octave_int64 | |
| 729 octave_base_value::int64_scalar_value (void) const | |
| 730 { | |
| 731 octave_int64 retval; | |
| 732 gripe_wrong_type_arg ("octave_base_value::int64_scalar_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
733 type_name ()); |
| 4910 | 734 return retval; |
| 735 } | |
| 736 | |
| 737 octave_uint8 | |
| 738 octave_base_value::uint8_scalar_value (void) const | |
| 739 { | |
| 740 octave_uint8 retval; | |
| 741 gripe_wrong_type_arg ("octave_base_value::uint8_scalar_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
742 type_name ()); |
| 4910 | 743 return retval; |
| 744 } | |
| 745 | |
| 746 octave_uint16 | |
| 747 octave_base_value::uint16_scalar_value (void) const | |
| 748 { | |
| 749 octave_uint16 retval; | |
| 750 gripe_wrong_type_arg ("octave_base_value::uint16_scalar_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
751 type_name ()); |
| 4910 | 752 return retval; |
| 753 } | |
| 754 | |
| 755 octave_uint32 | |
| 756 octave_base_value::uint32_scalar_value (void) const | |
| 757 { | |
| 758 octave_uint32 retval; | |
| 759 gripe_wrong_type_arg ("octave_base_value::uint32_scalar_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
760 type_name ()); |
| 4910 | 761 return retval; |
| 762 } | |
| 763 | |
| 764 octave_uint64 | |
| 765 octave_base_value::uint64_scalar_value (void) const | |
| 766 { | |
| 767 octave_uint64 retval; | |
| 768 gripe_wrong_type_arg ("octave_base_value::uint64_scalar_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
769 type_name ()); |
| 4910 | 770 return retval; |
| 771 } | |
| 772 | |
| 4906 | 773 int8NDArray |
| 774 octave_base_value::int8_array_value (void) const | |
| 775 { | |
| 776 int8NDArray retval; | |
| 777 gripe_wrong_type_arg ("octave_base_value::int8_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
778 type_name ()); |
| 4910 | 779 return retval; |
| 4906 | 780 } |
| 781 | |
| 782 int16NDArray | |
| 783 octave_base_value::int16_array_value (void) const | |
| 784 { | |
| 785 int16NDArray retval; | |
| 786 gripe_wrong_type_arg ("octave_base_value::int16_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
787 type_name ()); |
| 4910 | 788 return retval; |
| 4906 | 789 } |
| 790 | |
| 791 int32NDArray | |
| 792 octave_base_value::int32_array_value (void) const | |
| 793 { | |
| 794 int32NDArray retval; | |
| 795 gripe_wrong_type_arg ("octave_base_value::int32_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
796 type_name ()); |
| 4910 | 797 return retval; |
| 4906 | 798 } |
| 799 | |
| 800 int64NDArray | |
| 801 octave_base_value::int64_array_value (void) const | |
| 802 { | |
| 803 int64NDArray retval; | |
| 804 gripe_wrong_type_arg ("octave_base_value::int64_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
805 type_name ()); |
| 4910 | 806 return retval; |
| 4906 | 807 } |
| 808 | |
| 809 uint8NDArray | |
| 810 octave_base_value::uint8_array_value (void) const | |
| 811 { | |
| 812 uint8NDArray retval; | |
| 813 gripe_wrong_type_arg ("octave_base_value::uint8_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
814 type_name ()); |
| 4910 | 815 return retval; |
| 4906 | 816 } |
| 817 | |
| 818 uint16NDArray | |
| 819 octave_base_value::uint16_array_value (void) const | |
| 820 { | |
| 821 uint16NDArray retval; | |
| 822 gripe_wrong_type_arg ("octave_base_value::uint16_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
823 type_name ()); |
| 4910 | 824 return retval; |
| 4906 | 825 } |
| 826 | |
| 827 uint32NDArray | |
| 828 octave_base_value::uint32_array_value (void) const | |
| 829 { | |
| 830 uint32NDArray retval; | |
| 831 gripe_wrong_type_arg ("octave_base_value::uint32_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
832 type_name ()); |
| 4910 | 833 return retval; |
| 4906 | 834 } |
| 835 | |
| 836 uint64NDArray | |
| 837 octave_base_value::uint64_array_value (void) const | |
| 838 { | |
| 839 uint64NDArray retval; | |
| 840 gripe_wrong_type_arg ("octave_base_value::uint64_array_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
841 type_name ()); |
| 4910 | 842 return retval; |
| 4906 | 843 } |
| 844 | |
| 2493 | 845 string_vector |
| 5715 | 846 octave_base_value::all_strings (bool pad) const |
| 2376 | 847 { |
| 2493 | 848 string_vector retval; |
| 4257 | 849 |
| 5715 | 850 octave_value tmp = convert_to_str (pad, true); |
| 4257 | 851 |
| 4452 | 852 if (! error_state) |
| 853 retval = tmp.all_strings (); | |
| 4257 | 854 |
| 2376 | 855 return retval; |
| 856 } | |
| 857 | |
| 3536 | 858 std::string |
| 4457 | 859 octave_base_value::string_value (bool force) const |
| 2376 | 860 { |
| 3523 | 861 std::string retval; |
| 4257 | 862 |
| 4457 | 863 octave_value tmp = convert_to_str (force); |
| 4257 | 864 |
| 4452 | 865 if (! error_state) |
| 866 retval = tmp.string_value (); | |
| 4257 | 867 |
| 2376 | 868 return retval; |
| 869 } | |
| 870 | |
| 8732 | 871 Array<std::string> |
| 872 octave_base_value::cellstr_value (void) const | |
| 873 { | |
| 874 Array<std::string> retval; | |
| 875 gripe_wrong_type_arg ("octave_base_value::cellstry_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
876 type_name ()); |
| 8732 | 877 return retval; |
| 878 } | |
| 879 | |
| 2376 | 880 Range |
| 881 octave_base_value::range_value (void) const | |
| 882 { | |
| 883 Range retval; | |
| 884 gripe_wrong_type_arg ("octave_base_value::range_value()", type_name ()); | |
| 885 return retval; | |
| 886 } | |
| 887 | |
|
10742
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
888 octave_map |
| 2376 | 889 octave_base_value::map_value (void) const |
| 890 { | |
|
10742
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
891 octave_map retval; |
| 2376 | 892 gripe_wrong_type_arg ("octave_base_value::map_value()", type_name ()); |
| 893 return retval; | |
| 894 } | |
| 895 | |
|
10742
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
896 octave_scalar_map |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
897 octave_base_value::scalar_map_value (void) const |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
898 { |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
899 octave_map tmp = map_value (); |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
900 |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
901 if (tmp.numel () == 1) |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
902 return tmp.checkelem (0); |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
903 else |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
904 { |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
905 if (! error_state) |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
906 error ("invalid conversion of multidimensional struct to scalar struct"); |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
907 |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
908 return octave_scalar_map (); |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
909 } |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
910 } |
|
604e13a89c7f
initial code for structs rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
10670
diff
changeset
|
911 |
| 3933 | 912 string_vector |
| 913 octave_base_value::map_keys (void) const | |
| 914 { | |
| 915 string_vector retval; | |
| 916 gripe_wrong_type_arg ("octave_base_value::map_keys()", type_name ()); | |
| 917 return retval; | |
| 918 } | |
| 919 | |
| 9151 | 920 size_t |
| 921 octave_base_value::nparents (void) const | |
| 922 { | |
| 923 size_t retval = 0; | |
| 924 gripe_wrong_type_arg ("octave_base_value::nparents()", type_name ()); | |
| 925 return retval; | |
| 926 } | |
| 927 | |
| 928 std::list<std::string> | |
| 929 octave_base_value::parent_class_name_list (void) const | |
| 930 { | |
| 931 std::list<std::string> retval; | |
| 932 gripe_wrong_type_arg ("octave_base_value::parent_class_name_list()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
933 type_name ()); |
| 9151 | 934 return retval; |
| 935 } | |
| 936 | |
| 937 string_vector | |
| 938 octave_base_value::parent_class_names (void) const | |
| 939 { | |
| 940 string_vector retval; | |
| 941 gripe_wrong_type_arg ("octave_base_value::parent_class_names()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
942 type_name ()); |
| 9151 | 943 return retval; |
| 944 } | |
| 945 | |
| 2974 | 946 octave_function * |
| 947 octave_base_value::function_value (bool silent) | |
| 948 { | |
| 949 octave_function *retval = 0; | |
| 950 | |
| 951 if (! silent) | |
| 952 gripe_wrong_type_arg ("octave_base_value::function_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
953 type_name ()); |
| 2974 | 954 return retval; |
| 955 } | |
| 956 | |
| 4700 | 957 octave_user_function * |
| 958 octave_base_value::user_function_value (bool silent) | |
| 959 { | |
| 960 octave_user_function *retval = 0; | |
| 961 | |
| 962 if (! silent) | |
| 963 gripe_wrong_type_arg ("octave_base_value::user_function_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
964 type_name ()); |
| 4700 | 965 return retval; |
| 966 } | |
| 967 | |
|
7719
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
968 octave_user_script * |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
969 octave_base_value::user_script_value (bool silent) |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
970 { |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
971 octave_user_script *retval = 0; |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
972 |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
973 if (! silent) |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
974 gripe_wrong_type_arg ("octave_base_value::user_script_value()", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
975 type_name ()); |
|
7719
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
976 return retval; |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
977 } |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
978 |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
979 octave_user_code * |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
980 octave_base_value::user_code_value (bool silent) |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
981 { |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
982 octave_user_code *retval = 0; |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
983 |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
984 if (! silent) |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
985 gripe_wrong_type_arg ("octave_base_value::user_code_value()", |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
986 type_name ()); |
|
7719
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
987 return retval; |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
988 } |
|
87eda1f8faaa
octave_user_code: new base class for octave_user_script and octave_user_function
John W. Eaton <jwe@octave.org>
parents:
7638
diff
changeset
|
989 |
| 4346 | 990 octave_fcn_handle * |
| 4343 | 991 octave_base_value::fcn_handle_value (bool silent) |
| 992 { | |
| 4346 | 993 octave_fcn_handle *retval = 0; |
| 4343 | 994 |
| 995 if (! silent) | |
| 996 gripe_wrong_type_arg ("octave_base_value::fcn_handle_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
997 type_name ()); |
| 4343 | 998 return retval; |
| 999 } | |
| 1000 | |
| 4933 | 1001 octave_fcn_inline * |
| 1002 octave_base_value::fcn_inline_value (bool silent) | |
| 1003 { | |
| 1004 octave_fcn_inline *retval = 0; | |
| 1005 | |
| 1006 if (! silent) | |
| 1007 gripe_wrong_type_arg ("octave_base_value::fcn_inline_value()", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1008 type_name ()); |
| 4933 | 1009 return retval; |
| 1010 } | |
| 1011 | |
| 2882 | 1012 octave_value_list |
| 1013 octave_base_value::list_value (void) const | |
| 1014 { | |
| 1015 octave_value_list retval; | |
| 1016 gripe_wrong_type_arg ("octave_base_value::list_value()", type_name ()); | |
| 1017 return retval; | |
| 1018 } | |
| 1019 | |
| 4687 | 1020 bool |
| 6974 | 1021 octave_base_value::save_ascii (std::ostream&) |
| 4687 | 1022 { |
| 1023 gripe_wrong_type_arg ("octave_base_value::save_ascii()", type_name ()); | |
| 1024 return false; | |
| 1025 } | |
| 1026 | |
| 1027 bool | |
| 1028 octave_base_value::load_ascii (std::istream&) | |
| 1029 { | |
| 1030 gripe_wrong_type_arg ("octave_base_value::load_ascii()", type_name ()); | |
| 1031 return false; | |
| 1032 } | |
| 1033 | |
| 1034 bool | |
| 1035 octave_base_value::save_binary (std::ostream&, bool&) | |
| 1036 { | |
| 1037 gripe_wrong_type_arg ("octave_base_value::save_binary()", type_name ()); | |
| 1038 return false; | |
| 1039 } | |
| 1040 | |
| 1041 bool | |
| 1042 octave_base_value::load_binary (std::istream&, bool, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1043 oct_mach_info::float_format) |
| 4687 | 1044 { |
| 1045 gripe_wrong_type_arg ("octave_base_value::load_binary()", type_name ()); | |
| 1046 return false; | |
| 1047 } | |
| 1048 | |
| 1049 #if defined (HAVE_HDF5) | |
| 4944 | 1050 |
| 4687 | 1051 bool |
| 1052 octave_base_value::save_hdf5 (hid_t, const char *, bool) | |
| 1053 { | |
| 1054 gripe_wrong_type_arg ("octave_base_value::save_binary()", type_name ()); | |
| 1055 | |
| 1056 return false; | |
| 1057 } | |
| 1058 | |
| 1059 bool | |
|
9881
b3089dba88bf
Remove HDF5 cruft for older versions of HDF5
Kacper Kowalik
parents:
9835
diff
changeset
|
1060 octave_base_value::load_hdf5 (hid_t, const char *) |
| 4687 | 1061 { |
| 1062 gripe_wrong_type_arg ("octave_base_value::load_binary()", type_name ()); | |
| 1063 | |
| 1064 return false; | |
| 1065 } | |
| 4944 | 1066 |
| 4687 | 1067 #endif |
| 1068 | |
| 4944 | 1069 int |
| 1070 octave_base_value::write (octave_stream&, int, oct_data_conv::data_type, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1071 int, oct_mach_info::float_format) const |
| 4944 | 1072 { |
| 1073 gripe_wrong_type_arg ("octave_base_value::write()", type_name ()); | |
| 1074 | |
| 1075 return false; | |
| 1076 } | |
| 1077 | |
| 5900 | 1078 mxArray * |
| 1079 octave_base_value::as_mxArray (void) const | |
| 1080 { | |
| 1081 gripe_wrong_type_arg ("octave_base_value::as_mxArray ()", type_name ()); | |
| 1082 | |
| 1083 return 0; | |
| 1084 } | |
| 1085 | |
| 7433 | 1086 octave_value |
|
7620
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7528
diff
changeset
|
1087 octave_base_value::diag (octave_idx_type) const |
|
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7528
diff
changeset
|
1088 { |
|
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7528
diff
changeset
|
1089 gripe_wrong_type_arg ("octave_base_value::diag ()", type_name ()); |
|
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7528
diff
changeset
|
1090 |
|
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7528
diff
changeset
|
1091 return octave_value(); |
|
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7528
diff
changeset
|
1092 } |
|
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7528
diff
changeset
|
1093 |
|
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7528
diff
changeset
|
1094 octave_value |
| 7433 | 1095 octave_base_value::sort (octave_idx_type, sortmode) const |
| 1096 { | |
| 1097 gripe_wrong_type_arg ("octave_base_value::sort ()", type_name ()); | |
| 1098 | |
| 1099 return octave_value(); | |
| 1100 } | |
| 1101 | |
| 1102 octave_value | |
| 1103 octave_base_value::sort (Array<octave_idx_type> &, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1104 octave_idx_type, sortmode) const |
| 7433 | 1105 { |
| 1106 gripe_wrong_type_arg ("octave_base_value::sort ()", type_name ()); | |
| 1107 | |
| 1108 return octave_value(); | |
| 1109 } | |
| 1110 | |
|
8721
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1111 sortmode |
|
8734
767ed8cc6634
rename internal issorted and issorted_rows functions to is_sorted and is_sorted_rows
John W. Eaton <jwe@octave.org>
parents:
8733
diff
changeset
|
1112 octave_base_value::is_sorted (sortmode) const |
|
8721
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1113 { |
|
8734
767ed8cc6634
rename internal issorted and issorted_rows functions to is_sorted and is_sorted_rows
John W. Eaton <jwe@octave.org>
parents:
8733
diff
changeset
|
1114 gripe_wrong_type_arg ("octave_base_value::is_sorted ()", type_name ()); |
|
8721
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1115 |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1116 return UNSORTED; |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1117 } |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1118 |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1119 Array<octave_idx_type> |
|
8733
3ef774603887
rename all uses of sortrows_idx to sort_rows_idx
John W. Eaton <jwe@octave.org>
parents:
8732
diff
changeset
|
1120 octave_base_value::sort_rows_idx (sortmode) const |
|
8721
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1121 { |
|
8733
3ef774603887
rename all uses of sortrows_idx to sort_rows_idx
John W. Eaton <jwe@octave.org>
parents:
8732
diff
changeset
|
1122 gripe_wrong_type_arg ("octave_base_value::sort_rows_idx ()", type_name ()); |
|
8721
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1123 |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1124 return Array<octave_idx_type> (); |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1125 } |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1126 |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1127 sortmode |
|
8734
767ed8cc6634
rename internal issorted and issorted_rows functions to is_sorted and is_sorted_rows
John W. Eaton <jwe@octave.org>
parents:
8733
diff
changeset
|
1128 octave_base_value::is_sorted_rows (sortmode) const |
|
8721
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1129 { |
|
8734
767ed8cc6634
rename internal issorted and issorted_rows functions to is_sorted and is_sorted_rows
John W. Eaton <jwe@octave.org>
parents:
8733
diff
changeset
|
1130 gripe_wrong_type_arg ("octave_base_value::is_sorted_rows ()", type_name ()); |
|
8721
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1131 |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1132 return UNSORTED; |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1133 } |
|
e9cb742df9eb
imported patch sort3.diff
Jaroslav Hajek <highegg@gmail.com>
parents:
8677
diff
changeset
|
1134 |
|
9813
8fa32b527d9a
improve & partially revert previous change
Jaroslav Hajek <highegg@gmail.com>
parents:
9812
diff
changeset
|
1135 |
|
8fa32b527d9a
improve & partially revert previous change
Jaroslav Hajek <highegg@gmail.com>
parents:
9812
diff
changeset
|
1136 const char * |
|
8fa32b527d9a
improve & partially revert previous change
Jaroslav Hajek <highegg@gmail.com>
parents:
9812
diff
changeset
|
1137 octave_base_value::get_umap_name (unary_mapper_t umap) |
|
9812
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1138 { |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1139 static const char *names[num_unary_mappers] = |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1140 { |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1141 "abs", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1142 "acos", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1143 "acosh", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1144 "angle", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1145 "arg", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1146 "asin", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1147 "asinh", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1148 "atan", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1149 "atanh", |
|
10414
2a8b1db1e2ca
implement built-in cbrt
Jaroslav Hajek <highegg@gmail.com>
parents:
10315
diff
changeset
|
1150 "cbrt", |
|
9812
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1151 "ceil", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1152 "conj", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1153 "cos", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1154 "cosh", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1155 "erf", |
|
9835
1bb1ed717d2f
implement built-in erfinv
Jaroslav Hajek <highegg@gmail.com>
parents:
9813
diff
changeset
|
1156 "erfinv", |
|
9812
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1157 "erfc", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1158 "exp", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1159 "expm1", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1160 "finite", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1161 "fix", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1162 "floor", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1163 "gamma", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1164 "imag", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1165 "isinf", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1166 "isna", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1167 "isnan", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1168 "lgamma", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1169 "log", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1170 "log2", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1171 "log10", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1172 "log1p", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1173 "real", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1174 "round", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1175 "roundb", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1176 "signum", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1177 "sin", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1178 "sinh", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1179 "sqrt", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1180 "tan", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1181 "tanh", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1182 "isalnum", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1183 "isalpha", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1184 "isascii", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1185 "iscntrl", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1186 "isdigit", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1187 "isgraph", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1188 "islower", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1189 "isprint", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1190 "ispunct", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1191 "isspace", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1192 "isupper", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1193 "isxdigit", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1194 "toascii", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1195 "tolower", |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1196 "toupper" |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1197 }; |
|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7489
diff
changeset
|
1198 |
|
9812
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1199 if (umap < 0 || umap >= num_unary_mappers) |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1200 return "unknown"; |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1201 else |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1202 return names[umap]; |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1203 } |
|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7489
diff
changeset
|
1204 |
|
9812
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1205 octave_value |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1206 octave_base_value::map (unary_mapper_t umap) const |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1207 { |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1208 error ("%s: not defined for %s", get_umap_name (umap), type_name ().c_str ()); |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1209 return octave_value (); |
|
f80c566bc751
improve unary mapper system
Jaroslav Hajek <highegg@gmail.com>
parents:
9790
diff
changeset
|
1210 } |
|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7489
diff
changeset
|
1211 |
|
7489
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1212 void |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1213 octave_base_value::lock (void) |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1214 { |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1215 gripe_wrong_type_arg ("octave_base_value::lock ()", type_name ()); |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1216 } |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1217 |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1218 void |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1219 octave_base_value::unlock (void) |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1220 { |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1221 gripe_wrong_type_arg ("octave_base_value::unlock ()", type_name ()); |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1222 } |
|
8e4592e49fa7
don't clear locked functions
John W. Eaton <jwe@octave.org>
parents:
7433
diff
changeset
|
1223 |
|
7761
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1224 void |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1225 octave_base_value::dump (std::ostream& os) const |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1226 { |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1227 dim_vector dv = this->dims (); |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1228 |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1229 os << "class: " << this->class_name () |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1230 << " type: " << this->type_name () |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1231 << " dims: " << dv.str (); |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1232 } |
|
5adeea5de26c
symbol table reporting functions
John W. Eaton <jwe@octave.org>
parents:
7740
diff
changeset
|
1233 |
| 5759 | 1234 static void |
| 1235 gripe_indexed_assignment (const std::string& tn1, const std::string& tn2) | |
| 1236 { | |
| 1237 error ("assignment of `%s' to indexed `%s' not implemented", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1238 tn2.c_str (), tn1.c_str ()); |
| 5759 | 1239 } |
| 1240 | |
| 1241 static void | |
| 1242 gripe_assign_conversion_failed (const std::string& tn1, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1243 const std::string& tn2) |
| 5759 | 1244 { |
| 1245 error ("type conversion for assignment of `%s' to indexed `%s' failed", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1246 tn2.c_str (), tn1.c_str ()); |
| 5759 | 1247 } |
| 1248 | |
| 1249 static void | |
| 1250 gripe_no_conversion (const std::string& on, const std::string& tn1, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1251 const std::string& tn2) |
| 5759 | 1252 { |
| 1253 error ("operator %s: no conversion for assignment of `%s' to indexed `%s'", | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1254 on.c_str (), tn2.c_str (), tn1.c_str ()); |
| 5759 | 1255 } |
| 1256 | |
| 1257 octave_value | |
| 1258 octave_base_value::numeric_assign (const std::string& type, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1259 const std::list<octave_value_list>& idx, |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1260 const octave_value& rhs) |
| 5759 | 1261 { |
| 1262 octave_value retval; | |
| 1263 | |
|
9286
c2248cc4821a
don't crash on assignments like a() = 1
Jaroslav Hajek <highegg@gmail.com>
parents:
9151
diff
changeset
|
1264 if (idx.front ().empty ()) |
|
c2248cc4821a
don't crash on assignments like a() = 1
Jaroslav Hajek <highegg@gmail.com>
parents:
9151
diff
changeset
|
1265 { |
|
c2248cc4821a
don't crash on assignments like a() = 1
Jaroslav Hajek <highegg@gmail.com>
parents:
9151
diff
changeset
|
1266 error ("missing index in indexed assignment"); |
|
c2248cc4821a
don't crash on assignments like a() = 1
Jaroslav Hajek <highegg@gmail.com>
parents:
9151
diff
changeset
|
1267 return retval; |
|
c2248cc4821a
don't crash on assignments like a() = 1
Jaroslav Hajek <highegg@gmail.com>
parents:
9151
diff
changeset
|
1268 } |
|
c2248cc4821a
don't crash on assignments like a() = 1
Jaroslav Hajek <highegg@gmail.com>
parents:
9151
diff
changeset
|
1269 |
| 5759 | 1270 int t_lhs = type_id (); |
| 1271 int t_rhs = rhs.type_id (); | |
| 1272 | |
| 1273 octave_value_typeinfo::assign_op_fcn f | |
| 1274 = octave_value_typeinfo::lookup_assign_op (octave_value::op_asn_eq, | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1275 t_lhs, t_rhs); |
| 5759 | 1276 |
| 1277 bool done = false; | |
| 1278 | |
| 1279 if (f) | |
| 1280 { | |
| 1281 f (*this, idx.front (), rhs.get_rep ()); | |
| 1282 | |
| 1283 done = (! error_state); | |
| 1284 } | |
| 1285 | |
| 1286 if (done) | |
| 1287 { | |
| 1288 count++; | |
| 1289 retval = octave_value (this); | |
| 1290 } | |
| 1291 else | |
| 1292 { | |
| 1293 int t_result | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1294 = octave_value_typeinfo::lookup_pref_assign_conv (t_lhs, t_rhs); |
| 5759 | 1295 |
| 1296 if (t_result >= 0) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1297 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1298 octave_base_value::type_conv_fcn cf |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1299 = octave_value_typeinfo::lookup_widening_op (t_lhs, t_result); |
| 5759 | 1300 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1301 if (cf) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1302 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1303 octave_base_value *tmp = cf (*this); |
| 5759 | 1304 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1305 if (tmp) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1306 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1307 octave_value val (tmp); |
| 5874 | 1308 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1309 retval = val.subsasgn (type, idx, rhs); |
| 5759 | 1310 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1311 done = (! error_state); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1312 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1313 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1314 gripe_assign_conversion_failed (type_name (), |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1315 rhs.type_name ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1316 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1317 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1318 gripe_indexed_assignment (type_name (), rhs.type_name ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1319 } |
| 5759 | 1320 |
| 1321 if (! (done || error_state)) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1322 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1323 octave_value tmp_rhs; |
| 5759 | 1324 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1325 octave_base_value::type_conv_info cf_rhs |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1326 = rhs.numeric_conversion_function (); |
| 5759 | 1327 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1328 octave_base_value::type_conv_info cf_this |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1329 = numeric_conversion_function (); |
|
8345
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1330 |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1331 // Try biased (one-sided) conversions first. |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1332 if (cf_rhs.type_id () >= 0 |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1333 && (octave_value_typeinfo::lookup_assign_op (octave_value::op_asn_eq, |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1334 t_lhs, cf_rhs.type_id ()) |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1335 || octave_value_typeinfo::lookup_pref_assign_conv (t_lhs, |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1336 cf_rhs.type_id ()) >= 0)) |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1337 cf_this = 0; |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1338 else if (cf_this.type_id () >= 0 |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1339 && (octave_value_typeinfo::lookup_assign_op (octave_value::op_asn_eq, |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1340 cf_this.type_id (), t_rhs) |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1341 || octave_value_typeinfo::lookup_pref_assign_conv (cf_this.type_id (), |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1342 t_rhs) >= 0)) |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1343 cf_rhs = 0; |
|
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
1344 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1345 if (cf_rhs) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1346 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1347 octave_base_value *tmp = cf_rhs (rhs.get_rep ()); |
| 5759 | 1348 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1349 if (tmp) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1350 tmp_rhs = octave_value (tmp); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1351 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1352 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1353 gripe_assign_conversion_failed (type_name (), |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1354 rhs.type_name ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1355 return octave_value (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1356 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1357 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1358 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1359 tmp_rhs = rhs; |
| 5759 | 1360 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1361 count++; |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1362 octave_value tmp_lhs = octave_value (this); |
| 5759 | 1363 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1364 if (cf_this) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1365 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1366 octave_base_value *tmp = cf_this (*this); |
| 5759 | 1367 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1368 if (tmp) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1369 tmp_lhs = octave_value (tmp); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1370 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1371 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1372 gripe_assign_conversion_failed (type_name (), |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1373 rhs.type_name ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1374 return octave_value (); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1375 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1376 } |
| 5759 | 1377 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1378 if (cf_this || cf_rhs) |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1379 { |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1380 retval = tmp_lhs.subsasgn (type, idx, tmp_rhs); |
| 5759 | 1381 |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1382 done = (! error_state); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1383 } |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1384 else |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1385 gripe_no_conversion (octave_value::assign_op_as_string (octave_value::op_asn_eq), |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1386 type_name (), rhs.type_name ()); |
|
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1387 } |
| 5759 | 1388 } |
| 1389 | |
| 1390 // The assignment may have converted to a type that is wider than | |
| 1391 // necessary. | |
| 1392 | |
| 1393 retval.maybe_mutate (); | |
| 1394 | |
| 1395 return retval; | |
| 1396 } | |
| 1397 | |
| 1398 // Current indentation. | |
| 1399 int octave_base_value::curr_print_indent_level = 0; | |
| 1400 | |
| 1401 // TRUE means we are at the beginning of a line. | |
| 1402 bool octave_base_value::beginning_of_line = true; | |
| 1403 | |
| 1404 // Each print() function should call this before printing anything. | |
| 1405 // | |
| 1406 // This doesn't need to be fast, but isn't there a better way? | |
| 1407 | |
| 1408 void | |
| 1409 octave_base_value::indent (std::ostream& os) const | |
| 1410 { | |
| 1411 assert (curr_print_indent_level >= 0); | |
| 1412 | |
| 1413 if (beginning_of_line) | |
| 1414 { | |
| 5775 | 1415 // FIXME -- do we need this? |
| 5759 | 1416 // os << prefix; |
| 1417 | |
| 1418 for (int i = 0; i < curr_print_indent_level; i++) | |
|
10315
57a59eae83cc
untabify src C++ source files
John W. Eaton <jwe@octave.org>
parents:
10232
diff
changeset
|
1419 os << " "; |
| 5759 | 1420 |
| 1421 beginning_of_line = false; | |
| 1422 } | |
| 1423 } | |
| 1424 | |
| 1425 // All print() functions should use this to print new lines. | |
| 1426 | |
| 1427 void | |
| 1428 octave_base_value::newline (std::ostream& os) const | |
| 1429 { | |
| 1430 os << "\n"; | |
| 1431 | |
| 1432 beginning_of_line = true; | |
| 1433 } | |
| 1434 | |
| 1435 // For ressetting print state. | |
| 1436 | |
| 1437 void | |
| 1438 octave_base_value::reset (void) const | |
| 1439 { | |
| 1440 beginning_of_line = true; | |
| 1441 curr_print_indent_level = 0; | |
| 1442 } | |
| 1443 | |
|
10670
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1444 |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1445 octave_value |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1446 octave_base_value::fast_elem_extract (octave_idx_type n) const |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1447 { |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1448 return octave_value (); |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1449 } |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1450 |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1451 bool |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1452 octave_base_value::fast_elem_insert (octave_idx_type n, const octave_value& x) |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1453 { |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1454 return false; |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1455 } |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1456 |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1457 bool |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1458 octave_base_value::fast_elem_insert_self (void *where, builtin_type_t btyp) const |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1459 { |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1460 return false; |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1461 } |
|
654fbde5dceb
make cellfun's fast scalar collection mechanism public
Jaroslav Hajek <highegg@gmail.com>
parents:
10652
diff
changeset
|
1462 |
| 3203 | 1463 CONVDECLX (matrix_conv) |
| 2376 | 1464 { |
| 1465 return new octave_matrix (); | |
| 1466 } | |
| 1467 | |
| 3203 | 1468 CONVDECLX (complex_matrix_conv) |
| 2376 | 1469 { |
| 1470 return new octave_complex_matrix (); | |
| 1471 } | |
| 1472 | |
| 3203 | 1473 CONVDECLX (string_conv) |
| 2376 | 1474 { |
| 1475 return new octave_char_matrix_str (); | |
| 1476 } | |
| 1477 | |
| 3928 | 1478 CONVDECLX (cell_conv) |
| 1479 { | |
| 1480 return new octave_cell (); | |
| 1481 } | |
| 1482 | |
| 2376 | 1483 void |
| 1484 install_base_type_conversions (void) | |
| 1485 { | |
| 1486 INSTALL_ASSIGNCONV (octave_base_value, octave_scalar, octave_matrix); | |
| 1487 INSTALL_ASSIGNCONV (octave_base_value, octave_matrix, octave_matrix); | |
| 1488 INSTALL_ASSIGNCONV (octave_base_value, octave_complex, octave_complex_matrix); | |
| 1489 INSTALL_ASSIGNCONV (octave_base_value, octave_complex_matrix, octave_complex_matrix); | |
| 1490 INSTALL_ASSIGNCONV (octave_base_value, octave_range, octave_matrix); | |
| 1491 INSTALL_ASSIGNCONV (octave_base_value, octave_char_matrix_str, octave_char_matrix_str); | |
| 3928 | 1492 INSTALL_ASSIGNCONV (octave_base_value, octave_cell, octave_cell); |
| 2376 | 1493 |
| 1494 INSTALL_WIDENOP (octave_base_value, octave_matrix, matrix_conv); | |
| 1495 INSTALL_WIDENOP (octave_base_value, octave_complex_matrix, complex_matrix_conv); | |
| 1496 INSTALL_WIDENOP (octave_base_value, octave_char_matrix_str, string_conv); | |
| 3928 | 1497 INSTALL_WIDENOP (octave_base_value, octave_cell, cell_conv); |
| 2376 | 1498 } |
| 1499 | |
| 7193 | 1500 DEFUN (sparse_auto_mutate, args, nargout, |
| 1501 "-*- texinfo -*-\n\ | |
| 1502 @deftypefn {Built-in Function} {@var{val} =} sparse_auto_mutate ()\n\ | |
| 1503 @deftypefnx {Built-in Function} {@var{old_val} =} sparse_auto_mutate (@var{new_val})\n\ | |
| 1504 Query or set the internal variable that controls whether Octave will\n\ | |
| 1505 automatically mutate sparse matrices to real matrices to save memory.\n\ | |
| 1506 For example,\n\ | |
| 1507 \n\ | |
| 1508 @example\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
1509 @group\n\ |
| 7193 | 1510 s = speye(3);\n\ |
| 1511 sparse_auto_mutate (false)\n\ | |
| 1512 s (:, 1) = 1;\n\ | |
| 1513 typeinfo (s)\n\ | |
| 1514 @result{} sparse matrix\n\ | |
| 1515 sparse_auto_mutate (true)\n\ | |
| 1516 s (1, :) = 1;\n\ | |
| 1517 typeinfo (s)\n\ | |
| 1518 @result{} matrix\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
1519 @end group\n\ |
| 7193 | 1520 @end example\n\ |
| 1521 @end deftypefn") | |
| 1522 { | |
| 1523 return SET_INTERNAL_VARIABLE (sparse_auto_mutate); | |
| 1524 } |