File Coverage

lib/PDL/Stats/Basic.xs
Criterion Covered Total %
statement 66 69 95.6
branch 248 618 40.1
condition n/a
subroutine n/a
pod n/a
total 314 687 45.7


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/Stats/Basic.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_Stats_Basic
21             extern Core* PDL; /* Structure hold core C functions */
22             #line 23 "lib/PDL/Stats/Basic.xs"
23              
24             #include
25             pdl_error pdl_run_stdv(pdl *a,pdl *b);
26             pdl_error pdl_run_stdv_unbiased(pdl *a,pdl *b);
27             pdl_error pdl_run_var(pdl *a,pdl *b);
28             pdl_error pdl_run_var_unbiased(pdl *a,pdl *b);
29             pdl_error pdl_run_se(pdl *a,pdl *b);
30             pdl_error pdl_run_ss(pdl *a,pdl *b);
31             pdl_error pdl_run_skew(pdl *a,pdl *b);
32             pdl_error pdl_run_skew_unbiased(pdl *a,pdl *b);
33             pdl_error pdl_run_kurt(pdl *a,pdl *b);
34             pdl_error pdl_run_kurt_unbiased(pdl *a,pdl *b);
35             pdl_error pdl_run_cov(pdl *a,pdl *b,pdl *c);
36             pdl_error pdl_run_cov_table(pdl *a,pdl *c);
37             pdl_error pdl_run_corr(pdl *a,pdl *b,pdl *c);
38             pdl_error pdl_run_corr_table(pdl *a,pdl *c);
39             pdl_error pdl_run_t_corr(pdl *r,pdl *n,pdl *t);
40             pdl_error pdl_run_n_pair(pdl *a,pdl *b,pdl *c);
41             pdl_error pdl_run_corr_dev(pdl *a,pdl *b,pdl *c);
42             pdl_error pdl_run_t_test(pdl *a,pdl *b,pdl *t,pdl *d);
43             pdl_error pdl_run_t_test_nev(pdl *a,pdl *b,pdl *t,pdl *d);
44             pdl_error pdl_run_t_test_paired(pdl *a,pdl *b,pdl *t,pdl *d);
45              
46             #line 449 "lib/PDL/PP.pm"
47             #include "pdlperl.h"
48             #line 49 "lib/PDL/Stats/Basic.xs"
49              
50             Core* PDL = NULL; /* Structure hold core C functions */
51              
52             MODULE = PDL::Stats::Basic PACKAGE = PDL PREFIX=pdl_run_
53              
54             PROTOTYPES: DISABLE
55              
56              
57             void
58             pdl_run_stdv(a, b=PDL_XS_PERLINIT_initsv(b_SV))
59             SV *b_SV = items > 1 ? ST(1) : NULL;
60             PREINIT:
61 5 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
62             INPUT:
63             pdl *a
64             pdl *b
65             PPCODE:
66 5           PDL->barf_if_error(pdl_run_stdv(a,b));
67 5 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
68              
69             void
70             pdl_run_stdv_unbiased(a, b=PDL_XS_PERLINIT_initsv(b_SV))
71             SV *b_SV = items > 1 ? ST(1) : NULL;
72             PREINIT:
73 2 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
74             INPUT:
75             pdl *a
76             pdl *b
77             PPCODE:
78 2           PDL->barf_if_error(pdl_run_stdv_unbiased(a,b));
79 2 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
80              
81             void
82             pdl_run_var(a, b=PDL_XS_PERLINIT_initsv(b_SV))
83             SV *b_SV = items > 1 ? ST(1) : NULL;
84             PREINIT:
85 5 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
86             INPUT:
87             pdl *a
88             pdl *b
89             PPCODE:
90 5           PDL->barf_if_error(pdl_run_var(a,b));
91 5 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
92              
93             void
94             pdl_run_var_unbiased(a, b=PDL_XS_PERLINIT_initsv(b_SV))
95             SV *b_SV = items > 1 ? ST(1) : NULL;
96             PREINIT:
97 2 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
98             INPUT:
99             pdl *a
100             pdl *b
101             PPCODE:
102 2           PDL->barf_if_error(pdl_run_var_unbiased(a,b));
103 2 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
104              
105             void
106             pdl_run_se(a, b=PDL_XS_PERLINIT_initsv(b_SV))
107             SV *b_SV = items > 1 ? ST(1) : NULL;
108             PREINIT:
109 2 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
110             INPUT:
111             pdl *a
112             pdl *b
113             PPCODE:
114 2           PDL->barf_if_error(pdl_run_se(a,b));
115 2 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
116              
117             void
118             pdl_run_ss(a, b=PDL_XS_PERLINIT_initsv(b_SV))
119             SV *b_SV = items > 1 ? ST(1) : NULL;
120             PREINIT:
121 34 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
122             INPUT:
123             pdl *a
124             pdl *b
125             PPCODE:
126 34           PDL->barf_if_error(pdl_run_ss(a,b));
127 34 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
128              
129             void
130             pdl_run_skew(a, b=PDL_XS_PERLINIT_initsv(b_SV))
131             SV *b_SV = items > 1 ? ST(1) : NULL;
132             PREINIT:
133 2 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
134             INPUT:
135             pdl *a
136             pdl *b
137             PPCODE:
138 2           PDL->barf_if_error(pdl_run_skew(a,b));
139 2 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
140              
141             void
142             pdl_run_skew_unbiased(a, b=PDL_XS_PERLINIT_initsv(b_SV))
143             SV *b_SV = items > 1 ? ST(1) : NULL;
144             PREINIT:
145 2 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
146             INPUT:
147             pdl *a
148             pdl *b
149             PPCODE:
150 2           PDL->barf_if_error(pdl_run_skew_unbiased(a,b));
151 2 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
152              
153             void
154             pdl_run_kurt(a, b=PDL_XS_PERLINIT_initsv(b_SV))
155             SV *b_SV = items > 1 ? ST(1) : NULL;
156             PREINIT:
157 2 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
158             INPUT:
159             pdl *a
160             pdl *b
161             PPCODE:
162 2           PDL->barf_if_error(pdl_run_kurt(a,b));
163 2 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
164              
165             void
166             pdl_run_kurt_unbiased(a, b=PDL_XS_PERLINIT_initsv(b_SV))
167             SV *b_SV = items > 1 ? ST(1) : NULL;
168             PREINIT:
169 2 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
170             INPUT:
171             pdl *a
172             pdl *b
173             PPCODE:
174 2           PDL->barf_if_error(pdl_run_kurt_unbiased(a,b));
175 2 50         PDL_XS_RETURN(ST(0) = b_SV)
    50          
    50          
    50          
    0          
