File Coverage

lib/PDL/Ops-pp-xor.c
Criterion Covered Total %
statement 25 79 31.6
branch 18 444 4.0
condition n/a
subroutine n/a
pod n/a
total 43 523 8.2


line stmt bran cond sub pod time code
1              
2             #line 453 "lib/PDL/PP.pm"
3             /*
4             * THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Ops.pd! Do not modify!
5             */
6              
7             #define PDL_FREE_CODE(trans, destroy, comp_free_code, ntpriv_free_code) \
8             if (destroy) { \
9             comp_free_code \
10             } \
11             if ((trans)->dims_redone) { \
12             ntpriv_free_code \
13             }
14              
15             #include "EXTERN.h"
16             #include "perl.h"
17             #include "XSUB.h"
18             #include "pdl.h"
19             #include "pdlcore.h"
20             #define PDL PDL_Ops
21             extern Core* PDL; /* Structure hold core C functions */
22             #line 23 "lib/PDL/Ops-pp-xor.c"
23              
24             #include
25              
26             #define MOD(X,N) (((N) == 0) ? 0 : ( (X) - (PDL_ABS(N)) * ((long long)((X)/(PDL_ABS(N))) + ( ( ((N) * ((long long)((X)/(N)))) != (X) ) ? ( ( ((N)<0) ? 1 : 0 ) + ( (((X)<0) ? -1 : 0))) : 0 ))))
27             #define BU_MOD(X,N)(((N) == 0) ? 0 : ( (X)-(N)*((uint64_t)((X)/(N))) ))
28             #define SPACE(A,B) ( ((A)<(B)) ? -1 : ((A)!=(B)) )
29              
30             #line 83 "lib/PDL/Ops.pd"
31             #define PDL_BADVAL_WARN_X(datatype, ctype, ppsym, ...) \
32             bad_anyval.type = datatype; bad_anyval.value.ppsym = PDL->bvals.ppsym;
33             #define PDL_BADVAL_WARN(var) \
34             { \
35             PDL_Anyval bad_anyval = { PDL_INVALID, {0} }; \
36             if (!(var->has_badvalue && var->badvalue.type != var->datatype)) { \
37             if (var->has_badvalue) \
38             bad_anyval = var->badvalue; \
39             else { \
40             PDL_GENERICSWITCH(PDL_TYPELIST_ALL, var->datatype, PDL_BADVAL_WARN_X, ) \
41             } \
42             } \
43             if (bad_anyval.type < 0) \
44             barf("Error getting badvalue, type=%d", bad_anyval.type); \
45             complex double bad_c; \
46             ANYVAL_TO_CTYPE(bad_c, complex double, bad_anyval); \
47             if( bad_c == 0 || bad_c == 1 ) \
48             warn(#var " badvalue is set to 0 or 1. This will cause data loss when using badvalues for comparison operators."); \
49             }
50              
51             #line 1857 "lib/PDL/PP.pm"
52             pdl_error pdl_xor_readdata(pdl_trans *__privtrans) {
53             pdl_error PDL_err = {0, NULL, 0};
54             #line 55 "lib/PDL/Ops-pp-xor.c"
55 4 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in xor:" "broadcast.incs NULL");
56             /* broadcastloop declarations */
57             int __brcloopval;
58             register PDL_Indx __tind0,__tind1; /* counters along dim */
59 4           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
60             /* dims here are how many steps along those dims */
61 4           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
62 4           register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
63 4           register PDL_Indx __tinc0_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
64 4           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
65 4           register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
66 4           register PDL_Indx __tinc1_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
67             #define PDL_BROADCASTLOOP_START_xor_readdata PDL_BROADCASTLOOP_START( \
68             readdata, \
69             __privtrans->broadcast, \
70             __privtrans->vtable, \
71             a_datap += __offsp[0]; \
72             b_datap += __offsp[1]; \
73             c_datap += __offsp[2]; \
74             , \
75             ( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
76             ,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
77             ,c_datap += __tinc1_c - __tinc0_c * __tdims0 \
78             ), \
79             ( ,a_datap += __tinc0_a \
80             ,b_datap += __tinc0_b \
81             ,c_datap += __tinc0_c \
82             ) \
83             )
84             #define PDL_BROADCASTLOOP_END_xor_readdata PDL_BROADCASTLOOP_END( \
85             __privtrans->broadcast, \
86             a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
87             b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
88             c_datap -= __tinc1_c * __tdims1 + __offsp[2]; \
89             )
90             #ifndef PDL_DECLARE_PARAMS_xor_1
91             #define PDL_DECLARE_PARAMS_xor_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
92             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
93             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
94             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, c, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP)
95             #endif
96 4 50         if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
97             #define PDL_BAD_CODE
98             #define PDL_IF_BAD(t,f) t
99 0           switch (__privtrans->__datatype) { /* Start generic switch */
100 0           case PDL_SB: {
101 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
102             {
103             #line 141 "lib/PDL/Ops.pd"
104             PDL_IF_BAD(char anybad = 0;,)
105             PDL_BROADCASTLOOP_START_xor_readdata
106             #line 143 "lib/PDL/Ops.pd"
107             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,A,a_badval_isnan) )
108             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,A,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
109             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
110             PDL_BROADCASTLOOP_END_xor_readdata
111             #line 147 "lib/PDL/Ops.pd"
112             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
113             #line 114 "lib/PDL/Ops-pp-xor.c"
114             }
115 0           } break;
116 0           case PDL_B: {
117 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
118             {
119             #line 141 "lib/PDL/Ops.pd"
120             PDL_IF_BAD(char anybad = 0;,)
121             PDL_BROADCASTLOOP_START_xor_readdata
122             #line 143 "lib/PDL/Ops.pd"
123             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,B,a_badval_isnan) )
124             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,B,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
125             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
126             PDL_BROADCASTLOOP_END_xor_readdata
127             #line 147 "lib/PDL/Ops.pd"
128             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
129             #line 130 "lib/PDL/Ops-pp-xor.c"
130             }
131 0           } break;
132 0           case PDL_S: {
133 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
134             {
135             #line 141 "lib/PDL/Ops.pd"
136             PDL_IF_BAD(char anybad = 0;,)
137             PDL_BROADCASTLOOP_START_xor_readdata
138             #line 143 "lib/PDL/Ops.pd"
139             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,S,a_badval_isnan) )
140             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,S,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
141             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
142             PDL_BROADCASTLOOP_END_xor_readdata
143             #line 147 "lib/PDL/Ops.pd"
144             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
145             #line 146 "lib/PDL/Ops-pp-xor.c"
146             }
147 0           } break;
148 0           case PDL_US: {
149 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
150             {
151             #line 141 "lib/PDL/Ops.pd"
152             PDL_IF_BAD(char anybad = 0;,)
153             PDL_BROADCASTLOOP_START_xor_readdata
154             #line 143 "lib/PDL/Ops.pd"
155             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan) )
156             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,U,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
157             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
158             PDL_BROADCASTLOOP_END_xor_readdata
159             #line 147 "lib/PDL/Ops.pd"
160             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
161             #line 162 "lib/PDL/Ops-pp-xor.c"
162             }
163 0           } break;
164 0           case PDL_L: {
165 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
166             {
167             #line 141 "lib/PDL/Ops.pd"
168             PDL_IF_BAD(char anybad = 0;,)
169             PDL_BROADCASTLOOP_START_xor_readdata
170             #line 143 "lib/PDL/Ops.pd"
171             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan) )
172             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,L,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
173             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
174             PDL_BROADCASTLOOP_END_xor_readdata
175             #line 147 "lib/PDL/Ops.pd"
176             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
177             #line 178 "lib/PDL/Ops-pp-xor.c"
178             }
179 0           } break;
180 0           case PDL_UL: {
181 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
182             {
183             #line 141 "lib/PDL/Ops.pd"
184             PDL_IF_BAD(char anybad = 0;,)
185             PDL_BROADCASTLOOP_START_xor_readdata
186             #line 143 "lib/PDL/Ops.pd"
187             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan) )
188             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,K,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
189             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
190             PDL_BROADCASTLOOP_END_xor_readdata
191             #line 147 "lib/PDL/Ops.pd"
192             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
193             #line 194 "lib/PDL/Ops-pp-xor.c"
194             }
195 0           } break;
196 0           case PDL_IND: {
197 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
198             {
199             #line 141 "lib/PDL/Ops.pd"
200             PDL_IF_BAD(char anybad = 0;,)
201             PDL_BROADCASTLOOP_START_xor_readdata
202             #line 143 "lib/PDL/Ops.pd"
203             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan) )
204             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,N,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
205             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
206             PDL_BROADCASTLOOP_END_xor_readdata
207             #line 147 "lib/PDL/Ops.pd"
208             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
209             #line 210 "lib/PDL/Ops-pp-xor.c"
210             }
211 0           } break;
212 0           case PDL_ULL: {
213 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
214             {
215             #line 141 "lib/PDL/Ops.pd"
216             PDL_IF_BAD(char anybad = 0;,)
217             PDL_BROADCASTLOOP_START_xor_readdata
218             #line 143 "lib/PDL/Ops.pd"
219             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan) )
220             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,P,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
221             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
222             PDL_BROADCASTLOOP_END_xor_readdata
223             #line 147 "lib/PDL/Ops.pd"
224             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
225             #line 226 "lib/PDL/Ops-pp-xor.c"
226             }
227 0           } break;
228 0           case PDL_LL: {
229 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
230             {
231             #line 141 "lib/PDL/Ops.pd"
232             PDL_IF_BAD(char anybad = 0;,)
233             PDL_BROADCASTLOOP_START_xor_readdata
234             #line 143 "lib/PDL/Ops.pd"
235             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan) )
236             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,Q,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
237             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
238             PDL_BROADCASTLOOP_END_xor_readdata
239             #line 147 "lib/PDL/Ops.pd"
240             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
241             #line 242 "lib/PDL/Ops-pp-xor.c"
242             }
243 0           } break;
244 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in xor: unhandled datatype(%d), only handles (ABSULKNPQ)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
245             }
246             #undef PDL_BAD_CODE
247             #undef PDL_IF_BAD
248             } else { /* ** else do 'good' Code ** */
249             #define PDL_IF_BAD(t,f) f
250 4           switch (__privtrans->__datatype) { /* Start generic switch */
251 0           case PDL_SB: {
252 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
253             {
254             #line 141 "lib/PDL/Ops.pd"
255             PDL_IF_BAD(char anybad = 0;,)
256             PDL_BROADCASTLOOP_START_xor_readdata
257             #line 143 "lib/PDL/Ops.pd"
258             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,A,a_badval_isnan) )
259             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,A,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
260             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
261             PDL_BROADCASTLOOP_END_xor_readdata
262             #line 147 "lib/PDL/Ops.pd"
263             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
264             #line 265 "lib/PDL/Ops-pp-xor.c"
265             }
266 0           } break;
267 0           case PDL_B: {
268 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
269             {
270             #line 141 "lib/PDL/Ops.pd"
271             PDL_IF_BAD(char anybad = 0;,)
272             PDL_BROADCASTLOOP_START_xor_readdata
273             #line 143 "lib/PDL/Ops.pd"
274             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,B,a_badval_isnan) )
275             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,B,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
276             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
277             PDL_BROADCASTLOOP_END_xor_readdata
278             #line 147 "lib/PDL/Ops.pd"
279             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
280             #line 281 "lib/PDL/Ops-pp-xor.c"
281             }
282 0           } break;
283 0           case PDL_S: {
284 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
285             {
286             #line 141 "lib/PDL/Ops.pd"
287             PDL_IF_BAD(char anybad = 0;,)
288             PDL_BROADCASTLOOP_START_xor_readdata
289             #line 143 "lib/PDL/Ops.pd"
290             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,S,a_badval_isnan) )
291             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,S,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
292             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
293             PDL_BROADCASTLOOP_END_xor_readdata
294             #line 147 "lib/PDL/Ops.pd"
295             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
296             #line 297 "lib/PDL/Ops-pp-xor.c"
297             }
298 0           } break;
299 0           case PDL_US: {
300 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
301             {
302             #line 141 "lib/PDL/Ops.pd"
303             PDL_IF_BAD(char anybad = 0;,)
304             PDL_BROADCASTLOOP_START_xor_readdata
305             #line 143 "lib/PDL/Ops.pd"
306             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan) )
307             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,U,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
308             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
309             PDL_BROADCASTLOOP_END_xor_readdata
310             #line 147 "lib/PDL/Ops.pd"
311             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
312             #line 313 "lib/PDL/Ops-pp-xor.c"
313             }
314 0           } break;
315 0           case PDL_L: {
316 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
317             {
318             #line 141 "lib/PDL/Ops.pd"
319             PDL_IF_BAD(char anybad = 0;,)
320             PDL_BROADCASTLOOP_START_xor_readdata
321             #line 143 "lib/PDL/Ops.pd"
322             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan) )
323             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,L,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
324             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
325             PDL_BROADCASTLOOP_END_xor_readdata
326             #line 147 "lib/PDL/Ops.pd"
327             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
328             #line 329 "lib/PDL/Ops-pp-xor.c"
329             }
330 0           } break;
331 0           case PDL_UL: {
332 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
333             {
334             #line 141 "lib/PDL/Ops.pd"
335             PDL_IF_BAD(char anybad = 0;,)
336             PDL_BROADCASTLOOP_START_xor_readdata
337             #line 143 "lib/PDL/Ops.pd"
338             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan) )
339             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,K,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
340             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
341             PDL_BROADCASTLOOP_END_xor_readdata
342             #line 147 "lib/PDL/Ops.pd"
343             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
344             #line 345 "lib/PDL/Ops-pp-xor.c"
345             }
346 0           } break;
347 0           case PDL_IND: {
348 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
349             {
350             #line 141 "lib/PDL/Ops.pd"
351             PDL_IF_BAD(char anybad = 0;,)
352             PDL_BROADCASTLOOP_START_xor_readdata
353             #line 143 "lib/PDL/Ops.pd"
354             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan) )
355             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,N,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
356             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
357             PDL_BROADCASTLOOP_END_xor_readdata
358             #line 147 "lib/PDL/Ops.pd"
359             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
360             #line 361 "lib/PDL/Ops-pp-xor.c"
361             }
362 0           } break;
363 0           case PDL_ULL: {
364 0 0         PDL_DECLARE_PARAMS_xor_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
365             {
366             #line 141 "lib/PDL/Ops.pd"
367             PDL_IF_BAD(char anybad = 0;,)
368             PDL_BROADCASTLOOP_START_xor_readdata
369             #line 143 "lib/PDL/Ops.pd"
370             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan) )
371             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,P,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
372             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
373             PDL_BROADCASTLOOP_END_xor_readdata
374             #line 147 "lib/PDL/Ops.pd"
375             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
376             #line 377 "lib/PDL/Ops-pp-xor.c"
377             }
378 0           } break;
379 4           case PDL_LL: {
380 4 50         PDL_DECLARE_PARAMS_xor_1(PDL_LongLong,Q)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
381             {
382             #line 141 "lib/PDL/Ops.pd"
383             PDL_IF_BAD(char anybad = 0;,)
384             PDL_BROADCASTLOOP_START_xor_readdata
385             #line 143 "lib/PDL/Ops.pd"
386             PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan) )
387             || ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,Q,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
388             (c_datap)[0] = (a_datap)[0] ^ (b_datap)[0];
389             PDL_BROADCASTLOOP_END_xor_readdata
390             #line 147 "lib/PDL/Ops.pd"
391             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
392             #line 393 "lib/PDL/Ops-pp-xor.c"
393             }
394 4           } break;
395 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in xor: unhandled datatype(%d), only handles (ABSULKNPQ)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
396             }
397             #undef PDL_IF_BAD
398             }
399 4           return PDL_err;
400             }
401              
402             static pdl_datatypes pdl_xor_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, -1 };
403             static PDL_Indx pdl_xor_vtable_realdims[] = { 0, 0, 0 };
404             static char *pdl_xor_vtable_parnames[] = { "a","b","c" };
405             static short pdl_xor_vtable_parflags[] = {
406             0,
407             0,
408             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE
409             };
410             static pdl_datatypes pdl_xor_vtable_partypes[] = { -1, -1, -1 };
411             static PDL_Indx pdl_xor_vtable_realdims_starts[] = { 0, 0, 0 };
412             static PDL_Indx pdl_xor_vtable_realdims_ind_ids[] = { 0 };
413             static char *pdl_xor_vtable_indnames[] = { "" };
414             pdl_transvtable pdl_xor_vtable = {
415             PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADPROCESS, 0, pdl_xor_vtable_gentypes, 2, 3, NULL /*CORE21*/,
416             pdl_xor_vtable_realdims, pdl_xor_vtable_parnames,
417             pdl_xor_vtable_parflags, pdl_xor_vtable_partypes,
418             pdl_xor_vtable_realdims_starts, pdl_xor_vtable_realdims_ind_ids, 0,
419             0, pdl_xor_vtable_indnames,
420             NULL, pdl_xor_readdata, NULL,
421             NULL,
422             0,"PDL::Ops::xor"
423             };
424              
425              
426 4           pdl_error pdl_run_xor(pdl *a,pdl *b,pdl *c) {
427 4           pdl_error PDL_err = {0, NULL, 0};
428 4 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
429 4           pdl_trans *__privtrans = PDL->create_trans(&pdl_xor_vtable);
430 4 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
431 4           __privtrans->pdls[0] = a;
432 4           __privtrans->pdls[1] = b;
433 4           __privtrans->pdls[2] = c;
434 4 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
435 4 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
436 4           return PDL_err;
437             }