Mercurial > octave-nkf
diff src/OPERATORS/op-b-b.cc @ 4915:c638c144d4da
[project @ 2004-07-23 19:01:22 by jwe]
| author | jwe |
|---|---|
| date | Fri, 23 Jul 2004 19:01:23 +0000 |
| parents | 5719210fff4c |
| children | 269c3d6c0569 |
line wrap: on
line diff
--- a/src/OPERATORS/op-b-b.cc Fri Jul 23 16:55:13 2004 +0000 +++ b/src/OPERATORS/op-b-b.cc Fri Jul 23 19:01:23 2004 +0000 @@ -32,6 +32,8 @@ #include "oct-obj.h" #include "ov.h" #include "ov-bool.h" +#include "ov-scalar.h" +#include "ov-re-mat.h" #include "ov-typeinfo.h" #include "ops.h" #include "xdiv.h" @@ -52,6 +54,10 @@ DEFBINOP_OP (el_and, bool, bool, &&) DEFBINOP_OP (el_or, bool, bool, ||) +DEFNDCATOP_FN (b_b, bool, bool, array, array, concat) +DEFNDCATOP_FN (b_s, bool, scalar, array, array, concat) +DEFNDCATOP_FN (s_b, scalar, bool, array, array, concat) + void install_b_b_ops (void) { @@ -63,6 +69,10 @@ INSTALL_BINOP (op_ne, octave_bool, octave_bool, ne); INSTALL_BINOP (op_el_and, octave_bool, octave_bool, el_and); INSTALL_BINOP (op_el_or, octave_bool, octave_bool, el_or); + + INSTALL_CATOP (octave_bool, octave_bool, b_b); + INSTALL_CATOP (octave_bool, octave_scalar, b_s); + INSTALL_CATOP (octave_scalar, octave_bool, s_b); } /*