File Coverage

pp-plstripc.c

Criterion	Covered	Total	%
statement	83	87	95.4
branch	66	126	52.3
condition			n/a
subroutine			n/a
pod			n/a
total	149	213	69.9

#line 453 "lib/PDL/PP.pm"
/*
 * THIS FILE WAS GENERATED BY PDL::PP from plplot.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_Graphics_PLplot
extern Core* PDL; /* Structure hold core C functions */
#line 23 "pp-plstripc.c"
#include
#include
#include
#include

#ifndef PDL /* this is needed for PDL pre-2.058 */
#define PDL PDL_Graphics_PLplot
Core* PDL = NULL; PDL_COMMENT("Structure hold core C functions")
#endif

#define PLPTR_DEFINE(t) typedef t *t ## Ptr; typedef t *t ## Ptr__OUT;
PLPTR_DEFINE(PLcGrid)
PLPTR_DEFINE(PLcGrid2)
#define PLPTR_RECEIVE_IN(t, v, v_in) t *v = (t *)v_in;
#define PLPTR_RECEIVE_SV(v) ((PLPointer) (SvROK(v) ? SvIV((SV*)SvRV(v)) : (IV)NULL))

void pltr_iv_set(IV iv0, IV iv1, IV iv2);
void pltr_callback_set(SV *sv, char *msg);
void pltr_callback(PLFLT x, PLFLT y, PLFLT* tx, PLFLT* ty, PLPointer pltr_data);
void* get_standard_pltrcb(SV* cb);
void defined_callback_set(SV *sv, char *msg);
PLINT defined_callback(PLFLT x, PLFLT y);
void default_magic(pdl *p, size_t pa);
void mapform_callback_set(SV *sv, char *msg);
void mapform_callback(PLINT n, PLFLT* x, PLFLT* y);
void xform_callback_set(SV *sv, char *msg);
void xform_callback(PLFLT x, PLFLT y, PLFLT *xt, PLFLT *yt, PLPointer data);
void labelfunc_callback_set(SV *sv, char *msg);
void labelfunc_callback(PLINT axis, PLFLT value, char *label_text, PLINT length, void *data);

