include/ntuple/qp_eval_op_bool.h

0001 /*
0002  *  template_op_bool.c  --
0003  *  Evaluation of logical operators
0004  *
0005  *  Original: 25-Nov-1994 17:03
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.2  1996/04/23 18:38:21  maartenb
0013  *  - Add RCS keywords
0014  *
0015  *
0016  */
0017
0018     case FC_OR:
0019         r->u.bval = valv[0]->u.bval || valv[1]->u.bval;
0020         r->d = dim_new( D_BOOL );
0021         break;
0022     case FC_AND:
0023         r->u.bval = valv[0]->u.bval && valv[1]->u.bval;
0024         r->d = dim_new( D_BOOL );
0025         break;
0026     case FC_NOT:
0027         r->u.bval = ! valv[0]->u.bval;
0028         r->d = dim_new( D_BOOL );
0029         break;