include/ntuple/qp_exec_global.h

0001 /********************************************************************/
0002 /********************************************************************/
0003 /*  Global variables for the routines of "qp_execute.c" and
0004  *  "qp_exec_event.c"
0005  *
0006  *  Initially, this two files were together, but the resulting file
0007  *  was too big to be optimized under Solaris
0008  *
0009  ********************************************************************/
0010 /********************************************************************/
0011
0012
0013
0014
0015
0016
0017
0018 Extern bool exe_verbose;        /* print frames and event numbers */
0019 Extern bool timing;         /* print execution times */
0020
0021
0022 Extern int  math_error;
0023
0024 /* cut call stack */
0025
0026 Extern Segment  cut_call_stack[ MAX_CUTS ];
0027 Extern int  cut_index_stack[ MAX_CUTS ];
0028 Extern UInt32   cut_opc_stack[ MAX_CUTS ];
0029 Extern int  cut_call_sp;
0030
0031
0032 /* cut cache */
0033
0034 Extern Segment  cut_segment[ MAX_CUTS ];
0035 Extern DataType cut_type[ MAX_CUTS ];
0036 Extern bool cut_has_shape[ MAX_CUTS ];
0037
0038 Extern CutGraf  *cut_data[ MAX_CUTS ];
0039
0040 Extern bool cut_valid[ MAX_CUTS ];
0041 Extern int  cut_size[ MAX_CUTS ];
0042 Extern int  cut_bsize[ MAX_CUTS ];
0043 Extern void *cut_value[ MAX_CUTS ];
0044
0045
0046 /* CWN index block */
0047
0048 typedef struct _ref_cwn_ {
0049     Int32       *p;     /* pointer to the data */
0050     Int32       *p_cs;      /* pointer to the comis common block */
0051                     /* when data is in the cache */
0052     Float32     *p_rwn;     /* pointer to the cache when RWN fields are */
0053                     /* loaded into the cache */
0054     unsigned int    step;       /* step size through buffer (in Int32's) */
0055     int     isize;      /* number of bytes in a string */
0056     bool        varDim;     /* indicates variable lenght array */
0057     int     var_base;   /* number of elements in non var dimensions */
0058     int     var_index;  /* index of the dimensioning var */
0059     String      name;       /* keep reference for reporting */
0060 } RefCWN;
0061
0062 Extern int  CWNCount;
0063 Extern RefCWN   *CWNBlock;
0064
0065
0066 /* Mask data structures */
0067
0068 Extern Mask *MaskList[MAX_MASKS];
0069 Extern int  nmasks;
0070
0071
0072 /* some statistics */
0073
0074 Extern long stat_opc;
0075 Extern long stat_event;
0076 Extern long stat_selected;
0077