Branch Coverage

lib/PDL/IO/Pnm-pp-pnmout.c

Criterion	Covered	Total	%
branch	93	338	27.5

line	true	false	branch
38	0	37	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in pnmout:" "broadcast.incs NULL");
69	0	25	PDL_DECLARE_PARAMS_pnmout_1(PDL_Byte,B)
	25	0	PDL_DECLARE_PARAMS_pnmout_1(PDL_Byte,B)
	0	25	PDL_DECLARE_PARAMS_pnmout_1(PDL_Byte,B)
71	13	12	if (__params->israw) {
72	6	7	if (__params->isbin) {
73	0	6	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	6	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	6	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	6	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	6	PDL_BROADCASTLOOP_START_pnmout_readdata
	36	6	PDL_BROADCASTLOOP_START_pnmout_readdata
	6	6	PDL_BROADCASTLOOP_START_pnmout_readdata
75	216	36	{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
78	0	216	if (bit==8) {
83	36	0	if (bit) {
87	0	6	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	6	PDL_BROADCASTLOOP_END_pnmout_readdata
90	0	7	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	7	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	7	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	7	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	7	PDL_BROADCASTLOOP_START_pnmout_readdata
	34	7	PDL_BROADCASTLOOP_START_pnmout_readdata
	7	7	PDL_BROADCASTLOOP_START_pnmout_readdata
94	0	34	if (wrote < 0)
97	34	0	if (this_len <= 0) break;
99	0	7	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	7	PDL_BROADCASTLOOP_END_pnmout_readdata
103	0	12	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	12	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	12	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	12	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	12	PDL_BROADCASTLOOP_START_pnmout_readdata
	54	12	PDL_BROADCASTLOOP_START_pnmout_readdata
	12	12	PDL_BROADCASTLOOP_START_pnmout_readdata
104	270	54	{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
105	216	54	PerlIO_printf(__params->fp,"%3d ",__params->isbin ?
108	12	258	if (len>58) { PerlIO_printf(__params->fp,"\n"); len=0; }
110	54	0	if (len<=58)
112	0	12	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	12	PDL_BROADCASTLOOP_END_pnmout_readdata
117	0	0	PDL_DECLARE_PARAMS_pnmout_1(PDL_Short,S)
	0	0	PDL_DECLARE_PARAMS_pnmout_1(PDL_Short,S)
	0	0	PDL_DECLARE_PARAMS_pnmout_1(PDL_Short,S)
119	0	0	if (__params->israw) {
120	0	0	if (__params->isbin) {
121	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
123	0	0	{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
126	0	0	if (bit==8) {
131	0	0	if (bit) {
135	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
138	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
142	0	0	if (wrote < 0)
145	0	0	if (this_len <= 0) break;
147	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
151	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
152	0	0	{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
153	0	0	PerlIO_printf(__params->fp,"%3d ",__params->isbin ?
156	0	0	if (len>58) { PerlIO_printf(__params->fp,"\n"); len=0; }
158	0	0	if (len<=58)
160	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
165	0	12	PDL_DECLARE_PARAMS_pnmout_1(PDL_Ushort,U)
	12	0	PDL_DECLARE_PARAMS_pnmout_1(PDL_Ushort,U)
	0	12	PDL_DECLARE_PARAMS_pnmout_1(PDL_Ushort,U)
167	8	4	if (__params->israw) {
168	0	8	if (__params->isbin) {
169	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
171	0	0	{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
174	0	0	if (bit==8) {
179	0	0	if (bit) {
183	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
186	0	8	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	8	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	8	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	8	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	8	PDL_BROADCASTLOOP_START_pnmout_readdata
	277	8	PDL_BROADCASTLOOP_START_pnmout_readdata
	8	8	PDL_BROADCASTLOOP_START_pnmout_readdata
190	0	277	if (wrote < 0)
193	277	0	if (this_len <= 0) break;
195	0	8	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	8	PDL_BROADCASTLOOP_END_pnmout_readdata
199	0	4	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	4	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	4	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	4	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	4	PDL_BROADCASTLOOP_START_pnmout_readdata
	12	4	PDL_BROADCASTLOOP_START_pnmout_readdata
	4	4	PDL_BROADCASTLOOP_START_pnmout_readdata
200	36	12	{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
201	0	36	PerlIO_printf(__params->fp,"%3d ",__params->isbin ?
204	0	36	if (len>58) { PerlIO_printf(__params->fp,"\n"); len=0; }
206	12	0	if (len<=58)
208	0	4	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	4	PDL_BROADCASTLOOP_END_pnmout_readdata
213	0	0	PDL_DECLARE_PARAMS_pnmout_1(PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_pnmout_1(PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_pnmout_1(PDL_Long,L)
215	0	0	if (__params->israw) {
216	0	0	if (__params->isbin) {
217	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
219	0	0	{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
222	0	0	if (bit==8) {
227	0	0	if (bit) {
231	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
234	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
238	0	0	if (wrote < 0)
241	0	0	if (this_len <= 0) break;
243	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
247	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_START_pnmout_readdata
248	0	0	{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
249	0	0	PerlIO_printf(__params->fp,"%3d ",__params->isbin ?
252	0	0	if (len>58) { PerlIO_printf(__params->fp,"\n"); len=0; }
254	0	0	if (len<=58)
256	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
	0	0	PDL_BROADCASTLOOP_END_pnmout_readdata
290	0	37	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
292	0	37	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
295	0	37	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
299	0	37	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));