#line 1846 "lib/PDL/PP.pm"
typedef struct pdl_params_plstripc {
#line 56 "pp-plstripc.c"
  char *xspec;
  char *yspec;
  SV *legline;
  char *labx;
  char *laby;
  char *labtop;
} pdl_params_plstripc;


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_plstripc_readdata(pdl_trans *__privtrans) {
  pdl_error PDL_err = {0, NULL, 0};
#line 69 "pp-plstripc.c"
  pdl_params_plstripc *__params = __privtrans->params; (void)__params;
  if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in plstripc:" "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_xmin = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
  register PDL_Indx __tinc0_xmax = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
  register PDL_Indx __tinc0_xjump = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
  register PDL_Indx __tinc0_ymin = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,0);
  register PDL_Indx __tinc0_ymax = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,0);
  register PDL_Indx __tinc0_xlpos = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,0);
  register PDL_Indx __tinc0_ylpos = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,0);
  register PDL_Indx __tinc0_y_ascl = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,0);
  register PDL_Indx __tinc0_acc = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,8,0);
  register PDL_Indx __tinc0_colbox = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,9,0);
  register PDL_Indx __tinc0_collab = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,10,0);
  register PDL_Indx __tinc0_colline = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,11,0);
  register PDL_Indx __tinc0_styline = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,12,0);
  register PDL_Indx __tinc0_id = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,13,0);
  register PDL_Indx __tinc1_xmin = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
  register PDL_Indx __tinc1_xmax = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
  register PDL_Indx __tinc1_xjump = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
  register PDL_Indx __tinc1_ymin = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,3,1);
  register PDL_Indx __tinc1_ymax = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,4,1);
  register PDL_Indx __tinc1_xlpos = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,5,1);
  register PDL_Indx __tinc1_ylpos = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,6,1);
  register PDL_Indx __tinc1_y_ascl = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,7,1);
  register PDL_Indx __tinc1_acc = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,8,1);
  register PDL_Indx __tinc1_colbox = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,9,1);
  register PDL_Indx __tinc1_collab = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,10,1);
  register PDL_Indx __tinc1_colline = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,11,1);
  register PDL_Indx __tinc1_styline = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,12,1);
  register PDL_Indx __tinc1_id = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,13,1);
  #define PDL_BROADCASTLOOP_START_plstripc_readdata PDL_BROADCASTLOOP_START( \
    readdata, \
    __privtrans->broadcast, \
    __privtrans->vtable, \
    xmin_datap += __offsp[0]; \
    xmax_datap += __offsp[1]; \
    xjump_datap += __offsp[2]; \
    ymin_datap += __offsp[3]; \
    ymax_datap += __offsp[4]; \
    xlpos_datap += __offsp[5]; \
    ylpos_datap += __offsp[6]; \
    y_ascl_datap += __offsp[7]; \
    acc_datap += __offsp[8]; \
    colbox_datap += __offsp[9]; \
    collab_datap += __offsp[10]; \
    colline_datap += __offsp[11]; \
    styline_datap += __offsp[12]; \
    id_datap += __offsp[13]; \
    , \
    (  ,xmin_datap += __tinc1_xmin - __tinc0_xmin * __tdims0 \
    ,xmax_datap += __tinc1_xmax - __tinc0_xmax * __tdims0 \
    ,xjump_datap += __tinc1_xjump - __tinc0_xjump * __tdims0 \
    ,ymin_datap += __tinc1_ymin - __tinc0_ymin * __tdims0 \
    ,ymax_datap += __tinc1_ymax - __tinc0_ymax * __tdims0 \
    ,xlpos_datap += __tinc1_xlpos - __tinc0_xlpos * __tdims0 \
    ,ylpos_datap += __tinc1_ylpos - __tinc0_ylpos * __tdims0 \
    ,y_ascl_datap += __tinc1_y_ascl - __tinc0_y_ascl * __tdims0 \
    ,acc_datap += __tinc1_acc - __tinc0_acc * __tdims0 \
    ,colbox_datap += __tinc1_colbox - __tinc0_colbox * __tdims0 \
    ,collab_datap += __tinc1_collab - __tinc0_collab * __tdims0 \
    ,colline_datap += __tinc1_colline - __tinc0_colline * __tdims0 \
    ,styline_datap += __tinc1_styline - __tinc0_styline * __tdims0 \
    ,id_datap += __tinc1_id - __tinc0_id * __tdims0 \
    ), \
    (  ,xmin_datap += __tinc0_xmin \
    ,xmax_datap += __tinc0_xmax \
    ,xjump_datap += __tinc0_xjump \
    ,ymin_datap += __tinc0_ymin \
    ,ymax_datap += __tinc0_ymax \
    ,xlpos_datap += __tinc0_xlpos \
    ,ylpos_datap += __tinc0_ylpos \
    ,y_ascl_datap += __tinc0_y_ascl \
    ,acc_datap += __tinc0_acc \
    ,colbox_datap += __tinc0_colbox \
    ,collab_datap += __tinc0_collab \
    ,colline_datap += __tinc0_colline \
    ,styline_datap += __tinc0_styline \
    ,id_datap += __tinc0_id \
    ) \
  )
  #define PDL_BROADCASTLOOP_END_plstripc_readdata PDL_BROADCASTLOOP_END( \
    __privtrans->broadcast, \
    xmin_datap -= __tinc1_xmin * __tdims1 + __offsp[0]; \
    xmax_datap -= __tinc1_xmax * __tdims1 + __offsp[1]; \
    xjump_datap -= __tinc1_xjump * __tdims1 + __offsp[2]; \
    ymin_datap -= __tinc1_ymin * __tdims1 + __offsp[3]; \
    ymax_datap -= __tinc1_ymax * __tdims1 + __offsp[4]; \
    xlpos_datap -= __tinc1_xlpos * __tdims1 + __offsp[5]; \
    ylpos_datap -= __tinc1_ylpos * __tdims1 + __offsp[6]; \
    y_ascl_datap -= __tinc1_y_ascl * __tdims1 + __offsp[7]; \
    acc_datap -= __tinc1_acc * __tdims1 + __offsp[8]; \
    colbox_datap -= __tinc1_colbox * __tdims1 + __offsp[9]; \
    collab_datap -= __tinc1_collab * __tdims1 + __offsp[10]; \
    colline_datap -= __tinc1_colline * __tdims1 + __offsp[11]; \
    styline_datap -= __tinc1_styline * __tdims1 + __offsp[12]; \
    id_datap -= __tinc1_id * __tdims1 + __offsp[13]; \
  )
  register PDL_Indx __inc_colline_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,11,0)]; (void)__inc_colline_n;
  register PDL_Indx __inc_styline_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,12,0)]; (void)__inc_styline_n;
  #ifndef PDL_DECLARE_PARAMS_plstripc_1
  #define PDL_DECLARE_PARAMS_plstripc_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_y_ascl,PDL_PPSYM_PARAM_y_ascl,PDL_TYPE_PARAM_acc,PDL_PPSYM_PARAM_acc,PDL_TYPE_PARAM_colbox,PDL_PPSYM_PARAM_colbox,PDL_TYPE_PARAM_collab,PDL_PPSYM_PARAM_collab,PDL_TYPE_PARAM_colline,PDL_PPSYM_PARAM_colline,PDL_TYPE_PARAM_styline,PDL_PPSYM_PARAM_styline,PDL_TYPE_PARAM_id,PDL_PPSYM_PARAM_id) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, xmin, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, xmax, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, xjump, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, ymin, (__privtrans->pdls[3]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, ymax, (__privtrans->pdls[4]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, xlpos, (__privtrans->pdls[5]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_OP, ylpos, (__privtrans->pdls[6]), 1, PDL_PPSYM_OP) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_y_ascl, y_ascl, (__privtrans->pdls[7]), 1, PDL_PPSYM_PARAM_y_ascl) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_acc, acc, (__privtrans->pdls[8]), 1, PDL_PPSYM_PARAM_acc) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_colbox, colbox, (__privtrans->pdls[9]), 1, PDL_PPSYM_PARAM_colbox) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_collab, collab, (__privtrans->pdls[10]), 1, PDL_PPSYM_PARAM_collab) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_colline, colline, (__privtrans->pdls[11]), 1, PDL_PPSYM_PARAM_colline) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_styline, styline, (__privtrans->pdls[12]), 1, PDL_PPSYM_PARAM_styline) \
    PDL_DECLARE_PARAMETER(PDL_TYPE_PARAM_id, id, (__privtrans->pdls[13]), 1, PDL_PPSYM_PARAM_id)
  #endif
  #define PDL_IF_BAD(t,f) f
  switch (__privtrans->__datatype) { /* Start generic switch */
    case PDL_D: {
      PDL_DECLARE_PARAMS_plstripc_1(PDL_Double,D,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L,PDL_Long,L)
      PDL_BROADCASTLOOP_START_plstripc_readdata    {
                     I32 i;
                     PLINT id;
                     char* legline[4];
                     SV* sv_legline = __params->legline;
                     AV* av_legline;

                     if (! SvROK (sv_legline)
                         || SvTYPE (SvRV (sv_legline)) != SVt_PVAV)
                       return PDL->make_error(PDL_EUSERERROR, "Error in plstripc:" "plstripc: legline must be a reference to an array");

                     av_legline = (AV*) SvRV (sv_legline);

                     if (av_len (av_legline) != 3)
                       return PDL->make_error(PDL_EUSERERROR, "Error in plstripc:" "plstripc: legline must have four elements");

                     if (__privtrans->ind_sizes[0] != 4)
                       return PDL->make_error(PDL_EUSERERROR, "Error in plstripc:" "plstripc: colline and styline must have four elements");

                     for (i = 0; i < 4; i++) {
                       SV** elem = av_fetch (av_legline, i, 0);
                       legline[i] = (char *) SvPV_nolen (*elem);
                     }

                     c_plstripc (&id, __params->xspec, __params->yspec,
          	     (xmin_datap)[0], (xmax_datap)[0], (xjump_datap)[0], (ymin_datap)[0], (ymax_datap)[0],
          	     (xlpos_datap)[0], (ylpos_datap)[0],(y_ascl_datap)[0], (acc_datap)[0], (colbox_datap)[0], (collab_datap)[0],
          	     colline_datap, styline_datap, (const char **)legline,
          	     __params->labx, __params->laby, __params->labtop);

                     (id_datap)[0] = (int) id;}PDL_BROADCASTLOOP_END_plstripc_readdata
    } break;
    default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in plstripc: unhandled datatype(%d), only handles (D)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
  }
  #undef PDL_IF_BAD
  return PDL_err;
}


