Mercurial > octave-nkf
annotate libinterp/operators/op-bm-sbm.cc @ 20595:c1a6c31ac29a
eliminate more simple uses of error_state
* ov-classdef.cc: Eliminate simple uses of error_state.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Tue, 06 Oct 2015 00:20:02 -0400 |
| parents | 4197fc428c7d |
| children |
| rev | line source |
|---|---|
| 5164 | 1 /* |
| 2 | |
|
19731
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
3 Copyright (C) 2004-2015 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" | |
| 34 #include "ov-scalar.h" | |
| 35 #include "ops.h" | |
| 36 | |
| 37 #include "ov-re-sparse.h" | |
|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7289
diff
changeset
|
38 #include "ov-bool-sparse.h" |
| 5164 | 39 #include "smx-bm-sbm.h" |
| 40 #include "smx-sbm-bm.h" | |
| 41 | |
| 42 // bool matrix by sparse bool matrix ops. | |
| 43 | |
| 44 DEFBINOP_FN (eq, bool_matrix, sparse_bool_matrix, mx_el_eq) | |
| 45 DEFBINOP_FN (ne, bool_matrix, sparse_bool_matrix, mx_el_ne) | |
| 46 | |
| 47 DEFBINOP_FN (el_and, bool_matrix, sparse_bool_matrix, mx_el_and) | |
| 48 DEFBINOP_FN (el_or, bool_matrix, sparse_bool_matrix, mx_el_or) | |
| 49 | |
| 50 DEFCATOP (bm_sbm, bool_matrix, sparse_bool_matrix) | |
| 51 { | |
| 52 CAST_BINOP_ARGS (octave_bool_matrix&, const octave_sparse_bool_matrix&); | |
| 53 SparseBoolMatrix tmp (v1.bool_matrix_value ()); | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
54 return octave_value (tmp. concat (v2.sparse_bool_matrix_value (), |
|
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
55 ra_idx)); |
| 5164 | 56 } |
| 57 | |
| 58 DEFCATOP (m_sbm, matrix, sparse_bool_matrix) | |
| 59 { | |
| 60 CAST_BINOP_ARGS (octave_matrix&, const octave_sparse_bool_matrix&); | |
| 61 SparseMatrix tmp (v1.matrix_value ()); | |
| 62 return octave_value (tmp. concat (v2.sparse_matrix_value (), ra_idx)); | |
| 63 } | |
| 64 | |
| 65 DEFCATOP (bm_sm, bool_matrix, sparse_matrix) | |
| 66 { | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
67 CAST_BINOP_ARGS (octave_bool_matrix&, const octave_sparse_matrix&); |
| 5164 | 68 SparseMatrix tmp (v1.matrix_value ()); |
| 69 return octave_value (tmp. concat (v2.sparse_matrix_value (), ra_idx)); | |
| 70 } | |
| 71 | |
| 72 DEFCONV (sparse_bool_matrix_conv, bool_matrix, sparse_bool_matrix) | |
| 73 { | |
| 74 CAST_CONV_ARG (const octave_bool_matrix&); | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
75 return new octave_sparse_bool_matrix |
| 5164 | 76 (SparseBoolMatrix (v.bool_matrix_value ())); |
| 77 } | |
| 78 | |
| 7289 | 79 DEFNDASSIGNOP_FN (assign, bool_matrix, sparse_bool_matrix, bool_array, assign) |
| 80 | |
| 5164 | 81 void |
| 82 install_bm_sbm_ops (void) | |
| 83 { | |
| 84 INSTALL_BINOP (op_eq, octave_bool_matrix, octave_sparse_bool_matrix, eq); | |
| 85 INSTALL_BINOP (op_ne, octave_bool_matrix, octave_sparse_bool_matrix, ne); | |
| 86 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
87 INSTALL_BINOP (op_el_and, octave_bool_matrix, octave_sparse_bool_matrix, |
|
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
88 el_and); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
89 INSTALL_BINOP (op_el_or, octave_bool_matrix, octave_sparse_bool_matrix, |
|
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
90 el_or); |
| 5164 | 91 |
| 92 INSTALL_CATOP (octave_bool_matrix, octave_sparse_bool_matrix, bm_sbm); | |
| 93 INSTALL_CATOP (octave_bool_matrix, octave_sparse_matrix, bm_sm); | |
| 94 INSTALL_CATOP (octave_matrix, octave_sparse_bool_matrix, m_sbm); | |
| 95 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
96 INSTALL_ASSIGNOP (op_asn_eq, octave_bool_matrix, octave_sparse_bool_matrix, |
|
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
97 assign) |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
98 INSTALL_ASSIGNCONV (octave_bool_matrix, octave_sparse_bool_matrix, |
|
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
99 octave_bool_matrix); |
| 5164 | 100 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
101 INSTALL_WIDENOP (octave_bool_matrix, octave_sparse_bool_matrix, |
|
9931
fb6b6fcafa62
untabify files in src/OPERATORS directory
John W. Eaton <jwe@octave.org>
parents:
8920
diff
changeset
|
102 sparse_bool_matrix_conv); |
| 5164 | 103 } |