File Coverage

lib/PDL/Image2D.xs

Criterion	Covered	Total	%
statement	38	54	70.3
branch	99	278	35.6
condition			n/a
subroutine			n/a
pod			n/a
total	137	332	41.2

#line 453 "lib/PDL/PP.pm"
/*
 * THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Image2D.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_Image2D
extern Core* PDL; /* Structure hold core C functions */
#line 23 "lib/PDL/Image2D.xs"
pdl_error pdl_run_polyfill_pp(pdl  *im,pdl  *ps,pdl  *col);
pdl_error pdl_run_pnpoly_pp(pdl  *a,pdl  *ps,pdl  *msk);
pdl_error pdl_run_pnpolyfill_pp(pdl  *a,pdl  *ps,pdl  *col);


/* Fast Modulus with proper negative behaviour */

#define REALMOD(a,b) {while ((a)>=(b)) (a) -= (b); while ((a)<0) (a) += (b);}

#define X(symbol, ctype, ppsym, ...) \
  ctype quick_select_ ## ppsym(ctype arr[], int n);
PDL_TYPELIST_REAL(X)
#undef X
pdl_error pdl_run_conv2d(pdl  *a,pdl  *kern,pdl  *b,int  opt);
pdl_error pdl_run_med2d(pdl  *a,pdl  *kern,pdl  *b,int  opt);
pdl_error pdl_run_med2df(pdl  *a,pdl  *b,IV  p_size,IV  q_size,int  opt);
#define EZ(x) ez ? 0 : (x)
pdl_error pdl_run_box2d(pdl  *a,pdl  *b,int  wx,int  wy,int  edgezero);
pdl_error pdl_run_patch2d(pdl  *a,pdl  *bad,pdl  *b);
pdl_error pdl_run_patchbad2d(pdl  *a,pdl  *b);
pdl_error pdl_run_max2d_ind(pdl  *a,pdl  *val,pdl  *x,pdl  *y);
pdl_error pdl_run_centroid2d(pdl  *im,pdl  *x,pdl  *y,pdl  *box,pdl  *xcen,pdl  *ycen);
pdl_error pdl_run_ccNcompt(pdl  *a,pdl  *b,int  con);
int getnewsize(PDL_Indx cols, PDL_Indx rows, float fangle, PDL_Indx *newcols, PDL_Indx *newrows);
typedef unsigned char imT;    /* image type */
int rotate(imT *im, imT *out, int cols, int rows, int nc, int nr,
           float fangle, imT bgval, int antialias);
pdl_error pdl_run_rot2d(pdl  *im,pdl  *angle,pdl  *bg,pdl  *aa,pdl  *om);
pdl_error pdl_run_bilin2d(pdl  *Int,pdl  *O);
pdl_error pdl_run_rescale2d(pdl  *Int,pdl  *O);
#include "resample.h"
pdl_error pdl_run_warp2d(pdl  *img,pdl  *px,pdl  *py,pdl  *warp,char  *kernel_type,double  noval,IV  nsamples);
pdl_error pdl_run_warp2d_kernel(pdl  *x,pdl  *k,char  *name,PDL_Indx  nsize);

#line 449 "lib/PDL/PP.pm"
#include "pdlperl.h"
#line 60 "lib/PDL/Image2D.xs"

Core* PDL = NULL; /* Structure hold core C functions */

MODULE = PDL::Image2D PACKAGE = PDL PREFIX=pdl_run_

PROTOTYPES: DISABLE


void
pdl_run_polyfill_pp(im, ps, col)
  pdl *im
  pdl *ps
  pdl *col
 PPCODE:
  PDL->barf_if_error(pdl_run_polyfill_pp(im,ps,col));

void
pdl_run_pnpoly_pp(a, ps, msk=PDL_XS_PERLINIT_initsv(msk_SV))
  SV *msk_SV = items > 2 ? ST(2) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
 INPUT:
  pdl *a
  pdl *ps
  pdl *msk
 PPCODE:
  PDL->barf_if_error(pdl_run_pnpoly_pp(a,ps,msk));
  PDL_XS_RETURN(ST(0) = msk_SV)

void
pdl_run_pnpolyfill_pp(a, ps, col)
  pdl *a
  pdl *ps
  pdl *col
 PPCODE:
  PDL->barf_if_error(pdl_run_pnpolyfill_pp(a,ps,col));

