include/ntuple/qp_eval_op_cmp.h

0001 /*
0002  *  qp_eval_op_cmp.h  --
0003  *  Evaluation of comparison operators
0004  *
0005  *  Original: 11-Jan-1995 15:11
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  *  $Id$
0010  *
0011  *  $Log$
0012  *  Revision 1.4  1996/04/23 18:38:22  maartenb
0013  *  - Add RCS keywords
0014  *
0015  *
0016  */
0017
0018     case FC_LT:
0019         r->u.bval = valv[0]->u.OP_FIELD < valv[1]->u.OP_FIELD;
0020         r->d = dim_new( D_BOOL );
0021         break;
0022
0023     case FC_LE:
0024         r->u.bval = valv[0]->u.OP_FIELD <= valv[1]->u.OP_FIELD;
0025         r->d = dim_new( D_BOOL );
0026         break;
0027
0028     case FC_LTLT:
0029         r->u.bval = valv[0]->u.OP_FIELD < valv[1]->u.OP_FIELD
0030             && valv[1]->u.OP_FIELD < valv[2]->u.OP_FIELD;
0031         r->d = dim_new( D_BOOL );
0032         break;
0033
0034     case FC_LTLE:
0035         r->u.bval = valv[0]->u.OP_FIELD < valv[1]->u.OP_FIELD
0036             && valv[1]->u.OP_FIELD <= valv[2]->u.OP_FIELD;
0037         r->d = dim_new( D_BOOL );
0038         break;
0039
0040     case FC_LELT:
0041         r->u.bval = valv[0]->u.OP_FIELD <= valv[1]->u.OP_FIELD
0042             && valv[1]->u.OP_FIELD < valv[2]->u.OP_FIELD;
0043         r->d = dim_new( D_BOOL );
0044         break;
0045
0046     case FC_LELE:
0047         r->u.bval = valv[0]->u.OP_FIELD <= valv[1]->u.OP_FIELD
0048             && valv[1]->u.OP_FIELD <= valv[2]->u.OP_FIELD;
0049         r->d = dim_new( D_BOOL );
0050         break;
0051
0052     case FC_GTGT:
0053         r->u.bval = valv[0]->u.OP_FIELD > valv[1]->u.OP_FIELD
0054             && valv[1]->u.OP_FIELD > valv[2]->u.OP_FIELD;
0055         r->d = dim_new( D_BOOL );
0056         break;
0057
0058     case FC_GTGE:
0059         r->u.bval = valv[0]->u.OP_FIELD > valv[1]->u.OP_FIELD
0060             && valv[1]->u.OP_FIELD >= valv[2]->u.OP_FIELD;
0061         r->d = dim_new( D_BOOL );
0062         break;
0063
0064     case FC_GEGT:
0065         r->u.bval = valv[0]->u.OP_FIELD >= valv[1]->u.OP_FIELD
0066             && valv[1]->u.OP_FIELD > valv[2]->u.OP_FIELD;
0067         r->d = dim_new( D_BOOL );
0068         break;
0069
0070     case FC_GEGE:
0071         r->u.bval = valv[0]->u.OP_FIELD >= valv[1]->u.OP_FIELD
0072             && valv[1]->u.OP_FIELD >= valv[2]->u.OP_FIELD;
0073         r->d = dim_new( D_BOOL );
0074         break;
0075
0076     case FC_GT:
0077         r->u.bval = valv[0]->u.OP_FIELD > valv[1]->u.OP_FIELD;
0078         r->d = dim_new( D_BOOL );
0079         break;
0080
0081     case FC_GE:
0082         r->u.bval = valv[0]->u.OP_FIELD >= valv[1]->u.OP_FIELD;
0083         r->d = dim_new( D_BOOL );
0084         break;
0085
0086
0087     case FC_EQ:
0088         r->u.bval = valv[0]->u.OP_FIELD == valv[1]->u.OP_FIELD;
0089         r->d = dim_new( D_BOOL );
0090         break;
0091
0092     case FC_NE:
0093         r->u.bval = valv[0]->u.OP_FIELD != valv[1]->u.OP_FIELD;
0094         r->d = dim_new( D_BOOL );
0095         break;
0096
0097     case FC_CT:
0098         r->u.bval = valv[0]->u.OP_FIELD == valv[1]->u.OP_FIELD;
0099         r->d = dim_new( D_BOOL );
0100         break;