Mercurial > hg > octave-nkf
annotate src/ov-bool-sparse.h @ 9685:e793865ede63
implement builtin_type
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Fri, 02 Oct 2009 08:27:44 +0200 |
parents | d865363208d6 |
children | f80c566bc751 |
rev | line source |
---|---|
5164 | 1 /* |
2 | |
8920 | 3 Copyright (C) 2004, 2005, 2006, 2007, 2008 David Bateman |
7016 | 4 Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 Andy Adler |
5 | |
6 This file is part of Octave. | |
5164 | 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. | |
5164 | 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/>. | |
5164 | 21 |
22 */ | |
23 | |
24 #if !defined (octave_sparse_bool_matrix_h) | |
25 #define octave_sparse_bool_matrix_h 1 | |
26 | |
27 #include <cstdlib> | |
28 | |
8950
d865363208d6
include <iosfwd> instead of <iostream> in header files
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
29 #include <iosfwd> |
5164 | 30 #include <string> |
31 | |
32 #include "mx-base.h" | |
33 #include "oct-alloc.h" | |
34 #include "str-vec.h" | |
35 | |
36 #include "error.h" | |
37 #include "oct-stream.h" | |
38 #include "ov-base.h" | |
39 #include "ov-typeinfo.h" | |
40 | |
41 #include "boolSparse.h" | |
42 #include "ov-base-sparse.h" | |
43 #include "ov-re-sparse.h" | |
44 | |
45 class Octave_map; | |
46 class octave_value_list; | |
47 | |
48 class tree_walker; | |
49 | |
50 class | |
6109 | 51 OCTINTERP_API |
5164 | 52 octave_sparse_bool_matrix : public octave_base_sparse<SparseBoolMatrix> |
53 { | |
54 public: | |
55 | |
56 octave_sparse_bool_matrix (void) | |
57 : octave_base_sparse<SparseBoolMatrix> () { } | |
58 | |
59 octave_sparse_bool_matrix (const SparseBoolMatrix& bnda) | |
60 : octave_base_sparse<SparseBoolMatrix> (bnda) { } | |
61 | |
62 octave_sparse_bool_matrix (const SparseBoolMatrix& bnda, | |
5785 | 63 const MatrixType& t) |
5164 | 64 : octave_base_sparse<SparseBoolMatrix> (bnda, t) { } |
65 | |
66 octave_sparse_bool_matrix (const boolNDArray& m) | |
67 : octave_base_sparse<SparseBoolMatrix> (SparseBoolMatrix (m)) { } | |
68 | |
69 octave_sparse_bool_matrix (const boolMatrix& m) | |
70 : octave_base_sparse<SparseBoolMatrix> (SparseBoolMatrix (m)) { } | |
71 | |
72 octave_sparse_bool_matrix (const Sparse<bool>& a) | |
73 : octave_base_sparse<SparseBoolMatrix> (a) { } | |
74 | |
75 octave_sparse_bool_matrix (const octave_sparse_bool_matrix& bm) | |
76 : octave_base_sparse<SparseBoolMatrix> (bm) { } | |
77 | |
78 ~octave_sparse_bool_matrix (void) { } | |
79 | |
5759 | 80 octave_base_value *clone (void) const { return new octave_sparse_bool_matrix (*this); } |
81 octave_base_value *empty_clone (void) const { return new octave_sparse_bool_matrix (); } | |
5164 | 82 |
8345
c777f3ce02d8
smarter conversion lookup
Jaroslav Hajek <highegg@gmail.com>
parents:
7885
diff
changeset
|
83 type_conv_info numeric_conversion_function (void) const; |
5164 | 84 |
5759 | 85 octave_base_value *try_narrowing_conversion (void); |
5164 | 86 |
5775 | 87 // FIXME Adapt idx_vector to allow sparse logical indexing!! |
5282 | 88 idx_vector index_vector (void) const |
89 { return idx_vector (bool_array_value ()); } | |
5164 | 90 |
9685 | 91 builtin_type_t builtin_type (void) const { return btyp_bool; } |
92 | |
5164 | 93 bool is_bool_matrix (void) const { return true; } |
94 | |
95 bool is_bool_type (void) const { return true; } | |
96 | |
97 bool is_real_type (void) const { return true; } | |
98 | |
99 double double_value (bool = false) const; | |
100 | |
101 double scalar_value (bool frc_str_conv = false) const | |
102 { return double_value (frc_str_conv); } | |
103 | |
104 Matrix matrix_value (bool = false) const; | |
105 | |
106 NDArray array_value (bool = false) const; | |
107 | |
108 Complex complex_value (bool = false) const; | |
109 | |
110 ComplexMatrix complex_matrix_value (bool = false) const; | |
111 | |
112 ComplexNDArray complex_array_value (bool = false) const; | |
113 | |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
114 charNDArray char_array_value (bool = false) const; |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
115 |
5944 | 116 boolMatrix bool_matrix_value (bool = false) const; |
5164 | 117 |
5944 | 118 boolNDArray bool_array_value (bool = false) const; |
5164 | 119 |
5188 | 120 SparseMatrix sparse_matrix_value (bool = false) const; |
5164 | 121 |
5188 | 122 SparseComplexMatrix sparse_complex_matrix_value (bool = false) const; |
5164 | 123 |
5189 | 124 SparseBoolMatrix sparse_bool_matrix_value (bool = false) const |
5164 | 125 { return matrix; } |
126 | |
5279 | 127 octave_value convert_to_str_internal (bool pad, bool force, char type) const; |
5164 | 128 |
129 bool save_binary (std::ostream& os, bool& save_as_floats); | |
130 | |
131 bool load_binary (std::istream& is, bool swap, | |
132 oct_mach_info::float_format fmt); | |
133 | |
134 #if defined (HAVE_HDF5) | |
135 bool save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats); | |
136 | |
137 bool load_hdf5 (hid_t loc_id, const char *name, bool have_h5giterate_bug); | |
138 #endif | |
139 | |
5900 | 140 mxArray *as_mxArray (void) const; |
141 | |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
142 // Mapper functions are converted to double for treatment |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
143 #define BOOL_SPARSE_MAPPER(MAP) \ |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
144 octave_value MAP (void) const \ |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
145 { \ |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
146 octave_sparse_matrix m (sparse_matrix_value ()); \ |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
147 return m.MAP (); \ |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
148 } |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
149 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
150 BOOL_SPARSE_MAPPER (abs) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
151 BOOL_SPARSE_MAPPER (acos) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
152 BOOL_SPARSE_MAPPER (acosh) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
153 BOOL_SPARSE_MAPPER (angle) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
154 BOOL_SPARSE_MAPPER (arg) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
155 BOOL_SPARSE_MAPPER (asin) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
156 BOOL_SPARSE_MAPPER (asinh) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
157 BOOL_SPARSE_MAPPER (atan) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
158 BOOL_SPARSE_MAPPER (atanh) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
159 BOOL_SPARSE_MAPPER (ceil) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
160 BOOL_SPARSE_MAPPER (conj) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
161 BOOL_SPARSE_MAPPER (cos) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
162 BOOL_SPARSE_MAPPER (cosh) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
163 BOOL_SPARSE_MAPPER (erf) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
164 BOOL_SPARSE_MAPPER (erfc) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
165 BOOL_SPARSE_MAPPER (exp) |
7638
2df457529cfa
implement expm1 and log1p functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7636
diff
changeset
|
166 BOOL_SPARSE_MAPPER (expm1) |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
167 BOOL_SPARSE_MAPPER (finite) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
168 BOOL_SPARSE_MAPPER (fix) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
169 BOOL_SPARSE_MAPPER (floor) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
170 BOOL_SPARSE_MAPPER (gamma) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
171 BOOL_SPARSE_MAPPER (imag) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
172 BOOL_SPARSE_MAPPER (isinf) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
173 BOOL_SPARSE_MAPPER (isna) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
174 BOOL_SPARSE_MAPPER (isnan) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
175 BOOL_SPARSE_MAPPER (lgamma) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
176 BOOL_SPARSE_MAPPER (log) |
7740 | 177 BOOL_SPARSE_MAPPER (log2) |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
178 BOOL_SPARSE_MAPPER (log10) |
7638
2df457529cfa
implement expm1 and log1p functions
Jaroslav Hajek <highegg@gmail.com>
parents:
7636
diff
changeset
|
179 BOOL_SPARSE_MAPPER (log1p) |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
180 BOOL_SPARSE_MAPPER (real) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
181 BOOL_SPARSE_MAPPER (round) |
7636
99c410f7f0b0
implement mapper function for banker's rounding
Jaroslav Hajek <highegg@gmail.com>
parents:
7503
diff
changeset
|
182 BOOL_SPARSE_MAPPER (roundb) |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
183 BOOL_SPARSE_MAPPER (signum) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
184 BOOL_SPARSE_MAPPER (sin) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
185 BOOL_SPARSE_MAPPER (sinh) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
186 BOOL_SPARSE_MAPPER (sqrt) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
187 BOOL_SPARSE_MAPPER (tan) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
188 BOOL_SPARSE_MAPPER (tanh) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
189 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
190 #undef BOOL_SPARSE_MAPPER |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
191 |
5164 | 192 protected: |
193 | |
194 DECLARE_OCTAVE_ALLOCATOR | |
195 | |
196 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA | |
197 }; | |
198 | |
199 #endif | |
200 | |
201 /* | |
202 ;;; Local Variables: *** | |
203 ;;; mode: C++ *** | |
204 ;;; End: *** | |
205 */ |