File Coverage

lib/PDL/Ops-pp-minus.c

Criterion	Covered	Total	%
statement	56	115	48.7
branch	152	804	18.9
condition			n/a
subroutine			n/a
pod			n/a
total	208	919	22.6

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-minus.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_minus_readdata(pdl_trans *__privtrans) {
53			pdl_error PDL_err = {0, NULL, 0};
54			#line 55 "lib/PDL/Ops-pp-minus.c"
55	720	50	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in minus:" "broadcast.incs NULL");
56			/* broadcastloop declarations */
57			int __brcloopval;
58			register PDL_Indx __tind0,__tind1; /* counters along dim */
59	720		register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
60			/* dims here are how many steps along those dims */
61	720		register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
62	720		register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
63	720		register PDL_Indx __tinc0_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
64	720		register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
65	720		register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
66	720		register PDL_Indx __tinc1_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
67			#define PDL_BROADCASTLOOP_START_minus_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_minus_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_minus_1
91			#define PDL_DECLARE_PARAMS_minus_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	720	100	if ( __privtrans->bvalflag ) { /* do 'bad' Code */
97			#define PDL_BAD_CODE
98			#define PDL_IF_BAD(t,f) t
99	9		switch (__privtrans->__datatype) { /* Start generic switch */
100	0		case PDL_SB: {
101	0	0	PDL_DECLARE_PARAMS_minus_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_minus_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_minus_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-minus.c"
114			}
115	0		} break;
116	0		case PDL_B: {
117	0	0	PDL_DECLARE_PARAMS_minus_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_minus_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_minus_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-minus.c"
130			}
131	0		} break;
132	0		case PDL_S: {
133	0	0	PDL_DECLARE_PARAMS_minus_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_minus_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_minus_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-minus.c"
146			}
147	0		} break;
148	0		case PDL_US: {
149	0	0	PDL_DECLARE_PARAMS_minus_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_minus_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_minus_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-minus.c"
162			}
163	0		} break;
164	3		case PDL_L: {
165	3	50	PDL_DECLARE_PARAMS_minus_1(PDL_Long,L)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
166			{
167			#line 141 "lib/PDL/Ops.pd"
168			PDL_IF_BAD(char anybad = 0;,)
169			PDL_BROADCASTLOOP_START_minus_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_minus_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-minus.c"
178			}
179	3		} break;
180	0		case PDL_UL: {
181	0	0	PDL_DECLARE_PARAMS_minus_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_minus_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_minus_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-minus.c"
194			}
195	0		} break;
196	1		case PDL_IND: {
197	1	50	PDL_DECLARE_PARAMS_minus_1(PDL_Indx,N)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
198			{
199			#line 141 "lib/PDL/Ops.pd"
200			PDL_IF_BAD(char anybad = 0;,)
201			PDL_BROADCASTLOOP_START_minus_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_minus_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-minus.c"
210			}
211	1		} break;
212	0		case PDL_ULL: {
213	0	0	PDL_DECLARE_PARAMS_minus_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_minus_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_minus_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-minus.c"
226			}
227	0		} break;
228	0		case PDL_LL: {
229	0	0	PDL_DECLARE_PARAMS_minus_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_minus_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_minus_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-minus.c"
242			}
243	0		} break;
244	0		case PDL_F: {
245	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
246			{
247			#line 141 "lib/PDL/Ops.pd"
248			PDL_IF_BAD(char anybad = 0;,)
249			PDL_BROADCASTLOOP_START_minus_readdata
250			#line 143 "lib/PDL/Ops.pd"
251			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) )
252			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,F,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
253			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
254			PDL_BROADCASTLOOP_END_minus_readdata
255			#line 147 "lib/PDL/Ops.pd"
256			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
257			#line 258 "lib/PDL/Ops-pp-minus.c"
258			}
259	0		} break;
260	5		case PDL_D: {
261	5	100	PDL_DECLARE_PARAMS_minus_1(PDL_Double,D)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
262			{
263			#line 141 "lib/PDL/Ops.pd"
264			PDL_IF_BAD(char anybad = 0;,)
265			PDL_BROADCASTLOOP_START_minus_readdata
266			#line 143 "lib/PDL/Ops.pd"
267			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) )
268			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,D,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
269			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
270			PDL_BROADCASTLOOP_END_minus_readdata
271			#line 147 "lib/PDL/Ops.pd"
272			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
273			#line 274 "lib/PDL/Ops-pp-minus.c"
274			}
275	5		} break;
276	0		case PDL_LD: {
277	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
278			{
279			#line 141 "lib/PDL/Ops.pd"
280			PDL_IF_BAD(char anybad = 0;,)
281			PDL_BROADCASTLOOP_START_minus_readdata
282			#line 143 "lib/PDL/Ops.pd"
283			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) )
284			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,E,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
285			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
286			PDL_BROADCASTLOOP_END_minus_readdata
287			#line 147 "lib/PDL/Ops.pd"
288			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
289			#line 290 "lib/PDL/Ops-pp-minus.c"
290			}
291	0		} break;
292	0		case PDL_CF: {
293	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_CFloat,G)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
294			{
295			#line 141 "lib/PDL/Ops.pd"
296			PDL_IF_BAD(char anybad = 0;,)
297			PDL_BROADCASTLOOP_START_minus_readdata
298			#line 143 "lib/PDL/Ops.pd"
299			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,G,a_badval_isnan) )
300			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,G,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
301			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
302			PDL_BROADCASTLOOP_END_minus_readdata
303			#line 147 "lib/PDL/Ops.pd"
304			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
305			#line 306 "lib/PDL/Ops-pp-minus.c"
306			}
307	0		} break;
308	0		case PDL_CD: {
309	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_CDouble,C)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
310			{
311			#line 141 "lib/PDL/Ops.pd"
312			PDL_IF_BAD(char anybad = 0;,)
313			PDL_BROADCASTLOOP_START_minus_readdata
314			#line 143 "lib/PDL/Ops.pd"
315			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,C,a_badval_isnan) )
316			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,C,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
317			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
318			PDL_BROADCASTLOOP_END_minus_readdata
319			#line 147 "lib/PDL/Ops.pd"
320			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
321			#line 322 "lib/PDL/Ops-pp-minus.c"
322			}
323	0		} break;
324	0		case PDL_CLD: {
325	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_CLDouble,H)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
326			{
327			#line 141 "lib/PDL/Ops.pd"
328			PDL_IF_BAD(char anybad = 0;,)
329			PDL_BROADCASTLOOP_START_minus_readdata
330			#line 143 "lib/PDL/Ops.pd"
331			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,H,a_badval_isnan) )
332			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,H,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
333			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
334			PDL_BROADCASTLOOP_END_minus_readdata
335			#line 147 "lib/PDL/Ops.pd"
336			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
337			#line 338 "lib/PDL/Ops-pp-minus.c"
338			}
339	0		} break;
340	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in minus: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
341			}
342			#undef PDL_BAD_CODE
343			#undef PDL_IF_BAD
344			} else { /* else do 'good' Code */
345			#define PDL_IF_BAD(t,f) f
346	711		switch (__privtrans->__datatype) { /* Start generic switch */
347	0		case PDL_SB: {
348	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_SByte,A)
		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_minus_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,A,a_badval_isnan) )