176              
177             void
178             pdl_run_cov(a, b, c=PDL_XS_PERLINIT_initsv(c_SV))
179             SV *c_SV = items > 2 ? ST(2) : NULL;
180             PREINIT:
181 4 50         PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
182             INPUT:
183             pdl *a
184             pdl *b
185             pdl *c
186             PPCODE:
187 4           PDL->barf_if_error(pdl_run_cov(a,b,c));
188 4 50         PDL_XS_RETURN(ST(0) = c_SV)
    50          
    50          
    50          
    0          
189              
190             void
191             pdl_run_cov_table(a, c=PDL_XS_PERLINIT_initsv(c_SV))
192             SV *c_SV = items > 1 ? ST(1) : NULL;
193             PREINIT:
194 3 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
195             INPUT:
196             pdl *a
197             pdl *c
198             PPCODE:
199 3           PDL->barf_if_error(pdl_run_cov_table(a,c));
200 3 50         PDL_XS_RETURN(ST(0) = c_SV)
    50          
    50          
    50          
    0          
201              
202             void
203             pdl_run_corr(a, b, c=PDL_XS_PERLINIT_initsv(c_SV))
204             SV *c_SV = items > 2 ? ST(2) : NULL;
205             PREINIT:
206 7 50         PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
207             INPUT:
208             pdl *a
209             pdl *b
210             pdl *c
211             PPCODE:
212 7           PDL->barf_if_error(pdl_run_corr(a,b,c));
213 7 50         PDL_XS_RETURN(ST(0) = c_SV)
    50          
    50          
    50          
    0          
214              
215             void
216             pdl_run_corr_table(a, c=PDL_XS_PERLINIT_initsv(c_SV))
217             SV *c_SV = items > 1 ? ST(1) : NULL;
218             PREINIT:
219 4 50         PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
220             INPUT:
221             pdl *a
222             pdl *c
223             PPCODE:
224 4           PDL->barf_if_error(pdl_run_corr_table(a,c));
225 4 50         PDL_XS_RETURN(ST(0) = c_SV)
    50          
    50          
    50          
    0          
226              
227             void
228             pdl_run_t_corr(r, n, t=PDL_XS_PERLINIT_initsv(t_SV))
229             SV *t_SV = items > 2 ? ST(2) : NULL;
230             PREINIT:
231 2 50         PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
232             INPUT:
233             pdl *r
234             pdl *n
235             pdl *t
236             PPCODE:
237 2           PDL->barf_if_error(pdl_run_t_corr(r,n,t));
238 2 50         PDL_XS_RETURN(ST(0) = t_SV)
    50          
    50          
    50          
    0          
