Result:
found more than 1151 distributions - search limited to the first 2001 files matching your query
( run in 3.297 )
Mac-Pasteboard
view release on metacpan or search on metacpan
Pasteboard.xs view on Meta::CPAN
OUTPUT:
RETVAL
void
xs_pbl_create (SV * input_name)
PPCODE:
#ifdef USE_PBL_BACKEND
char *cname;
char *created_name;
void *pbref;
long status;
Pasteboard.xs view on Meta::CPAN
OUTPUT:
RETVAL
long
xs_pbl_paste( void *pbref, SV *id, SV *sv_flavor )
PPCODE:
#ifdef USE_PBL_BACKEND
unsigned char *data;
size_t size;
long status;
unsigned long cid;
Pasteboard.xs view on Meta::CPAN
OUTPUT:
RETVAL
void
xs_pbl_all( void *pbref, SV *sv_id, int want_data, SV *sv_conforms_to )
PPCODE:
#ifdef USE_PBL_BACKEND
pbl_rqst_t rqst;
pbl_resp_t *resp;
size_t num_resp;
long status;
Mac-PropertyList-XS
view release on metacpan or search on metacpan
const-xs.inc view on Meta::CPAN
/* NV nv; Uncomment this if you need to return NVs */
/* const char *pv; Uncomment this if you need to return PVs */
INPUT:
SV * sv;
const char * s = SvPV(sv, len);
PPCODE:
type = constant(aTHX_ s, len);
/* Return 1 or 2 items. First is error message, or undef if no error.
Second, if present, is found value */
switch (type) {
case PERL_constant_NOTFOUND:
Mac-Spotlight
view release on metacpan or search on metacpan
MDQuery/MDQuery.xs view on Meta::CPAN
MODULE = Mac::Spotlight::MDQuery PACKAGE = Mac::Spotlight::MDQuery
CFStringRef
kMDQueryScopeHome()
=item Would it be more efficient to do a PPCODE that pushes the object
pointer? Do we care?
=cut
CODE:
RETVAL = kMDQueryScopeHome;
OUTPUT:
MDQuery/MDQuery.xs view on Meta::CPAN
void
_getResults(query)
MDQueryRef query
PPCODE:
CFIndex x;
SV* tmpHash;
SV* tmpScalar;
int i = MDQueryGetResultCount(query);
for (x = 0; x < i; x++) {
Mac-SystemDirectory
view release on metacpan or search on metacpan
SystemDirectory.xs view on Meta::CPAN
INIT:
directory = (NSSearchPathDirectory)constant;
domainMask = (NSSearchPathDomainMask)mask;
PPCODE:
switch(directory) {
case NSApplicationDirectory:
case NSDemoApplicationDirectory:
case NSAdminApplicationDirectory:
case NSDeveloperApplicationDirectory:
SystemDirectory.xs view on Meta::CPAN
PREINIT:
NSAutoreleasePool * pool = [[NSAutoreleasePool alloc] init];
NSString *path;
PPCODE:
switch (ix) {
case 0:
path = NSHomeDirectory();
break;
case 1:
MacOSX-File
view release on metacpan or search on metacpan
Spec/Spec.xs view on Meta::CPAN
RETVAL
void
as_array(self)
SV *self;
PPCODE:
if (SvROK(self) && sv_isa(self, ClassName)){
EXTEND(SP, 3);
PUSHs(sv_2mortal(vRefNum(self)));
PUSHs(sv_2mortal(parID(self)));
PUSHs(sv_2mortal(name(self)));
Mail-Box-Parser-C
view release on metacpan or search on metacpan
PREINIT:
Mailbox *box;
Separator *sep;
PPCODE:
box = get_box(boxnr);
if(box==NULL) return;
/*fprintf(stderr, "separator %s\n", line_start);*/
New(0, sep, 1, Separator);
Mailbox * box;
SV * name;
SV * content;
SV * end;
PPCODE:
box = get_box(boxnr);
if(box==NULL || box->file==NULL) return;
XPUSHs(sv_2mortal(newSViv((IV)file_position(box))));
XPUSHs(end = sv_newmortal());
PREINIT:
Mailbox *box;
Separator *sep;
char *line;
PPCODE:
box = get_box(boxnr);
if(box==NULL)
XSRETURN_EMPTY;
sep = box->separators; /* Never success when there is no sep */
int nr_lines = 0;
int nr_chars = 0;
int line_nr;
long begin;
PPCODE:
box = get_box(boxnr);
if(box==NULL)
XSRETURN_EMPTY;
begin = file_position(box);
int nr_chars = 0;
int line_nr;
long begin;
AV * results;
PPCODE:
box = get_box(boxnr);
if(box==NULL)
XSRETURN_EMPTY;
begin = file_position(box);
int nr_lines=0;
int nr_chars=0;
int line_nr;
long begin;
PPCODE:
box = get_box(boxnr);
if(box==NULL)
XSRETURN_EMPTY;
begin = file_position(box);
Mailbox *box;
int nr_lines = 0;
int nr_chars = 0;
long begin;
PPCODE:
box = get_box(boxnr);
if(box==NULL)
XSRETURN_EMPTY;
begin = file_position(box);
Mail-Cclient
view release on metacpan or search on metacpan
void
mailstream_perm_user_flags(stream)
Mail::Cclient stream
PREINIT:
int i;
PPCODE:
for (i = 0; i < NUSERFLAGS; i++)
if (stream->perm_user_flags & (1 << i))
XPUSHs(sv_2mortal(newSVpv(stream->user_flags[i], 0)));
MODULE = Mail::Cclient PACKAGE = Mail::Cclient PREFIX = mail_
Mail::Cclient stream
char * sequence
PREINIT:
int i;
long flags = 0;
PPCODE:
for (i = 2; i < items; i++) {
char *flag = SvPV(ST(i), na);
if (strEQ(flag, "uid"))
flags |= FT_UID;
else {
Mail::Cclient stream
char * sequence
PREINIT:
int i;
long flags = 0;
PPCODE:
for (i = 2; i < items; i++) {
char *flag = SvPV(ST(i), na);
if (strEQ(flag, "uid"))
flags |= FT_UID;
else {
int i;
long flags = 0;
ENVELOPE *e;
BODY **bodyp = 0;
BODY *body = 0;
PPCODE:
for (i = 2; i < items; i++) {
char *flag = SvPV(ST(i), na);
if (strEQ(flag, "uid"))
flags |= FT_UID;
else {
int i;
long flags = 0;
STRINGLIST *lines = 0;
unsigned long len;
char *hdr;
PPCODE:
for (i = 2; i < items; i++) {
SV *sv = ST(i);
if (SvROK(sv)) {
sv = (SV*)SvRV(sv);
if (SvTYPE(sv) != SVt_PVAV) {
PREINIT:
int i;
long flags = 0;
unsigned long len;
char *text;
PPCODE:
for (i = 2; i < items; i++) {
char *flag = SvPV(ST(i), na);
if (strEQ(flag, "uid"))
flags |= FT_UID;
else if (strEQ(flag, "peek"))
PREINIT:
int i;
long flags = 0;
unsigned long len;
char *body;
PPCODE:
for (i = 3; i < items; i++) {
char *flag = SvPV(ST(i), na);
if (strEQ(flag, "uid"))
flags |= FT_UID;
else if (strEQ(flag, "peek"))
mail_elt(stream, msgno)
Mail::Cclient stream
unsigned long msgno
PREINIT:
MESSAGECACHE *elt;
PPCODE:
elt = mail_elt(stream, msgno);
XPUSHs(elt ? sv_2mortal(make_elt(stream, elt)) : &sv_undef);
#
# Message Status Manipulation Functions
SV * source
PREINIT:
STRLEN srcl;
unsigned long len;
unsigned char *s;
PPCODE:
s = (unsigned char*)SvPV(source, srcl);
s = rfc822_base64(s, (unsigned long)srcl, &len);
XPUSHs(sv_2mortal(newSVpv((char*)s, (STRLEN)len)));
void
SV * source
PREINIT:
STRLEN srcl;
unsigned long len;
unsigned char *s;
PPCODE:
s = (unsigned char*)SvPV(source, srcl);
s = rfc822_qprint(s, (unsigned long)srcl, &len);
XPUSHs(sv_2mortal(newSVpv((char*)s, (STRLEN)len)));
Mail-DMARC-opendmarc
view release on metacpan or search on metacpan
const-xs.inc view on Meta::CPAN
/* NV nv; Uncomment this if you need to return NVs */
/* const char *pv; Uncomment this if you need to return PVs */
INPUT:
SV * sv;
const char * s = SvPV(sv, len);
PPCODE:
/* Change this to constant(aTHX_ s, len, &iv, &nv);
if you need to return both NVs and IVs */
type = constant(aTHX_ s, len, &iv);
/* Return 1 or 2 items. First is error message, or undef if no error.
Second, if present, is found value */
Mail-OpenDKIM
view release on metacpan or search on metacpan
OpenDKIM.xs view on Meta::CPAN
# Returns 3 values: $rc, $nsigs, @sigs
void
_dkim_getsiglist(dkim)
DKIM *dkim
PPCODE:
DKIM_SIGINFO **s = NULL;
int nsigs;
DKIM_STAT rc = dkim_getsiglist(dkim, &s, &nsigs);
/*
Mail-SpamCannibal
view release on metacpan or search on metacpan
BDBaccess/CTest.xs view on Meta::CPAN
void
t_chk4pid(path)
char * path
PREINIT:
SV * out;
PPCODE:
path = chk4pid(path);
if (path == NULL) {
ST(0) = &PL_sv_undef;
}
else {
BDBaccess/CTest.xs view on Meta::CPAN
void
t_pidpath()
PREINIT:
SV * out;
PPCODE:
out = sv_newmortal();
out = newSVpv(pidpath(),0);
ST(0) = out;
XSRETURN(1);
BDBaccess/CTest.xs view on Meta::CPAN
char * name
unsigned char * addr
PREINIT:
SV * out;
void * data;
PPCODE:
if (dbtp_readDB(&dbtp,0, name, addr, 1))
XSRETURN_UNDEF;
if (which)
data = myct_getsec();
BDBaccess/CTest.xs view on Meta::CPAN
int which
char * name
U32 cursor
PREINIT:
SV * netaddr, * tmp; /* older perl does not know about newSVuv */
PPCODE:
cursor = htonl(cursor);
if (dbtp_readDB(&dbtp,1,name,&cursor,1)) {
if(GIMME == G_ARRAY)
XSRETURN_EMPTY;
else
BDBaccess/CTest.xs view on Meta::CPAN
XSRETURN(1);
void
t_bdberror(status)
int status
PPCODE:
XPUSHs(sv_2mortal(newSVpv(db_strerror(status),0)));
XSRETURN(1);
void
t_bdbversion()
PREINIT:
char version[256];
int major, minor, patch;
PPCODE:
(void)db_version(&major,&minor,&patch);
(void)sprintf(version,"%d.%d.%d",major,minor,patch);
XPUSHs(sv_2mortal(newSVpv(version,0)));
XSRETURN(1);
Mail-Transport-Dbx
view release on metacpan or search on metacpan
void
emails (object)
SV *object;
PREINIT:
DBX_BOX *self;
PPCODE:
self = (DBX_BOX*)SvIV((SV*)SvRV(object));
if (GIMME_V == G_SCALAR) {
if (self->dbx->type == DBX_TYPE_EMAIL)
XSRETURN_YES;
else
void
subfolders (object)
SV *object;
PREINIT:
DBX_BOX *self;
PPCODE:
self = (DBX_BOX*)SvIV((SV*)SvRV(object));
if (GIMME_V == G_SCALAR) {
if (self->dbx->type == DBX_TYPE_FOLDER)
XSRETURN_YES;
RETVAL
void
rcvd_localtime (self)
DBX_EMAIL *self;
PPCODE:
XSRETURN(datify(aTHX_ &(self->email->date), 0));
void
rcvd_gmtime (self)
DBX_EMAIL *self;
PPCODE:
XSRETURN(datify(aTHX_ &(self->email->date), 1));
char *
date_received (self, ...)
DBX_EMAIL *self;
Marpa-R2
view release on metacpan or search on metacpan
xs/gp_generate.pl view on Meta::CPAN
ARG: for ( my $i = 0; $i < $#arg_type_pairs; $i += 2 ) {
$output .= q{ };
$output .= join q{ }, @arg_type_pairs[ $i .. $i + 1 ];
$output .= ";\n";
}
$output .= "PPCODE:\n";
$output .= "{\n";
$output
.= " $main::LIBMARPA_CLASS self = $wrapper_variable->$main::CLASS_LETTER;\n";
$output .= " int gp_result = $libmarpa_method("
. ( join q{, }, 'self', @args ) . ");\n";
MarpaX-ESLIF
view release on metacpan or search on metacpan
lastCompletedLocation(p, name)
SV *p;
char *name;
PREINIT:
static const char *funcs = "MarpaX::ESLIF::Recognizer::lastCompletedLocation";
PPCODE:
MarpaX_ESLIF_Recognizer_t *MarpaX_ESLIF_Recognizerp = marpaESLIFPerl_Perl2enginep(aTHX_ p);
size_t lengthl;
char *offsetp;
if (UNLIKELY(! marpaESLIFRecognizer_last_completedb(MarpaX_ESLIF_Recognizerp->marpaESLIFRecognizerp, name, &offsetp, &lengthl))) {
void
location(p)
SV *p;
PREINIT:
static const char *funcs = "MarpaX::ESLIF::Recognizer::location";
PPCODE:
MarpaX_ESLIF_Recognizer_t *MarpaX_ESLIF_Recognizerp = marpaESLIFPerl_Perl2enginep(aTHX_ p);
size_t linel;
size_t columnl;
if (UNLIKELY(! marpaESLIFRecognizer_locationb(MarpaX_ESLIF_Recognizerp->marpaESLIFRecognizerp, &linel, &columnl))) {
MassSpec-CUtilities
view release on metacpan or search on metacpan
fallback/const-xs.inc view on Meta::CPAN
/* NV nv; Uncomment this if you need to return NVs */
/* const char *pv; Uncomment this if you need to return PVs */
INPUT:
SV * sv;
const char * s = SvPV(sv, len);
PPCODE:
type = constant(aTHX_ s, len);
/* Return 1 or 2 items. First is error message, or undef if no error.
Second, if present, is found value */
switch (type) {
case PERL_constant_NOTFOUND:
Math-3Space
view release on metacpan or search on metacpan
Math::3Space::yv = 1
Math::3Space::zv = 2
Math::3Space::origin = 3
INIT:
NV *vec= space->mat + ix * 3;
PPCODE:
if (x_or_vec) {
M3S_VECLOAD(vec,x_or_vec,y,z,0);
if (ix < 3) space->is_normal= -1;
// leave $self on stack as return value
} else {
reparent(space, parent)
SV *space
SV *parent
INIT:
m3s_space_t *sp3= m3s_get_magic_space(space, OR_DIE), *psp3=NULL, *cur;
PPCODE:
m3s_space_recache_parent(space);
if (SvOK(parent)) {
psp3= m3s_get_magic_space(parent, OR_DIE);
m3s_space_recache_parent(parent);
// Make sure this doesn't create a cycle
Math::3Space::tr = 0
Math::3Space::travel = 1
Math::3Space::go = 1
INIT:
NV vec[3], *matp;
PPCODE:
M3S_VECLOAD(vec,x_or_vec,y,z,0);
if (ix) {
matp= space->mat;
matp[9] += vec[0] * matp[0] + vec[1] * matp[3] + vec[2] * matp[6];
++matp;
ALIAS:
Math::3Space::set_scale = 1
INIT:
NV vec[3], s, m, *matp= SPACE_XV(space);
size_t i;
PPCODE:
if (SvROK(xscale_or_vec) && yscale == NULL) {
m3s_read_vector_from_sv(vec, xscale_or_vec, NULL, NULL);
} else {
vec[0]= SvNV(xscale_or_vec);
vec[1]= yscale? SvNV(yscale) : vec[0];
SV *z
INIT:
m3s_vector_t vec;
ALIAS:
Math::3Space::rot = 0
PPCODE:
if (y) {
if (!z) croak("Missing z coordinate in space->rotate(angle, x, y, z)");
vec[0]= SvNV(x_or_vec);
vec[1]= SvNV(y);
vec[2]= SvNV(z);
Math::3Space::rot_zv = 5
INIT:
NV *matp, tmp1, tmp2;
size_t ofs1, ofs2;
NV s= sin(angle * 2 * M_PI), c= cos(angle * 2 * M_PI);
PPCODE:
if (ix < 3) // Rotate around axis of parent
m2s_space_parent_axis_rotate(space, s, c, ix);
else
m3s_space_self_axis_rotate(space, s, c, ix - 3);
XSRETURN(1);
size_t pdl_dims[3];
ALIAS:
Math::3Space::project = 1
Math::3Space::unproject_vector = 2
Math::3Space::unproject = 3
PPCODE:
for (i= 1; i < items; i++) {
vectype= m3s_read_vector_from_sv(vec, ST(i), pdl_dims, NULL);
if (vectype == M3S_VECTYPE_PDLMULTI) {
dSP;
if (!pdl_origin) {
SV *component_sv[3];
ALIAS:
Math::3Space::project_inplace = 1
Math::3Space::unproject_vector_inplace = 2
Math::3Space::unproject_inplace = 3
PPCODE:
for (i= 1; i < items; i++) {
if (!SvROK(ST(i)))
croak("Expected vector at $_[%d]", (int)(i-1));
vectype= m3s_read_vector_from_sv(vec, ST(i), pdl_dims, component_sv);
switch (vectype) {
m3s_space_t *space
SV *buffer
INIT:
NV *src;
double *dst;
PPCODE:
if (buffer) {
dst= (double*) m3s_make_aligned_buffer(buffer, sizeof(double)*16);
src= space->mat;
dst[ 0] = src[ 0]; dst[ 1] = src[ 1]; dst[ 2] = src[ 2]; dst[ 3] = 0;
dst[ 4] = src[ 3]; dst[ 5] = src[ 4]; dst[ 6] = src[ 5]; dst[ 7] = 0;
matrix_pack_float = 1
matrix_pack_double = 2
INIT:
double dst[16];
struct m3s_4space_frustum_projection *f= &proj->frustum;
PPCODE:
if (!space) { /* user just wants the matrix itself */
dst[ 0]= f->m00; dst[ 4]= 0; dst[ 8]= f->m20; dst[12]= 0;
dst[ 1]= 0; dst[ 5]= f->m11; dst[ 9]= f->m21; dst[13]= 0;
dst[ 2]= 0; dst[ 6]= 0; dst[10]= f->m22; dst[14]= f->m32;
dst[ 3]= 0; dst[ 7]= 0; dst[11]= -1; dst[15]= 0;
m3s_vector_p vec
SV *newval
ALIAS:
Math::3Space::Vector::y = 1
Math::3Space::Vector::z = 2
PPCODE:
if (newval) {
vec[ix]= SvNV(newval);
} else {
ST(0)= sv_2mortal(newSVnv(vec[ix]));
}
XSRETURN(1);
void
xyz(vec)
m3s_vector_p vec
PPCODE:
EXTEND(SP, 3);
PUSHs(sv_2mortal(newSVnv(vec[0])));
PUSHs(sv_2mortal(newSVnv(vec[1])));
PUSHs(sv_2mortal(newSVnv(vec[2])));
magnitude(vec, scale=NULL)
m3s_vector_p vec
SV *scale
INIT:
NV s, m= sqrt(m3s_vector_dotprod(vec,vec));
PPCODE:
if (scale) {
if (m > 0) {
s= SvNV(scale) / m;
vec[0] *= s;
vec[1] *= s;
ALIAS:
Math::3Space::Vector::add = 1
Math::3Space::Vector::sub = 2
INIT:
NV vec2[3];
PPCODE:
M3S_VECLOAD(vec2,vec2_or_x,y,z,0);
if (ix == 0) {
vec1[0]= vec2[0];
vec1[1]= vec2[1];
vec1[2]= vec2[2];
SV *vec2_or_x
SV *y
SV *z
INIT:
NV vec2[3];
PPCODE:
// single value should be treated as ($x,$x,$x) instead of ($x,0,0)
if (looks_like_number(vec2_or_x)) {
vec2[0]= SvNV(vec2_or_x);
vec2[1]= y? SvNV(y) : vec2[0];
vec2[2]= z? SvNV(z) : y? 1 : vec2[0];
SV *vec2_or_x
SV *vec3_or_y
SV *z
INIT:
m3s_vector_t vec2, vec3;
PPCODE:
if (!vec3_or_y) { // RET = vec1->cross(vec2)
m3s_read_vector_from_sv(vec2, vec2_or_x, NULL, NULL);
m3s_vector_cross(vec3, vec1, vec2);
ST(0)= sv_2mortal(m3s_wrap_vector(vec3));
} else if (z || !SvROK(vec2_or_x) || looks_like_number(vec2_or_x)) { // RET = vec1->cross(x,y,z)
Math-BigInt-GMP
view release on metacpan or search on metacpan
void
DESTROY(n)
mpz_t_ornull* n
PPCODE:
if (n) {
mpz_clear(*n);
free(n);
}
PREINIT:
int rc, sign;
SV* s;
mpz_t* RETVAL;
PPCODE:
NEW_GMP_MPZ_T_INIT;
rc = mpz_invert(*RETVAL, *x, *y);
EXTEND(SP, 2); /* we return two values */
if (rc == 0)
{
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_add(*TEMP, *TEMP, *TEMP_1);
PUSHs( x );
void
_inc(Class,x)
SV* x
PREINIT:
mpz_t* TEMP;
PPCODE:
GMP_GET_ARG_0; /* TEMP = mpz_t(x) */
mpz_add_ui(*TEMP, *TEMP, 1);
PUSHs( x );
##############################################################################
void
_dec(Class,x)
SV* x
PREINIT:
mpz_t* TEMP;
PPCODE:
GMP_GET_ARG_0; /* TEMP = mpz_t(x) */
mpz_sub_ui(*TEMP, *TEMP, 1);
PUSHs( x );
##############################################################################
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
if ( items == 4 && SvTRUE(ST(3)) )
{
/* y -= x */
mpz_sub(*TEMP_1, *TEMP, *TEMP_1);
unsigned long y_ui;
mpz_t* TEMP;
mpz_t* TEMP_1;
mpz_t* BASE;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
y_ui = mpz_get_ui(*TEMP_1);
BASE = malloc (sizeof(mpz_t));
mpz_init_set_ui(*BASE,SvUV(base_sv));
unsigned long y_ui;
mpz_t* TEMP;
mpz_t* TEMP_1;
mpz_t* BASE;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
y_ui = mpz_get_ui(*TEMP_1);
BASE = malloc (sizeof(mpz_t));
mpz_init_set_ui(*BASE,SvUV(base_sv));
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_mul(*TEMP, *TEMP, *TEMP_1);
PUSHs( x );
##############################################################################
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
mpz_t * rem;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
if (GIMME_V == G_ARRAY)
{
/* former bdiv_two() routine */
rem = malloc (sizeof(mpz_t));
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_mod(*TEMP, *TEMP, *TEMP_1);
PUSHs( x );
##############################################################################
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_pow_ui(*TEMP, *TEMP, mpz_get_ui( *TEMP_1 ) );
PUSHs( x );
##############################################################################
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_bin_ui(*TEMP, *TEMP, mpz_get_ui(*TEMP_1));
PUSHs( x );
##############################################################################
void
_fib(Class,x)
SV* x
PREINIT:
mpz_t* TEMP;
PPCODE:
GMP_GET_ARG_0; /* TEMP = x */
mpz_fib_ui(*TEMP, mpz_get_ui(*TEMP));
PUSHs( x );
##############################################################################
void
_lucas(Class,x)
SV* x
PREINIT:
mpz_t* TEMP;
PPCODE:
GMP_GET_ARG_0; /* TEMP = x */
mpz_lucnum_ui(*TEMP, mpz_get_ui(*TEMP));
PUSHs( x );
##############################################################################
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_and(*TEMP, *TEMP, *TEMP_1);
PUSHs( x );
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_xor(*TEMP, *TEMP, *TEMP_1);
PUSHs( x );
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_ior(*TEMP, *TEMP, *TEMP_1);
PUSHs( x );
void
_fac(Class,x)
SV* x
PREINIT:
mpz_t* TEMP;
PPCODE:
GMP_GET_ARG_0; /* TEMP = x */
mpz_fac_ui(*TEMP, mpz_get_ui(*TEMP));
PUSHs( x );
void
_dfac(Class,x)
SV* x
PREINIT:
mpz_t* TEMP;
PPCODE:
GMP_GET_ARG_0; /* TEMP = x */
mpz_2fac_ui(*TEMP, mpz_get_ui(*TEMP));
PUSHs( x );
void
_sqrt(Class,x)
SV* x
PREINIT:
mpz_t* TEMP;
PPCODE:
GMP_GET_ARG_0; /* TEMP = x */
mpz_sqrt(*TEMP, *TEMP);
PUSHs( x );
SV* x
SV* y
PREINIT:
mpz_t* TEMP;
mpz_t* TEMP_1;
PPCODE:
GMP_GET_ARGS_0_1; /* (TEMP, TEMP_1) = (x,y) */
mpz_root(*TEMP, *TEMP, mpz_get_ui(*TEMP_1));
PUSHs( x );
##############################################################################
Math-Clipper
view release on metacpan or search on metacpan
xsp/Clipper.xsp view on Meta::CPAN
void
add_subject_polygon(self, poly)
Clipper* self
ClipperLib::Polygon* poly
PPCODE:
self->AddPolygon(*poly, ptSubject);
delete poly;
void
add_clip_polygon(self, poly)
Clipper* self
ClipperLib::Polygon* poly
PPCODE:
self->AddPolygon(*poly, ptClip);
delete poly;
void
add_subject_polygons(self, polys)
Clipper* self
ClipperLib::Polygons* polys
PPCODE:
self->AddPolygons(*polys, ptSubject);
delete polys;
void
add_clip_polygons(self, polys)
Clipper* self
ClipperLib::Polygons* polys
PPCODE:
self->AddPolygons(*polys, ptClip);
delete polys;
double
orientation(polygon)
Math-Complex_C-L
view release on metacpan or search on metacpan
void
l_set_prec (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
l_set_prec(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * d1
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assign_cl(aTHX_ rop, d1, d2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
set_real_cl (rop, d1)
SV * rop
SV * d1
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_real_cl(aTHX_ rop, d1);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
set_imag_cl (rop, d2)
SV * rop
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_imag_cl(aTHX_ rop, d2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * d1
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
LD2cl(aTHX_ rop, d1, d2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop1
SV * rop2
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cl2LD(aTHX_ rop1, rop2, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_cl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_nvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_ivl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_uvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_pvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_cl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_nvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_ivl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_uvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_pvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_cl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_nvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_ivl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_uvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_pvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_cl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_nvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_ivl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_uvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_pvl(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
DESTROY (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
DESTROY(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
real_cl2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
real_cl2str(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
imag_cl2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
imag_cl2str(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
arg_cl2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
arg_cl2str(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
abs_cl2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
abs_cl2str(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
conj_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
conj_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
acos_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acos_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
asin_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asin_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
atan_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atan_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
cos_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cos_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
sin_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sin_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
tan_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tan_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
acosh_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acosh_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
asinh_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asinh_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
atanh_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atanh_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
cosh_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cosh_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
sinh_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sinh_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
tanh_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tanh_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
exp_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
exp_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
log_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
log_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
sqrt_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sqrt_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
proj_cl (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
proj_cl(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op
SV * exp
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
pow_cl(aTHX_ rop, op, exp);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
_l_to_str (ld)
SV * ld
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_l_to_str(aTHX_ ld);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
_l_to_strp (ld, decimal_prec)
SV * ld
int decimal_prec
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_l_to_strp(aTHX_ ld, decimal_prec);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
clear_nnum ()
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
clear_nnum();
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
set_nnum (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_nnum(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-Complex_C-Q
view release on metacpan or search on metacpan
void
q_set_prec (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
q_set_prec(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * d1
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assign_cq(aTHX_ rop, d1, d2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
set_real_cq (rop, d1)
SV * rop
SV * d1
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_real_cq(aTHX_ rop, d1);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
set_imag_cq (rop, d2)
SV * rop
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_imag_cq(aTHX_ rop, d2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * d1
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
F2cq(aTHX_ rop, d1, d2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop1
SV * rop2
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cq2F(aTHX_ rop1, rop2, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_cq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_nvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_ivq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_uvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_pvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_cq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_nvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_ivq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_uvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_pvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_cq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_nvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_ivq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_uvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_pvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_cq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_nvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_ivq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_uvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_pvq(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
DESTROY (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
DESTROY(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
real_cq2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
real_cq2str(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
imag_cq2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
imag_cq2str(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
arg_cq2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
arg_cq2str(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
abs_cq2str (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
abs_cq2str(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
conj_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
conj_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
acos_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acos_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
asin_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asin_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
atan_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atan_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
cos_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cos_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
sin_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sin_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
tan_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tan_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
acosh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acosh_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
asinh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asinh_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
atanh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atanh_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
cosh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cosh_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
sinh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sinh_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
tanh_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tanh_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
exp_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
exp_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
log_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
log_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
sqrt_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sqrt_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
proj_cq (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
proj_cq(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
SV * rop
SV * op
SV * exp
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
pow_cq(aTHX_ rop, op, exp);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
_q_to_str (ld)
SV * ld
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_q_to_str(aTHX_ ld);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
_q_to_strp (ld, decimal_prec)
SV * ld
int decimal_prec
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_q_to_strp(aTHX_ ld, decimal_prec);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
clear_nnum ()
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
clear_nnum();
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
set_nnum (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_nnum(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-Complex_C
view release on metacpan or search on metacpan
Complex_C.xs view on Meta::CPAN
void
d_set_prec (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
d_set_prec(aTHX_ x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * d1
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assign_c(aTHX_ rop, d1, d2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
set_real_c (rop, d1)
SV * rop
SV * d1
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_real_c(aTHX_ rop, d1);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
set_imag_c (rop, d2)
SV * rop
SV * d2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_imag_c(aTHX_ rop, d2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_nv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_iv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_uv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
mul_c_pv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_nv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_iv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_uv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
div_c_pv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_nv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_iv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_uv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
add_c_pv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_nv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_iv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_uv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op1
SV * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sub_c_pv(aTHX_ rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
void
DESTROY (op)
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
DESTROY(aTHX_ op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
conj_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
conj_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
acos_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acos_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
asin_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asin_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
atan_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atan_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
cos_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cos_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
sin_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sin_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
tan_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tan_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
acosh_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acosh_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
asinh_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asinh_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
atanh_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atanh_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
cosh_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cosh_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
sinh_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sinh_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
tanh_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tanh_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
exp_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
exp_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
log_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
log_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
sqrt_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sqrt_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
proj_c (rop, op)
SV * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
proj_c(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
SV * rop
SV * op
SV * exp
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
pow_c(aTHX_ rop, op, exp);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
void
_d_to_str (ld)
SV * ld
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_d_to_str(aTHX_ ld);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
_d_to_strp (ld, decimal_prec)
SV * ld
int decimal_prec
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_d_to_strp(aTHX_ ld, decimal_prec);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
void
clear_nnum ()
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
clear_nnum();
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Complex_C.xs view on Meta::CPAN
void
set_nnum (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_nnum(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-ConvexHull-MonotoneChain
view release on metacpan or search on metacpan
MonotoneChain.xs view on Meta::CPAN
point_ptr_t* out_hull;
AV* inner_av;
AV* out_av;
SV** elemptr;
SV* elem;
PPCODE:
npoints = av_len(points)+1;
if (npoints <= 2) {
out_av = newAV();
av_fill(out_av, npoints-1);
for (i = 0; i < npoints; ++i) {
Math-DCT
view release on metacpan or search on metacpan
void
fct8_1d (inbuf)
char * inbuf
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fct8_1d(inbuf);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
void
fct8_2d (inbuf)
char * inbuf
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fct8_2d(inbuf);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
dct_1d (inbuf, size)
char * inbuf
int size
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
dct_1d(inbuf, size);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
idct_1d (inbuf, size)
char * inbuf
int size
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
idct_1d(inbuf, size);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
dct_2d (inbuf, size)
char * inbuf
int size
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
dct_2d(inbuf, size);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
idct_2d (inbuf, size)
char * inbuf
int size
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
idct_2d(inbuf, size);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
fast_dct_1d (inbuf, size)
char * inbuf
int size
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fast_dct_1d(inbuf, size);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
fast_dct_2d (inbuf, size)
char * inbuf
int size
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fast_dct_2d(inbuf, size);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-Decimal128
view release on metacpan or search on metacpan
Decimal128.xs view on Meta::CPAN
char * nsd
char * lsd
SV * c
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_assignME(aTHX_ a, msd, nsd, lsd, c);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
void
DESTROY (rop)
SV * rop
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
DESTROY(aTHX_ rop);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
assignIVl (a, val)
SV * a
SV * val
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignIVl(aTHX_ a, val);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
assignUVl (a, val)
SV * a
SV * val
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignUVl(aTHX_ a, val);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
assignNVl (a, val)
SV * a
SV * val
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignNVl(aTHX_ a, val);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
assignPVl (a, s)
SV * a
char * s
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignPVl(aTHX_ a, s);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
assignD128 (a, val)
SV * a
SV * val
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignD128(aTHX_ a, val);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
void
assignNaNl (a)
SV * a
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignNaNl(aTHX_ a);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
assignInfl (a, sign)
SV * a
int sign
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignInfl(aTHX_ a, sign);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
void
_d128_bytes (sv)
SV * sv
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_d128_bytes(aTHX_ sv);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
_assignDPD (a, in)
SV * a
char * in
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_assignDPD(aTHX_ a, in);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
void
clear_nnum ()
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
clear_nnum();
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal128.xs view on Meta::CPAN
void
set_nnum (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_nnum(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-Decimal64
view release on metacpan or search on metacpan
Decimal64.xs view on Meta::CPAN
LDtoD64 (d64, ld)
SV * d64
SV * ld
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
LDtoD64(aTHX_ d64, ld);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
D64toLD (ld, d64)
SV * ld
SV * d64
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
D64toLD(aTHX_ ld, d64);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
void
DESTROY (rop)
SV * rop
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
DESTROY(aTHX_ rop);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
SV * a
char * mantissa
SV * c
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_assignME(aTHX_ a, mantissa, c);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
assignPV (a, s)
SV * a
char * s
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignPV(aTHX_ a, s);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
assignIV (a, val)
SV * a
SV * val
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignIV(aTHX_ a, val);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
assignUV (a, val)
SV * a
SV * val
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignUV(aTHX_ a, val);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
assignNV (a, val)
SV * a
SV * val
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignNV(aTHX_ a, val);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
assignD64 (a, val)
SV * a
SV * val
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignD64(aTHX_ a, val);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
void
assignNaN (a)
SV * a
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignNaN(aTHX_ a);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
assignInf (a, sign)
SV * a
int sign
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
assignInf(aTHX_ a, sign);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
void
_d64_bytes (sv)
SV * sv
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_d64_bytes(aTHX_ sv);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
void
_bid_mant (bin)
SV * bin
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_bid_mant(aTHX_ bin);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
_assignDPD (a, in)
SV * a
char * in
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_assignDPD(aTHX_ a, in);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
void
clear_nnum ()
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
clear_nnum();
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Decimal64.xs view on Meta::CPAN
void
set_nnum (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_nnum(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-Derivative_XS
view release on metacpan or search on metacpan
Derivative_XS.xs view on Meta::CPAN
Derivative2(x, y, yp1_sv = NULL, ypn_sv = NULL)
AV * x
AV * y
SV * yp1_sv
SV * ypn_sv
PPCODE:
{
int i;
int n = av_len(x);
NV * y2 = calloc(n, sizeof(NV));
NV * u = calloc(n, sizeof(NV));
Math-Factor-XS
view release on metacpan or search on metacpan
unsigned long number
PROTOTYPE: $
INIT:
unsigned long i, square_root;
AV *factors;
PPCODE:
/* range check */
{
double d = SvNV(ST(0));
if (! (d >= 0 && d < double_ulong_max_plus_1)) {
croak ("Cannot factors() on %g", d);
unsigned long *prev_base = NULL;
unsigned int b, c, p = 0;
unsigned int top = items - 1;
bool Skip_multiples = FALSE;
bool skip = FALSE;
PPCODE:
factors = (AV*)SvRV (factors_aref);
if (av_len (factors) == -1)
XSRETURN_EMPTY;
count_prime_factors = 1
INIT:
unsigned long i, limit;
unsigned incr;
unsigned long count = 0;
PPCODE:
/* range check */
{
double d = SvNV(ST(0));
if (! (d >= 0 && d < double_ulong_max_plus_1)) {
croak ("Cannot prime_factors() on %g", d);
Math-FakeBfloat16
view release on metacpan or search on metacpan
FakeBfloat16.xs view on Meta::CPAN
void
_unpack_float (in)
SV * in
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_unpack_float(in);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-FakeDD
view release on metacpan or search on metacpan
void
dd_frexp (nv)
SV * nv
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
dd_frexp(aTHX_ nv);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-FakeFloat16
view release on metacpan or search on metacpan
FakeFloat16.xs view on Meta::CPAN
void
_unpack_float (in)
SV * in
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_unpack_float(in);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Math-Float128
view release on metacpan or search on metacpan
Float128.xs view on Meta::CPAN
void
flt128_set_prec (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
flt128_set_prec(aTHX_ x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
void
_nnum_inc (p)
char * p
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_nnum_inc(p);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
fromSTR (f, str)
float128 * f
SV * str
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fromSTR(aTHX_ f, str);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
fromNV (f, nv)
float128 * f
SV * nv
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fromNV(aTHX_ f, nv);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
fromIV (f, iv)
float128 * f
SV * iv
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fromIV(aTHX_ f, iv);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
fromUV (f, uv)
float128 * f
SV * uv
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fromUV(aTHX_ f, uv);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
void
F128toSTR (f)
SV * f
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
F128toSTR(aTHX_ f);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
F128toSTRP (f, decimal_prec)
SV * f
int decimal_prec
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
F128toSTRP(aTHX_ f, decimal_prec);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
void
DESTROY (f)
SV * f
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
DESTROY(aTHX_ f);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
fromF128 (f, a)
float128 * f
SV * a
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fromF128(aTHX_ f, a);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
SV * a
SV * b
SV * third
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_overload_inc(aTHX_ a, b, third);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
SV * a
SV * b
SV * third
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_overload_dec(aTHX_ a, b, third);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
void
_f128_bytes (sv)
SV * sv
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_f128_bytes(aTHX_ sv);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
acos_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acos_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
acosh_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
acosh_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
asin_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asin_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
asinh_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
asinh_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
atan_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atan_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
atanh_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atanh_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
atan2_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
cbrt_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cbrt_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
ceil_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
ceil_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
copysign_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
cosh_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cosh_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
cos_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
cos_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
erf_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
erf_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
erfc_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
erfc_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
exp_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
exp_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
expm1_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
expm1_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
fabs_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fabs_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fdim_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
floor_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
floor_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * op1
float128 * op2
float128 * op3
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fma_F128(rop, op1, op2, op3);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fmax_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fmin_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
fmod_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
hypot_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * frac
SV * exp
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
frexp_F128(aTHX_ frac, exp, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op
int pow
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
ldexp_F128(rop, op, pow);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
j0_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
j0_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
j1_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
j1_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
int n
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
jn_F128(rop, n, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
lgamma_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
lgamma_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
log_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
log_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
log10_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
log10_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
log2_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
log2_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
log1p_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
log1p_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * integer
float128 * frac
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
modf_F128(integer, frac, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
nan_F128 (rop, op)
float128 * rop
SV * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
nan_F128(aTHX_ rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
nearbyint_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
nearbyint_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
nextafter_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
pow_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
remainder_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
SV * rop2
float128 * op1
float128 * op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
remquo_F128(aTHX_ rop1, rop2, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
rint_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
rint_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
round_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
round_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
long op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
scalbln_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
float128 * op1
int op2
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
scalbn_F128(rop, op1, op2);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * sin
float128 * cos
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sincos_F128(sin, cos, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
sinh_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sinh_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
sin_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sin_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
sqrt_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
sqrt_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
tan_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tan_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
tanh_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tanh_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
tgamma_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
tgamma_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
trunc_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
trunc_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
y0_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
y0_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
y1_F128 (rop, op)
float128 * rop
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
y1_F128(rop, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
float128 * rop
int n
float128 * op
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
yn_F128(rop, n, op);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
void
clear_nnum ()
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
clear_nnum();
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
void
set_nnum (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_nnum(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
void
clear_nok_pok ()
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
clear_nok_pok();
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Float128.xs view on Meta::CPAN
void
set_nok_pok (x)
int x
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
set_nok_pok(x);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
( run in 3.297 seconds using v1.01-cache-2.11-cpan-4e7a2411597 )