include/ntuple/qp_exe_fun_bitop.h

0001 /*
0002  *  qp_exe_fun_bitop.h  --
0003  *  Implement the BITPAK bit handling routines
0004  *
0005  *  Original: 27-Jan-1995 15:09
0006  *
0007  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0008  *
0009  */
0010
0011
0012 {
0013     bool    has_vardim;
0014
0015     has_vardim = (((UInt32) opc) & FC_VECTOR_BIT) != 0 ? TRUE : FALSE ;
0016
0017     if ( has_vardim ) {
0018         switch ( fc ) {
0019         default:
0020             sf_report( "qp_exe_fun_bitop.h: Unkown Fcode ( %d )\n",
0021                 fc );
0022             *errp = R_INTERNAL_ERROR;
0023             running = FALSE;
0024             break;
0025         }
0026     } else {
0027         Int32       *r, *o1, *o2, *o3, *o4, *o5;
0028
0029         switch ( fc ) {
0030
0031 #define OP_TYPE     UInt32
0032 #define OP_DTYPE    D_UINT
0033 #define OP_BASE     ( 0 )
0034
0035 #include    "qp_exe_fun_bitop_templ.h"
0036
0037 #undef  OP_TYPE
0038 #undef  OP_DTYPE
0039 #undef  OP_BASE
0040
0041 #define OP_TYPE     UInt64
0042 #define OP_DTYPE    D_ULONG
0043 #define OP_BASE     ( 32 )
0044
0045 #include    "qp_exe_fun_bitop_templ.h"
0046
0047 #undef  OP_TYPE
0048 #undef  OP_DTYPE
0049 #undef  OP_BASE
0050         default:
0051             sf_report( "qp_exe_fun_bitop.h: Unkown Fcode ( %d )\n", fc );
0052             *errp = R_INTERNAL_ERROR;
0053             running = FALSE;
0054             break;
0055         }
0056     }
0057 }