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