File Coverage

lib/PDL/Slices-pp-mv.c

Criterion	Covered	Total	%
statement	30	30	100.0
branch	12	18	66.6
condition			n/a
subroutine			n/a
pod			n/a
total	42	48	87.5

#line 453 "lib/PDL/PP.pm"
/*
 * THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Slices.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_Slices
extern Core* PDL; /* Structure hold core C functions */
#line 23 "lib/PDL/Slices-pp-mv.c"
#define EQUIVDIM(dima,dimb,cdim,inc) \
  ((cdim < PDLMIN(dima,dimb) || cdim > PDLMAX(dima,dimb)) ? \
    cdim : ((cdim == dimb) ? dima : cdim + inc))



#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_mv {
#line 32 "lib/PDL/Slices-pp-mv.c"
  PDL_Indx  n1;
  PDL_Indx  n2;
} pdl_params_mv;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_mv_redodims(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 41 "lib/PDL/Slices-pp-mv.c"
  pdl_params_mv *__params = __privtrans->params; (void)__params;
  pdl *__it = __privtrans->pdls[1]; (void) __it;
  PDL->hdr_childcopy(__privtrans); __privtrans->dims_redone = 1;
   PDL_Indx i,cor;

  #line 1593 "lib/PDL/Slices.pd"
            if (__params->n1 <0)
                __params->n1 += __privtrans->pdls[0]->broadcastids[0];
            if (__params->n2 <0)
                __params->n2 += __privtrans->pdls[0]->broadcastids[0];
            if (PDLMIN(__params->n1,__params->n2) <0 ||
                PDLMAX(__params->n1,__params->n2) >= __privtrans->pdls[0]->broadcastids[0])
                  return PDL->make_error(PDL_EUSERERROR, "Error in mv:" "One of dims %"IND_FLAG", %"IND_FLAG" out of range: should be 0<=dim<%"IND_FLAG"",__params->n1,__params->n2,__privtrans->pdls[0]->broadcastids[0]);
  #line 55 "lib/PDL/Slices-pp-mv.c"

            PDL_RETERROR(PDL_err, PDL->reallocdims(__it,__privtrans->pdls[0]->ndims));;
            __privtrans->incs = malloc(sizeof(*__privtrans->incs) * __privtrans->pdls[1]->ndims); /* CType.get_malloc */
  ;
            __privtrans->offs = 0;
            for(i=0; i<__privtrans->pdls[1]->ndims; i++) {
              cor =
  #line 1603 "lib/PDL/Slices.pd"
          (
            __params->n1 == __params->n2 ? i :
            __params->n1 < __params->n2 ? EQUIVDIM(__params->n1,__params->n2,i,1) :
            EQUIVDIM(__params->n1,__params->n2,i,-1)
          )
  #line 69 "lib/PDL/Slices-pp-mv.c"
  ;
              __privtrans->pdls[1]->dims[i] = __privtrans->pdls[0]->dims[cor];
              __privtrans->incs[i] = __privtrans->pdls[0]->dimincs[cor];
            }
            PDL_RETERROR(PDL_err, PDL->setdims_careful(__it));;

  #line 384 "lib/PDL/PP.pm"
  {int __ind; PDL_RETERROR(PDL_err, PDL->reallocbroadcastids(__privtrans->pdls[1], __privtrans->pdls[0]->nbroadcastids));
  for(__ind=0; __ind<__privtrans->pdls[0]->nbroadcastids; __ind++)
    __privtrans->pdls[1]->broadcastids[__ind] = __privtrans->pdls[0]->broadcastids[__ind] + (0);
  }
  #line 81 "lib/PDL/Slices-pp-mv.c"
  ;
            __privtrans->dims_redone = 1;
            return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_mv_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 91 "lib/PDL/Slices-pp-mv.c"
  pdl_params_mv *__params = __privtrans->params; (void)__params;
  pdl *__it = __privtrans->pdls[1]; (void) __it;
  PDL_FREE_CODE(__privtrans, destroy, , free(__privtrans->incs); /* CType.get_free */
  )  return PDL_err;
}

static pdl_datatypes pdl_mv_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 };
static PDL_Indx pdl_mv_vtable_realdims[] = { 0, 0 };
static char *pdl_mv_vtable_parnames[] = { "PARENT","CHILD" };
static short pdl_mv_vtable_parflags[] = {
  0,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISCREATEALWAYS|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_mv_vtable_partypes[] = { -1, -1 };
static PDL_Indx pdl_mv_vtable_realdims_starts[] = { 0, 0 };
static PDL_Indx pdl_mv_vtable_realdims_ind_ids[] = { 0 };
static char *pdl_mv_vtable_indnames[] = { "" };
pdl_transvtable pdl_mv_vtable = {
  0, PDL_ITRANS_ISAFFINE|PDL_ITRANS_TWOWAY|PDL_ITRANS_DO_DATAFLOW_ANY, pdl_mv_vtable_gentypes, 1, 2, NULL /*CORE21*/,
  pdl_mv_vtable_realdims, pdl_mv_vtable_parnames,
  pdl_mv_vtable_parflags, pdl_mv_vtable_partypes,
  pdl_mv_vtable_realdims_starts, pdl_mv_vtable_realdims_ind_ids, 0,
  0, pdl_mv_vtable_indnames,
  pdl_mv_redodims, NULL, NULL,
  pdl_mv_free,
  sizeof(pdl_params_mv),"PDL::Slices::mv"
};


pdl_error pdl_run_mv(pdl  *PARENT,pdl  *CHILD,PDL_Indx  n1,PDL_Indx  n2) {
  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_mv_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_mv *__params = __privtrans->params;
  __privtrans->pdls[0] = PARENT;
  __privtrans->pdls[1] = CHILD;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->n1) = (n1); /* CType.get_copy */
  (__params->n2) = (n2); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}