File Coverage

lib/PDL/Primitive-pp-cmpvec.c
Criterion Covered Total %
statement 45 256 17.5
branch 71 1320 5.3
condition n/a
subroutine n/a
pod n/a
total 116 1576 7.3


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/Primitive.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_Primitive
21             extern Core* PDL; /* Structure hold core C functions */
22              
23             #line 1857 "lib/PDL/PP.pm"
24             pdl_error pdl_cmpvec_readdata(pdl_trans *__privtrans) {
25             pdl_error PDL_err = {0, NULL, 0};
26             #line 27 "lib/PDL/Primitive-pp-cmpvec.c"
27 8           register PDL_Indx __n_size = __privtrans->ind_sizes[0];
28 8 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in cmpvec:" "broadcast.incs NULL");
29             /* broadcastloop declarations */
30             int __brcloopval;
31             register PDL_Indx __tind0,__tind1; /* counters along dim */
32 8           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
33             /* dims here are how many steps along those dims */
34 8           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
35 8           register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
36 8           register PDL_Indx __tinc0_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
37 8           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
38 8           register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
39 8           register PDL_Indx __tinc1_c = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
40             #define PDL_BROADCASTLOOP_START_cmpvec_readdata PDL_BROADCASTLOOP_START( \
41             readdata, \
42             __privtrans->broadcast, \
43             __privtrans->vtable, \
44             a_datap += __offsp[0]; \
45             b_datap += __offsp[1]; \
46             c_datap += __offsp[2]; \
47             , \
48             ( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
49             ,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
50             ,c_datap += __tinc1_c - __tinc0_c * __tdims0 \
51             ), \
52             ( ,a_datap += __tinc0_a \
53             ,b_datap += __tinc0_b \
54             ,c_datap += __tinc0_c \
55             ) \
56             )
57             #define PDL_BROADCASTLOOP_END_cmpvec_readdata PDL_BROADCASTLOOP_END( \
58             __privtrans->broadcast, \
59             a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
60             b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
61             c_datap -= __tinc1_c * __tdims1 + __offsp[2]; \
62             )
63 8           register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
64 8           register PDL_Indx __inc_b_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_b_n;
65             #ifndef PDL_DECLARE_PARAMS_cmpvec_1
66             #define PDL_DECLARE_PARAMS_cmpvec_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_c,PDL_PPSYM_PARAM_c) \
67             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
68             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
69             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_PARAM_c, c, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_c)
70             #endif
71 8 100         if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
72             #define PDL_BAD_CODE
73             #define PDL_IF_BAD(t,f) t
74 2           switch (__privtrans->__datatype) { /* Start generic switch */
75 0           case PDL_SB: {
76 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_SByte,A,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
77             {
78 0           PDL_IF_BAD(char anybad = 0;,)
79 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
80 0           (c_datap)[0] = 0;
81 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,A,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,A,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
82 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
83             ;
84 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
85 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
86 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
87             }
88 0           } break;
89 0           case PDL_B: {
90 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Byte,B,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
91             {
92 0           PDL_IF_BAD(char anybad = 0;,)
93 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
94 0           (c_datap)[0] = 0;
95 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,B,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,B,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
96 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
97             ;
98 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
99 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
100 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
101             }
102 0           } break;
103 0           case PDL_S: {
104 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Short,S,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
105             {
106 0           PDL_IF_BAD(char anybad = 0;,)
107 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
108 0           (c_datap)[0] = 0;
109 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,S,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,S,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
110 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
111             ;
112 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
113 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
114 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
115             }
116 0           } break;
117 0           case PDL_US: {
118 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Ushort,U,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
119             {
120 0           PDL_IF_BAD(char anybad = 0;,)
121 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
122 0           (c_datap)[0] = 0;
123 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,U,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,U,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
124 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
125             ;
126 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
127 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
128 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
129             }
130 0           } break;
131 0           case PDL_L: {
132 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Long,L,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
133             {
134 0           PDL_IF_BAD(char anybad = 0;,)
135 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
136 0           (c_datap)[0] = 0;
137 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,L,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,L,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
138 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
139             ;
140 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
141 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
142 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
143             }
144 0           } break;
145 0           case PDL_UL: {
146 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_ULong,K,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
147             {
148 0           PDL_IF_BAD(char anybad = 0;,)
149 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
150 0           (c_datap)[0] = 0;
151 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,K,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,K,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
152 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
153             ;
154 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
155 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
156 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
157             }
158 0           } break;
159 0           case PDL_IND: {
160 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Indx,N,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
161             {
162 0           PDL_IF_BAD(char anybad = 0;,)
163 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
164 0           (c_datap)[0] = 0;
165 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,N,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,N,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
166 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
167             ;
168 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
169 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
170 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
171             }
172 0           } break;
173 0           case PDL_ULL: {
174 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_ULongLong,P,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
175             {
176 0           PDL_IF_BAD(char anybad = 0;,)
177 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
178 0           (c_datap)[0] = 0;
179 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,P,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,P,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
180 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
181             ;
182 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
183 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
184 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
185             }
186 0           } break;
187 0           case PDL_LL: {
188 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_LongLong,Q,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
189             {
190 0           PDL_IF_BAD(char anybad = 0;,)
191 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
192 0           (c_datap)[0] = 0;
193 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,Q,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,Q,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
194 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
195             ;
196 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
197 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
198 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
199             }
200 0           } break;
201 0           case PDL_F: {
202 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Float,F,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
203             {
204 0           PDL_IF_BAD(char anybad = 0;,)
205 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
206 0           (c_datap)[0] = 0;
207 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,F,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
    0          
    0          
208 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
209             ;
210 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
211 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
212 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
213             }
214 0           } break;
215 2           case PDL_D: {
216 2 50         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Double,D,PDL_SByte,A)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
217             {
218 2           PDL_IF_BAD(char anybad = 0;,)
219 8 50         PDL_BROADCASTLOOP_START_cmpvec_readdata
    50          
    50          
    50          
    50          
    100          
    100          
220 2           (c_datap)[0] = 0;
221 2 50         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,D,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    100          
    50          
    0          
    50          
    50          
222 1 50         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    50          
223             ;
224 2 100         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
225 2 50         PDL_BROADCASTLOOP_END_cmpvec_readdata
    50          
226 2 100         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
227             }
228 2           } break;
229 0           case PDL_LD: {
230 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_LDouble,E,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
231             {
232 0           PDL_IF_BAD(char anybad = 0;,)
233 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
234 0           (c_datap)[0] = 0;
235 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,E,b_badval_isnan)) { anybad = 1; break; } else,)
    0          
    0          
    0          
    0          
    0          
    0          
