File Coverage

lib/PDL/Ops-pp-modulo.c

Criterion	Covered	Total	%
statement	53	97	54.6
branch	127	588	21.6
condition			n/a
subroutine			n/a
pod			n/a
total	180	685	26.2

line	stmt	bran	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-modulo.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_modulo_readdata(pdl_trans *__privtrans) {
53			pdl_error PDL_err = {0, NULL, 0};
54			#line 55 "lib/PDL/Ops-pp-modulo.c"
55	115	50	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in modulo:" "broadcast.incs NULL");
56			/* broadcastloop declarations */
57			int __brcloopval;
58			register PDL_Indx __tind0,__tind1; /* counters along dim */
59	115		register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
60			/* dims here are how many steps along those dims */
61	115		register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
62	115		register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
63	115		register PDL_Indx __tinc0_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
64	115		register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
65	115		register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
66	115		register PDL_Indx __tinc1_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
67			#define PDL_BROADCASTLOOP_START_modulo_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_modulo_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_modulo_1
91			#define PDL_DECLARE_PARAMS_modulo_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	115	100	if ( __privtrans->bvalflag ) { /* do 'bad' Code */
97			#define PDL_BAD_CODE
98			#define PDL_IF_BAD(t,f) t
99	7		switch (__privtrans->__datatype) { /* Start generic switch */
100	0		case PDL_SB: {
101	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
102			{
103			#line 199 "lib/PDL/Ops.pd"
104			PDL_IF_BAD(char anybad = 0;,)
105			PDL_BROADCASTLOOP_START_modulo_readdata
106			#line 201 "lib/PDL/Ops.pd"
107			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,A,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,A,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
108			(c_datap)[0] = (PDL_SByte)MOD((a_datap)[0],(b_datap)[0]);
109
110			}
111			PDL_BROADCASTLOOP_END_modulo_readdata
112			#line 206 "lib/PDL/Ops.pd"
113			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
114			#line 115 "lib/PDL/Ops-pp-modulo.c"
115			}
116	0		} break;
117	0		case PDL_B: {
118	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
119			{
120			#line 199 "lib/PDL/Ops.pd"
121			PDL_IF_BAD(char anybad = 0;,)
122			PDL_BROADCASTLOOP_START_modulo_readdata
123			#line 201 "lib/PDL/Ops.pd"
124			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,B,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,B,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
125			(c_datap)[0] = (PDL_Byte)BU_MOD((a_datap)[0],(b_datap)[0]);
126
127			}
128			PDL_BROADCASTLOOP_END_modulo_readdata
129			#line 206 "lib/PDL/Ops.pd"
130			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
131			#line 132 "lib/PDL/Ops-pp-modulo.c"
132			}
133	0		} break;
134	0		case PDL_S: {
135	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
136			{
137			#line 199 "lib/PDL/Ops.pd"
138			PDL_IF_BAD(char anybad = 0;,)
139			PDL_BROADCASTLOOP_START_modulo_readdata
140			#line 201 "lib/PDL/Ops.pd"
141			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,S,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,S,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
142			(c_datap)[0] = (PDL_Short)MOD((a_datap)[0],(b_datap)[0]);
143
144			}
145			PDL_BROADCASTLOOP_END_modulo_readdata
146			#line 206 "lib/PDL/Ops.pd"
147			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
148			#line 149 "lib/PDL/Ops-pp-modulo.c"
149			}
150	0		} break;
151	0		case PDL_US: {
152	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
153			{
154			#line 199 "lib/PDL/Ops.pd"
155			PDL_IF_BAD(char anybad = 0;,)
156			PDL_BROADCASTLOOP_START_modulo_readdata
157			#line 201 "lib/PDL/Ops.pd"
158			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,U,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
159			(c_datap)[0] = (PDL_Ushort)BU_MOD((a_datap)[0],(b_datap)[0]);
160
161			}
162			PDL_BROADCASTLOOP_END_modulo_readdata
163			#line 206 "lib/PDL/Ops.pd"
164			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
165			#line 166 "lib/PDL/Ops-pp-modulo.c"
166			}
167	0		} break;
168	0		case PDL_L: {
169	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
170			{
171			#line 199 "lib/PDL/Ops.pd"
172			PDL_IF_BAD(char anybad = 0;,)
173			PDL_BROADCASTLOOP_START_modulo_readdata
174			#line 201 "lib/PDL/Ops.pd"
175			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,L,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
176			(c_datap)[0] = (PDL_Long)MOD((a_datap)[0],(b_datap)[0]);
177
178			}
179			PDL_BROADCASTLOOP_END_modulo_readdata
180			#line 206 "lib/PDL/Ops.pd"
181			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
182			#line 183 "lib/PDL/Ops-pp-modulo.c"
183			}
184	0		} break;
185	0		case PDL_UL: {
186	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
187			{
188			#line 199 "lib/PDL/Ops.pd"
189			PDL_IF_BAD(char anybad = 0;,)
190			PDL_BROADCASTLOOP_START_modulo_readdata
191			#line 201 "lib/PDL/Ops.pd"
192			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,K,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
193			(c_datap)[0] = (PDL_ULong)BU_MOD((a_datap)[0],(b_datap)[0]);
194
195			}
196			PDL_BROADCASTLOOP_END_modulo_readdata
197			#line 206 "lib/PDL/Ops.pd"
198			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
199			#line 200 "lib/PDL/Ops-pp-modulo.c"
200			}
201	0		} break;
202	7		case PDL_IND: {
203	7	50	PDL_DECLARE_PARAMS_modulo_1(PDL_Indx,N)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
204			{
205			#line 199 "lib/PDL/Ops.pd"
206			PDL_IF_BAD(char anybad = 0;,)
207			PDL_BROADCASTLOOP_START_modulo_readdata
208			#line 201 "lib/PDL/Ops.pd"
209			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,N,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
210			(c_datap)[0] = (PDL_Indx)MOD((a_datap)[0],(b_datap)[0]);
211
212			}
213			PDL_BROADCASTLOOP_END_modulo_readdata
214			#line 206 "lib/PDL/Ops.pd"
215			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
216			#line 217 "lib/PDL/Ops-pp-modulo.c"
217			}
218	7		} break;
219	0		case PDL_ULL: {
220	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
221			{
222			#line 199 "lib/PDL/Ops.pd"
223			PDL_IF_BAD(char anybad = 0;,)
224			PDL_BROADCASTLOOP_START_modulo_readdata
225			#line 201 "lib/PDL/Ops.pd"
226			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,P,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
227			(c_datap)[0] = (PDL_ULongLong)BU_MOD((a_datap)[0],(b_datap)[0]);
228
229			}
230			PDL_BROADCASTLOOP_END_modulo_readdata
231			#line 206 "lib/PDL/Ops.pd"
232			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
233			#line 234 "lib/PDL/Ops-pp-modulo.c"
234			}
235	0		} break;
236	0		case PDL_LL: {
237	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_LongLong,Q)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
238			{
239			#line 199 "lib/PDL/Ops.pd"
240			PDL_IF_BAD(char anybad = 0;,)
241			PDL_BROADCASTLOOP_START_modulo_readdata
242			#line 201 "lib/PDL/Ops.pd"
243			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,Q,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
244			(c_datap)[0] = (PDL_LongLong)MOD((a_datap)[0],(b_datap)[0]);
245
246			}
247			PDL_BROADCASTLOOP_END_modulo_readdata
248			#line 206 "lib/PDL/Ops.pd"
249			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
250			#line 251 "lib/PDL/Ops-pp-modulo.c"
251			}
252	0		} break;
253	0		case PDL_F: {
254	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
255			{
256			#line 199 "lib/PDL/Ops.pd"
257			PDL_IF_BAD(char anybad = 0;,)
258			PDL_BROADCASTLOOP_START_modulo_readdata
259			#line 201 "lib/PDL/Ops.pd"
260			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,F,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
261			(c_datap)[0] = (PDL_Float)MOD((a_datap)[0],(b_datap)[0]);
262
263			}
264			PDL_BROADCASTLOOP_END_modulo_readdata
265			#line 206 "lib/PDL/Ops.pd"
266			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
267			#line 268 "lib/PDL/Ops-pp-modulo.c"
268			}
269	0		} break;
270	0		case PDL_D: {
271	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_Double,D)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
272			{
273			#line 199 "lib/PDL/Ops.pd"
274			PDL_IF_BAD(char anybad = 0;,)
275			PDL_BROADCASTLOOP_START_modulo_readdata
276			#line 201 "lib/PDL/Ops.pd"
277			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,D,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
278			(c_datap)[0] = (PDL_Double)MOD((a_datap)[0],(b_datap)[0]);
279
280			}
281			PDL_BROADCASTLOOP_END_modulo_readdata
282			#line 206 "lib/PDL/Ops.pd"
283			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
284			#line 285 "lib/PDL/Ops-pp-modulo.c"
285			}
286	0		} break;
287	0		case PDL_LD: {
288	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
289			{
290			#line 199 "lib/PDL/Ops.pd"
291			PDL_IF_BAD(char anybad = 0;,)
292			PDL_BROADCASTLOOP_START_modulo_readdata
293			#line 201 "lib/PDL/Ops.pd"
294			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,E,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
295			(c_datap)[0] = (PDL_LDouble)MOD((a_datap)[0],(b_datap)[0]);
296
297			}
298			PDL_BROADCASTLOOP_END_modulo_readdata
299			#line 206 "lib/PDL/Ops.pd"
300			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
301			#line 302 "lib/PDL/Ops-pp-modulo.c"
302			}
303	0		} break;
304	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in modulo: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
305			}
306			#undef PDL_BAD_CODE
307			#undef PDL_IF_BAD
308			} else { /* else do 'good' Code */
309			#define PDL_IF_BAD(t,f) f
310	108		switch (__privtrans->__datatype) { /* Start generic switch */
311	0		case PDL_SB: {
312	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
313			{
314			#line 199 "lib/PDL/Ops.pd"
315			PDL_IF_BAD(char anybad = 0;,)
316			PDL_BROADCASTLOOP_START_modulo_readdata
317			#line 201 "lib/PDL/Ops.pd"
318			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,A,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,A,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
319			(c_datap)[0] = (PDL_SByte)MOD((a_datap)[0],(b_datap)[0]);
320
321			}
322			PDL_BROADCASTLOOP_END_modulo_readdata
323			#line 206 "lib/PDL/Ops.pd"
324			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
325			#line 326 "lib/PDL/Ops-pp-modulo.c"
326			}
327	0		} break;
328	6		case PDL_B: {
329	6	50	PDL_DECLARE_PARAMS_modulo_1(PDL_Byte,B)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
330			{
331			#line 199 "lib/PDL/Ops.pd"
332			PDL_IF_BAD(char anybad = 0;,)
333			PDL_BROADCASTLOOP_START_modulo_readdata
334			#line 201 "lib/PDL/Ops.pd"
335			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,B,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,B,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
336			(c_datap)[0] = (PDL_Byte)BU_MOD((a_datap)[0],(b_datap)[0]);
337
338			}
339			PDL_BROADCASTLOOP_END_modulo_readdata
340			#line 206 "lib/PDL/Ops.pd"
341			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
342			#line 343 "lib/PDL/Ops-pp-modulo.c"
343			}
344	6		} break;
345	2		case PDL_S: {
346	2	50	PDL_DECLARE_PARAMS_modulo_1(PDL_Short,S)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
347			{
348			#line 199 "lib/PDL/Ops.pd"
349			PDL_IF_BAD(char anybad = 0;,)
350			PDL_BROADCASTLOOP_START_modulo_readdata
351			#line 201 "lib/PDL/Ops.pd"
352			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,S,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,S,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
353			(c_datap)[0] = (PDL_Short)MOD((a_datap)[0],(b_datap)[0]);
354
355			}
356			PDL_BROADCASTLOOP_END_modulo_readdata
357			#line 206 "lib/PDL/Ops.pd"
358			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
359			#line 360 "lib/PDL/Ops-pp-modulo.c"
360			}
361	2		} break;
362	4		case PDL_US: {
363	4	50	PDL_DECLARE_PARAMS_modulo_1(PDL_Ushort,U)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
364			{
365			#line 199 "lib/PDL/Ops.pd"
366			PDL_IF_BAD(char anybad = 0;,)
367			PDL_BROADCASTLOOP_START_modulo_readdata
368			#line 201 "lib/PDL/Ops.pd"
369			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,U,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
370			(c_datap)[0] = (PDL_Ushort)BU_MOD((a_datap)[0],(b_datap)[0]);
371
372			}
373			PDL_BROADCASTLOOP_END_modulo_readdata
374			#line 206 "lib/PDL/Ops.pd"
375			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
376			#line 377 "lib/PDL/Ops-pp-modulo.c"
377			}
378	4		} break;
379	4		case PDL_L: {
380	4	50	PDL_DECLARE_PARAMS_modulo_1(PDL_Long,L)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
381			{
382			#line 199 "lib/PDL/Ops.pd"
383			PDL_IF_BAD(char anybad = 0;,)
384			PDL_BROADCASTLOOP_START_modulo_readdata
385			#line 201 "lib/PDL/Ops.pd"
386			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,L,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
387			(c_datap)[0] = (PDL_Long)MOD((a_datap)[0],(b_datap)[0]);
388
389			}
390			PDL_BROADCASTLOOP_END_modulo_readdata
391			#line 206 "lib/PDL/Ops.pd"
392			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
393			#line 394 "lib/PDL/Ops-pp-modulo.c"
394			}
395	4		} break;
396	0		case PDL_UL: {
397	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
398			{
399			#line 199 "lib/PDL/Ops.pd"
400			PDL_IF_BAD(char anybad = 0;,)
401			PDL_BROADCASTLOOP_START_modulo_readdata
402			#line 201 "lib/PDL/Ops.pd"
403			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,K,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
404			(c_datap)[0] = (PDL_ULong)BU_MOD((a_datap)[0],(b_datap)[0]);
405
406			}
407			PDL_BROADCASTLOOP_END_modulo_readdata
408			#line 206 "lib/PDL/Ops.pd"
409			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
410			#line 411 "lib/PDL/Ops-pp-modulo.c"
411			}
412	0		} break;
413	66		case PDL_IND: {
414	66	50	PDL_DECLARE_PARAMS_modulo_1(PDL_Indx,N)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
415			{
416			#line 199 "lib/PDL/Ops.pd"
417			PDL_IF_BAD(char anybad = 0;,)
418			PDL_BROADCASTLOOP_START_modulo_readdata
419			#line 201 "lib/PDL/Ops.pd"
420			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,N,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
421			(c_datap)[0] = (PDL_Indx)MOD((a_datap)[0],(b_datap)[0]);
422
423			}
424			PDL_BROADCASTLOOP_END_modulo_readdata
425			#line 206 "lib/PDL/Ops.pd"
426			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
427			#line 428 "lib/PDL/Ops-pp-modulo.c"
428			}
429	66		} break;
430	2		case PDL_ULL: {
431	2	50	PDL_DECLARE_PARAMS_modulo_1(PDL_ULongLong,P)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
432			{
433			#line 199 "lib/PDL/Ops.pd"
434			PDL_IF_BAD(char anybad = 0;,)
435			PDL_BROADCASTLOOP_START_modulo_readdata
436			#line 201 "lib/PDL/Ops.pd"
437			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,P,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
438			(c_datap)[0] = (PDL_ULongLong)BU_MOD((a_datap)[0],(b_datap)[0]);
439
440			}
441			PDL_BROADCASTLOOP_END_modulo_readdata
442			#line 206 "lib/PDL/Ops.pd"
443			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
444			#line 445 "lib/PDL/Ops-pp-modulo.c"
445			}
446	2		} break;
447	5		case PDL_LL: {
448	5	50	PDL_DECLARE_PARAMS_modulo_1(PDL_LongLong,Q)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
449			{
450			#line 199 "lib/PDL/Ops.pd"
451			PDL_IF_BAD(char anybad = 0;,)
452			PDL_BROADCASTLOOP_START_modulo_readdata
453			#line 201 "lib/PDL/Ops.pd"
454			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,Q,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
455			(c_datap)[0] = (PDL_LongLong)MOD((a_datap)[0],(b_datap)[0]);
456
457			}
458			PDL_BROADCASTLOOP_END_modulo_readdata
459			#line 206 "lib/PDL/Ops.pd"
460			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
461			#line 462 "lib/PDL/Ops-pp-modulo.c"
462			}
463	5		} break;
464	2		case PDL_F: {
465	2	50	PDL_DECLARE_PARAMS_modulo_1(PDL_Float,F)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
466			{
467			#line 199 "lib/PDL/Ops.pd"
468			PDL_IF_BAD(char anybad = 0;,)
469			PDL_BROADCASTLOOP_START_modulo_readdata
470			#line 201 "lib/PDL/Ops.pd"
471			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,F,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
472			(c_datap)[0] = (PDL_Float)MOD((a_datap)[0],(b_datap)[0]);
473
474			}
475			PDL_BROADCASTLOOP_END_modulo_readdata
476			#line 206 "lib/PDL/Ops.pd"
477			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
478			#line 479 "lib/PDL/Ops-pp-modulo.c"
479			}
480	2		} break;
481	17		case PDL_D: {
482	17	50	PDL_DECLARE_PARAMS_modulo_1(PDL_Double,D)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
483			{
484			#line 199 "lib/PDL/Ops.pd"
485			PDL_IF_BAD(char anybad = 0;,)
486			PDL_BROADCASTLOOP_START_modulo_readdata
487			#line 201 "lib/PDL/Ops.pd"
488			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,D,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
489			(c_datap)[0] = (PDL_Double)MOD((a_datap)[0],(b_datap)[0]);
490
491			}
492			PDL_BROADCASTLOOP_END_modulo_readdata
493			#line 206 "lib/PDL/Ops.pd"
494			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
495			#line 496 "lib/PDL/Ops-pp-modulo.c"
496			}
497	17		} break;
498	0		case PDL_LD: {
499	0	0	PDL_DECLARE_PARAMS_modulo_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
500			{
501			#line 199 "lib/PDL/Ops.pd"
502			PDL_IF_BAD(char anybad = 0;,)
503			PDL_BROADCASTLOOP_START_modulo_readdata
504			#line 201 "lib/PDL/Ops.pd"
505			PDL_IF_BAD(if ( PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) \|\| PDL_ISBAD2((b_datap)[0],b_badval,E,b_badval_isnan) ) { anybad = 1; (c_datap)[0]=c_badval; } else ,) {
506			(c_datap)[0] = (PDL_LDouble)MOD((a_datap)[0],(b_datap)[0]);
507
508			}
509			PDL_BROADCASTLOOP_END_modulo_readdata
510			#line 206 "lib/PDL/Ops.pd"
511			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
512			#line 513 "lib/PDL/Ops-pp-modulo.c"
513			}
514	0		} break;
515	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in modulo: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
516			}
517			#undef PDL_IF_BAD
518			}
519	115		return PDL_err;
520			}
521
522			static pdl_datatypes pdl_modulo_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
523			static PDL_Indx pdl_modulo_vtable_realdims[] = { 0, 0, 0 };
524			static char *pdl_modulo_vtable_parnames[] = { "a","b","c" };
525			static short pdl_modulo_vtable_parflags[] = {
526			0,
527			0,
528			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISWRITE
529			};
530			static pdl_datatypes pdl_modulo_vtable_partypes[] = { -1, -1, -1 };
531			static PDL_Indx pdl_modulo_vtable_realdims_starts[] = { 0, 0, 0 };
532			static PDL_Indx pdl_modulo_vtable_realdims_ind_ids[] = { 0 };
533			static char *pdl_modulo_vtable_indnames[] = { "" };
534			pdl_transvtable pdl_modulo_vtable = {
535			PDL_TRANS_DO_BROADCAST\|PDL_TRANS_BADPROCESS, 0, pdl_modulo_vtable_gentypes, 2, 3, NULL /CORE21/,
536			pdl_modulo_vtable_realdims, pdl_modulo_vtable_parnames,
537			pdl_modulo_vtable_parflags, pdl_modulo_vtable_partypes,
538			pdl_modulo_vtable_realdims_starts, pdl_modulo_vtable_realdims_ind_ids, 0,
539			0, pdl_modulo_vtable_indnames,
540			NULL, pdl_modulo_readdata, NULL,
541			NULL,
542			0,"PDL::Ops::modulo"
543			};
544
545
546	115		pdl_error pdl_run_modulo(pdl a,pdl b,pdl *c) {
547	115		pdl_error PDL_err = {0, NULL, 0};
548	115	50	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
549	115		pdl_trans *__privtrans = PDL->create_trans(&pdl_modulo_vtable);
550	115	50	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
551	115		__privtrans->pdls[0] = a;
552	115		__privtrans->pdls[1] = b;
553	115		__privtrans->pdls[2] = c;
554	115	50	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
555	115	50	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
556	115		return PDL_err;
557			}