Result:
found more than 1151 distributions - search limited to the first 2001 files matching your query
( run in 1.691 )
Algorithm-MarkovChain-GHash
view release on metacpan or search on metacpan
void
get_options (obj, stub)
SV *obj;
char *stub;
PPCODE:
{
IM* im = (IM*) SvIV(phash_value(SvRV(obj), "_cstuff"));
chain_t* stubs = g_hash_table_lookup(im->chains, stub);
char **keys = NULL;
int nkeys, i;
Algorithm-MedianSelect-XS
view release on metacpan or search on metacpan
PROTOTYPE: @\@
INIT:
long *numbers = NULL;
unsigned int median, realitems;
enum { BUBBLE_SORT = 1, QUICK_SORT };
PPCODE:
if (items == 1)
{
if (SvROK (ST(0)))
{
if (SvTYPE (SvRV(ST(0))) == SVt_PVAV)
Algorithm-PageRank-XS
view release on metacpan or search on metacpan
void
DESTROY(pagerank p)
PREINIT:
SV *x;
PPCODE:
hv_undef(p->dim_map);
hv_undef(p->rev_map);
table_delete(p->main_table);
Safefree(p);
Algorithm-Permute
view release on metacpan or search on metacpan
PREINIT:
int i;
#ifdef USE_LINKEDLIST
listrecord *q; /* temporary holder */
#endif
PPCODE:
if (self->is_done) { /* done permutation for all combination */
if (self->c) {
free_combination(self->c);
self->c = NULL;
}
#ifdef USE_LINKEDLIST
listrecord *q;
#else
int i;
#endif
PPCODE:
if (self->is_done)
XSRETURN_EMPTY;
EXTEND(sp, self->num);
#ifdef USE_LINKEDLIST
q = self->ptr_head->link;
bool old_catch;
struct afp_cache *c;
I32 hasargs = 0;
SV** newsp;
PPCODE:
{
if (!SvROK(callback_sv) || SvTYPE(SvRV(callback_sv)) != SVt_PVCV)
Perl_croak(aTHX_ "Callback is not a CODE reference");
if (!SvROK(array_sv) || SvTYPE(SvRV(array_sv)) != SVt_PVAV)
Perl_croak(aTHX_ "Array is not an ARRAY reference");
Algorithm-RectanglesContainingDot_XS
view release on metacpan or search on metacpan
RectanglesContainingDot_XS.xs view on Meta::CPAN
double x
double y
PREINIT:
struct division *div;
int n = 0;
PPCODE:
div = init_division(aTHX_ self);
if (div) {
struct rectangle **rects;
int i, size;
Algorithm-SVM
view release on metacpan or search on metacpan
RETVAL
void
SVM::_getLabels(classes)
int classes
PPCODE:
int i;
int *labels;
labels = new int[classes];
if(THIS->getLabels(labels)) {
for (i=0;i < classes; i++) {
Alias
view release on metacpan or search on metacpan
void
alias_attr(hashref)
SV * hashref
PROTOTYPE: $
PPCODE:
{
HV *hv;
int in_destroy = 0;
int deref_call;
Alien-XInputSimulator
view release on metacpan or search on metacpan
t/02-getInstance.t view on Meta::CPAN
MODULE = TA_MODULE PACKAGE = TA_MODULE
void
getInstance(klass)
const char *klass
PPCODE:
(void)XInputSimulator::getInstance();
XSRETURN(1);
AlignDB-IntSpanXS
view release on metacpan or search on metacpan
POS_INF(itsx)
AlignDB::IntSpanXS itsx
INIT:
int i = POS_INF - 1;
PROTOTYPE: $
PPCODE:
XPUSHs(sv_2mortal(newSViv(i)));
int
NEG_INF(itsx)
AlignDB::IntSpanXS itsx
PROTOTYPE: $
PPCODE:
XPUSHs(sv_2mortal(newSViv(NEG_INF)));
SV *
EMPTY_STRING(itsx)
AlignDB::IntSpanXS itsx
PROTOTYPE: $
PPCODE:
XPUSHs(sv_2mortal(newSVpv(EMPTY_STRING, 0)));
AlignDB::IntSpanXS
_new(pack)
char *pack
INIT:
int i;
int j;
veci *vec;
PROTOTYPE: $
PPCODE:
vec = intspan_edges(itsx);
for (i = 0; i < veci_size(vec); i++) {
j = veci_get(vec, i);
XPUSHs(sv_2mortal(newSViv(j)));
}
AlignDB::IntSpanXS itsx
PREINIT:
char *tmp_buffer;
int len = 1024;
PROTOTYPE: $
PPCODE:
tmp_buffer = (char *)malloc(len + 1);
if (tmp_buffer == NULL)
XSRETURN_UNDEF;
intspan_as_string(itsx, &tmp_buffer, len);
INIT:
int i;
int j;
veci *vec;
PROTOTYPE: $
PPCODE:
vec = intspan_as_veci(itsx);
for (i = 0; i < veci_size(vec); i++) {
j = veci_get(vec, i);
XPUSHs(sv_2mortal(newSViv(j)));
}
INIT:
int i;
int j;
veci *vec;
PROTOTYPE: $
PPCODE:
vec = intspan_ranges(itsx);
for (i = 0; i < veci_size(vec); i++) {
j = veci_get(vec, i);
XPUSHs(sv_2mortal(newSViv(j)));
}
Alt-Acme-Math-XS-CPP
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
if ($o->{CONFIG}{_TESTING}) {
$XS .= <<END;
PREINIT:
PerlIO* stream;
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
stream = PerlIO_open(\"$dir/void_test\", \"a\");
if (stream == NULL) warn(\"%s\\n\", \"Unable to open $dir/void_test for appending\");
if (PL_markstack_ptr != temp) {
inc/Inline/C.pm view on Meta::CPAN
}
else {
$XS .= <<END;
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Alt-Acme-Math-XS-ModuleBuild
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
if ($o->{CONFIG}{_TESTING}) {
$XS .= <<END;
PREINIT:
PerlIO* stream;
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
stream = PerlIO_open(\"$dir/void_test\", \"a\");
if (stream == NULL) warn(\"%s\\n\", \"Unable to open $dir/void_test for appending\");
if (PL_markstack_ptr != temp) {
inc/Inline/C.pm view on Meta::CPAN
}
else {
$XS .= <<END;
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Alt-Acme-Math-XS-ModuleInstall
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
if ($o->{CONFIG}{_TESTING}) {
$XS .= <<END;
PREINIT:
PerlIO* stream;
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
stream = PerlIO_open(\"$dir/void_test\", \"a\");
if (stream == NULL) warn(\"%s\\n\", \"Unable to open $dir/void_test for appending\");
if (PL_markstack_ptr != temp) {
inc/Inline/C.pm view on Meta::CPAN
}
else {
$XS .= <<END;
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Alt-CWB-CL-ambs
view release on metacpan or search on metacpan
char * s
char * split
PREINIT:
char *set;
int split_mode;
PPCODE:
last_cl_error = CDA_OK;
if (split == NULL || (split[0] != '\0' && split[0] != 's'))
croak("Usage: $feature_set = CWB::CL::make_set($string [, 'split' | 's']);");
split_mode = (split[0] == 's');
set = cl_make_set(s, split_mode);
char * s1
char * s2
PREINIT:
static char result[CL_DYN_STRING_SIZE]; /* static buffer for results string */
int ok;
PPCODE:
last_cl_error = CDA_OK;
ok = cl_set_intersection(result, s1, s2);
if (ok) {
XPUSHs(sv_2mortal(newSVpv(result, 0))); /* create Perl string (let Perl compute length) */
}
PosAttrib attribute
PREINIT:
int i, id, size;
char *s;
SV *id_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
PosAttrib attribute
PREINIT:
int i, id, size;
char *s;
SV *s_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
cl_id2strlen(attribute, ...)
PosAttrib attribute
PREINIT:
int i, id, len, size;
SV *id_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
cl_id2freq(attribute, ...)
PosAttrib attribute
PREINIT:
int i, id, f, size;
SV *id_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
cl_cpos2id(attribute, ...)
PosAttrib attribute
PREINIT:
int i, cpos, id, size;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
PosAttrib attribute
PREINIT:
int i, cpos, size;
char *s;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
int canonicalize
PREINIT:
int number_of_matches = 0;
int *idlist;
int i;
PPCODE:
last_cl_error = CDA_OK;
idlist = cl_regex2id(attribute, pattern, canonicalize, &number_of_matches);
if (idlist != NULL) {
EXTEND(sp, number_of_matches); /* push IDs on result stack */
for (i=0; i < number_of_matches; i++)
cl_idlist2cpos(attribute, ...)
PosAttrib attribute
PREINIT:
int i, id, idlist_size, size, errors;
int *idlist, *list;
PPCODE:
last_cl_error = CDA_OK;
idlist_size = items - 1;
if (idlist_size > 0) {
Newx(idlist, idlist_size, int); /* convert argument list to list of integer IDs */
if (!idlist)
cl_cpos2struc(attribute, ...)
StrucAttrib attribute
PREINIT:
int i, cpos, struc, size;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
StrucAttrib attribute
PREINIT:
int i, cpos, size;
char *s;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
StrucAttrib attribute
PREINIT:
int i, struc, size;
char *s;
SV *struc_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
StrucAttrib attribute
PREINIT:
int i, struc, size, start, end;
int *arguments;
SV *struc_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
/* Return values on stack overwrite function arguments, starting from ST(0). This works in most
* vectorised functions since we push one return value for each argument, i.e. we store the result
StrucAttrib attribute
PREINIT:
int i, cpos, size, start, end;
int *arguments;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
/* see above why we need to store arguments in a temporary of C ints */
Newx(arguments, size, int); /* allocate temporary array to hold arguments (converted to C ints) */
cl_cpos2boundary(attribute, ...)
StrucAttrib attribute
PREINIT:
int i, cpos, flags, size;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
StrucAttrib attribute
int test_flags
PREINIT:
int i, cpos, flags, is_boundary, size;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 2;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
cl_cpos2alg(attribute, ...)
AlignAttrib attribute
PREINIT:
int i, cpos, alg, size;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
EXTEND(sp, size);
for (i = 0; i < size; i++) {
PREINIT:
int i, alg, size;
int source_start, source_end, target_start, target_end;
int *arguments;
SV *alg_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
/* Return values on stack overwrite function arguments, starting from ST(0). This works in most
* vectorised functions since we push one return value for each argument, i.e. we store the result
PREINIT:
int i, ok, cpos, alg, size;
int source_start, source_end, target_start, target_end;
int *arguments;
SV *cpos_arg;
PPCODE:
last_cl_error = CDA_OK;
size = items - 1;
if (size > 0) {
/* Return values on stack overwrite function arguments, starting from ST(0). This works in most
* vectorised functions since we push one return value for each argument, i.e. we store the result
Alt-Devel-GlobalDestruction-XS-Inline
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
if ($o->{CONFIG}{_TESTING}) {
$XS .= <<END;
PREINIT:
PerlIO* stream;
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
stream = PerlIO_open(\"$dir/void_test\", \"a\");
if (stream == NULL) warn(\"%s\\n\", \"Unable to open $dir/void_test for appending\");
if (PL_markstack_ptr != temp) {
inc/Inline/C.pm view on Meta::CPAN
}
else {
$XS .= <<END;
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Alt-Digest-MD5-OpenSSL
view release on metacpan or search on metacpan
void
new(xclass)
SV* xclass
PREINIT:
MD5_COMPAT_CTX* context;
PPCODE:
if (!SvROK(xclass)) {
STRLEN my_na;
const char *sclass = SvPV(xclass, my_na);
New(55, context, 1, MD5_COMPAT_CTX);
ST(0) = sv_2mortal(new_md5_ctx(aTHX_ context, sclass));
SV* self
PREINIT:
MD5_COMPAT_CTX* cont = get_md5_ctx(aTHX_ self);
const char *myname = sv_reftype(SvRV(self),TRUE);
MD5_COMPAT_CTX* context;
PPCODE:
New(55, context, 1, MD5_COMPAT_CTX);
ST(0) = sv_2mortal(new_md5_ctx(aTHX_ context, myname));
#if OPENSSL_VERSION_NUMBER >= 0x30000000L
context->ctx = EVP_MD_CTX_new();
if (context->ctx == NULL || !EVP_MD_CTX_copy_ex(context->ctx, cont->ctx)) {
PREINIT:
MD5_COMPAT_CTX* context = get_md5_ctx(aTHX_ self);
int i;
unsigned char *data;
STRLEN len;
PPCODE:
for (i = 1; i < items; i++) {
U32 had_utf8 = SvUTF8(ST(i));
data = (unsigned char *)(SvPVbyte(ST(i), len));
md5_update(context, data, len);
if (had_utf8)
Digest::MD5::digest = F_BIN
Digest::MD5::hexdigest = F_HEX
Digest::MD5::b64digest = F_B64
PREINIT:
unsigned char digeststr[16];
PPCODE:
md5_final(digeststr, context);
md5_init(context); /* In case it is reused */
ST(0) = make_mortal_sv(aTHX_ digeststr, ix);
XSRETURN(1);
MD5_COMPAT_CTX context;
int i;
unsigned char *data;
STRLEN len;
unsigned char digeststr[16];
PPCODE:
md5_init(&context);
if ((PL_dowarn & G_WARN_ON) || ckWARN(WARN_SYNTAX)) {
const char *msg = 0;
if (items == 1) {
Alt-Lexical-Var-ButSupportModernPerl
view release on metacpan or search on metacpan
OUTPUT:
RETVAL
void
import(SV *classname, ...)
PPCODE:
PERL_UNUSED_VAR(classname);
PUSHMARK(SP);
/* the modified SP is intentionally lost here */
import('N', "variable");
SPAGAIN;
void
unimport(SV *classname, ...)
PPCODE:
PERL_UNUSED_VAR(classname);
PUSHMARK(SP);
/* the modified SP is intentionally lost here */
unimport('N', "variable");
SPAGAIN;
OUTPUT:
RETVAL
void
import(SV *classname, ...)
PPCODE:
PERL_UNUSED_VAR(classname);
PUSHMARK(SP);
/* the modified SP is intentionally lost here */
import('&', "subroutine");
SPAGAIN;
void
unimport(SV *classname, ...)
PPCODE:
PERL_UNUSED_VAR(classname);
PUSHMARK(SP);
/* the modified SP is intentionally lost here */
unimport('&', "subroutine");
SPAGAIN;
Alt-Math-Prime-FastSieve-Inline
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
if ($o->{CONFIG}{_TESTING}) {
$XS .= <<END;
PREINIT:
PerlIO* stream;
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
stream = PerlIO_open(\"$dir/void_test\", \"a\");
if (stream == NULL) warn(\"%s\\n\", \"Unable to open $dir/void_test for appending\");
if (PL_markstack_ptr != temp) {
inc/Inline/C.pm view on Meta::CPAN
}
else {
$XS .= <<END;
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
$function($arg_name_list);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Alter
view release on metacpan or search on metacpan
}
}
/*
void is_xs()
PPCODE:
ST(0) = newSViv(1);
sv_2mortal(ST(0));
XSRETURN(1);
*/
AnyEvent-FastPing
view release on metacpan or search on metacpan
FastPing.xs view on Meta::CPAN
recv_flush ();
}
void
_new (SV *klass, UV magic1, UV magic2, UV magic3)
PPCODE:
{
SV *pv = NEWSV (0, sizeof (PINGER));
PINGER *self = (PINGER *)SvPVX (pv);
SvPOK_only (pv);
AnyEvent-XSPromises
view release on metacpan or search on metacpan
XSPromises.xs view on Meta::CPAN
MODULE = AnyEvent::XSPromises PACKAGE = AnyEvent::XSPromises::PromisePtr
void
then(self, ...)
AnyEvent::XSPromises::Promise* self
PPCODE:
SV* on_resolve;
SV* on_reject;
xspr_promise_t* next = NULL;
if (items > 3) {
XSPromises.xs view on Meta::CPAN
void
catch(self, on_reject)
AnyEvent::XSPromises::Promise* self
SV* on_reject
PPCODE:
xspr_promise_t* next = NULL;
/* Many promises are just thrown away after the final callback, no need to allocate a next promise for those */
if (GIMME_V != G_VOID) {
AnyEvent__XSPromises__Promise* next_promise;
XSPromises.xs view on Meta::CPAN
void
finally(self, on_finally)
AnyEvent::XSPromises::Promise* self
SV* on_finally
PPCODE:
xspr_promise_t* next = NULL;
/* Many promises are just thrown away after the final callback, no need to allocate a next promise for those */
if (GIMME_V != G_VOID) {
AnyEvent__XSPromises__Promise* next_promise;
AnyEvent-YACurl
view release on metacpan or search on metacpan
void
new(class, args)
char *class
HV *args
PPCODE:
dMY_CXT;
(void)class;
AnyEvent__YACurl *client;
AnyMongo
view release on metacpan or search on metacpan
AnyMongo.xs view on Meta::CPAN
PREINIT:
buffer buf;
mongo_msg_header header;
int i;
AV *ids = newAV();
PPCODE:
CREATE_BUF(INITIAL_BUF_SIZE);
CREATE_HEADER(buf, ns, OP_INSERT);
for (i=0; i<=av_len(a); i++) {
int start = buf.pos-buf.start;
Apache-DAV
view release on metacpan or search on metacpan
xs/Apache/DAV/DAV.xs view on Meta::CPAN
Apache::DAV::Resource resource
Apache::DAV::LockDB lockdb
Apache::DAV::Lock request
PREINIT:
Apache__DAV__Response response;
PPCODE:
RETVAL = dav_add_lock(r, resource, lockdb, request, &response);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_Apache__DAV__Error_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__Response_2obj(response)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
Apache::DAV::Error
dav_get_locktoken_list(r)
Apache r
PREINIT:
Apache__DAV__LockTokenList ltl;
PPCODE:
RETVAL = dav_get_locktoken_list(r, <l);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_Apache__DAV__Error_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__LockTokenList_2obj(ltl)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
int
dav_get_resource(r)
Apache r
PREINIT:
Apache__DAV__Resource res_p;
PPCODE:
RETVAL = dav_get_resource(r, &res_p);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_IV_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__Resource_2obj(res_p)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
Apache::DAV::Resource resrouce
Apache::DAV::LockDB lockdb
Apache::DAV::XMLDoc doc
PREINIT:
Apache__DAV__Lock lock_request;
PPCODE:
RETVAL = dav_lock_parse_lockinfo(r, resrouce, lockdb, doc, &lock_request);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_Apache__DAV__Error_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__Lock_2obj(lock_request)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
dav_lock_query(lockdb, resource)
Apache::DAV::LockDB lockdb
Apache::DAV::Resource resource
PREINIT:
Apache__DAV__Lock locks;
PPCODE:
RETVAL = dav_lock_query(lockdb, resource, &locks);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_Apache__DAV__Error_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__Lock_2obj(locks)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
dav_open_lockdb(r, ro=0)
Apache r
int ro
PREINIT:
Apache__DAV__LockDB lockdb;
PPCODE:
RETVAL = dav_open_lockdb(r, ro, &lockdb);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_Apache__DAV__Error_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__LockDB_2obj(lockdb)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
Apache::DAV::Resource resource
int ro
Apache::Array ns_xlate
PREINIT:
Apache__DAV__PropDB propdb;
PPCODE:
RETVAL = dav_open_propdb(r, lockdb, resource, ro, ns_xlate, &propdb);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_Apache__DAV__Error_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__PropDB_2obj(propdb)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
int
dav_parse_input(r)
Apache r
PREINIT:
Apache__DAV__XMLDoc pdoc;
PPCODE:
RETVAL = dav_parse_input(r, &pdoc);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_IV_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__XMLDoc_2obj(pdoc)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
Apache r
Apache::DAV::Resource resource
Apache::DAV::XMLDoc doc
PREINIT:
Apache__DAV__Text propstat_text_ptr;
PPCODE:
RETVAL = dav_proppatch(r, resource, doc, &propstat_text_ptr);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_IV_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__Text_2obj(propstat_text_ptr)) ;
xs/Apache/DAV/DAV.xs view on Meta::CPAN
dav_scan_providers(ctx, output)
void * ctx
Apache::DAV::DynHooks output
PREINIT:
Apache__DAV__DynProvider provider;
PPCODE:
RETVAL = dav_scan_providers(ctx, &provider, output);
XSprePUSH;
EXTEND(SP, 2) ;
PUSHs(davxs_IV_2obj(RETVAL)) ;
PUSHs(davxs_Apache__DAV__DynProvider_2obj(provider)) ;
Apache-LoadAvgLimit
view release on metacpan or search on metacpan
lib/Apache/LoadAvgLimit/GetAvg.xs view on Meta::CPAN
PREINIT:
double avenrun[3];
char avg[3][8];
int i;
PPCODE:
if (getloadavg(avenrun, sizeof(avenrun) / sizeof(avenrun[0])) != -1){
EXTEND(SP, 3);
for(i=0; i<=2; i++){
sprintf(avg[i], "%.2f", avenrun[i]);
PUSHs(sv_2mortal(newSVpv( avg[i], 0 )));
Apache-Scoreboard
view release on metacpan or search on metacpan
Scoreboard.xs view on Meta::CPAN
void
times(self)
Apache::ScoreboardWorkerScore self
PPCODE:
if (GIMME == G_ARRAY) {
/* same return values as CORE::times() */
EXTEND(sp, 4);
PUSHs(sv_2mortal(newSViv(self->record->times.tms_utime)));
PUSHs(sv_2mortal(newSViv(self->record->times.tms_stime)));
Scoreboard.xs view on Meta::CPAN
stop_time = 1
PREINIT:
apr_time_t tp;
PPCODE:
ix = ix; /* warnings */
tp = (XSANY.any_i32 == 0) ?
self->record->start_time : self->record->stop_time;
SB_TRACE(MP_FUNC, "%s_time: %5" APR_TIME_T_FMT "\n",
Apache-SubProcess
view release on metacpan or search on metacpan
SubProcess.xs view on Meta::CPAN
PREINIT:
FILE *ioip, *ioop, *ioep;
subprocess_info *info;
PPCODE:
info = (subprocess_info *)ap_pcalloc(r->pool, sizeof(subprocess_info));
info->cv = cvrv;
info->r = r;
if (!ap_spawn_child(r->pool, subprocess_child,
(void *)info, kill_after_timeout,
Apache2-ModLogConfig
view release on metacpan or search on metacpan
ModLogConfig.xs view on Meta::CPAN
PROTOTYPES: DISABLE
void
custom_logs(s)
Apache2::ServerRec s
PPCODE:
{
apr_pool_t *pconf=modperl_global_get_pconf();
apr_hash_t *hash;
apr_pool_userdata_get((void**)&hash, PPROC_KEY, pconf);
ModLogConfig.xs view on Meta::CPAN
void
custom_log_by_name(s, name)
Apache2::ServerRec s
SV* name
PPCODE:
{
apr_pool_t *pconf=modperl_global_get_pconf();
apr_hash_t *hash;
apr_pool_userdata_get((void**)&hash, PPROC_KEY, pconf);
ModLogConfig.xs view on Meta::CPAN
void
print(log, r, ...)
Apache2::CustomLog log
Apache2::RequestRec r
PPCODE:
if(items>2) {
apr_pool_t *p;
const char **strs;
int *strl;
int i;
Apache2-ModSSL
view release on metacpan or search on metacpan
void
mpxs_Apache2__Connection_ssl_var_lookup(c, var)
Apache2::Connection c
char *var
PROTOTYPE: $$
PPCODE:
{
apr_pool_t *p=NULL;
apr_status_t stat;
char buf[512];
mpxs_Apache2__Connection_ssl_ext_lookup(c, peer, oid)
Apache2::Connection c
int peer
char *oid
PROTOTYPE: $$
PPCODE:
{
apr_pool_t *p=NULL;
apr_status_t stat;
char buf[512];
const char *ptr;
Apache2-ScoreBoardFile
view release on metacpan or search on metacpan
ScoreBoardFile.xs view on Meta::CPAN
void
summary(obj, ...)
Apache2::ScoreBoardFile obj
PROTOTYPE: $@
PPCODE:
{
int i;
struct summary result[MAX_STAT_RESULTS];
memset(result, 0, sizeof(result));
Apophis
view release on metacpan or search on metacpan
lib/Apophis.xs view on Meta::CPAN
const unsigned char *ns;
const char *store_dir;
STRLEN store_dir_len;
AV *av;
I32 len, i;
PPCODE:
if (!sv_isobject(self))
croak("Apophis::store_many: not an object");
hv = (HV *)SvRV(self);
ns = apophis_get_ns(aTHX_ hv);
lib/Apophis.xs view on Meta::CPAN
HV *opts = NULL;
const char *store_dir;
STRLEN store_dir_len;
AV *av;
I32 len, i;
PPCODE:
if (!sv_isobject(self))
croak("Apophis::find_missing: not an object");
hv = (HV *)SvRV(self);
if (!SvROK(ids) || SvTYPE(SvRV(ids)) != SVt_PVAV)
( run in 1.691 second using v1.01-cache-2.11-cpan-71847e10f99 )