File Coverage

pp-plhlsrgb.c

Criterion	Covered	Total	%
statement	34	35	97.1
branch	35	66	53.0
condition			n/a
subroutine			n/a
pod			n/a
total	69	101	68.3

line	stmt	bran	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-plhlsrgb.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			void pltr_iv_set(IV iv0, IV iv1, IV iv2);
40			void pltr_callback_set(SV sv, char msg);
41			void pltr_callback(PLFLT x, PLFLT y, PLFLT* tx, PLFLT* ty, PLPointer pltr_data);
42			void* get_standard_pltrcb(SV* cb);
43			void defined_callback_set(SV sv, char msg);
44			PLINT defined_callback(PLFLT x, PLFLT y);
45			void default_magic(pdl *p, size_t pa);
46			void mapform_callback_set(SV sv, char msg);
47			void mapform_callback(PLINT n, PLFLT* x, PLFLT* y);
48			void xform_callback_set(SV sv, char msg);
49			void xform_callback(PLFLT x, PLFLT y, PLFLT xt, PLFLT yt, PLPointer data);
50			void labelfunc_callback_set(SV sv, char msg);
51			void labelfunc_callback(PLINT axis, PLFLT value, char label_text, PLINT length, void data);
52
53			#line 1857 "lib/PDL/PP.pm"
54			pdl_error pdl_plhlsrgb_readdata(pdl_trans *__privtrans) {
55			pdl_error PDL_err = {0, NULL, 0};
56			#line 57 "pp-plhlsrgb.c"
57	1	50	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in plhlsrgb:" "broadcast.incs NULL");
58			/* broadcastloop declarations */
59			int __brcloopval;
60			register PDL_Indx __tind0,__tind1; /* counters along dim */
61	1		register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
62			/* dims here are how many steps along those dims */
63	1		register PDL_Indx __tinc0_h = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
64	1		register PDL_Indx __tinc0_l = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
65	1		register PDL_Indx __tinc0_s = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
66	1		register PDL_Indx __tinc0_p_r = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
67	1		register PDL_Indx __tinc0_p_g = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
68	1		register PDL_Indx __tinc0_p_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
69	1		register PDL_Indx __tinc1_h = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
70	1		register PDL_Indx __tinc1_l = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
71	1		register PDL_Indx __tinc1_s = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
72	1		register PDL_Indx __tinc1_p_r = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
73	1		register PDL_Indx __tinc1_p_g = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
74	1		register PDL_Indx __tinc1_p_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
75			#define PDL_BROADCASTLOOP_START_plhlsrgb_readdata PDL_BROADCASTLOOP_START( \
76			readdata, \
77			__privtrans->broadcast, \
78			__privtrans->vtable, \
79			h_datap += __offsp[0]; \
80			l_datap += __offsp[1]; \
81			s_datap += __offsp[2]; \
82			p_r_datap += __offsp[3]; \
83			p_g_datap += __offsp[4]; \
84			p_b_datap += __offsp[5]; \
85			, \
86			( ,h_datap += __tinc1_h - __tinc0_h * __tdims0 \
87			,l_datap += __tinc1_l - __tinc0_l * __tdims0 \
88			,s_datap += __tinc1_s - __tinc0_s * __tdims0 \
89			,p_r_datap += __tinc1_p_r - __tinc0_p_r * __tdims0 \
90			,p_g_datap += __tinc1_p_g - __tinc0_p_g * __tdims0 \
91			,p_b_datap += __tinc1_p_b - __tinc0_p_b * __tdims0 \
92			), \
93			( ,h_datap += __tinc0_h \
94			,l_datap += __tinc0_l \
95			,s_datap += __tinc0_s \
96			,p_r_datap += __tinc0_p_r \
97			,p_g_datap += __tinc0_p_g \
98			,p_b_datap += __tinc0_p_b \
99			) \
100			)
101			#define PDL_BROADCASTLOOP_END_plhlsrgb_readdata PDL_BROADCASTLOOP_END( \
102			__privtrans->broadcast, \
103			h_datap -= __tinc1_h * __tdims1 + __offsp[0]; \
104			l_datap -= __tinc1_l * __tdims1 + __offsp[1]; \
105			s_datap -= __tinc1_s * __tdims1 + __offsp[2]; \
106			p_r_datap -= __tinc1_p_r * __tdims1 + __offsp[3]; \
107			p_g_datap -= __tinc1_p_g * __tdims1 + __offsp[4]; \
108			p_b_datap -= __tinc1_p_b * __tdims1 + __offsp[5]; \
109			)
110			#ifndef PDL_DECLARE_PARAMS_plhlsrgb_1
111			#define PDL_DECLARE_PARAMS_plhlsrgb_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_h,PDL_PPSYM_PARAM_h,PDL_TYPE_PARAM_l,PDL_PPSYM_PARAM_l,PDL_TYPE_PARAM_s,PDL_PPSYM_PARAM_s,PDL_TYPE_PARAM_p_r,PDL_PPSYM_PARAM_p_r,PDL_TYPE_PARAM_p_g,PDL_PPSYM_PARAM_p_g,PDL_TYPE_PARAM_p_b,PDL_PPSYM_PARAM_p_b) \
112			PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_h, h, (__privtrans->pdls[0]), 1, PDL_PPSYM_PARAM_h) \
113			PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_l, l, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_l) \
114			PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_s, s, (__privtrans->pdls[2]), 1, PDL_PPSYM_PARAM_s) \
115			PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_p_r, p_r, (__privtrans->pdls[3]), 1, PDL_PPSYM_PARAM_p_r) \
116			PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_p_g, p_g, (__privtrans->pdls[4]), 1, PDL_PPSYM_PARAM_p_g) \
117			PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_p_b, p_b, (__privtrans->pdls[5]), 1, PDL_PPSYM_PARAM_p_b)
118			#endif
119			#define PDL_IF_BAD(t,f) f
120	1	50	switch (__privtrans->__datatype) { /* Start generic switch */
121	1		case PDL_D: {
122	1	50	PDL_DECLARE_PARAMS_plhlsrgb_1(PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D,PDL_Double,D)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
123	103	50	PDL_BROADCASTLOOP_START_plhlsrgb_readdata {c_plhlsrgb((h_datap)[0],(l_datap)[0],(s_datap)[0],p_r_datap,p_g_datap,p_b_datap);}PDL_BROADCASTLOOP_END_plhlsrgb_readdata
		50
		50
		50
		50
		100
		100
		50
		50
124	1		} break;
125	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in plhlsrgb: unhandled datatype(%d), only handles (D)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
126			}
127			#undef PDL_IF_BAD
128	1		return PDL_err;
129			}
130
131			static pdl_datatypes pdl_plhlsrgb_vtable_gentypes[] = { PDL_D, -1 };
132			static PDL_Indx pdl_plhlsrgb_vtable_realdims[] = { 0, 0, 0, 0, 0, 0 };
133			static char *pdl_plhlsrgb_vtable_parnames[] = { "h","l","s","p_r","p_g","p_b" };
134			static short pdl_plhlsrgb_vtable_parflags[] = {
135			PDL_PARAM_ISTYPED,
136			PDL_PARAM_ISTYPED,
137			PDL_PARAM_ISTYPED,
138			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISPHYS\|PDL_PARAM_ISTYPED\|PDL_PARAM_ISWRITE,
139			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISPHYS\|PDL_PARAM_ISTYPED\|PDL_PARAM_ISWRITE,
140			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISPHYS\|PDL_PARAM_ISTYPED\|PDL_PARAM_ISWRITE
141			};
142			static pdl_datatypes pdl_plhlsrgb_vtable_partypes[] = { PDL_D, PDL_D, PDL_D, PDL_D, PDL_D, PDL_D };
143			static PDL_Indx pdl_plhlsrgb_vtable_realdims_starts[] = { 0, 0, 0, 0, 0, 0 };
144			static PDL_Indx pdl_plhlsrgb_vtable_realdims_ind_ids[] = { 0 };
145			static char *pdl_plhlsrgb_vtable_indnames[] = { "" };
146			pdl_transvtable pdl_plhlsrgb_vtable = {
147			PDL_TRANS_DO_BROADCAST\|PDL_TRANS_NO_PARALLEL, 0, pdl_plhlsrgb_vtable_gentypes, 3, 6, NULL /CORE21/,
148			pdl_plhlsrgb_vtable_realdims, pdl_plhlsrgb_vtable_parnames,
149			pdl_plhlsrgb_vtable_parflags, pdl_plhlsrgb_vtable_partypes,
150			pdl_plhlsrgb_vtable_realdims_starts, pdl_plhlsrgb_vtable_realdims_ind_ids, 0,
151			0, pdl_plhlsrgb_vtable_indnames,
152			NULL, pdl_plhlsrgb_readdata, NULL,
153			NULL,
154			0,"PDL::Graphics::PLplot::plhlsrgb"
155			};
156
157
158	1		pdl_error pdl_run_plhlsrgb(pdl h,pdl l,pdl s,pdl p_r,pdl p_g,pdl p_b) {
159	1		pdl_error PDL_err = {0, NULL, 0};
160	1	50	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
161	1		pdl_trans *__privtrans = PDL->create_trans(&pdl_plhlsrgb_vtable);
162	1	50	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
163	1		__privtrans->pdls[0] = h;
164	1		__privtrans->pdls[1] = l;
165	1		__privtrans->pdls[2] = s;
166	1		__privtrans->pdls[3] = p_r;
167	1		__privtrans->pdls[4] = p_g;
168	1		__privtrans->pdls[5] = p_b;
169	1	50	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
170	1	50	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
171	1		return PDL_err;
172			}