#line 1857 "lib/PDL/PP.pm"
pdl_error pdl_plstripc_free(pdl_trans *__privtrans, char destroy) {
  pdl_error PDL_err = {0, NULL, 0};
#line 237 "pp-plstripc.c"
  pdl_params_plstripc *__params = __privtrans->params; (void)__params;
  PDL_FREE_CODE(__privtrans, destroy, free(__params->xspec); /* CType.get_free */
  free(__params->yspec); /* CType.get_free */
  SvREFCNT_dec(__params->legline); /* CType.get_free */
  free(__params->labx); /* CType.get_free */
  free(__params->laby); /* CType.get_free */
  free(__params->labtop); /* CType.get_free */
  , )  return PDL_err;
}

static pdl_datatypes pdl_plstripc_vtable_gentypes[] = { PDL_D, -1 };
static PDL_Indx pdl_plstripc_vtable_realdims[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0 };
static char *pdl_plstripc_vtable_parnames[] = { "xmin","xmax","xjump","ymin","ymax","xlpos","ylpos","y_ascl","acc","colbox","collab","colline","styline","id" };
static short pdl_plstripc_vtable_parflags[] = {
  0,
  0,
  0,
  0,
  0,
  0,
  0,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISPHYS|PDL_PARAM_ISTYPED,
  PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
};
static pdl_datatypes pdl_plstripc_vtable_partypes[] = { -1, -1, -1, -1, -1, -1, -1, PDL_L, PDL_L, PDL_L, PDL_L, PDL_L, PDL_L, PDL_L };
static PDL_Indx pdl_plstripc_vtable_realdims_starts[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2 };
static PDL_Indx pdl_plstripc_vtable_realdims_ind_ids[] = { 0, 0 };
static char *pdl_plstripc_vtable_indnames[] = { "n" };
pdl_transvtable pdl_plstripc_vtable = {
  PDL_TRANS_DO_BROADCAST|PDL_TRANS_NO_PARALLEL, 0, pdl_plstripc_vtable_gentypes, 13, 14, NULL /*CORE21*/,
  pdl_plstripc_vtable_realdims, pdl_plstripc_vtable_parnames,
  pdl_plstripc_vtable_parflags, pdl_plstripc_vtable_partypes,
  pdl_plstripc_vtable_realdims_starts, pdl_plstripc_vtable_realdims_ind_ids, 2,
  1, pdl_plstripc_vtable_indnames,
  NULL, pdl_plstripc_readdata, NULL,
  pdl_plstripc_free,
  sizeof(pdl_params_plstripc),"PDL::Graphics::PLplot::plstripc"
};


