Mercurial > octave-nkf
view 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 source
/* Copyright (C) 1996, 1997 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #if defined (__GNUG__) #pragma implementation #endif #ifdef HAVE_CONFIG_H #include <config.h> #endif #include "gripes.h" #include "ov.h" #include "ov-bool.h" #include "ov-typeinfo.h" #include "ops.h" #include "xdiv.h" #include "xpow.h" // bool unary ops. // scalar unary ops. DEFUNOP_OP (not, bool, !) DEFUNOP_OP (transpose, bool, /* no-op */) DEFUNOP_OP (hermitian, bool, /* no-op */) // bool by bool ops. 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) { INSTALL_UNOP (op_not, octave_bool, not); INSTALL_UNOP (op_transpose, octave_bool, transpose); INSTALL_UNOP (op_hermitian, octave_bool, hermitian); 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); } /* ;;; Local Variables: *** ;;; mode: C++ *** ;;; End: *** */