void
_conv2d_int(a,kern,b,opt)
  pdl  *a
  pdl  *kern
  pdl  *b
  int  opt
 CODE:
  PDL->barf_if_error(pdl_run_conv2d(a,kern,b,opt));

void
_med2d_int(a,kern,b,opt)
  pdl  *a
  pdl  *kern
  pdl  *b
  int  opt
 CODE:
  PDL->barf_if_error(pdl_run_med2d(a,kern,b,opt));

void
_med2df_int(a,b,p_size,q_size,opt)
  pdl  *a
  pdl  *b
  IV  p_size
  IV  q_size
  int  opt
 CODE:
  PDL->barf_if_error(pdl_run_med2df(a,b,p_size,q_size,opt));

void
pdl_run_box2d(a, b=b, wx=wx, wy=wy, edgezero=edgezero)
  SV *b_SV = (items == 5) ? ST(1) : NULL;
  SV *wx_SV = (items == 5) ? ST(2) : ST(1);
  SV *wy_SV = (items == 5) ? ST(3) : ST(2);
  SV *edgezero_SV = (items == 5) ? ST(4) : ST(3);
 PREINIT:
  PDL_XS_PREAMBLE((items == 5) ? 0 : 1);
  if (!((items == 4) || (items == 5)))
    croak("Usage: PDL::box2d(a,[b],wx,wy,edgezero) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *a
  pdl *b=NO_INIT
  int  wx; { wx = (int)SvIV(wx_SV); }
  int  wy; { wy = (int)SvIV(wy_SV); }
  int  edgezero; { edgezero = (int)SvIV(edgezero_SV); }
 PPCODE:
  if (b_SV) { b = PDL_CORE_(SvPDLV)(b_SV); } else b = PDL_XS_PERLINIT_initsv(b_SV);
  PDL->barf_if_error(pdl_run_box2d(a,b,wx,wy,edgezero));
  PDL_XS_RETURN(ST(0) = b_SV)

void
pdl_run_patch2d(a, bad, b=PDL_XS_PERLINIT_initsv(b_SV))
  SV *b_SV = items > 2 ? ST(2) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
 INPUT:
  pdl *a
  pdl *bad
  pdl *b
 PPCODE:
  PDL->barf_if_error(pdl_run_patch2d(a,bad,b));
  PDL_XS_RETURN(ST(0) = b_SV)

void
pdl_run_patchbad2d(a, b=PDL_XS_PERLINIT_initsv(b_SV))
  SV *b_SV = items > 1 ? ST(1) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 2) ? 0 : 1);
 INPUT:
  pdl *a
  pdl *b
 PPCODE:
  PDL->barf_if_error(pdl_run_patchbad2d(a,b));
  PDL_XS_RETURN(ST(0) = b_SV)

void
pdl_run_max2d_ind(a, val=PDL_XS_PERLINIT_initsv(val_SV), x=PDL_XS_PERLINIT_initsv(x_SV), y=PDL_XS_PERLINIT_initsv(y_SV))
  SV *val_SV = items > 1 ? ST(1) : NULL;
  SV *x_SV = items > 2 ? ST(2) : NULL;
  SV *y_SV = items > 3 ? ST(3) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 4) ? 0 : 3);
 INPUT:
  pdl *a
  pdl *val
  pdl *x
  pdl *y
 PPCODE:
  PDL->barf_if_error(pdl_run_max2d_ind(a,val,x,y));
  PDL_XS_RETURN(ST(0) = val_SV;ST(1) = x_SV;ST(2) = y_SV)

void
pdl_run_centroid2d(im, x, y, box, xcen=PDL_XS_PERLINIT_initsv(xcen_SV), ycen=PDL_XS_PERLINIT_initsv(ycen_SV))
  SV *xcen_SV = items > 4 ? ST(4) : NULL;
  SV *ycen_SV = items > 5 ? ST(5) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 6) ? 0 : 2);
 INPUT:
  pdl *im
  pdl *x
  pdl *y
  pdl *box
  pdl *xcen
  pdl *ycen
 PPCODE:
  PDL->barf_if_error(pdl_run_centroid2d(im,x,y,box,xcen,ycen));
  PDL_XS_RETURN(ST(0) = xcen_SV;ST(1) = ycen_SV)

