Mercurial > octave-nkf
annotate libinterp/operators/op-b-b.cc @ 20654:b65888ec820e draft default tip gccjit
dmalcom gcc jit import
author | Stefan Mahr <dac922@gmx.de> |
---|---|
date | Fri, 27 Feb 2015 16:59:36 +0100 |
parents | 4197fc428c7d |
children |
rev | line source |
---|---|
2928 | 1 /* |
2 | |
19731
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
18212
diff
changeset
|
3 Copyright (C) 1996-2015 John W. Eaton |
2928 | 4 |
5 This file is part of Octave. | |
6 | |
7 Octave is free software; you can redistribute it and/or modify it | |
8 under the terms of the GNU General Public License as published by the | |
7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
10 option) any later version. | |
2928 | 11 |
12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
15 for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
7016 | 18 along with Octave; see the file COPYING. If not, see |
19 <http://www.gnu.org/licenses/>. | |
2928 | 20 |
21 */ | |
22 | |
23 #ifdef HAVE_CONFIG_H | |
24 #include <config.h> | |
25 #endif | |
26 | |
27 #include "gripes.h" | |
4055 | 28 #include "oct-obj.h" |
2928 | 29 #include "ov.h" |
30 #include "ov-bool.h" | |
4964 | 31 #include "ov-bool-mat.h" |
4915 | 32 #include "ov-scalar.h" |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
33 #include "ov-float.h" |
4915 | 34 #include "ov-re-mat.h" |
2928 | 35 #include "ov-typeinfo.h" |
18212
cda4bd2fd0c0
fix null matrix assignment to indexed integer and logical values (bug #35921)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
36 #include "ov-null-mat.h" |
2928 | 37 #include "ops.h" |
38 #include "xdiv.h" | |
39 #include "xpow.h" | |
40 | |
3203 | 41 // bool unary ops. |
42 | |
43 // scalar unary ops. | |
44 | |
45 DEFUNOP_OP (not, bool, !) | |
4965 | 46 |
47 UNOPDECL (uplus, a) | |
48 { | |
49 CAST_UNOP_ARG (const octave_bool&); | |
50 return octave_value (v.double_value ()); | |
51 } | |
52 | |
53 UNOPDECL (uminus, a) | |
54 { | |
55 CAST_UNOP_ARG (const octave_bool&); | |
56 return octave_value (- v.double_value ()); | |
57 } | |
58 | |
3203 | 59 DEFUNOP_OP (transpose, bool, /* no-op */) |
60 DEFUNOP_OP (hermitian, bool, /* no-op */) | |
61 | |
2928 | 62 // bool by bool ops. |
63 | |
64 DEFBINOP_OP (eq, bool, bool, ==) | |
65 DEFBINOP_OP (ne, bool, bool, !=) | |
3798 | 66 DEFBINOP_OP (el_and, bool, bool, &&) |
67 DEFBINOP_OP (el_or, bool, bool, ||) | |
3797 | 68 |
4964 | 69 DEFNDCATOP_FN (b_b, bool, bool, bool_array, bool_array, concat) |
4915 | 70 DEFNDCATOP_FN (b_s, bool, scalar, array, array, concat) |
71 DEFNDCATOP_FN (s_b, scalar, bool, array, array, concat) | |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
72 DEFNDCATOP_FN (b_f, bool, float_scalar, float_array, float_array, concat) |
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
73 DEFNDCATOP_FN (f_b, float_scalar, bool, float_array, float_array, concat) |
4915 | 74 |
2928 | 75 void |
76 install_b_b_ops (void) | |
77 { | |
3538 | 78 INSTALL_UNOP (op_not, octave_bool, not); |
4965 | 79 INSTALL_UNOP (op_uplus, octave_bool, uplus); |
80 INSTALL_UNOP (op_uminus, octave_bool, uminus); | |
3538 | 81 INSTALL_UNOP (op_transpose, octave_bool, transpose); |
82 INSTALL_UNOP (op_hermitian, octave_bool, hermitian); | |
3203 | 83 |
3538 | 84 INSTALL_BINOP (op_eq, octave_bool, octave_bool, eq); |
85 INSTALL_BINOP (op_ne, octave_bool, octave_bool, ne); | |
3797 | 86 INSTALL_BINOP (op_el_and, octave_bool, octave_bool, el_and); |
87 INSTALL_BINOP (op_el_or, octave_bool, octave_bool, el_or); | |
4915 | 88 |
89 INSTALL_CATOP (octave_bool, octave_bool, b_b); | |
90 INSTALL_CATOP (octave_bool, octave_scalar, b_s); | |
91 INSTALL_CATOP (octave_scalar, octave_bool, s_b); | |
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
92 INSTALL_CATOP (octave_bool, octave_float_scalar, b_f); |
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7017
diff
changeset
|
93 INSTALL_CATOP (octave_float_scalar, octave_bool, f_b); |
4964 | 94 |
95 INSTALL_ASSIGNCONV (octave_bool, octave_bool, octave_bool_matrix); | |
18212
cda4bd2fd0c0
fix null matrix assignment to indexed integer and logical values (bug #35921)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
96 |
cda4bd2fd0c0
fix null matrix assignment to indexed integer and logical values (bug #35921)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
97 INSTALL_ASSIGNCONV (octave_bool, octave_null_matrix, octave_bool_matrix); |
cda4bd2fd0c0
fix null matrix assignment to indexed integer and logical values (bug #35921)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
98 INSTALL_ASSIGNCONV (octave_bool, octave_null_str, octave_bool_matrix); |
cda4bd2fd0c0
fix null matrix assignment to indexed integer and logical values (bug #35921)
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
99 INSTALL_ASSIGNCONV (octave_bool, octave_null_sq_str, octave_bool_matrix); |
2928 | 100 } |