File Coverage

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

Criterion	Covered	Total	%
statement	78	171	45.6
branch	93	338	27.5
condition			n/a
subroutine			n/a
pod			n/a
total	171	509	33.6

#line 453 "lib/PDL/PP.pm"
/*
 * THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/IO/Pnm.pd! Do not modify!
 */

#define PDL_FREE_CODE(trans, destroy, comp_free_code, ntpriv_free_code) \
    if (destroy) { \
	comp_free_code \
    } \
    if ((trans)->dims_redone) { \
	ntpriv_free_code \
    }

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "pdl.h"
#include "pdlcore.h"
#define PDL PDL_IO_Pnm
extern Core* PDL; /* Structure hold core C functions */

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_pnmout {
#line 26 "lib/PDL/IO/Pnm-pp-pnmout.c"
  int  israw;
  int  isbin;
  PerlIO  *fp;
} pdl_params_pnmout;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_pnmout_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 36 "lib/PDL/IO/Pnm-pp-pnmout.c"
  pdl_params_pnmout *__params = __privtrans->params; (void)__params;
  register PDL_Indx __m_size = __privtrans->ind_sizes[0];
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in pnmout:" "broadcast.incs NULL");
  /* broadcastloop declarations */
  int __brcloopval;
  register PDL_Indx __tind0,__tind1; /* counters along dim */
  register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
  /* dims here are how many steps along those dims */
  register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  #define PDL_BROADCASTLOOP_START_pnmout_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    a_datap += __offsp[0]; \
    , \
    (  ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
    ), \
    (  ,a_datap += __tinc0_a \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_pnmout_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
  )
  register PDL_Indx __inc_a_m = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_m;
  #ifndef PDL_DECLARE_PARAMS_pnmout_1
  #define PDL_DECLARE_PARAMS_pnmout_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_B: {
      PDL_DECLARE_PARAMS_pnmout_1(PDL_Byte,B)
        {
        		 if (__params->israw) {
        		    if (__params->isbin) {
        			PDL_BROADCASTLOOP_START_pnmout_readdata
          			  int k=0, bit=0;
          			  {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
            			    k = (k << 1) | ((a_datap)[0+(__inc_a_m*(m))] < 1);
            			    bit++;
            			    if (bit==8) {
            			      PerlIO_putc(__params->fp,k);
            			      bit = k = 0;
            			    }
            			  }} /* Close m */
          			  if (bit) {
          			    k = k << (8-bit);
          			    PerlIO_putc(__params->fp,k);
          			  }
          		       PDL_BROADCASTLOOP_END_pnmout_readdata
        		    } else {
        		      PDL_Indx len = __privtrans->ind_sizes[0] * sizeof(PDL_Byte);
        		      PDL_BROADCASTLOOP_START_pnmout_readdata
          			PDL_Indx this_len = len;
          			while (1) {
          			  PDL_Indx wrote = PerlIO_write(__params->fp,a_datap,this_len);
          			  if (wrote < 0)
          			    return PDL->make_error(PDL_EUSERERROR, "Error in pnmout:" "Error writing pnm file: %s",strerror(errno));
          			  this_len -= wrote;
          			  if (this_len <= 0) break;
          			}
          		      PDL_BROADCASTLOOP_END_pnmout_readdata
        		    }
        		 } else {
        		    PDL_Indx len=0;
        		    PDL_BROADCASTLOOP_START_pnmout_readdata
          			{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
            				PerlIO_printf(__params->fp,"%3d ",__params->isbin ?
            					((a_datap)[0+(__inc_a_m*(m))] < 1) :(a_datap)[0+(__inc_a_m*(m))]);
            				len +=4;
            				if (len>58) { PerlIO_printf(__params->fp,"\n"); len=0; }
            			}} /* Close m */
          			if (len<=58)
          				PerlIO_printf(__params->fp,"\n");
          		    PDL_BROADCASTLOOP_END_pnmout_readdata
        		}
        }
    } break;
    case PDL_S: {
      PDL_DECLARE_PARAMS_pnmout_1(PDL_Short,S)
        {
        		 if (__params->israw) {
        		    if (__params->isbin) {
        			PDL_BROADCASTLOOP_START_pnmout_readdata
          			  int k=0, bit=0;
          			  {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
            			    k = (k << 1) | ((a_datap)[0+(__inc_a_m*(m))] < 1);
            			    bit++;
            			    if (bit==8) {
            			      PerlIO_putc(__params->fp,k);
            			      bit = k = 0;
            			    }
            			  }} /* Close m */
          			  if (bit) {
          			    k = k << (8-bit);
          			    PerlIO_putc(__params->fp,k);
          			  }
          		       PDL_BROADCASTLOOP_END_pnmout_readdata
        		    } else {
        		      PDL_Indx len = __privtrans->ind_sizes[0] * sizeof(PDL_Short);
        		      PDL_BROADCASTLOOP_START_pnmout_readdata
          			PDL_Indx this_len = len;
          			while (1) {
          			  PDL_Indx wrote = PerlIO_write(__params->fp,a_datap,this_len);
          			  if (wrote < 0)
          			    return PDL->make_error(PDL_EUSERERROR, "Error in pnmout:" "Error writing pnm file: %s",strerror(errno));
          			  this_len -= wrote;
          			  if (this_len <= 0) break;
          			}
          		      PDL_BROADCASTLOOP_END_pnmout_readdata
        		    }
        		 } else {
        		    PDL_Indx len=0;
        		    PDL_BROADCASTLOOP_START_pnmout_readdata
          			{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
            				PerlIO_printf(__params->fp,"%3d ",__params->isbin ?
            					((a_datap)[0+(__inc_a_m*(m))] < 1) :(a_datap)[0+(__inc_a_m*(m))]);
            				len +=4;
            				if (len>58) { PerlIO_printf(__params->fp,"\n"); len=0; }
            			}} /* Close m */
          			if (len<=58)
          				PerlIO_printf(__params->fp,"\n");
          		    PDL_BROADCASTLOOP_END_pnmout_readdata
        		}
        }
    } break;
    case PDL_US: {
      PDL_DECLARE_PARAMS_pnmout_1(PDL_Ushort,U)
        {
        		 if (__params->israw) {
        		    if (__params->isbin) {
        			PDL_BROADCASTLOOP_START_pnmout_readdata
          			  int k=0, bit=0;
          			  {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
            			    k = (k << 1) | ((a_datap)[0+(__inc_a_m*(m))] < 1);
            			    bit++;
            			    if (bit==8) {
            			      PerlIO_putc(__params->fp,k);
            			      bit = k = 0;
            			    }
            			  }} /* Close m */
          			  if (bit) {
          			    k = k << (8-bit);
          			    PerlIO_putc(__params->fp,k);
          			  }
          		       PDL_BROADCASTLOOP_END_pnmout_readdata
        		    } else {
        		      PDL_Indx len = __privtrans->ind_sizes[0] * sizeof(PDL_Ushort);
        		      PDL_BROADCASTLOOP_START_pnmout_readdata
          			PDL_Indx this_len = len;
          			while (1) {
          			  PDL_Indx wrote = PerlIO_write(__params->fp,a_datap,this_len);
          			  if (wrote < 0)
          			    return PDL->make_error(PDL_EUSERERROR, "Error in pnmout:" "Error writing pnm file: %s",strerror(errno));
          			  this_len -= wrote;
          			  if (this_len <= 0) break;
          			}
          		      PDL_BROADCASTLOOP_END_pnmout_readdata
        		    }
        		 } else {
        		    PDL_Indx len=0;
        		    PDL_BROADCASTLOOP_START_pnmout_readdata
          			{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
            				PerlIO_printf(__params->fp,"%3d ",__params->isbin ?
            					((a_datap)[0+(__inc_a_m*(m))] < 1) :(a_datap)[0+(__inc_a_m*(m))]);
            				len +=4;
            				if (len>58) { PerlIO_printf(__params->fp,"\n"); len=0; }
            			}} /* Close m */
          			if (len<=58)
          				PerlIO_printf(__params->fp,"\n");
          		    PDL_BROADCASTLOOP_END_pnmout_readdata
        		}
        }
    } break;
    case PDL_L: {
      PDL_DECLARE_PARAMS_pnmout_1(PDL_Long,L)
        {
        		 if (__params->israw) {
        		    if (__params->isbin) {
        			PDL_BROADCASTLOOP_START_pnmout_readdata
          			  int k=0, bit=0;
          			  {/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
            			    k = (k << 1) | ((a_datap)[0+(__inc_a_m*(m))] < 1);
            			    bit++;
            			    if (bit==8) {
            			      PerlIO_putc(__params->fp,k);
            			      bit = k = 0;
            			    }
            			  }} /* Close m */
          			  if (bit) {
          			    k = k << (8-bit);
          			    PerlIO_putc(__params->fp,k);
          			  }
          		       PDL_BROADCASTLOOP_END_pnmout_readdata
        		    } else {
        		      PDL_Indx len = __privtrans->ind_sizes[0] * sizeof(PDL_Long);
        		      PDL_BROADCASTLOOP_START_pnmout_readdata
          			PDL_Indx this_len = len;
          			while (1) {
          			  PDL_Indx wrote = PerlIO_write(__params->fp,a_datap,this_len);
          			  if (wrote < 0)
          			    return PDL->make_error(PDL_EUSERERROR, "Error in pnmout:" "Error writing pnm file: %s",strerror(errno));
          			  this_len -= wrote;
          			  if (this_len <= 0) break;
          			}
          		      PDL_BROADCASTLOOP_END_pnmout_readdata
        		    }
        		 } else {
        		    PDL_Indx len=0;
        		    PDL_BROADCASTLOOP_START_pnmout_readdata
          			{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) {
            				PerlIO_printf(__params->fp,"%3d ",__params->isbin ?
            					((a_datap)[0+(__inc_a_m*(m))] < 1) :(a_datap)[0+(__inc_a_m*(m))]);
            				len +=4;
            				if (len>58) { PerlIO_printf(__params->fp,"\n"); len=0; }
            			}} /* Close m */
          			if (len<=58)
          				PerlIO_printf(__params->fp,"\n");
          		    PDL_BROADCASTLOOP_END_pnmout_readdata
        		}
        }
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in pnmout: unhandled datatype(%d), only handles (BSUL)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}