236 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
237             ;
238 0 0         PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
239 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
240 0 0         PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
241             }
242 0           } break;
243 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in cmpvec: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
244             }
245             #undef PDL_BAD_CODE
246             #undef PDL_IF_BAD
247             } else { /* ** else do 'good' Code ** */
248             #define PDL_IF_BAD(t,f) f
249 6           switch (__privtrans->__datatype) { /* Start generic switch */
250 0           case PDL_SB: {
251 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_SByte,A,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
252             {
253             PDL_IF_BAD(char anybad = 0;,)
254 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
255 0           (c_datap)[0] = 0;
256 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,A,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,A,b_badval_isnan)) { anybad = 1; break; } else,)
257 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
258             ;
259             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
260 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
261             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
262             }
263 0           } break;
264 0           case PDL_B: {
265 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Byte,B,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
266             {
267             PDL_IF_BAD(char anybad = 0;,)
268 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
269 0           (c_datap)[0] = 0;
270 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,B,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,B,b_badval_isnan)) { anybad = 1; break; } else,)
271 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
272             ;
273             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
274 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
275             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
276             }
277 0           } break;
278 0           case PDL_S: {
279 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Short,S,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
280             {
281             PDL_IF_BAD(char anybad = 0;,)
282 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
283 0           (c_datap)[0] = 0;
284 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,S,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,S,b_badval_isnan)) { anybad = 1; break; } else,)
285 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
286             ;
287             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
288 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
289             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
290             }
291 0           } break;
292 0           case PDL_US: {
293 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Ushort,U,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
294             {
295             PDL_IF_BAD(char anybad = 0;,)
296 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
297 0           (c_datap)[0] = 0;
298 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,U,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,U,b_badval_isnan)) { anybad = 1; break; } else,)
299 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
300             ;
301             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
302 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
303             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
304             }
305 0           } break;
306 0           case PDL_L: {
307 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Long,L,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
308             {
309             PDL_IF_BAD(char anybad = 0;,)
310 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
311 0           (c_datap)[0] = 0;
312 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,L,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,L,b_badval_isnan)) { anybad = 1; break; } else,)
313 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
314             ;
315             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
316 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
317             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
318             }
319 0           } break;
320 0           case PDL_UL: {
321 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_ULong,K,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
322             {
323             PDL_IF_BAD(char anybad = 0;,)
324 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
325 0           (c_datap)[0] = 0;
326 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,K,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,K,b_badval_isnan)) { anybad = 1; break; } else,)
327 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
328             ;
329             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
330 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
331             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
332             }
333 0           } break;
334 0           case PDL_IND: {
335 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Indx,N,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
336             {
337             PDL_IF_BAD(char anybad = 0;,)
338 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
339 0           (c_datap)[0] = 0;
340 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,N,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,N,b_badval_isnan)) { anybad = 1; break; } else,)
341 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
342             ;
343             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
344 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
345             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
346             }
347 0           } break;
348 0           case PDL_ULL: {
349 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_ULongLong,P,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
350             {
351             PDL_IF_BAD(char anybad = 0;,)
352 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
353 0           (c_datap)[0] = 0;
354 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,P,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,P,b_badval_isnan)) { anybad = 1; break; } else,)
355 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
356             ;
357             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
358 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
359             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
360             }
361 0           } break;
362 0           case PDL_LL: {
363 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_LongLong,Q,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
364             {
365             PDL_IF_BAD(char anybad = 0;,)
366 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
367 0           (c_datap)[0] = 0;
368 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,Q,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,Q,b_badval_isnan)) { anybad = 1; break; } else,)
369 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
370             ;
371             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
372 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
373             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
374             }
375 0           } break;
376 0           case PDL_F: {
377 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Float,F,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
378             {
379             PDL_IF_BAD(char anybad = 0;,)
380 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
381 0           (c_datap)[0] = 0;
382 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,F,b_badval_isnan)) { anybad = 1; break; } else,)
383 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
384             ;
385             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
386 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
387             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
388             }
389 0           } break;
390 6           case PDL_D: {
391 6 50         PDL_DECLARE_PARAMS_cmpvec_1(PDL_Double,D,PDL_SByte,A)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
392             {
393             PDL_IF_BAD(char anybad = 0;,)
394 24 50         PDL_BROADCASTLOOP_START_cmpvec_readdata
    50          
    50          
    50          
    50          
    100          
    100          
395 6           (c_datap)[0] = 0;
396 19 100         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,D,b_badval_isnan)) { anybad = 1; break; } else,)
397 17 100         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    100          
398             ;
399             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
400 6 50         PDL_BROADCASTLOOP_END_cmpvec_readdata
    50          