355			\|\| ( (__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,)
356			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
357			PDL_BROADCASTLOOP_END_minus_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-minus.c"
361			}
362	0		} break;
363	4		case PDL_B: {
364	4	50	PDL_DECLARE_PARAMS_minus_1(PDL_Byte,B)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
365			{
366			#line 141 "lib/PDL/Ops.pd"
367			PDL_IF_BAD(char anybad = 0;,)
368			PDL_BROADCASTLOOP_START_minus_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,B,a_badval_isnan) )
371			\|\| ( (__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,)
372			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
373			PDL_BROADCASTLOOP_END_minus_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-minus.c"
377			}
378	4		} break;
379	4		case PDL_S: {
380	4	50	PDL_DECLARE_PARAMS_minus_1(PDL_Short,S)
		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_minus_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,S,a_badval_isnan) )
387			\|\| ( (__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,)
388			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
389			PDL_BROADCASTLOOP_END_minus_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-minus.c"
393			}
394	4		} break;
395	0		case PDL_US: {
396	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
397			{
398			#line 141 "lib/PDL/Ops.pd"
399			PDL_IF_BAD(char anybad = 0;,)
400			PDL_BROADCASTLOOP_START_minus_readdata
401			#line 143 "lib/PDL/Ops.pd"
402			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan) )
403			\|\| ( (__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,)
404			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
405			PDL_BROADCASTLOOP_END_minus_readdata
406			#line 147 "lib/PDL/Ops.pd"
407			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
408			#line 409 "lib/PDL/Ops-pp-minus.c"
409			}
410	0		} break;
411	59		case PDL_L: {
412	59	100	PDL_DECLARE_PARAMS_minus_1(PDL_Long,L)
		50
		50
		50
		100
		50
		50
		50
		50
		50
		50
		50
413			{
414			#line 141 "lib/PDL/Ops.pd"
415			PDL_IF_BAD(char anybad = 0;,)
416			PDL_BROADCASTLOOP_START_minus_readdata
417			#line 143 "lib/PDL/Ops.pd"
418			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan) )
419			\|\| ( (__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,)
420			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
421			PDL_BROADCASTLOOP_END_minus_readdata
422			#line 147 "lib/PDL/Ops.pd"
423			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
424			#line 425 "lib/PDL/Ops-pp-minus.c"
425			}
426	59		} break;
427	0		case PDL_UL: {
428	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
429			{
430			#line 141 "lib/PDL/Ops.pd"
431			PDL_IF_BAD(char anybad = 0;,)
432			PDL_BROADCASTLOOP_START_minus_readdata
433			#line 143 "lib/PDL/Ops.pd"
434			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan) )
435			\|\| ( (__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,)
436			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
437			PDL_BROADCASTLOOP_END_minus_readdata
438			#line 147 "lib/PDL/Ops.pd"
439			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
440			#line 441 "lib/PDL/Ops-pp-minus.c"
441			}
442	0		} break;
443	91		case PDL_IND: {
444	91	50	PDL_DECLARE_PARAMS_minus_1(PDL_Indx,N)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
445			{
446			#line 141 "lib/PDL/Ops.pd"
447			PDL_IF_BAD(char anybad = 0;,)
448			PDL_BROADCASTLOOP_START_minus_readdata
449			#line 143 "lib/PDL/Ops.pd"
450			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan) )
451			\|\| ( (__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,)
452			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
453			PDL_BROADCASTLOOP_END_minus_readdata
454			#line 147 "lib/PDL/Ops.pd"
455			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
456			#line 457 "lib/PDL/Ops-pp-minus.c"
457			}
458	91		} break;
459	0		case PDL_ULL: {
460	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
461			{
462			#line 141 "lib/PDL/Ops.pd"
463			PDL_IF_BAD(char anybad = 0;,)
464			PDL_BROADCASTLOOP_START_minus_readdata
465			#line 143 "lib/PDL/Ops.pd"
466			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan) )
467			\|\| ( (__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,)
468			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
469			PDL_BROADCASTLOOP_END_minus_readdata
470			#line 147 "lib/PDL/Ops.pd"
471			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
472			#line 473 "lib/PDL/Ops-pp-minus.c"
473			}
474	0		} break;
475	18		case PDL_LL: {
476	18	100	PDL_DECLARE_PARAMS_minus_1(PDL_LongLong,Q)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
477			{
478			#line 141 "lib/PDL/Ops.pd"
479			PDL_IF_BAD(char anybad = 0;,)
480			PDL_BROADCASTLOOP_START_minus_readdata
481			#line 143 "lib/PDL/Ops.pd"
482			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan) )
483			\|\| ( (__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,)
484			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
485			PDL_BROADCASTLOOP_END_minus_readdata
486			#line 147 "lib/PDL/Ops.pd"
487			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
488			#line 489 "lib/PDL/Ops-pp-minus.c"
489			}
490	18		} break;
491	12		case PDL_F: {
492	12	100	PDL_DECLARE_PARAMS_minus_1(PDL_Float,F)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
493			{
494			#line 141 "lib/PDL/Ops.pd"
495			PDL_IF_BAD(char anybad = 0;,)
496			PDL_BROADCASTLOOP_START_minus_readdata
497			#line 143 "lib/PDL/Ops.pd"
498			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) )
499			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,F,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
500			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
501			PDL_BROADCASTLOOP_END_minus_readdata
502			#line 147 "lib/PDL/Ops.pd"
503			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
504			#line 505 "lib/PDL/Ops-pp-minus.c"
505			}
506	11		} break;
507	501		case PDL_D: {
508	501	100	PDL_DECLARE_PARAMS_minus_1(PDL_Double,D)
		50
		50
		50
		100
		50
		50
		50
		50
		50
		50
		50
509			{
510			#line 141 "lib/PDL/Ops.pd"
511			PDL_IF_BAD(char anybad = 0;,)
512			PDL_BROADCASTLOOP_START_minus_readdata
513			#line 143 "lib/PDL/Ops.pd"
514			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) )
515			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,D,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
516			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
517			PDL_BROADCASTLOOP_END_minus_readdata
518			#line 147 "lib/PDL/Ops.pd"
519			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
520			#line 521 "lib/PDL/Ops-pp-minus.c"
521			}
522	501		} break;
523	0		case PDL_LD: {
524	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
525			{
526			#line 141 "lib/PDL/Ops.pd"
527			PDL_IF_BAD(char anybad = 0;,)
528			PDL_BROADCASTLOOP_START_minus_readdata
529			#line 143 "lib/PDL/Ops.pd"
530			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) )
531			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,E,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
532			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
533			PDL_BROADCASTLOOP_END_minus_readdata
534			#line 147 "lib/PDL/Ops.pd"
535			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
536			#line 537 "lib/PDL/Ops-pp-minus.c"
537			}
538	0		} break;
539	0		case PDL_CF: {
540	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_CFloat,G)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
541			{
542			#line 141 "lib/PDL/Ops.pd"
543			PDL_IF_BAD(char anybad = 0;,)
544			PDL_BROADCASTLOOP_START_minus_readdata
545			#line 143 "lib/PDL/Ops.pd"
546			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,G,a_badval_isnan) )
547			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,G,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
548			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
549			PDL_BROADCASTLOOP_END_minus_readdata
550			#line 147 "lib/PDL/Ops.pd"
551			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
552			#line 553 "lib/PDL/Ops-pp-minus.c"
553			}
554	0		} break;
555	22		case PDL_CD: {
556	22	50	PDL_DECLARE_PARAMS_minus_1(PDL_CDouble,C)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
557			{
558			#line 141 "lib/PDL/Ops.pd"
559			PDL_IF_BAD(char anybad = 0;,)
560			PDL_BROADCASTLOOP_START_minus_readdata
561			#line 143 "lib/PDL/Ops.pd"
562			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,C,a_badval_isnan) )
563			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,C,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
564			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
565			PDL_BROADCASTLOOP_END_minus_readdata
566			#line 147 "lib/PDL/Ops.pd"
567			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
568			#line 569 "lib/PDL/Ops-pp-minus.c"
569			}
570	22		} break;
571	0		case PDL_CLD: {
572	0	0	PDL_DECLARE_PARAMS_minus_1(PDL_CLDouble,H)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
573			{
574			#line 141 "lib/PDL/Ops.pd"
575			PDL_IF_BAD(char anybad = 0;,)
576			PDL_BROADCASTLOOP_START_minus_readdata
577			#line 143 "lib/PDL/Ops.pd"
578			PDL_IF_BAD(if ( ( (__privtrans->pdls[0]->state & PDL_BADVAL) && PDL_ISBAD2((a_datap)[0],a_badval,H,a_badval_isnan) )
579			\|\| ( (__privtrans->pdls[1]->state & PDL_BADVAL) && PDL_ISBAD2((b_datap)[0],b_badval,H,b_badval_isnan) )) { (c_datap)[0]=c_badval; anybad = 1; } else,)
580			(c_datap)[0] = (a_datap)[0] - (b_datap)[0];
581			PDL_BROADCASTLOOP_END_minus_readdata
582			#line 147 "lib/PDL/Ops.pd"
583			PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state \|= PDL_BADVAL;,)
584			#line 585 "lib/PDL/Ops-pp-minus.c"
585			}
586	0		} break;
587	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in minus: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
588			}
589			#undef PDL_IF_BAD
590			}
591	719		return PDL_err;
592			}
593
594			static pdl_datatypes pdl_minus_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, PDL_CF, PDL_CD, PDL_CLD, -1 };
595			static PDL_Indx pdl_minus_vtable_realdims[] = { 0, 0, 0 };
596			static char *pdl_minus_vtable_parnames[] = { "a","b","c" };
597			static short pdl_minus_vtable_parflags[] = {
598			0,
599			0,
600			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISWRITE
601			};
602			static pdl_datatypes pdl_minus_vtable_partypes[] = { -1, -1, -1 };
603			static PDL_Indx pdl_minus_vtable_realdims_starts[] = { 0, 0, 0 };
604			static PDL_Indx pdl_minus_vtable_realdims_ind_ids[] = { 0 };
605			static char *pdl_minus_vtable_indnames[] = { "" };
606			pdl_transvtable pdl_minus_vtable = {
607			PDL_TRANS_DO_BROADCAST\|PDL_TRANS_BADPROCESS, 0, pdl_minus_vtable_gentypes, 2, 3, NULL /CORE21/,
608			pdl_minus_vtable_realdims, pdl_minus_vtable_parnames,
609			pdl_minus_vtable_parflags, pdl_minus_vtable_partypes,
610			pdl_minus_vtable_realdims_starts, pdl_minus_vtable_realdims_ind_ids, 0,
611			0, pdl_minus_vtable_indnames,
612			NULL, pdl_minus_readdata, NULL,
613			NULL,
614			0,"PDL::Ops::minus"
615			};
616
617
618	718		pdl_error pdl_run_minus(pdl a,pdl b,pdl *c) {
619	718		pdl_error PDL_err = {0, NULL, 0};
620	718	50	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
621	718		pdl_trans *__privtrans = PDL->create_trans(&pdl_minus_vtable);
622	718	50	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
623	718		__privtrans->pdls[0] = a;
624	718		__privtrans->pdls[1] = b;
625	718		__privtrans->pdls[2] = c;
626	718	50	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
627	718	50	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
628	718		return PDL_err;
629			}