File Coverage

pp-pl_setcontlabelparam.c
Criterion Covered Total %
statement 28 29 96.5
branch 29 54 53.7
condition n/a
subroutine n/a
pod n/a
total 57 83 68.6


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 plplot.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_Graphics_PLplot
21             extern Core* PDL; /* Structure hold core C functions */
22             #line 23 "pp-pl_setcontlabelparam.c"
23             #include
24             #include
25             #include
26             #include
27              
28             #ifndef PDL /* this is needed for PDL pre-2.058 */
29             #define PDL PDL_Graphics_PLplot
30             Core* PDL = NULL; PDL_COMMENT("Structure hold core C functions")
31             #endif
32              
33             #define PLPTR_DEFINE(t) typedef t *t ## Ptr; typedef t *t ## Ptr__OUT;
34             PLPTR_DEFINE(PLcGrid)
35             PLPTR_DEFINE(PLcGrid2)
36             #define PLPTR_RECEIVE_IN(t, v, v_in) t *v = (t *)v_in;
37             #define PLPTR_RECEIVE_SV(v) ((PLPointer) (SvROK(v) ? SvIV((SV*)SvRV(v)) : (IV)NULL))
38              
39             #line 1857 "lib/PDL/PP.pm"
40             pdl_error pdl_pl_setcontlabelparam_readdata(pdl_trans *__privtrans) {
41             pdl_error PDL_err = {0, NULL, 0};
42             #line 43 "pp-pl_setcontlabelparam.c"
43 3 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in pl_setcontlabelparam:" "broadcast.incs NULL");
44             /* broadcastloop declarations */
45             int __brcloopval;
46             register PDL_Indx __tind0,__tind1; /* counters along dim */
47 3           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
48             /* dims here are how many steps along those dims */
49 3           register PDL_Indx __tinc0_offset = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
50 3           register PDL_Indx __tinc0_size = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
51 3           register PDL_Indx __tinc0_spacing = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
52 3           register PDL_Indx __tinc0_active = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
53 3           register PDL_Indx __tinc1_offset = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
54 3           register PDL_Indx __tinc1_size = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
55 3           register PDL_Indx __tinc1_spacing = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
56 3           register PDL_Indx __tinc1_active = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
57             #define PDL_BROADCASTLOOP_START_pl_setcontlabelparam_readdata PDL_BROADCASTLOOP_START( \
58             readdata, \
59             __privtrans->broadcast, \
60             __privtrans->vtable, \
61             offset_datap += __offsp[0]; \
62             size_datap += __offsp[1]; \
63             spacing_datap += __offsp[2]; \
64             active_datap += __offsp[3]; \
65             , \
66             ( ,offset_datap += __tinc1_offset - __tinc0_offset * __tdims0 \
67             ,size_datap += __tinc1_size - __tinc0_size * __tdims0 \
68             ,spacing_datap += __tinc1_spacing - __tinc0_spacing * __tdims0 \
69             ,active_datap += __tinc1_active - __tinc0_active * __tdims0 \
70             ), \
71             ( ,offset_datap += __tinc0_offset \
72             ,size_datap += __tinc0_size \
73             ,spacing_datap += __tinc0_spacing \
74             ,active_datap += __tinc0_active \
75             ) \
76             )
77             #define PDL_BROADCASTLOOP_END_pl_setcontlabelparam_readdata PDL_BROADCASTLOOP_END( \
78             __privtrans->broadcast, \
79             offset_datap -= __tinc1_offset * __tdims1 + __offsp[0]; \
80             size_datap -= __tinc1_size * __tdims1 + __offsp[1]; \
81             spacing_datap -= __tinc1_spacing * __tdims1 + __offsp[2]; \
82             active_datap -= __tinc1_active * __tdims1 + __offsp[3]; \
83             )
84             #ifndef PDL_DECLARE_PARAMS_pl_setcontlabelparam_1
85             #define PDL_DECLARE_PARAMS_pl_setcontlabelparam_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_offset,PDL_PPSYM_PARAM_offset,PDL_TYPE_PARAM_size,PDL_PPSYM_PARAM_size,PDL_TYPE_PARAM_spacing,PDL_PPSYM_PARAM_spacing,PDL_TYPE_PARAM_active,PDL_PPSYM_PARAM_active) \
86             PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_offset, offset, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_offset) \
87             PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_size, size, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_size) \
88             PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_spacing, spacing, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_spacing) \
89             PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_active, active, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_active)
90             #endif
91             #define PDL_IF_BAD(t,f) f
92 3 50         switch (__privtrans->__datatype) { /* Start generic switch */
93 3           case PDL_D: {
94 3 50         PDL_DECLARE_PARAMS_pl_setcontlabelparam_1(PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
95 12 50         PDL_BROADCASTLOOP_START_pl_setcontlabelparam_readdata {c_pl_setcontlabelparam((offset_datap)[0],(size_datap)[0],(spacing_datap)[0],(active_datap)[0]);}PDL_BROADCASTLOOP_END_pl_setcontlabelparam_readdata
    50          
    50          
    50          
    50          
    100          
    100          
    50          
    50          
96 3           } break;
97 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in pl_setcontlabelparam: unhandled datatype(%d), only handles (D)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
98             }
99             #undef PDL_IF_BAD
100 3           return PDL_err;
101             }
102              
103             static pdl_datatypes pdl_pl_setcontlabelparam_vtable_gentypes[] = { PDL_D, -1 };
104             static PDL_Indx pdl_pl_setcontlabelparam_vtable_realdims[] = { 0, 0, 0, 0 };
105             static char *pdl_pl_setcontlabelparam_vtable_parnames[] = { "offset","size","spacing","active" };
106             static short pdl_pl_setcontlabelparam_vtable_parflags[] = {
107             PDL_PARAM_ISTYPED,
108             PDL_PARAM_ISTYPED,
109             PDL_PARAM_ISTYPED,
110             PDL_PARAM_ISTYPED
111             };
112             static pdl_datatypes pdl_pl_setcontlabelparam_vtable_partypes[] = { PDL_D, PDL_D, PDL_D, PDL_L };
113             static PDL_Indx pdl_pl_setcontlabelparam_vtable_realdims_starts[] = { 0, 0, 0, 0 };
114             static PDL_Indx pdl_pl_setcontlabelparam_vtable_realdims_ind_ids[] = { 0 };
115             static char *pdl_pl_setcontlabelparam_vtable_indnames[] = { "" };
116             pdl_transvtable pdl_pl_setcontlabelparam_vtable = {
117             PDL_TRANS_DO_BROADCAST|PDL_TRANS_NO_PARALLEL, 0, pdl_pl_setcontlabelparam_vtable_gentypes, 4, 4, NULL /*CORE21*/,
118             pdl_pl_setcontlabelparam_vtable_realdims, pdl_pl_setcontlabelparam_vtable_parnames,
119             pdl_pl_setcontlabelparam_vtable_parflags, pdl_pl_setcontlabelparam_vtable_partypes,
120             pdl_pl_setcontlabelparam_vtable_realdims_starts, pdl_pl_setcontlabelparam_vtable_realdims_ind_ids, 0,
121             0, pdl_pl_setcontlabelparam_vtable_indnames,
122             NULL, pdl_pl_setcontlabelparam_readdata, NULL,
123             NULL,
124             0,"PDL::Graphics::PLplot::pl_setcontlabelparam"
125             };
126              
127              
128 3           pdl_error pdl_run_pl_setcontlabelparam(pdl *offset,pdl *size,pdl *spacing,pdl *active) {
129 3           pdl_error PDL_err = {0, NULL, 0};
130 3 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
131 3           pdl_trans *__privtrans = PDL->create_trans(&pdl_pl_setcontlabelparam_vtable);
132 3 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
133 3           __privtrans->pdls[0] = offset;
134 3           __privtrans->pdls[1] = size;
135 3           __privtrans->pdls[2] = spacing;
136 3           __privtrans->pdls[3] = active;
137 3 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
138 3 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
139 3           return PDL_err;
140             }