pike.git/
src/
array.h
Branch:
Tag:
Non-build tags
All tags
No tags
1999-10-03
1999-10-03 21:44:19 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
f4dbbbe6bdfa138cf1c2bdf0bcf9e45554effce0 (
5
lines) (+
4
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
operator fixes (I hope)
Rev: src/array.c:1.56
Rev: src/array.h:1.18
Rev: src/testsuite.in:1.199
5:
\*/ /*
-
* $Id: array.h,v 1.
17
1999/
04
/
12
02
:
24
:
11
hubbe Exp $
+
* $Id: array.h,v 1.
18
1999/
10
/
03
21
:
44
:
18
hubbe Exp $
*/ #ifndef ARRAY_H #define ARRAY_H
56:
#define PIKE_MINTERM(X,Y,Z) (((X)<<8)+((Y)<<4)+(Z)) #define PIKE_ARRAY_OP_AND PIKE_MINTERM(PIKE_ARRAY_OP_SKIP_A,PIKE_ARRAY_OP_SKIP_A | PIKE_ARRAY_OP_TAKE_B,PIKE_ARRAY_OP_SKIP_B)
+
#define PIKE_ARRAY_OP_AND_LEFT PIKE_MINTERM(PIKE_ARRAY_OP_SKIP_A,PIKE_ARRAY_OP_SKIP_B | PIKE_ARRAY_OP_TAKE_A,PIKE_ARRAY_OP_SKIP_B)
#define PIKE_ARRAY_OP_OR PIKE_MINTERM(PIKE_ARRAY_OP_TAKE_A,PIKE_ARRAY_OP_SKIP_A | PIKE_ARRAY_OP_TAKE_B,PIKE_ARRAY_OP_TAKE_B)
-
+
#define PIKE_ARRAY_OP_OR_LEFT PIKE_MINTERM(PIKE_ARRAY_OP_TAKE_A,PIKE_ARRAY_OP_SKIP_B | PIKE_ARRAY_OP_TAKE_A,PIKE_ARRAY_OP_TAKE_B)
#define PIKE_ARRAY_OP_XOR PIKE_MINTERM(PIKE_ARRAY_OP_TAKE_A,PIKE_ARRAY_OP_SKIP_A | PIKE_ARRAY_OP_SKIP_B,PIKE_ARRAY_OP_TAKE_B) #define PIKE_ARRAY_OP_ADD PIKE_MINTERM(PIKE_ARRAY_OP_TAKE_A,PIKE_ARRAY_OP_TAKE_A | PIKE_ARRAY_OP_TAKE_B ,PIKE_ARRAY_OP_TAKE_B) #define PIKE_ARRAY_OP_SUB PIKE_MINTERM(PIKE_ARRAY_OP_TAKE_A,PIKE_ARRAY_OP_SKIP_A ,PIKE_ARRAY_OP_SKIP_B)