/usr/include/paw/ntuple/qp_exe_op_bool.h is in libpawlib2-dev 1:2.14.04.dfsg.2-9.1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | /*
* qp_exe_op_bool.h --
*
* Original: 24-Jan-1995 14:29
*
* Author: Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
*
* $Id: qp_exe_op_bool.h,v 1.3 1996/04/23 18:38:31 maartenb Exp $
*
* $Log: qp_exe_op_bool.h,v $
* Revision 1.3 1996/04/23 18:38:31 maartenb
* - Add RCS keywords
*
*
*/
case FC_OR:
o1 = &stack[frame[framep]];
o2 = &stack[frame[framep-1]];
POP_FRAME(1);
*((bool *) o2) = *((bool *) o1) || *((bool *) o2);
break;
case FC_AND:
o1 = &stack[frame[framep]];
o2 = &stack[frame[framep-1]];
POP_FRAME(1);
*((bool *) o2) = *((bool *) o1) && *((bool *) o2);
break;
case FC_NOT:
o1 = &stack[frame[framep]];
*((bool *) o1) = ! *((bool *) o1);
break;
case FC_VAND:
{
int n, i, inc_o1;
bool v;
n = frame_size[framep];
o1 = &stack[frame[framep]];
inc_o1 = datatype_size[D_BOOL];
v = TRUE;
for ( i=0 ; i < n ; i++ ) {
v = v && *((bool *) o1);
o1 += inc_o1;
}
POP_FRAME(1);
NEW_FRAME(OP_DTYPE,1,r);
*((OP_TYPE *) r) = v;
}
case FC_VOR:
{
int n, i, inc_o1;
bool v;
n = frame_size[framep];
o1 = &stack[frame[framep]];
inc_o1 = datatype_size[D_BOOL];
v = FALSE;
for ( i=0 ; i < n ; i++ ) {
v = v || *((bool *) o1);
o1 += inc_o1;
}
POP_FRAME(1);
NEW_FRAME(OP_DTYPE,1,r);
*((OP_TYPE *) r) = v;
break;
}
|