Result:
found more than 1151 distributions - search limited to the first 2001 files matching your query
( run in 2.022 )
Pango
view release on metacpan or search on metacpan
xs/Pango.xs view on Meta::CPAN
=for signature (MAJOR, MINOR, MICRO) = Pango->GET_VERSION_INFO
Fetch as a list the version of pango with which the Perl module was built.
=cut
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (PANGO_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (PANGO_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (PANGO_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
Parallel-MPI-Simple
view release on metacpan or search on metacpan
void
_Comm_free (comm)
SV * comm
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
_Comm_free(comm);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Parallel-MPI
view release on metacpan or search on metacpan
int ret;
MPI_Status status;
#ifdef SEND_DEBUG
int i;
#endif
PPCODE:
if (! SvROK(ref))
croak("MPI_Recv: First argument is not a reference!");
if (SvTYPE(SvRV(ref)) == SVt_PVHV) {
croak("MPI_Recv: Hashes are not supported yet.");
MPI_Comm comm
PREINIT:
void* sendbuf, *recvbuf;
int ret;
MPI_Status status;
PPCODE:
if (! SvROK(sendref) || ! SvROK(recvref))
croak("MPI_Sendrecv: First and Fourth arguments must be references!");
if (SvTYPE(SvRV(sendref)) == SVt_PVAV &&
SvTYPE(SvRV(recvref)) == SVt_PVAV)
Parallel-Pvm
view release on metacpan or search on metacpan
PREINIT:
int tids[MAXPROCS];
int info;
int i;
char ** argv = (char **)0;
PPCODE:
if (argvRef)
{
int argc;
AV * av;
PREINIT:
int info, src, stag, scnt;
char *buf;
char *po;
int type;
PPCODE:
New(2401, buf, buflen, char);
info = pvm_precv(tid,tag,buf,buflen,PVM_BYTE,&src,&stag,&scnt);
XPUSHs(sv_2mortal(newSViv(info)));
XPUSHs(sv_2mortal(newSViv(src)));
unpack(buflen=MAXSTR)
int buflen
PREINIT:
char *buf, *po;
int type;
PPCODE:
New(2401, buf, buflen, char);
if (pvm_upkstr(buf) != 0) {
if (PL_dowarn) {
warn("pvm_upkstr failed");
Safefree(buf);
int ntask,i,info;
struct pvmtaskinfo *taskp;
int ti_tid,ti_ptid,ti_host,ti_flag,ti_pid;
char ti_a_out[256];
HV *hv_tmp;
PPCODE:
info = pvm_tasks(where,&ntask,&taskp);
XPUSHs(sv_2mortal(newSViv(info)));
if (info >= 0) /* ntask may be undefined if there was an error */
for(i=0;i<ntask;i++)
{
struct pvmhostinfo *hostp;
char hi_name[256], hi_arch[256];
int hi_tid, hi_speed;
int i;
HV *hv_tmp;
PPCODE:
info = pvm_config(&nhosts,&narch,&hostp);
if (info == PvmOk)
XPUSHs(sv_2mortal(newSViv(info)));
else
XPUSHs(sv_2mortal(newSViv(nhosts)));
int i;
int info;
char *po;
char *hosts[MAXHOSTS];
int infos[MAXHOSTS];
PPCODE:
if ( items < 1 )
croak("Usage: Parallel::Pvm::pvm_addhosts(host_list)");
for (i=0;i<items;i++)
{
hosts[i] = (char *)SvPV(ST(i), PL_na);
PREINIT:
char *po;
char *hosts[MAXHOSTS];
int infos[MAXHOSTS];
int info, i, nhost;
PPCODE:
if ( items < 1 )
croak("Usage: Parallel::Pvm::pvm_delhosts(host_list)");
for (i=0;i<items;i++)
{
hosts[i] = (char *)SvPV(ST(i), PL_na);
void
bufinfo(bufid)
int bufid
PREINIT:
int bytes, tag, tid, info;
PPCODE:
if (info = pvm_bufinfo(bufid,&bytes,&tag,&tid)) {
if (PL_dowarn) {
warn("pvm_bufinfo failed");
XSRETURN_EMPTY;
}
recv_notify(what)
int what
PREINIT:
int id,i,cnt;
int tids[MAXPROCS];
PPCODE:
pvm_recv(-1,-1);
switch (what )
{
case PvmTaskExit:
case PvmHostDelete:
PREINIT:
struct timeval rclk, delta;
int info;
int sec, usec;
HV *hv_tmp;
PPCODE:
info = pvm_hostsync(hst,&rclk,&delta);
XPUSHs(sv_2mortal(newSViv(info)));
sec = rclk.tv_sec;
usec = rclk.tv_usec;
/* set up hash entry */
siblings()
PREINIT:
int *tids;
int ntids;
int n;
PPCODE:
ntids = pvm_siblings(&tids);
XPUSHs(sv_2mortal(newSViv(ntids)));
for (n = 0; n < ntids; n++)
{
XPUSHs(sv_2mortal(newSViv(tids[n])));
char mi_name[256];
HV * hv_tmp;
AV * arr_tmp;
PPCODE:
info = pvm_getmboxinfo(pattern,&nclasses,&classes);
if (info == PvmOk)
XPUSHs(newSViv(nclasses));
else
XPUSHs(newSViv(info));
Params-Lazy
view release on metacpan or search on metacpan
cv_set_call_checker(cv, THX_ck_delay_caller_args, proto);
void
force(sv)
PROTOTYPE: $
PPCODE:
SV *sv = *PL_stack_sp--;
S_do_force(aTHX_ sv, use_caller_args_hint());
SP = PL_stack_sp;
#ifdef USE_ITHREADS
Params-Validate
view release on metacpan or search on metacpan
lib/Params/Validate/XS.xs view on Meta::CPAN
SV* p
SV* specs
PROTOTYPE: \@$
PPCODE:
HV* ret = NULL;
AV* pa;
HV* ph;
HV* options;
lib/Params/Validate/XS.xs view on Meta::CPAN
validate_pos(p, ...)
SV* p
PROTOTYPE: \@@
PPCODE:
AV* specs;
AV* ret = NULL;
IV i;
IV ok;
lib/Params/Validate/XS.xs view on Meta::CPAN
RETURN_ARRAY(ret);
void
validate_with(...)
PPCODE:
HV* p;
SV* params;
SV* spec;
IV i;
Parse-Flex
view release on metacpan or search on metacpan
lib/Parse/Flex/Generate.pm view on Meta::CPAN
MODULE = Flexer PACKAGE = Flexer
void
yylex()
PPCODE:
char* id = 0;
if (id = (char*) yylex() ) {
XPUSHs (sv_2mortal(newSVpv(id,0)));
XPUSHs (sv_2mortal(newSVpv( yytext, 0)));
XSRETURN(2);
}
XSRETURN_EMPTY;
void
yylex_int()
PPCODE:
int id;
if (id = (int) yylex() ) {
XPUSHs (sv_2mortal(newSViv(id)));
XPUSHs (sv_2mortal(newSVpv( yytext, 0)));
XSRETURN(2);
Path-Hilbert-XS
view release on metacpan or search on metacpan
PREINIT:
IV x;
IV y;
PPCODE:
hilbert_d2xy(side, d, &x, &y);
EXTEND(SP, 2);
mPUSHi(x);
mPUSHi(y);
PathTools
view release on metacpan or search on metacpan
void
getcwd(...)
ALIAS:
fastcwd=1
PPCODE:
{
dXSTARG;
/* fastcwd takes zero parameters: */
if (ix == 1 && items != 0)
croak_xs_usage(cv, "");
}
void
abs_path(pathsv=Nullsv)
SV *pathsv
PPCODE:
{
dXSTARG;
char *const path = pathsv ? SvPV_nolen(pathsv) : (char *)".";
char buf[MAXPATHLEN];
#if defined(WIN32) && !defined(UNDER_CE)
void
getdcwd(...)
PROTOTYPE: ENABLE
PPCODE:
{
dXSTARG;
int drive;
char *dir;
Perl-AfterFork
view release on metacpan or search on metacpan
AfterFork.xs view on Meta::CPAN
MODULE = Perl::AfterFork PACKAGE = Perl::AfterFork
void
reinit_pid()
PROTOTYPE:
PPCODE:
{
GV *tmpgv;
if ((tmpgv = gv_fetchpv("$", TRUE, SVt_PV))) {
SvREADONLY_off(GvSV(tmpgv));
# ifdef HAS_SYSCALL
AfterFork.xs view on Meta::CPAN
}
void
reinit_ppid()
PROTOTYPE:
PPCODE:
{
PL_ppid = (IV)getppid();
XSRETURN_YES;
}
void
reinit_pidstatus()
PROTOTYPE:
PPCODE:
{
hv_clear(PL_pidstatus); /* no kids, so don't wait for 'em */
XSRETURN_YES;
}
void
reinit()
PROTOTYPE:
PPCODE:
{
GV *tmpgv;
PL_ppid = (IV)getppid();
hv_clear(PL_pidstatus); /* no kids, so don't wait for 'em */
Perl-Dist-Strawberry
view release on metacpan or search on metacpan
share/perl-5.26/strtoull-fix-perl.h view on Meta::CPAN
# endif
#endif
/* gcc -Wall:
* for silencing unused variables that are actually used most of the time,
* but we cannot quite get rid of, such as "ax" in PPCODE+noargs xsubs,
* or variables/arguments that are used only in certain configurations.
*/
#ifndef PERL_UNUSED_ARG
# define PERL_UNUSED_ARG(x) ((void)sizeof(x))
#endif
Perl-Lexer
view release on metacpan or search on metacpan
lib/Perl/Lexer.xs view on Meta::CPAN
RETVAL
void
_name(token)
IV token;
PPCODE:
{
int i=0;
while (debug_tokens[i].token != 0) {
if (debug_tokens[i].token == token) {
XSRETURN_PV(debug_tokens[i].name);
lib/Perl/Lexer.xs view on Meta::CPAN
}
void
_type(token)
IV token;
PPCODE:
{
int i=0;
while (debug_tokens[i].token != 0) {
if (debug_tokens[i].token == token) {
XSRETURN_IV(debug_tokens[i].type);
Perl-Phase
view release on metacpan or search on metacpan
MODULE = Perl__Phase PACKAGE = Perl::Phase
SV*
current_phase()
PPCODE:
{
XPUSHs(newSViv(PL_phase));
}
BOOT:
Perl-PrereqScanner-NotQuiteLite
view release on metacpan or search on metacpan
t/15_eval.t view on Meta::CPAN
void
add_doc(self, doc_sv)
lucy_Simple *self;
SV *doc_sv;
PPCODE:
{
lucy_Doc *doc = NULL;
// Either get a Doc or use the stock doc.
if (sv_isobject(doc_sv)
Perl-RPM
view release on metacpan or search on metacpan
RPM/Database.xs view on Meta::CPAN
void
rpmdb_FIRSTKEY(self)
RPM::Database self;
PROTOTYPE: $
PPCODE:
{
const char *name;
RPM__Header hdr;
if (rpmdb_FIRSTKEY(aTHX_ self, &name, &hdr))
RPM/Database.xs view on Meta::CPAN
void
rpmdb_NEXTKEY(self, prev_name=NULL)
RPM::Database self;
const char *prev_name;
PROTOTYPE: $;$
PPCODE:
{
const char *name;
RPM__Header hdr;
if (rpmdb_NEXTKEY(aTHX_ self, prev_name, &name, &hdr))
RPM/Database.xs view on Meta::CPAN
find_by_group = RPMTAG_GROUP
find_what_provides = RPMTAG_PROVIDENAME
find_what_requires = RPMTAG_REQUIRENAME
find_what_conflicts = RPMTAG_CONFLICTNAME
find_by_package = RPMTAG_NAME
PPCODE:
/* This is a front-end to all the rpmdbFindBy*() set, including FindByPackage
which differs from FETCH above in that if there is actually more than one
match, all will be returned. */
{
const char *str = Nullch;
PerlCryptLib
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:
/* 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 */
PerlIO-Layers
view release on metacpan or search on metacpan
lib/PerlIO/Layers.xs view on Meta::CPAN
get_buffer_sizes(handle);
PerlIO* handle;
PREINIT:
PerlIO* current;
int counter = 0;
PPCODE:
for (current = handle; *current; current = PerlIONext(current)) {
PerlIOBuf* buffer;
if (!(PerlIOBase(current)->tab->kind & PERLIO_K_BUFFERED))
continue;
buffer = PerlIOSelf(current, PerlIOBuf);
PerlIO-Util
view release on metacpan or search on metacpan
PerlIO-Util.xs view on Meta::CPAN
void
known_layers(...)
PREINIT:
const PerlIO_list_t* const layers = PL_known_layers;
int i;
PPCODE:
EXTEND(SP, layers->cur);
for(i = 0; i < layers->cur; i++){
SV* const name = newSVpv( LayerFetch(layers, i)->name, 0);
PUSHs( sv_2mortal(name) );
}
PerlIO-Util.xs view on Meta::CPAN
SV* arg
PREINIT:
PerlIO_funcs* tab;
const char* laypv;
STRLEN laylen;
PPCODE:
laypv = SvPV_const(layer, laylen);
if(laypv[0] == ':'){ /* ignore a layer prefix */
laypv++;
laylen--;
}
PerlIO-Util.xs view on Meta::CPAN
void
pop_layer(filehandle)
PerlIO* filehandle
PREINIT:
const char* popped_layer;
PPCODE:
if(!PerlIOValid(filehandle)) XSRETURN_EMPTY;
popped_layer = PerlIOBase(filehandle)->tab->name;
PerlIO_flush(filehandle);
PerlIO_pop(aTHX_ filehandle);
PerlIO-fgets
view release on metacpan or search on metacpan
SSize_t count
PROTOTYPE:
*$
PREINIT:
dXSTARG;
PPCODE:
if (count < 0)
XSRETURN_UNDEF;
SvUPGRADE(TARG, SVt_PV);
SvGROW(TARG, 256);
PerlMagick
view release on metacpan or search on metacpan
magick_registry=NewSplayTree((int (*)(const void *,const void *))
NULL,(void *(*)(void *)) NULL,(void *(*)(void *)) NULL);
void
UNLOAD()
PPCODE:
{
if (magick_registry != (SplayTreeInfo *) NULL)
magick_registry=DestroySplayTree(magick_registry);
MagickCoreTerminus();
}
Image::Magick ref=NO_INIT
ALIAS:
AnimateImage = 1
animate = 2
animateimage = 3
PPCODE:
{
ExceptionInfo
*exception;
Image
Image::Magick ref=NO_INIT
ALIAS:
AppendImage = 1
append = 2
appendimage = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
AverageImage = 1
average = 2
averageimage = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
BlobToImage = 1
blobtoimage = 2
blobto = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
ChannelFxImage = 1
channelfx = 2
channelfximage = 3
PPCODE:
{
AV
*av;
char
copyimage = 3
CloneImage = 4
clone = 5
cloneimage = 6
Clone = 7
PPCODE:
{
AV
*av;
ExceptionInfo
Image::Magick ref=NO_INIT
ALIAS:
CoalesceImage = 1
coalesce = 2
coalesceimage = 3
PPCODE:
{
AV
*av;
ExceptionInfo
Image::Magick ref=NO_INIT
ALIAS:
CompareImages = 1
compare = 2
compareimage = 3
PPCODE:
{
AV
*av;
char
ComplexImages(ref)
Image::Magick ref=NO_INIT
ALIAS:
ComplexImages = 1
compleximages = 2
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
CompareImagesLayers = 1
comparelayers = 2
compareimagelayers = 3
PPCODE:
{
AV
*av;
char
#
#
void
DESTROY(ref)
Image::Magick ref=NO_INIT
PPCODE:
{
SV
*reference;
PERL_UNUSED_VAR(ref);
Image::Magick ref=NO_INIT
ALIAS:
DisplayImage = 1
display = 2
displayimage = 3
PPCODE:
{
ExceptionInfo
*exception;
Image
EvaluateImages(ref)
Image::Magick ref=NO_INIT
ALIAS:
EvaluateImages = 1
evaluateimages = 2
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
FeaturesImage = 1
features = 2
featuresimage = 3
PPCODE:
{
#define ChannelFeatures(channel,direction) \
{ \
(void) FormatLocaleString(message,MagickPathExtent,"%.20g", \
channel_features[channel].angular_second_moment[direction]); \
Image::Magick ref=NO_INIT
ALIAS:
FlattenImage = 1
flatten = 2
flattenimage = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
FxImage = 1
fx = 2
fximage = 3
PPCODE:
{
AV
*av;
char
GetAttributes = 1
GetAttribute = 2
get = 3
getattributes = 4
getattribute = 5
PPCODE:
{
char
*attribute,
color[MagickPathExtent];
Image::Magick ref=NO_INIT
ALIAS:
HistogramImage = 1
histogram = 2
histogramimage = 3
PPCODE:
{
AV
*av;
char
GetPixel(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
getpixel = 1
getPixel = 2
PPCODE:
{
AV
*av;
char
GetPixels(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
getpixels = 1
getPixels = 2
PPCODE:
{
AV
*av;
char
ALIAS:
ImageToBlob = 1
imagetoblob = 2
toblob = 3
blob = 4
PPCODE:
{
char
filename[MagickPathExtent];
ExceptionInfo
Layers = 1
layers = 2
OptimizeImageLayers = 3
optimizelayers = 4
optimizeimagelayers = 5
PPCODE:
{
AV
*av;
char
BilateralBlur = 305
BilateralBlurImage = 306
SortPixels = 307
SortPixelsImage = 308
MogrifyRegion = 666
PPCODE:
{
AffineMatrix
affine,
current;
Image::Magick ref=NO_INIT
ALIAS:
MontageImage = 1
montage = 2
montageimage = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
MorphImage = 1
morph = 2
morphimage = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
MosaicImage = 1
mosaic = 2
mosaicimage = 3
PPCODE:
{
AV
*av;
ExceptionInfo
Image::Magick ref=NO_INIT
ALIAS:
PingImage = 1
ping = 2
pingimage = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
PreviewImage = 1
preview = 2
previewimage = 3
PPCODE:
{
AV
*av;
ExceptionInfo
void
QueryColor(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
querycolor = 1
PPCODE:
{
char
*name;
ExceptionInfo
void
QueryColorname(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
querycolorname = 1
PPCODE:
{
AV
*av;
char
void
QueryFont(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
queryfont = 1
PPCODE:
{
char
*name,
message[MagickPathExtent];
void
QueryFontMetrics(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
queryfontmetrics = 1
PPCODE:
{
AffineMatrix
affine,
current;
void
QueryMultilineFontMetrics(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
querymultilinefontmetrics = 1
PPCODE:
{
AffineMatrix
affine,
current;
void
QueryFormat(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
queryformat = 1
PPCODE:
{
char
*name;
ExceptionInfo
void
QueryOption(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
queryoption = 1
PPCODE:
{
char
**options;
ExceptionInfo
Image::Magick ref=NO_INIT
ALIAS:
ReadImage = 1
read = 2
readimage = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
RemoteCommand = 1
remote = 2
remoteCommand = 3
PPCODE:
{
AV
*av;
ExceptionInfo
SetAttributes = 1
SetAttribute = 2
set = 3
setattributes = 4
setattribute = 5
PPCODE:
{
ExceptionInfo
*exception;
Image
SetPixel(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
setpixel = 1
setPixel = 2
PPCODE:
{
AV
*av;
char
SetPixels(ref,...)
Image::Magick ref=NO_INIT
ALIAS:
setpixels = 1
setPixels = 2
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
SmushImage = 1
smush = 2
smushimage = 3
PPCODE:
{
AV
*av;
char
Image::Magick ref=NO_INIT
ALIAS:
StatisticsImage = 1
statistics = 2
statisticsimage = 3
PPCODE:
{
#define ChannelStatistics(channel) \
{ \
(void) FormatLocaleString(message,MagickPathExtent,"%.20g", \
(double) channel_statistics[channel].depth); \
Image::Magick ref=NO_INIT
ALIAS:
WriteImage = 1
write = 2
writeimage = 3
PPCODE:
{
char
filename[MagickPathExtent];
ExceptionInfo
PerlMaple
view release on metacpan or search on metacpan
PerlMaple.xs view on Meta::CPAN
void
maple_eval (expr)
char * expr
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
warninfo[0] = '\0';
result[0] = '\0';
maple_eval(expr);
if (PL_markstack_ptr != temp) {
PerlQt
view release on metacpan or search on metacpan
PerlQt/Qt.xs view on Meta::CPAN
MODULE = Qt PACKAGE = Qt::_internal
PROTOTYPES: DISABLE
void
getMethStat()
PPCODE:
XPUSHs(sv_2mortal(newSViv((int)methcache->size())));
XPUSHs(sv_2mortal(newSViv((int)methcache->count())));
void
getClassStat()
PPCODE:
XPUSHs(sv_2mortal(newSViv((int)classcache->size())));
XPUSHs(sv_2mortal(newSViv((int)classcache->count())));
void
getIsa(classId)
int classId
PPCODE:
Smoke::Index *parents =
qt_Smoke->inheritanceList +
qt_Smoke->classes[classId].parents;
while(*parents)
XPUSHs(sv_2mortal(newSVpv(qt_Smoke->classes[*parents++].className, 0)));
PerlQt/Qt.xs view on Meta::CPAN
void
findMethod(c, name)
char *c
char *name
PPCODE:
Smoke::Index meth = qt_Smoke->findMethod(c, name);
// printf("DAMNIT on %s::%s => %d\n", c, name, meth);
if(!meth) {
// empty list
} else if(meth > 0) {
PerlQt/Qt.xs view on Meta::CPAN
void
findMethodFromIds(idclass, idmethodname)
int idclass
int idmethodname
PPCODE:
Smoke::Index meth = qt_Smoke->findMethod(idclass, idmethodname);
if(!meth) {
// empty list
} else if(meth > 0) {
Smoke::Index i = qt_Smoke->methodMaps[meth].method;
PerlQt/Qt.xs view on Meta::CPAN
OUTPUT:
RETVAL
SV *
callMethod(...)
PPCODE:
if(_current_method) {
MethodCall c(qt_Smoke, _current_method, &ST(0), items);
c.next();
SV *ret = c.var();
SvREFCNT_inc(ret);
PerlX-ArraySkip-XS
view release on metacpan or search on metacpan
INCLUDE: const-xs.inc
void
arrayskip (...)
PROTOTYPE: @
PPCODE:
{
int i;
if (items == 0)
{
PerlX-Maybe-XS
view release on metacpan or search on metacpan
void
maybe (x, y, ...)
SV *x
SV *y
PROTOTYPE: $$@
PPCODE:
{
int i;
if (sv_defined(x) && sv_defined(y))
{
provided (chk, x, y, ...)
SV *chk
SV *x
SV *y
PROTOTYPE: $$$@
PPCODE:
{
int i;
if (SvTRUE(chk))
{
Perlbal-XS-HTTPHeaders
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:
/* 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 */
Perlito5
view release on metacpan or search on metacpan
lib/Perlito5/XS/Emitter.pm view on Meta::CPAN
if $self->{name};
my $sig = $self->{sig};
my $i = 0;
'void ' . $name . "()\n"
. "PPCODE:\n"
. join(";\n", map( Perlito5::XS::tab($level+1) . $_->emit_xs( $level + 1 ), @{$self->{block}} )) . ";\n"
}
}
1;
Pg-PQ
view release on metacpan or search on metacpan
void
PQdefaults(...)
PREINIT:
PQconninfoOption *opts;
int n = 0;
PPCODE:
opts = PQconndefaults();
if (opts) {
for (; opts[n].keyword; n++) {
HV *hv = newHV();
XPUSHs(newRV_noinc((SV*)hv));
# makeCancel = 0
void PQnotifies(PGconn *conn)
PREINIT:
PGnotify *notice;
PPCODE:
notice = PQnotifies(conn);
if (notice) {
int pid = notice->be_pid;
SV *name = sv_2mortal(my_newSVpv_utf8(aTHX_ notice->relname));
SV *extra = sv_2mortal(my_newSVpv_utf8(aTHX_ notice->extra));
PQfnames(PGresult *res)
ALIAS:
columnNames = 0
PREINIT:
int cols;
PPCODE:
cols = PQnfields(res);
if (cols) {
int j;
if (GIMME_V != G_ARRAY) cols = 1;
EXTEND(sp, cols);
PQgettuple(PGresult *res, UV i = 0)
ALIAS:
row = 0
PREINIT:
int rows, cols, j;
PPCODE:
rows = PQntuples(res);
cols = PQnfields(res);
if ((i > rows) || !cols)
XSRETURN(0);
else {
PQgettuple_as_hash(PGresult *res, ...)
ALIAS:
rowAsHash = 0
PREINIT:
int i, rows, cols;
PPCODE:
i = (items > 1 ? SvIV(ST(1)) : 0);
rows = PQntuples(res);
cols = PQnfields(res);
if ((i > rows) || !cols)
XSRETURN(0);
PQgetcolumn(PGresult *res, int j = 0)
ALIAS:
column = 0
PREINIT:
int rows, cols, i;
PPCODE:
rows = PQntuples(res);
cols = PQnfields(res);
if ((j > cols) || !rows)
XSRETURN(0);
else {
PQgettuples(PGresult *res)
ALIAS:
rows = 0
PREINIT:
int rows, cols, i, j;
PPCODE:
rows = PQntuples(res);
cols = PQnfields(res);
if (GIMME_V != G_ARRAY) {
mPUSHi(rows);
XSRETURN(1);
PQgettuples_as_hashes(PGresult *res)
ALIAS:
rowsAsHashes = 0
PREINIT:
int rows, cols, i, j;
PPCODE:
rows = PQntuples(res);
cols = PQnfields(res);
if (GIMME_V != G_ARRAY) {
mPUSHi(cols);
XSRETURN(1);
PQgetcolumns(PGresult *res)
ALIAS:
columns = 0
PREINIT:
int rows, cols, i, j;
PPCODE:
rows = PQntuples(res);
cols = PQnfields(res);
if (GIMME_V != G_ARRAY) {
mPUSHi(cols);
XSRETURN(1);
Pigment
view release on metacpan or search on metacpan
xs/Event.xs view on Meta::CPAN
void
uri (PgmEvent *event)
PREINIT:
gchar **i;
PPCODE:
for (i = event->dnd.uri; *i; i++) {
XPUSHs (newSVGChar (*i));
}
BOOT:
PkgConfig-LibPkgConf
view release on metacpan or search on metacpan
LibPkgConf.xs view on Meta::CPAN
argv_split(src)
const char *src
INIT:
int argc, ret, i;
char **argv;
PPCODE:
ret = pkgconf_argv_split(src, &argc, &argv);
if(ret == 0)
{
for(i=0; i<argc; i++)
{
Postgres
view release on metacpan or search on metacpan
Postgres.xs view on Meta::CPAN
void
query_fetchrow(q)
QUERY *q;
PROTOTYPE: $
PPCODE:
if (q && q->res) {
int cols = PQnfields(q->res);
/* return empty list when no more data */
if (PQntuples(q->res) > q->cur_row) { /* out of tuples to return */
int cur_col = 0;
( run in 2.022 seconds using v1.01-cache-2.11-cpan-71847e10f99 )