Result:
found more than 1151 distributions - search limited to the first 2001 files matching your query
( run in 3.049 )
MP3-Cut-Gapless
view release on metacpan or search on metacpan
MODULE = MP3::Cut::Gapless PACKAGE = MP3::Cut::Gapless
void
__init(HV *self)
PPCODE:
{
SV *pv = NEWSV(0, sizeof(mp3cut));
mp3cut *mp3c = (mp3cut *)SvPVX(pv);
SvPOK_only(pv);
MP3-Mplib
view release on metacpan or search on metacpan
get_header(filename)
char * filename;
PROTOTYPE: $
INIT:
mpeg_header * header;
PPCODE:
header = mp_get_mpeg_header_from_file(filename);
if (header == NULL)
XSRETURN_UNDEF;
EXTEND(SP, 1);
int ver;
PROTOTYPE: $$
INIT:
id3_tag_list * taglist;
id3_tag * tag;
PPCODE:
taglist = mp_get_tag_list_from_file(filename);
if (taglist == NULL)
XSRETURN_UNDEF;
tag = get_tag(taglist, ver);
char * filename;
PROTOTYPE: $
INIT:
id3_tag_list * taglist;
id3_tag * tag;
PPCODE:
taglist = mp_get_tag_list_from_file(filename);
if (taglist == NULL)
XSRETURN_UNDEF;
tag = get_tag(taglist, 2);
if (tag == NULL)
SV * tag;
int enc;
PREINIT:
int ret;
PROTOTYPE: $$$;$
PPCODE:
if ( (!SvROK(tag)) ||
(SvTYPE(SvRV(tag)) != SVt_PVHV) )
croak("MP3::Mplib::set_tag expects a hash-ref as third arg");
if (ver == 1)
void
delete_tags(filename, ver)
char * filename;
int ver;
PROTOTYPE: $$
PPCODE:
EXTEND(SP, 1);
switch(mp_del_tags_by_ver_from_file(filename, ver)) {
case 0:
PUSHs(sv_2mortal(newSVuv(1)));
break;
void
_clean_up(filename)
char * filename;
PROTOTYPE: $
PPCODE:
id3_tag_list *taglist;
id3_tag * tag;
int i, j;
taglist = mp_get_tag_list_from_file(filename);
char * filename;
INIT:
id3_tag_list * taglist, *iter;
int c = 0;
PROTOTYPE: $
PPCODE:
taglist = mp_get_tag_list_from_file(filename);
if (taglist == NULL) {
printf("No tags found\n");
XSRETURN_UNDEF;
}
MP3-Player-PktConcert
view release on metacpan or search on metacpan
Player/PktConcert/PktConcert.xs view on Meta::CPAN
usage( self )
ipc_t *self
PREINIT:
u_int32_t *bfree;
u_int32_t *btotal;
PPCODE:
bfree = (u_int32_t *)safemalloc( sizeof( u_int32_t ));
btotal = (u_int32_t *)safemalloc( sizeof( u_int32_t ));
IPC_Get_Usage( self, bfree, btotal );
EXTEND( SP, 2 );
PUSHs( sv_2mortal( newSViv( *bfree )));
MP4-File
view release on metacpan or search on metacpan
OUTPUT:
RETVAL
void
MP4FILE::DESTROY()
PPCODE:
if (MP4_IS_VALID_FILE_HANDLE(THIS->fh))
{
MP4Close(THIS->fh);
}
Safefree(THIS);
bool
MP4FILE::Close()
PPCODE:
if (MP4_IS_VALID_FILE_HANDLE(THIS->fh))
{
MP4Close(THIS->fh);
THIS->fh = MP4_INVALID_FILE_HANDLE;
}
void
MP4FILE::SetVerbosity(verbosity)
u_int32_t verbosity;
PPCODE:
MP4SetVerbosity(THIS->fh, verbosity);
MP4TrackId
MP4FILE::FindTrackId(index, type = NULL, subType = 0)
u_int16_t index;
MP4GetMetadataGenre,
MP4GetMetadataGrouping
};
char *value;
PPCODE:
if (fp[ix](THIS->fh, &value) && value != NULL)
{
ST(0) = newSVpv(value, 0);
SvUTF8_on(ST(0));
free(value);
PREINIT:
u_int8_t *data;
u_int32_t length;
PPCODE:
if (MP4GetMetadataCoverArt(THIS->fh, &data, &length _v19ARG(index)))
{
if (data != NULL)
{
ST(0) = newSVpvn((const char *) data, length);
MP4GetMetadataTrack,
MP4GetMetadataDisk
};
u_int16_t curr, total;
PPCODE:
if (fp[ix](THIS->fh, &curr, &total))
{
EXTEND(SP, 2);
ST(0) = newSVuv(curr);
ST(1) = newSVuv(total);
void
MP4FILE::GetMetadataTempo()
PREINIT:
u_int16_t tempo;
PPCODE:
if (MP4GetMetadataTempo(THIS->fh, &tempo))
{
XSRETURN_UV(tempo);
}
void
MP4FILE::GetMetadataCompilation()
PREINIT:
u_int8_t cpl;
PPCODE:
if (MP4GetMetadataCompilation(THIS->fh, &cpl))
{
if (cpl)
XSRETURN_YES;
else
MPV-Simple
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:
MQSeries
view release on metacpan or search on metacpan
MQClient/MQSeries.xs.in/21core view on Meta::CPAN
void
constant_hex(name)
char * name
PPCODE:
{
SV *Return;
MQULONG Result;
Result = constant_hex(name);
MQClient/MQSeries.xs.in/21core view on Meta::CPAN
void
constant_numeric(name)
char * name
PPCODE:
{
SV *Return;
MQLONG Result;
Result = constant_numeric(name);
MQClient/MQSeries.xs.in/21core view on Meta::CPAN
void
constant_string(name)
char * name
PPCODE:
{
char tmp[256];
int status;
SV *Return;
MQClient/MQSeries.xs.in/21core view on Meta::CPAN
void
constant_char(name)
char * name
PPCODE:
{
char tmp[1];
int status;
SV *Return;
Mac-AppleScript
view release on metacpan or search on metacpan
AppleScript.xs view on Meta::CPAN
MODULE = Mac::AppleScript PACKAGE = Mac::AppleScript
SV *
RunAppleScript(SV *text)
PPCODE:
{
ComponentInstance theComponent;
AEDesc scriptTextDesc;
AEDesc resultData;
OSStatus err = noErr;
Mac-Carbon
view release on metacpan or search on metacpan
AppleEvents/AppleEvents.xs view on Meta::CPAN
void
AEGetNthDesc(theAEDescList, index, desiredType=typeWildCard)
AEDesc &theAEDescList
long index
OSType desiredType
PPCODE:
{
OSType kw;
AEDesc desc;
AEFail(AEGetNthDesc(&theAEDescList, index, desiredType, &kw, &desc));
AppleEvents/AppleEvents.xs view on Meta::CPAN
void
AEGetEventHandler(theAEEventClass, theAEEventID, isSysHandler=0)
OSType theAEEventClass
OSType theAEEventID
Boolean isSysHandler
PPCODE:
{
SV * handler = sv_newmortal();
SV * refCon = sv_newmortal();
AEFail(
AppleEvents/AppleEvents.xs view on Meta::CPAN
=cut
void
AEGetNthSubDesc(subdesc,index)
AESubDesc &subdesc
long index
PPCODE:
{
#ifndef MACOS_TRADITIONAL
croak("Usage: Mac::AppleEvents::AEGetNthSubDesc unsupported in Carbon");
#else
OSType kw;
Mac-FSEvents
view release on metacpan or search on metacpan
FSEvents.xs view on Meta::CPAN
PROTOTYPES: DISABLE
void
_new (char *klass, HV *args)
PPCODE:
{
SV *pv = NEWSV(0, sizeof(FSEvents));
SV **svp;
AV *ppaths;
SSize_t numPaths;
FSEvents.xs view on Meta::CPAN
pthread_mutex_destroy(&self->mutex);
}
void
watch(FSEvents *self)
PPCODE:
{
int err;
FILE *fh;
struct watch_data wd;
GV *glob;
FSEvents.xs view on Meta::CPAN
stop_impl(self);
}
void
read_events(FSEvents *self)
PPCODE:
{
HV *event;
char buf;
struct event *e;
Mac-NSGetExecutablePath
view release on metacpan or search on metacpan
NSGetExecutablePath.xs view on Meta::CPAN
PREINIT:
char buf[1];
uint32_t size = sizeof buf;
SV *dst;
char *buffer;
PPCODE:
_NSGetExecutablePath(buf, &size);
if (size >= MAXPATHLEN * MAXPATHLEN)
croak(nsgep_too_long);
dst = sv_newmortal();
sv_upgrade(dst, SVt_PV);
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;
( run in 3.049 seconds using v1.01-cache-2.11-cpan-71847e10f99 )