239              
240             void
241             pdl_run_n_pair(a, b, c=PDL_XS_PERLINIT_initsv(c_SV))
242             SV *c_SV = items > 2 ? ST(2) : NULL;
243             PREINIT:
244 2 50         PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
245             INPUT:
246             pdl *a
247             pdl *b
248             pdl *c
249             PPCODE:
250 2           PDL->barf_if_error(pdl_run_n_pair(a,b,c));
251 2 50         PDL_XS_RETURN(ST(0) = c_SV)
    50          
    50          
    50          
    0          
252              
253             void
254             pdl_run_corr_dev(a, b, c=PDL_XS_PERLINIT_initsv(c_SV))
255             SV *c_SV = items > 2 ? ST(2) : NULL;
256             PREINIT:
257 2 50         PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
258             INPUT:
259             pdl *a
260             pdl *b
261             pdl *c
262             PPCODE:
263 2           PDL->barf_if_error(pdl_run_corr_dev(a,b,c));
264 2 50         PDL_XS_RETURN(ST(0) = c_SV)
    50          
    50          
    50          
    0          
265              
266             void
267             pdl_run_t_test(a, b, t=PDL_XS_PERLINIT_initsv(t_SV), d=PDL_XS_PERLINIT_initsv(d_SV))
268             SV *t_SV = items > 2 ? ST(2) : NULL;
269             SV *d_SV = items > 3 ? ST(3) : NULL;
270             PREINIT:
271 2 50         PDL_XS_PREAMBLE((items == 4) ? 0 : 2);
    50          
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
272             INPUT:
273             pdl *a
274             pdl *b
275             pdl *t
276             pdl *d
277             PPCODE:
278 2           PDL->barf_if_error(pdl_run_t_test(a,b,t,d));
279 2 50         PDL_XS_RETURN(ST(0) = t_SV;ST(1) = d_SV)
    50          
    50          
    50          
    0          
280              
281             void
282             pdl_run_t_test_nev(a, b, t=PDL_XS_PERLINIT_initsv(t_SV), d=PDL_XS_PERLINIT_initsv(d_SV))
283             SV *t_SV = items > 2 ? ST(2) : NULL;
284             SV *d_SV = items > 3 ? ST(3) : NULL;
285             PREINIT:
286 2 50         PDL_XS_PREAMBLE((items == 4) ? 0 : 2);
    50          
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
287             INPUT:
288             pdl *a
289             pdl *b
290             pdl *t
291             pdl *d
292             PPCODE:
293 2           PDL->barf_if_error(pdl_run_t_test_nev(a,b,t,d));
294 2 50         PDL_XS_RETURN(ST(0) = t_SV;ST(1) = d_SV)
    50          
    50          
    50          
    0          
295              
296             void
297             pdl_run_t_test_paired(a, b, t=PDL_XS_PERLINIT_initsv(t_SV), d=PDL_XS_PERLINIT_initsv(d_SV))
298             SV *t_SV = items > 2 ? ST(2) : NULL;
299             SV *d_SV = items > 3 ? ST(3) : NULL;
300             PREINIT:
301 2 50         PDL_XS_PREAMBLE((items == 4) ? 0 : 2);
    50          
    50          
    0          
    50          
    50          
    50          
    50          
    0          
    50          
    50          
302             INPUT:
303             pdl *a
304             pdl *b
305             pdl *t
306             pdl *d
307             PPCODE:
308 2           PDL->barf_if_error(pdl_run_t_test_paired(a,b,t,d));
309 2 50         PDL_XS_RETURN(ST(0) = t_SV;ST(1) = d_SV)
    50          
    50          
    50          
    0          
310              
311              
312             #line 483 "lib/PDL/PP.pm"
313             BOOT:
314             /* Get pointer to structure of core shared C routines */
315             /* make sure PDL::Core is loaded */
316             #line 317 "lib/PDL/Stats/Basic.xs"
317 4           perl_require_pv ("PDL/Core.pm"); /* make sure PDL::Core is loaded */
318             #ifndef aTHX_
319             #define aTHX_
320             #endif
321 4 50         if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV));
    50          
    0          
322 4           SV* CoreSV = perl_get_sv("PDL::SHARE",FALSE); /* var with core structure */
323 4 50         if (!CoreSV)
324 0           Perl_croak(aTHX_ "We require the PDL::Core module, which was not found");
325 4 50         if (!(PDL = INT2PTR(Core*,SvIV( CoreSV )))) /* Core* value */
326 0           Perl_croak(aTHX_ "Got NULL pointer for PDL");
327 4 50         if (PDL->Version != PDL_CORE_VERSION)
328 0           Perl_croak(aTHX_ "[PDL->Version: %ld PDL_CORE_VERSION: %ld XS_VERSION: %s] PDL::Stats::Basic needs to be recompiled against the newly installed PDL", (long int)PDL->Version, (long int)PDL_CORE_VERSION, XS_VERSION);