File Coverage

lib/PDL/Bad-pp-isbad.c
Criterion Covered Total %
statement 79 142 55.6
branch 328 1116 29.3
condition n/a
subroutine n/a
pod n/a
total 407 1258 32.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/Bad.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_Bad
21             extern Core* PDL; /* Structure hold core C functions */
22             #line 23 "lib/PDL/Bad-pp-isbad.c"
23              
24             #include
25              
26             #line 1857 "lib/PDL/PP.pm"
27             pdl_error pdl_isbad_readdata(pdl_trans *__privtrans) {
28             pdl_error PDL_err = {0, NULL, 0};
29             #line 30 "lib/PDL/Bad-pp-isbad.c"
30 704 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in isbad:" "broadcast.incs NULL");
31             /* broadcastloop declarations */
32             int __brcloopval;
33             register PDL_Indx __tind0,__tind1; /* counters along dim */
34 704           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
35             /* dims here are how many steps along those dims */
36 704           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
37 704           register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
38 704           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
39 704           register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
40             #define PDL_BROADCASTLOOP_START_isbad_readdata PDL_BROADCASTLOOP_START( \
41             readdata, \
42             __privtrans->broadcast, \
43             __privtrans->vtable, \
44             a_datap += __offsp[0]; \
45             b_datap += __offsp[1]; \
46             , \
47             ( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
48             ,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
49             ), \
50             ( ,a_datap += __tinc0_a \
51             ,b_datap += __tinc0_b \
52             ) \
53             )
54             #define PDL_BROADCASTLOOP_END_isbad_readdata PDL_BROADCASTLOOP_END( \
55             __privtrans->broadcast, \
56             a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
57             b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
58             )
59             #ifndef PDL_DECLARE_PARAMS_isbad_1
60             #define PDL_DECLARE_PARAMS_isbad_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_b,PDL_PPSYM_PARAM_b) \
61             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
62             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_PARAM_b, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_b)
63             #endif
64 704 50         if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
65             #define PDL_BAD_CODE
66             #define PDL_IF_BAD(t,f) t
67 704           switch (__privtrans->__datatype) { /* Start generic switch */
68 593           case PDL_SB: {
69 593 50         PDL_DECLARE_PARAMS_isbad_1(PDL_SByte,A,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
70 2372 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,A,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
71 593           } break;
72 3           case PDL_B: {
73 3 50         PDL_DECLARE_PARAMS_isbad_1(PDL_Byte,B,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
74 20 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,B,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
75 3           } break;
76 4           case PDL_S: {
77 4 100         PDL_DECLARE_PARAMS_isbad_1(PDL_Short,S,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
78 34 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,S,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
79 4           } break;
80 1           case PDL_US: {
81 1 50         PDL_DECLARE_PARAMS_isbad_1(PDL_Ushort,U,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
82 4 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
83 1           } break;
84 15           case PDL_L: {
85 15 50         PDL_DECLARE_PARAMS_isbad_1(PDL_Long,L,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
86 60 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
87 15           } break;
88 1           case PDL_UL: {
89 1 50         PDL_DECLARE_PARAMS_isbad_1(PDL_ULong,K,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
90 4 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
91 1           } break;
92 14           case PDL_IND: {
93 14 50         PDL_DECLARE_PARAMS_isbad_1(PDL_Indx,N,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
94 56 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
95 14           } break;
96 1           case PDL_ULL: {
97 1 50         PDL_DECLARE_PARAMS_isbad_1(PDL_ULongLong,P,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
98 4 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
99 1           } break;
100 5           case PDL_LL: {
101 5 50         PDL_DECLARE_PARAMS_isbad_1(PDL_LongLong,Q,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
102 20 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
103 5           } break;
104 2           case PDL_F: {
105 2 50         PDL_DECLARE_PARAMS_isbad_1(PDL_Float,F,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
106 9 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
107 2           } break;
108 55           case PDL_D: {
109 55 100         PDL_DECLARE_PARAMS_isbad_1(PDL_Double,D,PDL_Long,L)
    50          
    50          
    100          
    50          
    50          
    50          
    50          
110 411 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    100          
111 55           } break;
112 2           case PDL_LD: {
113 2 50         PDL_DECLARE_PARAMS_isbad_1(PDL_LDouble,E,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
114 9 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
115 2           } break;
116 2           case PDL_CF: {
117 2 50         PDL_DECLARE_PARAMS_isbad_1(PDL_CFloat,G,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
118 9 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,G,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    0          
    0          
    100          
    100          
    50          
    50          
119 2           } break;
120 4           case PDL_CD: {
121 4 50         PDL_DECLARE_PARAMS_isbad_1(PDL_CDouble,C,PDL_Long,L)
    50          
    50          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
122 17 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,C,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    0          
    0          
    100          
    100          
    50          
    50          
123 4           } break;
124 2           case PDL_CLD: {
125 2 50         PDL_DECLARE_PARAMS_isbad_1(PDL_CLDouble,H,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
126 9 50         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,H,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    50          
    50          
    50          
    50          
    50          
    0          
    0          
    100          
    100          
    50          
    50          
127 2           } break;
128 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in isbad: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
129             }
130             #undef PDL_BAD_CODE
131             #undef PDL_IF_BAD
132             } else { /* ** else do 'good' Code ** */
133             #define PDL_IF_BAD(t,f) f
134 0           switch (__privtrans->__datatype) { /* Start generic switch */
135 0           case PDL_SB: {
136 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_SByte,A,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
137 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,A,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
138 0           } break;
139 0           case PDL_B: {
140 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_Byte,B,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
141 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,B,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
142 0           } break;
143 0           case PDL_S: {
144 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_Short,S,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
145 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,S,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
146 0           } break;
147 0           case PDL_US: {
148 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_Ushort,U,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
149 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,U,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
150 0           } break;
151 0           case PDL_L: {
152 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_Long,L,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
153 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,L,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
154 0           } break;
155 0           case PDL_UL: {
156 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_ULong,K,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
157 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,K,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
158 0           } break;
159 0           case PDL_IND: {
160 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_Indx,N,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
161 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,N,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
162 0           } break;
163 0           case PDL_ULL: {
164 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_ULongLong,P,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
165 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,P,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
166 0           } break;
167 0           case PDL_LL: {
168 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_LongLong,Q,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
169 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,Q,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
170 0           } break;
171 0           case PDL_F: {
172 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_Float,F,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
173 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
174 0           } break;
175 0           case PDL_D: {
176 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_Double,D,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
177 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
178 0           } break;
179 0           case PDL_LD: {
180 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_LDouble,E,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
181 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
182 0           } break;
183 0           case PDL_CF: {
184 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_CFloat,G,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
185 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,G,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
186 0           } break;
187 0           case PDL_CD: {
188 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_CDouble,C,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
189 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,C,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
190 0           } break;
191 0           case PDL_CLD: {
192 0 0         PDL_DECLARE_PARAMS_isbad_1(PDL_CLDouble,H,PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
193 0 0         PDL_BROADCASTLOOP_START_isbad_readdata {(b_datap)[0] = PDL_IF_BAD(PDL_ISBAD2((a_datap)[0],a_badval,H,a_badval_isnan),0);}PDL_BROADCASTLOOP_END_isbad_readdata
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
194 0           } break;
195 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in isbad: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
196             }
197             #undef PDL_IF_BAD
198             }
199 704           return PDL_err;
200             }
201              
202             static pdl_datatypes pdl_isbad_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 };
203             static PDL_Indx pdl_isbad_vtable_realdims[] = { 0, 0 };
204             static char *pdl_isbad_vtable_parnames[] = { "a","b" };
205             static short pdl_isbad_vtable_parflags[] = {
206             0,
207             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
208             };
209             static pdl_datatypes pdl_isbad_vtable_partypes[] = { -1, PDL_L };
210             static PDL_Indx pdl_isbad_vtable_realdims_starts[] = { 0, 0 };
211             static PDL_Indx pdl_isbad_vtable_realdims_ind_ids[] = { 0 };
212             static char *pdl_isbad_vtable_indnames[] = { "" };
213             pdl_transvtable pdl_isbad_vtable = {
214             PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADPROCESS, 0, pdl_isbad_vtable_gentypes, 1, 2, NULL /*CORE21*/,
215             pdl_isbad_vtable_realdims, pdl_isbad_vtable_parnames,
216             pdl_isbad_vtable_parflags, pdl_isbad_vtable_partypes,
217             pdl_isbad_vtable_realdims_starts, pdl_isbad_vtable_realdims_ind_ids, 0,
218             0, pdl_isbad_vtable_indnames,
219             NULL, pdl_isbad_readdata, NULL,
220             NULL,
221             0,"PDL::Bad::isbad"
222             };
223              
224              
225 704           pdl_error pdl_run_isbad(pdl *a,pdl *b) {
226 704           pdl_error PDL_err = {0, NULL, 0};
227 704 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
228 704           pdl_trans *__privtrans = PDL->create_trans(&pdl_isbad_vtable);
229 704 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
230 704           __privtrans->pdls[0] = a;
231 704           __privtrans->pdls[1] = b;
232 704 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
233 704 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
234 704           return PDL_err;
235             }