File Coverage

lib/PDL/Primitive-pp-axisvalues.c
Criterion Covered Total %
statement 81 82 98.7
branch 308 490 62.8
condition n/a
subroutine n/a
pod n/a
total 389 572 68.0


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_axisvalues_readdata(pdl_trans *__privtrans) {
25             pdl_error PDL_err = {0, NULL, 0};
26             #line 27 "lib/PDL/Primitive-pp-axisvalues.c"
27 700           register PDL_Indx __n_size = __privtrans->ind_sizes[0];
28 700 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in axisvalues:" "broadcast.incs NULL");
29             /* broadcastloop declarations */
30             int __brcloopval;
31             register PDL_Indx __tind0,__tind1; /* counters along dim */
32 700           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
33             /* dims here are how many steps along those dims */
34 700           register PDL_Indx __tinc0_i = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
35 700           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
36 700           register PDL_Indx __tinc1_i = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
37 700           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
38             #define PDL_BROADCASTLOOP_START_axisvalues_readdata PDL_BROADCASTLOOP_START( \
39             readdata, \
40             __privtrans->broadcast, \
41             __privtrans->vtable, \
42             i_datap += __offsp[0]; \
43             a_datap += __offsp[1]; \
44             , \
45             ( ,i_datap += __tinc1_i - __tinc0_i * __tdims0 \
46             ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
47             ), \
48             ( ,i_datap += __tinc0_i \
49             ,a_datap += __tinc0_a \
50             ) \
51             )
52             #define PDL_BROADCASTLOOP_END_axisvalues_readdata PDL_BROADCASTLOOP_END( \
53             __privtrans->broadcast, \
54             i_datap -= __tinc1_i * __tdims1 + __offsp[0]; \
55             a_datap -= __tinc1_a * __tdims1 + __offsp[1]; \
56             )
57 700           register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_a_n;
58 700           register PDL_Indx __inc_i_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_i_n;
59             #ifndef PDL_DECLARE_PARAMS_axisvalues_1
60             #define PDL_DECLARE_PARAMS_axisvalues_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
61             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, i, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
62             PDL_DECLARE_PARAMETER(PDL_TYPE_OP, a, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP)
63             #endif
64             #define PDL_IF_BAD(t,f) f
65 700           switch (__privtrans->__datatype) { /* Start generic switch */
66 1           case PDL_SB: {
67 1 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_SByte,A)
    50          
    50          
    50          
    50          
    50          
68 14 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
69 1           } break;
70 14           case PDL_B: {
71 14 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_Byte,B)
    50          
    50          
    50          
    50          
    50          
72 241 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
73 14           } break;
74 8           case PDL_S: {
75 8 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_Short,S)
    100          
    50          
    50          
    100          
    50          
76 59 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
77 8           } break;
78 1           case PDL_US: {
79 1 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_Ushort,U)
    50          
    50          
    50          
    50          
    50          
80 14 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
81 1           } break;
82 13           case PDL_L: {
83 13 100         PDL_DECLARE_PARAMS_axisvalues_1(PDL_Long,L)
    50          
    50          
    100          
    50          
    50          
84 426 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
85 13           } break;
86 1           case PDL_UL: {
87 1 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_ULong,K)
    50          
    50          
    50          
    50          
    50          
88 14 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
89 1           } break;
90 19           case PDL_IND: {
91 19 100         PDL_DECLARE_PARAMS_axisvalues_1(PDL_Indx,N)
    50          
    50          
    100          
    50          
    50          
92 140388 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    100          
93 19           } break;
94 1           case PDL_ULL: {
95 1 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_ULongLong,P)
    50          
    50          
    50          
    50          
    50          
96 14 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
97 1           } break;
98 7           case PDL_LL: {
99 7 100         PDL_DECLARE_PARAMS_axisvalues_1(PDL_LongLong,Q)
    50          
    50          
    100          
    50          
    50          
100 274 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
101 7           } break;
102 40           case PDL_F: {
103 40 100         PDL_DECLARE_PARAMS_axisvalues_1(PDL_Float,F)
    50          
    50          
    100          
    50          
    50          
104 729 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
105 40           } break;
106 577           case PDL_D: {
107 577 100         PDL_DECLARE_PARAMS_axisvalues_1(PDL_Double,D)
    100          
    50          
    100          
    100          
    50          
108 700141 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    100          
109 577           } break;
110 3           case PDL_LD: {
111 3 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_LDouble,E)
    50          
    50          
    50          
    50          
    50          
112 26 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
113 3           } break;
114 3           case PDL_CF: {
115 3 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_CFloat,G)
    50          
    50          
    50          
    50          
    50          
116 26 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
117 3           } break;
118 9           case PDL_CD: {
119 9 100         PDL_DECLARE_PARAMS_axisvalues_1(PDL_CDouble,C)
    50          
    50          
    100          
    50          
    50          
120 143 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
121 9           } break;
122 3           case PDL_CLD: {
123 3 50         PDL_DECLARE_PARAMS_axisvalues_1(PDL_CLDouble,H)
    50          
    50          
    50          
    50          
    50          
124 26 50         PDL_BROADCASTLOOP_START_axisvalues_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (a_datap)[0+(__inc_a_n*(n))] = n; }} /* Close n */}PDL_BROADCASTLOOP_END_axisvalues_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    100          
    50          
    50          
125 3           } break;
126 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in axisvalues: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
127             }
128             #undef PDL_IF_BAD
129 700           return PDL_err;
130             }
131              
132             static pdl_datatypes pdl_axisvalues_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 };
133             static PDL_Indx pdl_axisvalues_vtable_realdims[] = { 1, 1 };
134             static char *pdl_axisvalues_vtable_parnames[] = { "i","a" };
135             static short pdl_axisvalues_vtable_parflags[] = {
136             0,
137             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE
138             };
139             static pdl_datatypes pdl_axisvalues_vtable_partypes[] = { -1, -1 };
140             static PDL_Indx pdl_axisvalues_vtable_realdims_starts[] = { 0, 1 };
141             static PDL_Indx pdl_axisvalues_vtable_realdims_ind_ids[] = { 0, 0 };
142             static char *pdl_axisvalues_vtable_indnames[] = { "n" };
143             pdl_transvtable pdl_axisvalues_vtable = {
144             PDL_TRANS_DO_BROADCAST, 0, pdl_axisvalues_vtable_gentypes, 1, 2, NULL /*CORE21*/,
145             pdl_axisvalues_vtable_realdims, pdl_axisvalues_vtable_parnames,
146             pdl_axisvalues_vtable_parflags, pdl_axisvalues_vtable_partypes,
147             pdl_axisvalues_vtable_realdims_starts, pdl_axisvalues_vtable_realdims_ind_ids, 2,
148             1, pdl_axisvalues_vtable_indnames,
149             NULL, pdl_axisvalues_readdata, NULL,
150             NULL,
151             0,"PDL::Primitive::axisvalues"
152             };
153              
154              
155 700           pdl_error pdl_run_axisvalues(pdl *i,pdl *a) {
156 700           pdl_error PDL_err = {0, NULL, 0};
157 700 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
158 700           pdl_trans *__privtrans = PDL->create_trans(&pdl_axisvalues_vtable);
159 700 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
160 700           __privtrans->pdls[0] = i;
161 700           __privtrans->pdls[1] = a;
162 700 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
163 700 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
164 700           return PDL_err;
165             }