pdl_error pdl_run_plstripc(pdl  *xmin,pdl  *xmax,pdl  *xjump,pdl  *ymin,pdl  *ymax,pdl  *xlpos,pdl  *ylpos,pdl  *y_ascl,pdl  *acc,pdl  *colbox,pdl  *collab,pdl  *colline,pdl  *styline,pdl  *id,char *xspec,char *yspec,SV *legline,char *labx,char *laby,char *labtop) {
  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_plstripc_vtable);
  if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
  pdl_params_plstripc *__params = __privtrans->params;
  __privtrans->pdls[0] = xmin;
  __privtrans->pdls[1] = xmax;
  __privtrans->pdls[2] = xjump;
  __privtrans->pdls[3] = ymin;
  __privtrans->pdls[4] = ymax;
  __privtrans->pdls[5] = xlpos;
  __privtrans->pdls[6] = ylpos;
  __privtrans->pdls[7] = y_ascl;
  __privtrans->pdls[8] = acc;
  __privtrans->pdls[9] = colbox;
  __privtrans->pdls[10] = collab;
  __privtrans->pdls[11] = colline;
  __privtrans->pdls[12] = styline;
  __privtrans->pdls[13] = id;
  PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
  (__params->xspec) = malloc(strlen(xspec)+1); strcpy(__params->xspec,xspec); /* CType.get_copy */
  (__params->yspec) = malloc(strlen(yspec)+1); strcpy(__params->yspec,yspec); /* CType.get_copy */
  (__params->legline) = newSVsv(legline); /* CType.get_copy */
  (__params->labx) = malloc(strlen(labx)+1); strcpy(__params->labx,labx); /* CType.get_copy */
  (__params->laby) = malloc(strlen(laby)+1); strcpy(__params->laby,laby); /* CType.get_copy */
  (__params->labtop) = malloc(strlen(labtop)+1); strcpy(__params->labtop,labtop); /* CType.get_copy */
  PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
  return PDL_err;
}