static pdl_datatypes pdl_pnmout_vtable_gentypes[] = { PDL_B, PDL_US, PDL_S, PDL_L, -1 };
static PDL_Indx pdl_pnmout_vtable_realdims[] = { 1 };
static char *pdl_pnmout_vtable_parnames[] = { "a" };
static short pdl_pnmout_vtable_parflags[] = {
  PDL_PARAM_ISPHYS
};
static pdl_datatypes pdl_pnmout_vtable_partypes[] = { -1 };
static PDL_Indx pdl_pnmout_vtable_realdims_starts[] = { 0 };
static PDL_Indx pdl_pnmout_vtable_realdims_ind_ids[] = { 0 };
static char *pdl_pnmout_vtable_indnames[] = { "m" };
pdl_transvtable pdl_pnmout_vtable = {
  PDL_TRANS_DO_BROADCAST|PDL_TRANS_NO_PARALLEL, 0, pdl_pnmout_vtable_gentypes, 1, 1, NULL /*CORE21*/,
  pdl_pnmout_vtable_realdims, pdl_pnmout_vtable_parnames,
  pdl_pnmout_vtable_parflags, pdl_pnmout_vtable_partypes,
  pdl_pnmout_vtable_realdims_starts, pdl_pnmout_vtable_realdims_ind_ids, 1,
  1, pdl_pnmout_vtable_indnames,
  NULL, pdl_pnmout_readdata, NULL,
  NULL,
  sizeof(pdl_params_pnmout),"PDL::IO::Pnm::pnmout"
};


pdl_error pdl_run_pnmout(pdl  *a,int  israw,int  isbin,PerlIO  *fp) {
  pdl_error PDL_err = {0, NULL, 0};
  if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
  pdl_trans *__privtrans = PDL->create_trans(&pdl_pnmout_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_pnmout *__params = __privtrans->params;
  __privtrans->pdls[0] = a;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->israw) = (israw); /* CType.get_copy */
  (__params->isbin) = (isbin); /* CType.get_copy */
  (__params->fp) = (fp); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}