Mercurial > octave
diff src/OPERATORS/op-b-b.cc @ 3797:7f5eeace12b3
[project @ 2001-02-14 05:50:36 by jwe]
author | jwe |
---|---|
date | Wed, 14 Feb 2001 05:50:38 +0000 |
parents | 0ff7323dab8b |
children | 6065668133b1 |
line wrap: on
line diff
--- a/src/OPERATORS/op-b-b.cc Wed Feb 14 00:17:54 2001 +0000 +++ b/src/OPERATORS/op-b-b.cc Wed Feb 14 05:50:38 2001 +0000 @@ -49,6 +49,18 @@ DEFBINOP_OP (eq, bool, bool, ==) DEFBINOP_OP (ne, bool, bool, !=) +BINOPDECL (el_and, a1, a2) +{ + CAST_BINOP_ARGS (const octave_bool&, const octave_bool&); + return octave_value (v1.bool_value () && v2.bool_value ()); +} + +BINOPDECL (el_or, a1, a2) +{ + CAST_BINOP_ARGS (const octave_bool&, const octave_bool&); + return octave_value (v1.bool_value () || v2.bool_value ()); +} + void install_b_b_ops (void) { @@ -58,6 +70,8 @@ INSTALL_BINOP (op_eq, octave_bool, octave_bool, eq); 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); } /*