401             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
402             }
403 6           } break;
404 0           case PDL_LD: {
405 0 0         PDL_DECLARE_PARAMS_cmpvec_1(PDL_LDouble,E,PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
406             {
407             PDL_IF_BAD(char anybad = 0;,)
408 0 0         PDL_BROADCASTLOOP_START_cmpvec_readdata
    0          
    0          
    0          
    0          
    0          
    0          
409 0           (c_datap)[0] = 0;
410 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan) || PDL_ISBAD2((b_datap)[0+(__inc_b_n*(n))],b_badval,E,b_badval_isnan)) { anybad = 1; break; } else,)
411 0 0         if ((a_datap)[0+(__inc_a_n*(n))] != (b_datap)[0+(__inc_b_n*(n))]) { (c_datap)[0] = (a_datap)[0+(__inc_a_n*(n))] < (b_datap)[0+(__inc_b_n*(n))] ? -1 : 1; break; } }} /* Close n */
    0          
412             ;
413             PDL_IF_BAD(if (anybad) (c_datap)[0]=c_badval;,)
414 0 0         PDL_BROADCASTLOOP_END_cmpvec_readdata
    0          
415             PDL_IF_BAD(if (anybad) __privtrans->pdls[2]->state |= PDL_BADVAL;,)
416             }
417 0           } break;
418 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in cmpvec: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
419             }
420             #undef PDL_IF_BAD
421             }
422 8           return PDL_err;
423             }
424              
425             static pdl_datatypes pdl_cmpvec_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 };
426             static PDL_Indx pdl_cmpvec_vtable_realdims[] = { 1, 1, 0 };
427             static char *pdl_cmpvec_vtable_parnames[] = { "a","b","c" };
428             static short pdl_cmpvec_vtable_parflags[] = {
429             0,
430             0,
431             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
432             };
433             static pdl_datatypes pdl_cmpvec_vtable_partypes[] = { -1, -1, PDL_SB };
434             static PDL_Indx pdl_cmpvec_vtable_realdims_starts[] = { 0, 1, 2 };
435             static PDL_Indx pdl_cmpvec_vtable_realdims_ind_ids[] = { 0, 0 };
436             static char *pdl_cmpvec_vtable_indnames[] = { "n" };
437             pdl_transvtable pdl_cmpvec_vtable = {
438             PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADPROCESS, 0, pdl_cmpvec_vtable_gentypes, 2, 3, NULL /*CORE21*/,
439             pdl_cmpvec_vtable_realdims, pdl_cmpvec_vtable_parnames,
440             pdl_cmpvec_vtable_parflags, pdl_cmpvec_vtable_partypes,
441             pdl_cmpvec_vtable_realdims_starts, pdl_cmpvec_vtable_realdims_ind_ids, 2,
442             1, pdl_cmpvec_vtable_indnames,
443             NULL, pdl_cmpvec_readdata, NULL,
444             NULL,
445             0,"PDL::Primitive::cmpvec"
446             };
447              
448              
449 8           pdl_error pdl_run_cmpvec(pdl *a,pdl *b,pdl *c) {
450 8           pdl_error PDL_err = {0, NULL, 0};
451 8 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
452 8           pdl_trans *__privtrans = PDL->create_trans(&pdl_cmpvec_vtable);
453 8 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
454 8           __privtrans->pdls[0] = a;
455 8           __privtrans->pdls[1] = b;
456 8           __privtrans->pdls[2] = c;
457 8 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
458 8 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
459 8           return PDL_err;
460             }