include/ntuple/qp_eval_op_cmp_str.h

0001 /*
0002  *  qp_eval_op_cmp_str.h  --
0003  *
0004  *  Original: 28-Mar-1996 15:17
0005  *
0006  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0007  *
0008  *  $Id$
0009  *
0010  *  $Log$
0011  *  Revision 1.3  1996/04/23 18:38:22  maartenb
0012  *  - Add RCS keywords
0013  *
0014  *
0015  */
0016
0017     case FC_LT:
0018         if ( strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) < 0 ) {
0019             r->u.bval = TRUE;
0020         } else {
0021             r->u.bval = FALSE;
0022         }
0023         r->d = dim_new( D_BOOL );
0024         break;
0025
0026     case FC_LE:
0027         if ( strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) <= 0 ) {
0028             r->u.bval = TRUE;
0029         } else {
0030             r->u.bval = FALSE;
0031         }
0032         r->d = dim_new( D_BOOL );
0033         break;
0034
0035     case FC_LTLT:
0036         if (
0037             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) < 0
0038             &&
0039             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) < 0
0040         ) {
0041             r->u.bval = TRUE;
0042         } else {
0043             r->u.bval = FALSE;
0044         }
0045         r->d = dim_new( D_BOOL );
0046         break;
0047
0048     case FC_LTLE:
0049         if (
0050             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) < 0
0051             &&
0052             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) <= 0
0053         ) {
0054             r->u.bval = TRUE;
0055         } else {
0056             r->u.bval = FALSE;
0057         }
0058         r->d = dim_new( D_BOOL );
0059         break;
0060
0061     case FC_LELT:
0062         if (
0063             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) <= 0
0064             &&
0065             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) < 0
0066         ) {
0067             r->u.bval = TRUE;
0068         } else {
0069             r->u.bval = FALSE;
0070         }
0071         r->d = dim_new( D_BOOL );
0072         break;
0073
0074     case FC_LELE:
0075         if (
0076             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) <= 0
0077             &&
0078             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) <= 0
0079         ) {
0080             r->u.bval = TRUE;
0081         } else {
0082             r->u.bval = FALSE;
0083         }
0084         r->d = dim_new( D_BOOL );
0085         break;
0086
0087     case FC_GTGT:
0088         if (
0089             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) > 0
0090             &&
0091             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) > 0
0092         ) {
0093             r->u.bval = TRUE;
0094         } else {
0095             r->u.bval = FALSE;
0096         }
0097         r->d = dim_new( D_BOOL );
0098         break;
0099
0100     case FC_GTGE:
0101         if (
0102             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) > 0
0103             &&
0104             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) >= 0
0105         ) {
0106             r->u.bval = TRUE;
0107         } else {
0108             r->u.bval = FALSE;
0109         }
0110         r->d = dim_new( D_BOOL );
0111         break;
0112
0113     case FC_GEGT:
0114         if (
0115             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) >= 0
0116             &&
0117             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) > 0
0118         ) {
0119             r->u.bval = TRUE;
0120         } else {
0121             r->u.bval = FALSE;
0122         }
0123         r->d = dim_new( D_BOOL );
0124         break;
0125
0126     case FC_GEGE:
0127         if (
0128             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) >= 0
0129             &&
0130             strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) >= 0
0131         ) {
0132             r->u.bval = TRUE;
0133         } else {
0134             r->u.bval = FALSE;
0135         }
0136         r->d = dim_new( D_BOOL );
0137         break;
0138
0139
0140     case FC_GT:
0141         if ( strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) > 0 ) {
0142             r->u.bval = TRUE;
0143         } else {
0144             r->u.bval = FALSE;
0145         }
0146         r->d = dim_new( D_BOOL );
0147         break;
0148
0149     case FC_GE:
0150         if ( strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) >= 0 ) {
0151             r->u.bval = TRUE;
0152         } else {
0153             r->u.bval = FALSE;
0154         }
0155         r->d = dim_new( D_BOOL );
0156         break;
0157
0158
0159     case FC_EQ:
0160         if ( strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) == 0 ) {
0161             r->u.bval = TRUE;
0162         } else {
0163             r->u.bval = FALSE;
0164         }
0165         r->d = dim_new( D_BOOL );
0166         break;
0167
0168     case FC_NE:
0169         if ( strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) != 0 ) {
0170             r->u.bval = TRUE;
0171         } else {
0172             r->u.bval = FALSE;
0173         }
0174         r->d = dim_new( D_BOOL );
0175         break;
0176
0177     case FC_CT:
0178         if ( strncasecmp( valv[0]->u.OP_FIELD, valv[1]->u.OP_FIELD, QP_STR_MAX ) == 0 ) {
0179             r->u.bval = TRUE;
0180         } else {
0181             r->u.bval = FALSE;
0182         }
0183         r->d = dim_new( D_BOOL );
0184         break;