Mercurial > octave-nkf
annotate src/OPERATORS/op-sbm-bm.cc @ 14138:72c96de7a403 stable
maint: update copyright notices for 2012
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 02 Jan 2012 14:25:41 -0500 |
parents | ecd1364a2700 |
children |
rev | line source |
---|---|
5164 | 1 /* |
2 | |
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
12758
diff
changeset
|
3 Copyright (C) 2004-2012 David Bateman |
11523 | 4 Copyright (C) 1998-2004 Andy Adler |
7016 | 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 #ifdef HAVE_CONFIG_H | |
25 #include <config.h> | |
26 #endif | |
27 | |
28 #include "gripes.h" | |
29 #include "oct-obj.h" | |
30 #include "ov.h" | |
31 #include "ov-typeinfo.h" | |
32 #include "ov-bool-mat.h" | |
33 #include "boolMatrix.h" | |
12757
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
34 #include "ov-int8.h" |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
35 #include "ov-int16.h" |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
36 #include "ov-int32.h" |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
37 #include "ov-int64.h" |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
38 #include "ov-uint8.h" |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
39 #include "ov-uint16.h" |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
40 #include "ov-uint32.h" |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
41 #include "ov-uint64.h" |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
42 #include "ov-range.h" |
5164 | 43 #include "ov-scalar.h" |
12757
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
44 #include "ov-str-mat.h" |
5164 | 45 #include "ops.h" |
12758
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
46 #include "ov-null-mat.h" |
5164 | 47 #include "ov-re-sparse.h" |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
48 #include "ov-bool-sparse.h" |
5164 | 49 #include "smx-bm-sbm.h" |
50 #include "smx-sbm-bm.h" | |
51 | |
52 // sparse bool matrix by bool matrix ops. | |
53 | |
54 DEFBINOP_FN (eq, sparse_bool_matrix, bool_matrix, mx_el_eq) | |
55 DEFBINOP_FN (ne, sparse_bool_matrix, bool_matrix, mx_el_ne) | |
56 | |
57 DEFBINOP_FN (el_and, sparse_bool_matrix, bool_matrix, mx_el_and) | |
58 DEFBINOP_FN (el_or, sparse_bool_matrix, bool_matrix, mx_el_or) | |
59 | |
60 DEFCATOP (sbm_bm, sparse_bool_matrix, bool_matrix) | |
61 { | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
62 CAST_BINOP_ARGS (octave_sparse_bool_matrix&, const octave_bool_matrix&); |
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
63 |
5164 | 64 SparseBoolMatrix tmp (v2.bool_matrix_value ()); |
65 return octave_value (v1.sparse_bool_matrix_value (). concat (tmp, ra_idx)); | |
66 } | |
67 | |
68 DEFCATOP (sbm_m, sparse_bool_matrix, matrix) | |
69 { | |
70 CAST_BINOP_ARGS (octave_sparse_bool_matrix&, const octave_matrix&); | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
71 |
5164 | 72 SparseMatrix tmp (v2.matrix_value ()); |
73 return octave_value (v1.sparse_matrix_value (). concat (tmp, ra_idx)); | |
74 } | |
75 | |
76 DEFCATOP (sm_bm, sparse_matrix, bool_matrix) | |
77 { | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
78 CAST_BINOP_ARGS (octave_sparse_matrix&, const octave_bool_matrix&); |
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
79 |
5164 | 80 SparseMatrix tmp (v2.matrix_value ()); |
81 return octave_value (v1.sparse_matrix_value (). concat (tmp, ra_idx)); | |
82 } | |
83 | |
84 DEFASSIGNOP (assign, sparse_bool_matrix, bool_matrix) | |
85 { | |
86 CAST_BINOP_ARGS (octave_sparse_bool_matrix&, const octave_bool_matrix&); | |
87 | |
88 v1.assign (idx, SparseBoolMatrix (v2.bool_matrix_value ())); | |
89 return octave_value (); | |
90 } | |
91 | |
12758
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
92 DEFNULLASSIGNOP_FN (null_assign, sparse_bool_matrix, delete_elements) |
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
93 |
12757
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
94 static octave_value |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
95 oct_assignop_conv_and_assign (octave_base_value& a1, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
96 const octave_value_list& idx, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
97 const octave_base_value& a2) |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
98 { |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
99 octave_sparse_bool_matrix& v1 = dynamic_cast<octave_sparse_bool_matrix&> (a1); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
100 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
101 // FIXME -- perhaps add a warning for this conversion if the values |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
102 // are not all 0 or 1? |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
103 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
104 SparseBoolMatrix v2 (a2.bool_array_value ()); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
105 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
106 if (! error_state) |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
107 v1.assign (idx, v2); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
108 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
109 return octave_value (); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
110 } |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
111 |
5164 | 112 void |
113 install_sbm_bm_ops (void) | |
114 { | |
115 INSTALL_BINOP (op_eq, octave_sparse_bool_matrix, octave_bool_matrix, eq); | |
116 INSTALL_BINOP (op_ne, octave_sparse_bool_matrix, octave_bool_matrix, ne); | |
117 | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
118 INSTALL_BINOP (op_el_and, octave_sparse_bool_matrix, octave_bool_matrix, |
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
119 el_and); |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
120 INSTALL_BINOP (op_el_or, octave_sparse_bool_matrix, octave_bool_matrix, |
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
121 el_or); |
5164 | 122 |
123 INSTALL_CATOP (octave_sparse_bool_matrix, octave_bool_matrix, sbm_bm); | |
124 INSTALL_CATOP (octave_sparse_matrix, octave_bool_matrix, sm_bm); | |
125 INSTALL_CATOP (octave_sparse_bool_matrix, octave_matrix, sbm_m); | |
126 | |
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
127 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, |
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
128 octave_bool_matrix, assign); |
12757
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
129 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
130 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
131 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
132 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
133 octave_char_matrix_str, conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
134 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
135 octave_char_matrix_sq_str, conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
136 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
137 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_range, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
138 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
139 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
140 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_sparse_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
141 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
142 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
143 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_int8_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
144 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
145 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_int16_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
146 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
147 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_int32_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
148 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
149 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_int64_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
150 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
151 |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
152 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_uint8_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
153 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
154 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_uint16_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
155 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
156 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_uint32_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
157 conv_and_assign); |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
158 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_uint64_matrix, |
824c60c8f7b9
preserve type when assigning values to sparse logical
John W. Eaton <jwe@octave.org>
parents:
11586
diff
changeset
|
159 conv_and_assign); |
12758
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
160 |
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
161 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_null_matrix, |
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
162 null_assign); |
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
163 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_null_str, |
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
164 null_assign); |
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
165 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_bool_matrix, octave_null_sq_str, |
ecd1364a2700
allow assignment of [], "", and '' to sparse logical matrix
John W. Eaton <jwe@octave.org>
parents:
12757
diff
changeset
|
166 null_assign); |
5164 | 167 } |