void
pdl_run_ccNcompt(a, b=b, con=con)
  SV *b_SV = (items == 3) ? ST(1) : NULL;
  SV *con_SV = (items == 3) ? ST(2) : ST(1);
 PREINIT:
  PDL_XS_PREAMBLE((items == 3) ? 0 : 1);
  if (!((items == 2) || (items == 3)))
    croak("Usage: PDL::ccNcompt(a,[b],con) (you may leave [outputs] and values with =defaults out of list)");
 INPUT:
  pdl *a
  pdl *b=NO_INIT
  int  con; { con = (int)SvIV(con_SV); }
 PPCODE:
  if (b_SV) { b = PDL_CORE_(SvPDLV)(b_SV); } else b = PDL_XS_PERLINIT_initsv(b_SV);
  PDL->barf_if_error(pdl_run_ccNcompt(a,b,con));
  PDL_XS_RETURN(ST(0) = b_SV)

MODULE = PDL::Image2D PACKAGE = PDL::Image2D



void
rotnewsz(m,n,angle)
	int m
	int n
	float angle
	PPCODE:
	PDL_Indx newcols, newrows;

	if (getnewsize(m,n,angle,&newcols,&newrows) != 0)
		croak("wrong angle (should be between -90 and +90)");
	EXTEND(sp,2);
	PUSHs(sv_2mortal(newSVnv(newcols)));
	PUSHs(sv_2mortal(newSVnv(newrows)));

MODULE = PDL::Image2D PACKAGE = PDL PREFIX=pdl_run_


void
pdl_run_rot2d(im, angle, bg, aa, om=PDL_XS_PERLINIT_initsv(om_SV))
  SV *om_SV = items > 4 ? ST(4) : NULL;
 PREINIT:
  PDL_XS_PREAMBLE((items == 5) ? 0 : 1);
 INPUT:
  pdl *im
  pdl *angle
  pdl *bg
  pdl *aa
  pdl *om
 PPCODE:
  PDL->barf_if_error(pdl_run_rot2d(im,angle,bg,aa,om));
  PDL_XS_RETURN(ST(0) = om_SV)

void
pdl_run_bilin2d(Int, O)
  pdl *Int
  pdl *O
 PPCODE:
  PDL->barf_if_error(pdl_run_bilin2d(Int,O));

void
pdl_run_rescale2d(Int, O)
  pdl *Int
  pdl *O
 PPCODE:
  PDL->barf_if_error(pdl_run_rescale2d(Int,O));

void
_warp2d_int(img,px,py,warp,kernel_type,noval,nsamples)
  pdl  *img
  pdl  *px
  pdl  *py
  pdl  *warp
  char  *kernel_type
  double  noval
  IV  nsamples
 CODE:
  PDL->barf_if_error(pdl_run_warp2d(img,px,py,warp,kernel_type,noval,nsamples));

MODULE = PDL::Image2D PACKAGE = PDL::Image2D



int
_get_kernel_size()
  PROTOTYPE:
  CODE:
    RETVAL = KERNEL_SAMPLES;
  OUTPUT:
    RETVAL


MODULE = PDL::Image2D PACKAGE = PDL PREFIX=pdl_run_


void
_warp2d_kernel_int(x,k,name,nsize)
  pdl  *x
  pdl  *k
  char  *name
  PDL_Indx  nsize
 CODE:
  PDL->barf_if_error(pdl_run_warp2d_kernel(x,k,name,nsize));


#line 483 "lib/PDL/PP.pm"
BOOT:
   /* Get pointer to structure of core shared C routines */
   /* make sure PDL::Core is loaded */
#line 314 "lib/PDL/Image2D.xs"
   perl_require_pv ("PDL/Core.pm"); /* make sure PDL::Core is loaded */
#ifndef aTHX_
#define aTHX_
#endif
   if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV));
   SV* CoreSV = perl_get_sv("PDL::SHARE",FALSE); /* var with core structure */
   if (!CoreSV)
     Perl_croak(aTHX_ "We require the PDL::Core module, which was not found");
   if (!(PDL = INT2PTR(Core*,SvIV( CoreSV )))) /* Core* value */
     Perl_croak(aTHX_ "Got NULL pointer for PDL");
   if (PDL->Version != PDL_CORE_VERSION)
     Perl_croak(aTHX_ "[PDL->Version: %ld PDL_CORE_VERSION: %ld XS_VERSION: %s] PDL::Image2D needs to be recompiled against the newly installed PDL", (long int)PDL->Version, (long int)PDL_CORE_VERSION, XS_VERSION);