Result:
found more than 1151 distributions - search limited to the first 2001 files matching your query
( run in 2.407 )
Google-ProtocolBuffers-Dynamic
view release on metacpan or search on metacpan
xsp/mapper.xsp view on Meta::CPAN
void
get_scalar(HV *self)
INIT:
dXSTARG;
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
PUSHs(field->get_scalar(self, TARG));
void
get_extension_scalar(HV *self, SV *extension)
INIT:
dXSTARG;
gpd::MapperField *field = gpd::MapperField::find_scalar_extension(aTHX_ cv, extension);
PPCODE:
PUSHs(field->get_scalar(self, TARG));
void
set_scalar(HV *self, SV *value)
INIT:
xsp/mapper.xsp view on Meta::CPAN
void
get_or_set_scalar(HV *self, SV *value = NULL)
INIT:
dXSTARG;
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
if (!value)
PUSHs(field->get_scalar(self, TARG));
else
field->set_scalar(self, value);
void
get_or_set_extension_scalar(HV *self, SV *extension, SV *value = NULL)
INIT:
dXSTARG;
gpd::MapperField *field = gpd::MapperField::find_scalar_extension(aTHX_ cv, extension);
PPCODE:
if (!value)
PUSHs(field->get_scalar(self, TARG));
else
field->set_scalar(self, value);
void
get_list_item(HV *self, IV index)
INIT:
dXSTARG;
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
PUSHs(field->get_item(self, index, TARG));
void
get_extension_item(HV *self, SV *extension, IV index)
INIT:
dXSTARG;
gpd::MapperField *field = gpd::MapperField::find_repeated_extension(aTHX_ cv, extension);
PPCODE:
PUSHs(field->get_item(self, index, TARG));
void
set_list_item(HV *self, IV index, SV *value)
INIT:
xsp/mapper.xsp view on Meta::CPAN
void
get_or_set_list_item(HV *self, IV index, SV *value = NULL)
INIT:
dXSTARG;
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
if (!value)
PUSHs(field->get_item(self, index, TARG));
else
field->set_item(self, index, value);
void
get_or_set_extension_item(HV *self, SV *extension, IV index, SV *value = NULL)
INIT:
dXSTARG;
gpd::MapperField *field = gpd::MapperField::find_scalar_extension(aTHX_ cv, extension);
PPCODE:
if (!value)
PUSHs(field->get_item(self, index, TARG));
else
field->set_item(self, index, value);
xsp/mapper.xsp view on Meta::CPAN
void
get_list(HV *self)
INIT:
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
PUSHs(field->get_list(self));
void
get_extension_list(HV *self, SV *extension)
INIT:
gpd::MapperField *field = gpd::MapperField::find_repeated_extension(aTHX_ cv, extension);
PPCODE:
PUSHs(field->get_list(self));
void
set_list(HV *self, SV *ref)
INIT:
xsp/mapper.xsp view on Meta::CPAN
void
get_or_set_list(HV *self, SV *ref = NULL)
INIT:
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
if (!ref)
PUSHs(field->get_list(self));
else
field->set_list(self, ref);
void
get_or_set_extension_list(HV *self, SV *extension, SV *ref = NULL)
INIT:
gpd::MapperField *field = gpd::MapperField::find_scalar_extension(aTHX_ cv, extension);
PPCODE:
if (!ref)
PUSHs(field->get_list(self));
else
field->set_list(self, ref);
void
get_map_item(HV *self, SV *key)
INIT:
dXSTARG;
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
PUSHs(field->get_item(self, key, TARG));
void
set_map_item(HV *self, SV *key, SV *value)
INIT:
xsp/mapper.xsp view on Meta::CPAN
void
get_or_set_map_item(HV *self, SV *key, SV *value = NULL)
INIT:
dXSTARG;
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
if (!value)
PUSHs(field->get_item(self, key, TARG));
else
field->set_item(self, key, value);
void
get_map(HV *self)
INIT:
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
PUSHs(field->get_map(self));
void
set_map(HV *self, SV *ref)
INIT:
xsp/mapper.xsp view on Meta::CPAN
void
get_or_set_map(HV *self, SV *ref = NULL)
INIT:
gpd::MapperField *field = (gpd::MapperField *) CvXSUBANY(cv).any_ptr;
PPCODE:
if (!ref)
PUSHs(field->get_map(self));
else
field->set_map(self, ref);
Graph-Layout-Aesthetic
view release on metacpan or search on metacpan
Aesthetic.xs view on Meta::CPAN
void
neighbors(aglo_graph topology, aglo_vertex vertex)
PREINIT:
aglo_edge_record here, next;
PPCODE:
if (vertex >= topology->vertices)
croak("Vertex number %"UVuf" is invalid, there are only %"UVuf" in the topology",
(UV) vertex, (UV) topology->vertices);
here = topology->edge_table[vertex];
while (here) {
Aesthetic.xs view on Meta::CPAN
void
forward_neighbors(aglo_graph topology, aglo_vertex vertex)
PREINIT:
aglo_edge_record here, next;
PPCODE:
if (vertex >= topology->vertices)
croak("Vertex number %"UVuf" is invalid, there are only %"UVuf" in the topology",
(UV) vertex, (UV) topology->vertices);
here = topology->edge_table[vertex];
while (here) {
Aesthetic.xs view on Meta::CPAN
void
edges(aglo_graph topology)
PREINIT:
aglo_vertex i;
PPCODE:
for (i=0; i<topology->vertices; i++) {
aglo_edge_record here, next;
for (here = topology->edge_table[i]; here; here = next) {
next = here->next;
if (here->forward) {
Aesthetic.xs view on Meta::CPAN
void
add_edge(aglo_graph topology, aglo_vertex u, aglo_vertex v, aglo_boolean forward=1)
PREINIT:
aglo_edge_record f_edge, b_edge;
PPCODE:
if (topology->done) croak("Cannot add nodes to a finished topology");
if (u >= topology->vertices)
croak("Vertex number %"UVuf" is invalid, there are only %"UVuf" in the topology",
(UV) u, (UV) topology->vertices);
if (v >= topology->vertices)
Aesthetic.xs view on Meta::CPAN
b_edge->next = topology->edge_table[v];
topology->edge_table[v] = b_edge;
void
finish(aglo_graph topology)
PPCODE:
if (topology->done) croak("Topology is already finished");
topology->done = true;
aglo_boolean
finished(aglo_graph topology)
Aesthetic.xs view on Meta::CPAN
void
levels(aglo_graph topology)
PREINIT:
aglo_vertex i;
PPCODE:
at_setup_node_level(topology);
EXTEND(SP, topology->vertices);
for (i=0; i<topology->vertices; i++)
PUSHs(sv_2mortal(newSVnv(topology->at_level[i])));
void
user_data(aglo_graph topology, SV *new_user_data=0)
PPCODE:
if (GIMME_V != G_VOID)
XPUSHs(topology->user_data ? topology->user_data : &PL_sv_undef);
if (new_user_data) {
if (topology->user_data) sv_2mortal(topology->user_data);
topology->user_data = newSVsv(new_user_data);
}
void
_private_data(aglo_graph topology, SV *new_private_data=0)
PPCODE:
if (GIMME_V != G_VOID)
XPUSHs(topology->private_data ? topology->private_data : &PL_sv_undef);
if (new_private_data) {
if (topology->private_data) sv_2mortal(topology->private_data);
topology->private_data = newSVsv(new_private_data);
Aesthetic.xs view on Meta::CPAN
void
DESTROY(aglo_graph topology)
PREINIT:
aglo_vertex i;
PPCODE:
if (topology->user_data) sv_2mortal(topology->user_data);
if (topology->private_data) sv_2mortal(topology->private_data);
if (topology->at_level) Safefree(topology->at_level);
if (topology->level_sorted_vertex) Safefree(topology->level_sorted_vertex);
if (topology->level2nodes) Safefree(topology->level2nodes);
Aesthetic.xs view on Meta::CPAN
MODULE = Graph::Layout::Aesthetic PACKAGE = Graph::Layout::Aesthetic::Force
void
user_data(aglo_force force, SV *new_user_data=0)
PPCODE:
if (GIMME_V != G_VOID)
XPUSHs(force->user_data ? force->user_data : &PL_sv_undef);
if (new_user_data) {
if (force->user_data) sv_2mortal(force->user_data);
force->user_data = newSVsv(new_user_data);
}
void
_private_data(aglo_force force, SV *new_private_data=0)
PPCODE:
if (GIMME_V != G_VOID)
XPUSHs(force->private_data ? force->private_data : &PL_sv_undef);
if (new_private_data) {
if (force->private_data) sv_2mortal(force->private_data);
force->private_data = newSVsv(new_private_data);
}
void
DESTROY(aglo_force force)
PPCODE:
if (force->private_data) sv_2mortal(force->private_data);
if (force->user_data) sv_2mortal(force->user_data);
Safefree(force);
MODULE = Graph::Layout::Aesthetic PACKAGE = Graph::Layout::Aesthetic
Aesthetic.xs view on Meta::CPAN
OUTPUT:
RETVAL
void
paused(aglo_state state, aglo_boolean new_paused=0)
PPCODE:
if (GIMME_V != G_VOID) XPUSHs(state->paused ? &PL_sv_yes : &PL_sv_no);
if (items > 1) state->paused = new_paused;
aglo_unsigned
nr_dimensions(aglo_state state)
Aesthetic.xs view on Meta::CPAN
void
coordinates(aglo_state state, aglo_vertex vertex, ...)
PREINIT:
aglo_unsigned i, d;
aglo_point v;
PPCODE:
if (vertex >= state->graph->vertices)
croak("Vertex number %"UVuf" is invalid, there are only %"UVuf" in the topology",
(UV) vertex, (UV) state->graph->vertices);
d = state->dimensions;
v = state->point[vertex];
Aesthetic.xs view on Meta::CPAN
PREINIT:
aglo_unsigned j, d;
aglo_vertex i, v;
AV *coords;
aglo_point p;
PPCODE:
d = state->dimensions;
v = state->graph->vertices;
/* First push the result */
switch(GIMME_V) {
Aesthetic.xs view on Meta::CPAN
aglo_unsigned j, d;
aglo_graph graph;
aglo_point p;
aglo_edge_record here;
AV *rav, *av, *av_from, *av_to;
PPCODE:
d = state->dimensions;
graph = state->graph;
switch(GIMME_V) {
case G_ARRAY:
for (i=0; i<graph->vertices; i++) {
Aesthetic.xs view on Meta::CPAN
void
zero(aglo_state state)
PREINIT:
aglo_unsigned i, d;
aglo_vertex p, v;
PPCODE:
d = state->dimensions;
v = state->graph->vertices;
for (p=0; p<v; p++) {
aglo_real *here = state->point[p];
for (i=0; i<d; i++) here[i] = 0;
}
state->sequence++;
void
randomize(aglo_state state, aglo_real size = 1)
PPCODE:
aglo_randomize(aTHX_ state, size);
void
frame(aglo_state state)
PREINIT:
aglo_real *frame;
aglo_unsigned i, d;
AV *av;
PPCODE:
if (state->graph->vertices > 0) {
d = state->dimensions;
New(__LINE__, frame, 2*d, aglo_real);
aglo_frame_coordinates(state, frame, &frame[d]);
Aesthetic.xs view on Meta::CPAN
iso_frame(aglo_state state)
PREINIT:
aglo_real *frame;
aglo_unsigned i, d;
AV *av;
PPCODE:
if (state->graph->vertices > 0) {
d = state->dimensions;
New(__LINE__, frame, 2*d, aglo_real);
aglo_iso_frame_coordinates(state, frame, &frame[d]);
Aesthetic.xs view on Meta::CPAN
Safefree(frame);
}
void
normalize(aglo_state state)
PPCODE:
aglo_normalize_state(state);
void
jitter(aglo_state state, aglo_real distance=1e-5)
PPCODE:
jitter(aTHX_ state, distance);
void
_add_force(SV *state, SV *force, aglo_real weight=1)
PREINIT:
aglo_state st;
aglo_force fo;
use_force use;
void *private;
PPCODE:
/* This replaces force by what it references */
fo = C_OBJECT(force, "Graph::Layout::Aesthetic::Force", "force");
/* This replaces state by what it references */
st = C_OBJECT(state, "Graph::Layout::Aesthetic", "state");
Aesthetic.xs view on Meta::CPAN
void
forces(aglo_state state)
PREINIT:
use_force force;
PPCODE:
switch(GIMME_V) {
AV *rav;
case G_ARRAY:
for (force = state->forces; force; force = force->next) {
AV *av = newAV();
Aesthetic.xs view on Meta::CPAN
}
void
init_gloss(aglo_state state, aglo_real temperature, aglo_real end_temperature, aglo_signed iterations, aglo_real randomize_size=1)
PPCODE:
if (temperature <= 0)
croak("Temperature %"NVff" should be > 0", (NV) temperature);
if (end_temperature <= 0)
croak("End_temperature %"NVff" should be > 0", (NV) end_temperature);
if (temperature < end_temperature)
Aesthetic.xs view on Meta::CPAN
void
_gloss(aglo_state state, aglo_real pause_time=1e50)
PREINIT:
time_t now;
aglo_real lambda;
PPCODE:
if (state->iterations <= 0) croak("No more iterations left");
lambda = pow(state->temperature / state->end_temperature, 1.0 / state->iterations);
state->paused = 0;
while (state->iterations > 0 && !state->paused) {
aglo_step(aTHX_ state, state->temperature,
Aesthetic.xs view on Meta::CPAN
/* We lose the value anyways on exception in gradient,
but restore is just a nicity, not part of the API */
void
step(aglo_state state, aglo_real temperature = state->temperature, aglo_real jitter_size = 1e-5)
PPCODE:
if (items < 3 && temperature < jitter_size) jitter_size = temperature;
aglo_step(aTHX_ state, temperature, jitter_size);
void gradient(aglo_state state)
PREINIT:
aglo_unsigned i, d;
aglo_vertex p, v;
aglo_gradient gradient;
PPCODE:
calculate_aesth_forces(aTHX_ state);
gradient = state->gradient;
d = state->dimensions;
v = state->graph->vertices;
Aesthetic.xs view on Meta::CPAN
DESTROY(SV *state)
PREINIT:
use_force here;
aglo_state st;
aglo_boolean warned;
PPCODE:
/* This replaces state by what it references */
st = C_OBJECT(state, "Graph::Layout::Aesthetic", "state");
warned = 0;
ENTER;
Aesthetic.xs view on Meta::CPAN
clear_forces(aglo_state state)
PREINIT:
use_force here;
aglo_aesth_cleanup_fx *cleanup;
void *private;
PPCODE:
while (state->forces) {
here = state->forces;
/* Keep datastructure valid in case the cleanup call dies */
state->forces = here->next;
cleanup = here->force->aesth_cleanup;
Graph-NewmanGirvan
view release on metacpan or search on metacpan
NewmanGirvan.xs view on Meta::CPAN
NewmanGirvan::set_vertex_weight(const char* vertex, double weight)
void
NewmanGirvan::compute()
PREINIT:
PPCODE:
std::map<std::string, int> result = THIS->run();
for (std::map<std::string, int>::const_iterator i = result.begin(); i != result.end(); ++i) {
mXPUSHs(newSVpvn(i->first.c_str(), i->first.size()));
mXPUSHs(newSVnv(i->second));
}
GraphQL-Houtou
view release on metacpan or search on metacpan
lib/GraphQL/Houtou.xs view on Meta::CPAN
SV *runtime_cache
SV *value
SV *context
SV *info
SV *abstract_type
PPCODE:
{
SV *error = NULL;
SV *runtime_type = gql_runtime_vm_resolve_runtime_type_sv(
aTHX_ dispatch, runtime_cache, value, context, info, abstract_type, &error
);
lib/GraphQL/Houtou.xs view on Meta::CPAN
SV *abstract_name
SV *value
SV *context
SV *info
SV *abstract_type
PPCODE:
{
SV *error = NULL;
STRLEN abstract_name_len = 0;
const char *abstract_name_pv = (abstract_name && SvOK(abstract_name))
? SvPV(abstract_name, abstract_name_len)
lib/GraphQL/Houtou.xs view on Meta::CPAN
consume_outcome_xs(writer, data, result_name, outcome)
SV *writer
SV *data
SV *result_name
SV *outcome
PPCODE:
{
HV *data_hv = NULL;
gql_runtime_vm_writer_t *writer_state = gql_runtime_vm_expect_writer(aTHX_ writer);
gql_runtime_vm_outcome_t *outcome_state = gql_runtime_vm_expect_outcome(aTHX_ outcome);
if (data && SvOK(data) && SvROK(data) && SvTYPE(SvRV(data)) == SVt_PVHV) {
lib/GraphQL/Houtou.xs view on Meta::CPAN
void
block_frame_add_pending_xs(frame, result_name, outcome)
SV *frame
SV *result_name
SV *outcome
PPCODE:
{
gql_runtime_vm_block_frame_t *state = gql_runtime_vm_expect_block_frame(aTHX_ frame);
gql_runtime_vm_block_frame_push_pending(aTHX_ state, result_name, outcome);
}
Graphics-MNG
view release on metacpan or search on metacpan
SV *cbfn
PROTOTYPE: $$
PREINIT:
int c_rv = 0;
int count;
PPCODE:
if ( SvROK(cbfn) ) cbfn=SvRV(cbfn); // allow one level of deref
if ( SvTYPE(cbfn) != SVt_PVCV )
{
my_warn( "test_callback_fn: wrong type for callback function" );
XSRETURN_UNDEF;
void
mng_set_warn_category(offset)
unsigned long offset
PROTOTYPE: $
PPCODE:
warn_category = offset/2; // need to half the value for use in PERL guts
#===============================================================================
mng_int32 c_iExtra1 = 0;
mng_int32 c_iExtra2 = 0;
mng_pchar c_zErrortext = NULL;
mng_retcode c_rv;
SV* errortext = &PL_sv_undef;
PPCODE:
c_rv = mng_getlasterror ( hHandle,
&c_iSeverity,
&c_iChunkname,
&c_iChunkseq,
&c_iExtra1,
PREINIT:
mng_retcode c_rv;
mng_uint16 c_iRed;
mng_uint16 c_iGreen;
mng_uint16 c_iBlue;
PPCODE:
c_rv = mng_get_bgcolor(hHandle,&c_iRed,&c_iGreen,&c_iBlue);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint16 c_iRed = 0;
mng_uint16 c_iGreen = 0;
mng_uint16 c_iBlue = 0;
mng_uint8 c_iMandatory = 0;
PPCODE:
// this function was introduced in v1.0.3
c_rv = _MNG_GET_LASTBACKCHUNK(hHandle,&c_iRed,&c_iGreen,&c_iBlue,&c_iMandatory);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
mng_uint8 c_iBitdepth = 0;
mng_uint8 c_iColortype = 0;
mng_uint8 c_iCompression = 0;
mng_uint8 c_iFilter = 0;
mng_uint8 c_iInterlace = 0;
PPCODE:
c_rv = mng_getchunk_ihdr(hHandle,c_hChunk,&c_iWidth,&c_iHeight,&c_iBitdepth,&c_iColortype,&c_iCompression,&c_iFilter,&c_iInterlace);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
PREINIT:
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iCount = 0;
mng_palette8 c_aPalette;
PPCODE:
c_rv = mng_getchunk_plte(hHandle,c_hChunk,&c_iCount,&c_aPalette);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iRawlen = 0;
mng_ptr c_pRawdata = NULL;
PPCODE:
c_rv = mng_getchunk_idat(hHandle,c_hChunk,&c_iRawlen,&c_pRawdata);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint16 c_iGreen = 0;
mng_uint16 c_iBlue = 0;
mng_uint32 c_iRawlen = 0;
mng_uint8arr c_aRawdata;
PPCODE:
c_rv = mng_getchunk_trns(hHandle,c_hChunk,&c_bEmpty,&c_bGlobal,&c_iType,&c_iCount,&c_aAlphas,&c_iGray,&c_iRed,&c_iGreen,&c_iBlue,&c_iRawlen,&c_aRawdata);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_bool c_bEmpty = FALSE;
mng_uint32 c_iGamma = 0;
PPCODE:
c_rv = mng_getchunk_gama(hHandle,c_hChunk,&c_bEmpty,&c_iGamma);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint32 c_iGreenx = 0;
mng_uint32 c_iGreeny = 0;
mng_uint32 c_iBluex = 0;
mng_uint32 c_iBluey = 0;
PPCODE:
c_rv = mng_getchunk_chrm(hHandle,c_hChunk, &c_bEmpty, &c_iWhitepointx, &c_iWhitepointy, &c_iRedx, &c_iRedy, &c_iGreenx, &c_iGreeny, &c_iBluex, &c_iBluey);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_bool c_bEmpty = FALSE;
mng_uint8 c_iRenderingintent = 0;
PPCODE:
c_rv = mng_getchunk_srgb(hHandle,c_hChunk, &c_bEmpty, &c_iRenderingintent);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_pchar c_zName = NULL;
mng_uint8 c_iCompression = 0;
mng_uint32 c_iProfilesize = 0;
mng_ptr c_pProfile = NULL;
PPCODE:
c_rv = mng_getchunk_iccp(hHandle,c_hChunk, &c_bEmpty, &c_iNamesize, &c_zName, &c_iCompression, &c_iProfilesize, &c_pProfile);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint32 c_iKeywordsize = 0;
mng_pchar c_zKeyword = NULL;
mng_uint32 c_iTextsize = 0;
mng_pchar c_zText = NULL;
PPCODE:
c_rv = mng_getchunk_text(hHandle,c_hChunk,&c_iKeywordsize,&c_zKeyword,&c_iTextsize,&c_zText);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_pchar c_zKeyword = NULL;
mng_uint8 c_iCompression = 0;
mng_uint32 c_iTextsize = 0;
mng_pchar c_zText = NULL;
PPCODE:
c_rv = mng_getchunk_ztxt(hHandle,c_hChunk,&c_iKeywordsize,&c_zKeyword,&c_iCompression,&c_iTextsize,&c_zText);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint32 c_iTranslationsize = 0;
mng_pchar c_zTranslation = NULL;
mng_uint32 c_iTextsize = 0;
mng_pchar c_zText = NULL;
PPCODE:
c_rv = mng_getchunk_itxt(hHandle,c_hChunk,&c_iKeywordsize,&c_zKeyword,&c_iCompressionflag,&c_iCompressionmethod,&c_iLanguagesize,&c_zLanguage,&c_iTranslationsize,&c_zTranslation,&c_iTextsize,&c_zText);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint16 c_iGray = 0;
mng_uint16 c_iRed = 0;
mng_uint16 c_iGreen = 0;
mng_uint16 c_iBlue = 0;
PPCODE:
c_rv = mng_getchunk_bkgd(hHandle,c_hChunk,&c_bEmpty,&c_iType,&c_iIndex,&c_iGray,&c_iRed,&c_iGreen,&c_iBlue);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_bool c_bEmpty = FALSE;
mng_uint32 c_iSizex = 0;
mng_uint32 c_iSizey = 0;
mng_uint8 c_iUnit = 0;
PPCODE:
c_rv = mng_getchunk_phys(hHandle,c_hChunk,&c_bEmpty,&c_iSizex,&c_iSizey,&c_iUnit);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_handle c_hChunk = (mng_handle) hChunk;
mng_bool c_bEmpty = FALSE;
mng_uint8 c_iType = 0;
mng_uint8arr4 c_aBits;
PPCODE:
c_rv = mng_getchunk_sbit(hHandle,c_hChunk,&c_bEmpty,&c_iType,&c_aBits);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_pchar c_zName = NULL;
mng_uint8 c_iSampledepth = 0;
mng_uint32 c_iEntrycount = 0;
mng_ptr c_pEntries = NULL;
PPCODE:
c_rv = mng_getchunk_splt(hHandle,c_hChunk,&c_bEmpty,&c_iNamesize,&c_zName,&c_iSampledepth,&c_iEntrycount,&c_pEntries);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iEntrycount = 0;
mng_uint16arr c_aEntries;
PPCODE:
c_rv = mng_getchunk_hist(hHandle,c_hChunk,&c_iEntrycount,&c_aEntries);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint8 c_iDay = 0;
mng_uint8 c_iHour = 0;
mng_uint8 c_iMinute = 0;
mng_uint8 c_iSecond = 0;
PPCODE:
c_rv = mng_getchunk_time(hHandle,c_hChunk,&c_iYear,&c_iMonth,&c_iDay,&c_iHour,&c_iMinute,&c_iSecond);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint32 c_iLayercount = 0;
mng_uint32 c_iFramecount = 0;
mng_uint32 c_iPlaytime = 0;
mng_uint32 c_iSimplicity = 0;
PPCODE:
c_rv = mng_getchunk_mhdr(hHandle,c_hChunk,&c_iWidth,&c_iHeight,&c_iTicks,&c_iLayercount,&c_iFramecount,&c_iPlaytime,&c_iSimplicity);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint32 c_iItermin = 0;
mng_uint32 c_iItermax = 0;
mng_uint32 c_iCount = 0;
mng_uint32p c_pSignals = NULL;
PPCODE:
c_rv = mng_getchunk_loop(hHandle,c_hChunk,&c_iLevel,&c_iRepeat,&c_iTermination,&c_iItermin,&c_iItermax,&c_iCount,&c_pSignals);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint8 c_iLevel = 0;
PPCODE:
c_rv = mng_getchunk_endl(hHandle,c_hChunk,&c_iLevel);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_int32 c_iLeftcb = 0;
mng_int32 c_iRightcb = 0;
mng_int32 c_iTopcb = 0;
mng_int32 c_iBottomcb = 0;
PPCODE:
c_rv = mng_getchunk_defi(hHandle,c_hChunk,&c_iObjectid,&c_iDonotshow,&c_iConcrete,&c_bHasloca,&c_iXlocation,&c_iYlocation,&c_bHasclip,&c_iLeftcb,&c_iRightcb,&c_iTopcb,&c_iBottomcb);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint16 c_iGreen = 0;
mng_uint16 c_iBlue = 0;
mng_uint16 c_iAlpha = 0;
mng_uint8 c_iViewable = 0;
PPCODE:
c_rv = mng_getchunk_basi(hHandle,c_hChunk,&c_iWidth,&c_iHeight,&c_iBitdepth,&c_iColortype,&c_iCompression,&c_iFilter,&c_iInterlace,&c_iRed,&c_iGreen,&c_iBlue,&c_iAlpha,&c_iViewable);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_bool c_bHasloca = FALSE;
mng_uint8 c_iLocationtype = 0;
mng_int32 c_iLocationx = 0;
mng_int32 c_iLocationy = 0;
PPCODE:
c_rv = mng_getchunk_clon(hHandle,c_hChunk,&c_iSourceid,&c_iCloneid,&c_iClonetype,&c_iDonotshow,&c_iConcrete,&c_bHasloca,&c_iLocationtype,&c_iLocationx,&c_iLocationy);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint8 c_iTargettype = 0;
mng_int32 c_iTargetx = 0;
mng_int32 c_iTargety = 0;
mng_uint32 c_iCount = 0;
PPCODE:
c_rv = mng_getchunk_past(hHandle,c_hChunk,&c_iDestid,&c_iTargettype,&c_iTargetx,&c_iTargety,&c_iCount);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_int32 c_iBoundaryl = 0;
mng_int32 c_iBoundaryr = 0;
mng_int32 c_iBoundaryt = 0;
mng_int32 c_iBoundaryb = 0;
PPCODE:
c_rv = mng_getchunk_past_src(hHandle,c_hChunk,iEntry,&c_iSourceid,&c_iComposition,&c_iOrientation,&c_iOffsettype,&c_iOffsetx,&c_iOffsety,&c_iBoundarytype,&c_iBoundaryl,&c_iBoundaryr,&c_iBoundaryt,&c_iBoundaryb);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iCount = 0;
mng_uint16p c_pObjectids = NULL;
PPCODE:
c_rv = mng_getchunk_disc(hHandle,c_hChunk,&c_iCount,&c_pObjectids);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint16 c_iBlue = 0;
mng_uint8 c_iMandatory = 0;
mng_uint16 c_iImageid = 0;
mng_uint8 c_iTile = 0;
PPCODE:
c_rv = mng_getchunk_back(hHandle,c_hChunk,&c_iRed,&c_iGreen,&c_iBlue,&c_iMandatory,&c_iImageid,&c_iTile);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_int32 c_iBoundaryt = 0;
mng_int32 c_iBoundaryb = 0;
mng_uint32 c_iCount = 0;
mng_uint32p c_pSyncids = NULL;
PPCODE:
c_rv = mng_getchunk_fram(hHandle,c_hChunk,&c_bEmpty,&c_iMode,&c_iNamesize,&c_zName,&c_iChangedelay,&c_iChangetimeout,&c_iChangeclipping,&c_iChangesyncid,&c_iDelay,&c_iTimeout,&c_iBoundarytype,&c_iBoundaryl,&c_iBoundaryr,&c_iBoundaryt,&c_iBounda...
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint16 c_iLastid = 0;
mng_uint8 c_iMovetype = 0;
mng_int32 c_iMovex = 0;
mng_int32 c_iMovey = 0;
PPCODE:
c_rv = mng_getchunk_move(hHandle,c_hChunk,&c_iFirstid,&c_iLastid,&c_iMovetype,&c_iMovex,&c_iMovey);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_int32 c_iClipr = 0;
mng_int32 c_iClipt = 0;
mng_int32 c_iClipb = 0;
PPCODE:
c_rv = mng_getchunk_clip(hHandle,c_hChunk,&c_iFirstid,&c_iLastid,&c_iCliptype,&c_iClipl,&c_iClipr,&c_iClipt,&c_iClipb);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_bool c_bEmpty = FALSE;
mng_uint16 c_iFirstid = 0;
mng_uint16 c_iLastid = 0;
mng_uint8 c_iMode = 0;
PPCODE:
c_rv = mng_getchunk_show(hHandle,c_hChunk,&c_bEmpty,&c_iFirstid,&c_iLastid,&c_iMode);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint8 c_iTermaction = 0;
mng_uint8 c_iIteraction = 0;
mng_uint32 c_iDelay = 0;
mng_uint32 c_iItermax = 0;
PPCODE:
c_rv = mng_getchunk_term(hHandle,c_hChunk,&c_iTermaction,&c_iIteraction,&c_iDelay,&c_iItermax);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_handle c_hChunk = (mng_handle) hChunk;
mng_bool c_bEmpty = FALSE;
mng_uint8 c_iOffsettype = 0;
mng_uint32 c_iCount = 0;
PPCODE:
c_rv = mng_getchunk_save(hHandle,c_hChunk,&c_bEmpty,&c_iOffsettype,&c_iCount);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint32 c_iLayernr = 0;
mng_uint32 c_iFramenr = 0;
mng_uint32 c_iNamesize = 0;
mng_pchar c_zName = NULL;
PPCODE:
c_rv = mng_getchunk_save_entry(hHandle,c_hChunk,iEntry,&c_iEntrytype,&c_aiOffset,&c_aiStarttime,&c_iLayernr,&c_iFramenr,&c_iNamesize,&c_zName);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iNamesize = 0;
mng_pchar c_zName = NULL;
PPCODE:
c_rv = mng_getchunk_seek(hHandle,c_hChunk,&c_iNamesize,&c_zName);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint16 c_iSnapshotid = 0;
mng_uint32 c_iNamesize = 0;
mng_pchar c_zName = NULL;
PPCODE:
c_rv = mng_getchunk_expi(hHandle,c_hChunk,&c_iSnapshotid,&c_iNamesize,&c_zName);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint8 c_iDeltatype = 0;
mng_uint8 c_iPriority = 0;
PPCODE:
c_rv = mng_getchunk_fpri(hHandle,c_hChunk,&c_iDeltatype,&c_iPriority);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iKeywordssize = 0;
mng_pchar c_zKeywords = NULL;
PPCODE:
c_rv = mng_getchunk_need(hHandle,c_hChunk,&c_iKeywordssize,&c_zKeywords);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_bool c_bEmpty = FALSE;
mng_uint32 c_iSizex = 0;
mng_uint32 c_iSizey = 0;
mng_uint8 c_iUnit = 0;
PPCODE:
c_rv = mng_getchunk_phyg(hHandle,c_hChunk,&c_bEmpty,&c_iSizex,&c_iSizey,&c_iUnit);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint8 c_iAlphasampledepth = 0;
mng_uint8 c_iAlphacompression = 0;
mng_uint8 c_iAlphafilter = 0;
mng_uint8 c_iAlphainterlace = 0;
PPCODE:
c_rv = mng_getchunk_jhdr(hHandle,c_hChunk,&c_iWidth,&c_iHeight,&c_iColortype,&c_iImagesampledepth,&c_iImagecompression,&c_iImageinterlace,&c_iAlphasampledepth,&c_iAlphacompression,&c_iAlphafilter,&c_iAlphainterlace);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iRawlen = 0;
mng_ptr c_pRawdata = NULL;
PPCODE:
c_rv = mng_getchunk_jdat(hHandle,c_hChunk,&c_iRawlen,&c_pRawdata);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint32 c_iBlockwidth = 0;
mng_uint32 c_iBlockheight = 0;
mng_uint32 c_iBlockx = 0;
mng_uint32 c_iBlocky = 0;
PPCODE:
c_rv = mng_getchunk_dhdr(hHandle,c_hChunk,&c_iObjectid,&c_iImagetype,&c_iDeltatype,&c_iBlockwidth,&c_iBlockheight,&c_iBlockx,&c_iBlocky);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint8 c_iColortype = 0;
mng_uint8 c_iSampledepth = 0;
mng_uint8 c_iFilltype = 0;
PPCODE:
c_rv = mng_getchunk_prom(hHandle,c_hChunk,&c_iColortype,&c_iSampledepth,&c_iFilltype);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
PREINIT:
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iCount = 0;
PPCODE:
c_rv = mng_getchunk_pplt(hHandle,c_hChunk,&c_iCount);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint16 c_iGreen = 0;
mng_uint16 c_iBlue = 0;
mng_uint16 c_iAlpha = 0;
mng_bool c_bUsed = FALSE;
PPCODE:
c_rv = mng_getchunk_pplt_entry(hHandle,c_hChunk,iEntry,&c_iRed,&c_iGreen,&c_iBlue,&c_iAlpha,&c_bUsed);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iCount = 0;
mng_chunkidp c_pChunknames = NULL;
PPCODE:
c_rv = mng_getchunk_drop(hHandle,c_hChunk,&c_iCount,&c_pChunknames);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_chunkid c_iChunkname = 0;
mng_uint8 c_iPolarity = 0;
mng_uint32 c_iKeywordssize = 0;
mng_pchar c_zKeywords = NULL;
PPCODE:
c_rv = mng_getchunk_dbyk(hHandle,c_hChunk,&c_iChunkname,&c_iPolarity,&c_iKeywordssize,&c_zKeywords);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
PREINIT:
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_uint32 c_iCount = 0;
PPCODE:
c_rv = mng_getchunk_ordr(hHandle,c_hChunk,&c_iCount);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_retcode c_rv;
mng_handle c_hChunk = (mng_handle) hChunk;
mng_chunkid c_iChunkname = 0;
mng_uint8 c_iOrdertype = 0;
PPCODE:
c_rv = mng_getchunk_ordr_entry(hHandle,c_hChunk,iEntry,&c_iChunkname,&c_iOrdertype);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_uint16 c_iMR = 0;
mng_uint16 c_iMT = 0;
mng_uint16 c_iMB = 0;
mng_uint16 c_iMethodY = 0;
PPCODE:
c_rv = mng_getchunk_magn(hHandle,c_hChunk,&c_iFirstid,&c_iLastid,&c_iMethodX,&c_iMX,&c_iMY,&c_iML,&c_iMR,&c_iMT,&c_iMB,&c_iMethodY);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
mng_handle c_hChunk = (mng_handle) hChunk;
mng_chunkid c_iChunkname = 0;
mng_uint32 c_iRawlen = 0;
mng_ptr c_pRawdata = NULL;
PPCODE:
c_rv = mng_getchunk_unknown(hHandle,c_hChunk,&c_iChunkname,&c_iRawlen,&c_pRawdata);
XPUSHs( sv_2mortal( newSViv( c_rv ) ) );
if ( c_rv == MNG_NOERROR )
{
Graphics-PLplot
view release on metacpan or search on metacpan
PLFLT ry
PREINIT:
PLFLT wx;
PLFLT wy;
PLINT window;
PPCODE:
c_plcalc_world( rx, ry, &wx, &wy, &window );
XPUSHs( sv_2mortal(newSVnv(wx)));
XPUSHs( sv_2mortal(newSVnv(wy)));
XPUSHs( sv_2mortal(newSViv(window)));
void
c_plgchr()
PREINIT:
PLFLT p_def;
PLFLT p_ht;
PPCODE:
c_plgchr( &p_def, &p_ht );
XPUSHs( sv_2mortal(newSVnv(p_def)));
XPUSHs( sv_2mortal(newSVnv(p_ht)));
void
PLINT icol0
PREINIT:
PLINT r;
PLINT g;
PLINT b;
PPCODE:
c_plgcol0( icol0, &r, &g, &b );
XPUSHs( sv_2mortal(newSViv(r)));
XPUSHs( sv_2mortal(newSViv(g)));
XPUSHs( sv_2mortal(newSViv(b)));
c_plgcolbg()
PREINIT:
PLINT r;
PLINT g;
PLINT b;
PPCODE:
c_plgcolbg( &r, &g, &b );
XPUSHs( sv_2mortal(newSViv(r)));
XPUSHs( sv_2mortal(newSViv(g)));
XPUSHs( sv_2mortal(newSViv(b)));
PREINIT:
PLFLT p_mar;
PLFLT p_aspect;
PLFLT p_jx;
PLFLT p_jy;
PPCODE:
c_plgdidev( &p_mar, &p_aspect, &p_jx, &p_jy );
XPUSHs( sv_2mortal(newSVnv(p_mar)));
XPUSHs( sv_2mortal(newSVnv(p_aspect)));
XPUSHs( sv_2mortal(newSVnv(p_jx)));
XPUSHs( sv_2mortal(newSVnv(p_jy)));
PREINIT:
PLFLT p_xmin;
PLFLT p_ymin;
PLFLT p_xmax;
PLFLT p_ymax;
PPCODE:
c_plgdiplt( &p_xmin, &p_ymin, &p_xmax, &p_ymax );
XPUSHs( sv_2mortal(newSVnv(p_xmin)));
XPUSHs( sv_2mortal(newSVnv(p_ymin)));
XPUSHs( sv_2mortal(newSVnv(p_xmax)));
XPUSHs( sv_2mortal(newSVnv(p_ymax)));
c_plgfam()
PREINIT:
PLINT fam;
PLINT num;
PLINT bmax;
PPCODE:
c_plgfam( &fam, &num, &bmax );
XPUSHs( sv_2mortal(newSViv(fam)));
XPUSHs( sv_2mortal(newSViv(num)));
XPUSHs( sv_2mortal(newSViv(bmax)));
PLFLT yp;
PLINT xleng;
PLINT yleng;
PLINT xoff;
PLINT yoff;
PPCODE:
c_plgpage( &xp, &yp, &xleng, &yleng, &xoff, &yoff);
XPUSHs( sv_2mortal(newSVnv(xp)));
XPUSHs( sv_2mortal(newSVnv(yp)));
XPUSHs( sv_2mortal(newSViv(xleng)));
XPUSHs( sv_2mortal(newSViv(yleng)));
PREINIT:
PLFLT xmin;
PLFLT ymin;
PLFLT xmax;
PLFLT ymax;
PPCODE:
c_plgspa( &xmin, &ymin, &xmax, &ymax );
XPUSHs( sv_2mortal(newSVnv(xmin)));
XPUSHs( sv_2mortal(newSVnv(ymin)));
XPUSHs( sv_2mortal(newSVnv(xmax)));
XPUSHs( sv_2mortal(newSVnv(ymax)));
PREINIT:
PLFLT p_xmin;
PLFLT p_xmax;
PLFLT p_ymin;
PLFLT p_ymax;
PPCODE:
c_plgvpd( &p_xmin, &p_xmax, &p_ymin, &p_ymax );
XPUSHs( sv_2mortal(newSVnv(p_xmin)));
XPUSHs( sv_2mortal(newSVnv(p_xmax)));
XPUSHs( sv_2mortal(newSVnv(p_ymin)));
XPUSHs( sv_2mortal(newSVnv(p_ymax)));
PREINIT:
PLFLT p_xmin;
PLFLT p_xmax;
PLFLT p_ymin;
PLFLT p_ymax;
PPCODE:
c_plgvpw( &p_xmin, &p_xmax, &p_ymin, &p_ymax );
XPUSHs( sv_2mortal(newSVnv(p_xmin)));
XPUSHs( sv_2mortal(newSVnv(p_xmax)));
XPUSHs( sv_2mortal(newSVnv(p_ymin)));
XPUSHs( sv_2mortal(newSVnv(p_ymax)));
void
c_plgxax()
PREINIT:
PLINT digmax;
PLINT digits;
PPCODE:
c_plgxax( &digmax, &digits );
XPUSHs( sv_2mortal(newSViv(digmax)));
XPUSHs( sv_2mortal(newSViv(digits)));
void
c_plgyax()
PREINIT:
PLINT digmax;
PLINT digits;
PPCODE:
c_plgyax( &digmax, &digits );
XPUSHs( sv_2mortal(newSViv(digmax)));
XPUSHs( sv_2mortal(newSViv(digits)));
void
c_plgzax()
PREINIT:
PLINT digmax;
PLINT digits;
PPCODE:
c_plgzax( &digmax, &digits );
XPUSHs( sv_2mortal(newSViv(digmax)));
XPUSHs( sv_2mortal(newSViv(digits)));
plgFileDevs()
PREINIT:
char ** menustr;
char ** devname;
int ndev;
PPCODE:
/* Guess at largest number of drivers !! */
menustr = get_mortalspace( 1024, 'v');
devname = get_mortalspace( 1024, 'v');
plgFileDevs(&menustr, &devname, &ndev);
XPUSHs( newRV_noinc( (SV*)unpack1Dchar( menustr, ndev) ));
plgDevs()
PREINIT:
char ** menustr;
char ** devname;
int ndev;
PPCODE:
/* Guess at largest number of drivers !! */
menustr = get_mortalspace( 1024, 'v');
devname = get_mortalspace( 1024, 'v');
plgDevs(&menustr, &devname, &ndev);
XPUSHs( newRV_noinc( (SV*)unpack1Dchar( menustr, ndev) ));
plParseOpts( argv, mode )
char ** argv
PLINT mode
PREINIT:
int status;
PPCODE:
/* $ARGV[0] is not the program name in perl */
status = plParseOpts( &ix_argv, argv, mode | PL_PARSE_NOPROGRAM );
XPUSHs( sv_2mortal(newSViv(status) ));
XPUSHs( newRV_noinc( (SV*)unpack1Dchar( argv, ix_argv) ));
void
plGetCursor()
PREINIT:
PLGraphicsIn gin;
int status;
PPCODE:
status = plGetCursor( &gin );
XPUSHs(sv_2mortal(newSVpv( "dX", 0 )));
XPUSHs(sv_2mortal(newSVnv( gin.dX )));
XPUSHs(sv_2mortal(newSVpv( "dY", 0 )));
XPUSHs(sv_2mortal(newSVnv( gin.dY )));
Graphics-Raylib
view release on metacpan or search on metacpan
Image img;
int literal_color = 0;
int currwidth = 0;
IntRectangle where = { 0, 0, 0, 0 };
ImageSet_t *my_ImageSet = ImageSet;
PPCODE:
if (!SvROK(array_ref) || SvTYPE(SvRV(array_ref)) != SVt_PVAV)
croak("expected ARRAY ref as first argument");
literal_color = !SvOK(color_cb);
if (!literal_color && (!SvROK(color_cb) || SvTYPE(SvRV(color_cb)) != SVt_PVCV))
croak("expected CODE ref as second argument");
Graphics-SANE
view release on metacpan or search on metacpan
CODE:
sane_exit();
void
get_devices()
PPCODE:
SANE_Status sts;
const SANE_Device **list,*dev;
int cnt;
sts = sane_get_devices(&list,0);
if (sts)
Graphics-TIFF
view release on metacpan or search on metacpan
newCONSTSUB(stash, "TIFFPRINT_JPEGACTABLES", newSViv(TIFFPRINT_JPEGACTABLES));
newCONSTSUB(stash, "TIFFPRINT_JPEGDCTABLES", newSViv(TIFFPRINT_JPEGDCTABLES));
void
tiff_GetVersion (class)
PPCODE:
XPUSHs(sv_2mortal(newSVpv((char *) TIFFGetVersion(), 0)));
void
tiff_IsCODECConfigured (class, compression)
uint16_t compression
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFIsCODECConfigured(compression))));
void
tiff__Open (class, path, flags)
const char* path
const char* flags
INIT:
TIFF *tif;
PPCODE:
tif = TIFFOpen(path, flags);
XPUSHs(sv_2mortal(newSViv(PTR2IV(tif))));
void
tiff_Close (tif)
TIFF *tif;
PPCODE:
TIFFClose(tif);
void
tiff_FileName (tif)
TIFF *tif;
PPCODE:
XPUSHs(sv_2mortal(newSVpv((char *) TIFFFileName(tif), 0)));
void
tiff_ReadDirectory (tif)
TIFF *tif;
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFReadDirectory(tif))));
void
tiff_WriteDirectory (tif)
TIFF *tif;
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFWriteDirectory(tif))));
void
tiff_ReadEXIFDirectory (tif, diroff)
TIFF *tif
toff_t diroff;
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFReadEXIFDirectory(tif, diroff))));
void
tiff_NumberOfDirectories (tif)
TIFF *tif
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFNumberOfDirectories(tif))));
void
tiff_SetDirectory (tif, dirnum)
TIFF *tif
uint16_t dirnum;
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFSetDirectory(tif, dirnum))));
void
tiff_SetSubDirectory(tif, diroff)
TIFF *tif
uint64_t diroff;
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFSetSubDirectory(tif, diroff))));
void
tiff_GetField (tif, tag)
TIFF *tif
uint32_t ui32;
uint64_t *aui;
float f;
float *af;
int nvals;
PPCODE:
/* See http://www.libtiff.org/man/TIFFGetField.3t.html */
switch (tag) {
/* byte single uint8 */
/* short single uint16 */
case TIFFTAG_BITSPERSAMPLE:
INIT:
uint16_t ui16, ui16_2, *aui16, *aui16_2, *aui16_3;
uint32_t ui32;
uint64_t *aui;
float f;
PPCODE:
switch (tag) {
/* byte single uint8 */
/* short single uint16 */
case TIFFTAG_BITSPERSAMPLE:
case TIFFTAG_COMPRESSION:
uint32_t tag
INIT:
uint16_t ui16, ui16_2;
uint32_t ui32;
float f;
PPCODE:
switch (tag) {
/* single float */
case TIFFTAG_XRESOLUTION:
case TIFFTAG_YRESOLUTION:
}
void
tiff_IsTiled (tif)
TIFF *tif
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFIsTiled(tif))));
void
tiff_ScanlineSize (tif)
TIFF *tif
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFScanlineSize(tif))));
void
tiff_StripSize (tif)
TIFF *tif
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFStripSize(tif))));
void
tiff_NumberOfStrips (tif)
TIFF *tif
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFNumberOfStrips(tif))));
void
tiff_TileSize (tif)
TIFF *tif
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFTileSize(tif))));
void
tiff_TileRowSize (tif)
TIFF *tif
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFTileRowSize(tif))));
void
tiff_ComputeStrip (tif, row, sample)
TIFF *tif
uint32_t row
uint16_t sample
PPCODE:
XPUSHs(sv_2mortal(newSViv(TIFFComputeStrip(tif, row, sample))));
void
tiff_ReadEncodedStrip (tif, strip, size)
TIFF *tif
uint32_t strip
tmsize_t size
INIT:
void *buf;
tmsize_t stripsize, bufsize;
PPCODE:
stripsize = TIFFStripSize(tif);
buf = _TIFFmalloc(stripsize);
bufsize = TIFFReadEncodedStrip(tif, strip, buf, size);
if (bufsize > 0) {
XPUSHs(sv_2mortal(newSVpvn(buf, bufsize)));
uint32_t strip
void* data
tmsize_t size
INIT:
tmsize_t stripsize;
PPCODE:
stripsize = TIFFWriteEncodedStrip(tif, strip, data, size);
XPUSHs(sv_2mortal(newSViv(stripsize)));
void
tiff_ReadRawStrip (tif, strip, size)
uint32_t strip
tmsize_t size
INIT:
void *buf;
tmsize_t stripsize, bufsize;
PPCODE:
stripsize = TIFFStripSize(tif);
buf = _TIFFmalloc(stripsize);
bufsize = TIFFReadRawStrip(tif, strip, buf, size);
if (bufsize > 0) {
XPUSHs(sv_2mortal(newSVpvn(buf, bufsize)));
uint32_t z
uint16_t s
INIT:
void *buf;
tmsize_t tilesize, bufsize;
PPCODE:
tilesize = TIFFTileSize(tif);
buf = _TIFFmalloc(tilesize);
bufsize = TIFFReadTile(tif, buf, x, y, z, s);
if (bufsize > 0) {
XPUSHs(sv_2mortal(newSVpvn(buf, bufsize)));
Graphics-VTK
view release on metacpan or search on metacpan
* typemap: Fixed typemap
2002-10-20 09:18 cerney
* parseWrap, Common/Common.xs: Modified to not use PPCODE sections
in xs code. These are now emulated wih CODE sections and some extra
XS macros. For some reason, xsubpp did not like PPCODE sections in
multiple CASE section in a XS function. This made overridden methods
that return a list of values (e.g. vtkDataArray::GetRange)
impossible to implement in XS code.
2002-10-19 10:25 cerney
Graphite-Simple
view release on metacpan or search on metacpan
OUTPUT:
RETVAL
IV is_connected (GraphiteXS_Object *self)
PPCODE:
mXPUSHi(self->is_connected ? 1 : 0);
XSRETURN(1);
IV connect (GraphiteXS_Object *self)
PPCODE:
connect_(self);
mXPUSHi(self->is_connected ? 1 : 0);
XSRETURN(1);
IV reconnect (GraphiteXS_Object *self)
PPCODE:
disconnect_(self);
connect_(self);
mXPUSHi(self->is_connected ? 1 : 0);
XSRETURN(1);
void disconnect (GraphiteXS_Object *self)
PPCODE:
disconnect_(self);
XSRETURN_EMPTY;
HV* get_bulk_metrics (GraphiteXS_Object *self)
OUTPUT:
RETVAL
SV* send_bulk (GraphiteXS_Object* self)
PPCODE:
IV is_success = 1;
if (self->is_connected) {
mXPUSHi(move(is_success));
XSRETURN(1);
SV* send_bulk_delegate (GraphiteXS_Object *self)
PPCODE:
const char *sender = SvPVX(self->sender_name);
if (!sender)
croak("No sender was specified");
OUTPUT:
RETVAL
void clear_bulk (GraphiteXS_Object *self)
PPCODE:
clear_bulk_(self);
XSRETURN_EMPTY;
void incr_bulk (GraphiteXS_Object *self, SV* key, NV value = 1)
PPCODE:
bool is_ok = false;
if (key != &PL_sv_undef) {
uint32_t key_type = SvTYPE(key);
if (key_type == SVt_PVLV || key_type == SVt_PVMG) {
// SVt_PVLV can be returned from substr
XSRETURN_EMPTY;
void append_bulk (GraphiteXS_Object *self, HV* hv, SV* prefix = &PL_sv_undef)
PPCODE:
if (SvTIED_mg((SV *) hv, PERL_MAGIC_tied))
croak("Tied hashes are not supported");
bool use_prefix = false;
XSRETURN_EMPTY;
SV* is_valid_key (GraphiteXS_Object *self, SV* key)
PPCODE:
bool is_valid = is_valid_key_(self, move(key));
mXPUSHi( move(is_valid ? 1 : 0) );
XSRETURN(1);
IV get_invalid_key_counter (GraphiteXS_Object *self)
PPCODE:
mXPUSHi( self->invalid_key_counter );
XSRETURN(1);
void check_and_bump_invalid_metric (GraphiteXS_Object *self, SV* key)
PPCODE:
if ( SVt_NULL != SvTYPE(key) ) {
uint32_t counter = move(self->invalid_key_counter);
self->invalid_key_counter = 0;
increment_hash_value_by( self->bulk_hv, move(key), move(counter) );
}
XSRETURN_EMPTY;
IV is_metric_blocked (GraphiteXS_Object *self, SV* key)
PPCODE:
bool is_blocked = false;
if ( is_valid_key_(self, key) )
is_blocked = is_metric_blocked_(self, move(key));
mXPUSHi( move(is_blocked ? 1 : 0) );
XSRETURN(1);
void set_blocked_metrics_re (GraphiteXS_Object *self, SV* block_re = &PL_sv_undef)
PPCODE:
set_blocked_metrics_re_(self, block_re);
XSRETURN_EMPTY;
void DESTROY (...)
PPCODE:
GraphiteXS_Object *self = (GraphiteXS_Object *) SvUV(SvRV(ST(0)));
if (PL_dirty) // global destruction
return;
if (self->sender_name && SvREFCNT(self->sender_name)) // sv_clear
SvREFCNT_dec_NN(self->sender_name);
Grid-Transform
view release on metacpan or search on metacpan
Transform.xs view on Meta::CPAN
void
grid (self, aref=0)
Grid::Transform self
SV *aref
PROTOTYPE: $;\@
PPCODE:
if (items == 2) {
AV *av = (AV *)SvRV(aref);
if (! (SvRV(aref) && SvTYPE(SvRV(aref)) == SVt_PVAV)) {
croak ("reference to an array expected");
}
Transform.xs view on Meta::CPAN
rotate_180 (self)
Grid::Transform self
PROTOTYPE: $
ALIAS:
rotate180 = 1
PPCODE:
FIX_DIRTY_GRID(self);
REVERSE_AV(self->grid);
XSRETURN(1);
void
Transform.xs view on Meta::CPAN
ALIAS:
rotate90 = 1
PREINIT:
SV **tmp;
IV n, i, row, col;
PPCODE:
FIX_DIRTY_GRID(self);
n = self->rows * self->columns;
New(0, tmp, n, SV*);
for (i=0, col=0; col<self->columns; col++) {
for (row=self->rows-1; row>=0; row--, i++) {
Transform.xs view on Meta::CPAN
ALIAS:
rotate270 = 1
PREINIT:
SV **tmp;
IV n, i, row, col;
PPCODE:
FIX_DIRTY_GRID(self);
n = self->rows * self->columns;
New(0, tmp, n, SV*);
for (i=0, col=self->columns-1; col>=0; col--) {
for (row=0; row<self->rows; row++, i++) {
Transform.xs view on Meta::CPAN
Grid::Transform self
PROTOTYPE: $
PREINIT:
SV **tmp;
IV n, i, row, col;
PPCODE:
FIX_DIRTY_GRID(self);
n = self->rows * self->columns;
New(0, tmp, n, SV*);
for (i=0, col=self->columns-1; col>=0; col--) {
for (row=self->rows-1; row>=0; row--, i++) {
Transform.xs view on Meta::CPAN
ALIAS:
countertranspose = 1
PREINIT:
SV **tmp;
IV n, i, row, col;
PPCODE:
FIX_DIRTY_GRID(self);
n = self->rows * self->columns;
New(0, tmp, n, SV*);
for (i=0, col=0; col<self->columns; col++) {
for (row=0; row<self->rows; row++, i++) {
Transform.xs view on Meta::CPAN
PROTOTYPE: $
ALIAS:
mirror_horizontal = 1
PREINIT:
IV row, lcol, rcol;
PPCODE:
FIX_DIRTY_GRID(self);
for (row=0; row<self->rows; row++) {
for (lcol=0, rcol=self->columns-1; lcol<rcol; lcol++, rcol--) {
SWAP(SV*, AvARRAY(self->grid)[lcol + row * self->columns],
AvARRAY(self->grid)[rcol + row * self->columns]);
Transform.xs view on Meta::CPAN
PROTOTYPE: $
ALIAS:
mirror_vertical = 1
PREINIT:
IV col, trow, brow;
PPCODE:
FIX_DIRTY_GRID(self);
for (col=0; col<self->columns; col++) {
for (trow=0, brow=self->rows-1; trow<brow; trow++, brow--) {
SWAP(SV*, AvARRAY(self->grid)[col + trow * self->columns],
AvARRAY(self->grid)[col + brow * self->columns]);
Transform.xs view on Meta::CPAN
Grid::Transform self
PROTOTYPE: $
PREINIT:
SV **tmp;
IV n, i, row, col, h;
PPCODE:
FIX_DIRTY_GRID(self);
n = self->rows * self->columns;
New(0, tmp, n, SV*);
h = self->columns >> 1;
for (i=0, row=0; row<self->rows; row++) {
Transform.xs view on Meta::CPAN
Grid::Transform self
PROTOTYPE: $
PREINIT:
SV **tmp;
IV n, i, row, col, h;
PPCODE:
FIX_DIRTY_GRID(self);
n = self->rows * self->columns;
New(0, tmp, n, SV*);
h = self->columns >> 1;
for (i=0, row=0; row<self->rows; row++) {
Transform.xs view on Meta::CPAN
PROTOTYPE: $
ALIAS:
alt_row_dir = 1
PREINIT:
IV row, lcol, rcol;
PPCODE:
FIX_DIRTY_GRID(self);
for (row=1; row<self->rows; row+=2) {
for (lcol=0, rcol=self->columns-1; lcol<rcol; lcol++, rcol--) {
SWAP(SV*, AvARRAY(self->grid)[lcol + row * self->columns],
AvARRAY(self->grid)[rcol + row * self->columns]);
Transform.xs view on Meta::CPAN
Grid::Transform self
PROTOTYPE: $
PREINIT:
SV **tmp;
IV n, i, idx, top, bottom, left, right;
PPCODE:
FIX_DIRTY_GRID(self);
n = self->rows * self->columns;
New(0, tmp, n, SV*);
idx = 0;
top = 0;
Gtk-Perl
view release on metacpan or search on metacpan
Bonobo/xs/BonoboControlFrame.xs view on Meta::CPAN
Gnome::BonoboControlFrame control_frame
void
bonobo_control_frame_size_request (control_frame)
Gnome::BonoboControlFrame control_frame
PPCODE:
{
int desired_width, desired_height;
bonobo_control_frame_size_request (control_frame, &desired_width, &desired_height);
EXTEND(sp, 2);
PUSHs(sv_2mortal(newSViv(desired_width)));
Gtk
view release on metacpan or search on metacpan
GdkImlib.xs view on Meta::CPAN
void
gdk_imlib_load_file_to_pixmap(Class, file)
SV * Class
char* file
PPCODE:
{
GdkPixmap * result = 0;
GdkBitmap * mask = 0;
int ret;
ret = gdk_imlib_load_file_to_pixmap(file, &result, &mask);
GdkImlib.xs view on Meta::CPAN
RETVAL
void
gdk_imlib_data_to_pixmap(Class, data, ...)
SV * data
PPCODE:
{
GdkPixmap * result = 0;
GdkBitmap * mask = 0;
int ret;
char ** lines = (char**)malloc(sizeof(char*)*(items-1));
Gtk2-AppIndicator
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 */
Gtk2-CV
view release on metacpan or search on metacpan
OUTPUT:
RETVAL
void
compare (GdkPixbuf *a, GdkPixbuf *b)
PPCODE:
perlinterp_release ();
{
int w = gdk_pixbuf_get_width (a);
int h = gdk_pixbuf_get_height (a);
Gtk2-GLExt
view release on metacpan or search on metacpan
xs/GdkGLQuery.xs view on Meta::CPAN
void
gdk_gl_query_version (class)
PREINIT:
int major;
int minor;
PPCODE:
gdk_gl_query_version(&major, &minor);
EXTEND (SP, 2);
PUSHs (sv_2mortal (newSViv (major)));
PUSHs (sv_2mortal (newSViv (minor)));
PERL_UNUSED_VAR (ax);
Gtk2-GladeXML
view release on metacpan or search on metacpan
GladeXML.xs view on Meta::CPAN
GladeXML *self
const char *name
PREINIT:
GList * widgets = NULL;
GList * i = NULL;
PPCODE:
widgets = glade_xml_get_widget_prefix(self, name);
if( !widgets )
XSRETURN_EMPTY;
for( i = widgets; i != NULL; i = i->next )
XPUSHs(sv_2mortal(newSVGtkWidget(i->data)));
Gtk2-ImageView
view release on metacpan or search on metacpan
ImageView.xs view on Meta::CPAN
gtk_image_view_get_check_colors (view)
GtkImageView * view
PREINIT:
int check_color1;
int check_color2;
PPCODE:
gtk_image_view_get_check_colors (view, &check_color1, &check_color2);
XPUSHs(sv_2mortal(newSViv(check_color1)));
XPUSHs(sv_2mortal(newSViv(check_color2)));
Gtk2-Notify
view release on metacpan or search on metacpan
xs/Notify.xs view on Meta::CPAN
void
notify_get_server_caps (class)
PREINIT:
GList *list, *tmp;
PPCODE:
list = notify_get_server_caps ();
for (tmp = list; tmp != NULL; tmp = tmp->next) {
XPUSHs (sv_2mortal (newSVGChar (tmp->data)));
}
g_list_free (list);
Gtk2-OSXApplication
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 */
Gtk2-Recent
view release on metacpan or search on metacpan
xs/RecentItem.xs view on Meta::CPAN
void
egg_recent_item_get_groups (item)
const EggRecentItem *item
PREINIT:
GList *i, *groups;
PPCODE:
groups = (GList *) egg_recent_item_get_groups (item);
for (i = groups; i != NULL; i = i->next)
XPUSHs (sv_2mortal (newSVGChar (i->data)));
gboolean
Gtk2-Sexy
view release on metacpan or search on metacpan
xs/SexySpellEntry.xs view on Meta::CPAN
void
sexy_spell_entry_get_languages (entry)
const SexySpellEntry *entry
PREINIT:
GSList *list = NULL, *cur;
PPCODE:
list = sexy_spell_entry_get_languages (entry);
if (!list) {
XSRETURN_EMPTY;
}
xs/SexySpellEntry.xs view on Meta::CPAN
void
sexy_spell_entry_get_active_languages (entry)
SexySpellEntry *entry
PREINIT:
GSList *list = NULL, *cur;
PPCODE:
list = sexy_spell_entry_get_active_languages (entry);
if (!list) {
XSRETURN_EMPTY;
}
Gtk2-SourceView
view release on metacpan or search on metacpan
xs/GtkSourceBuffer.xs view on Meta::CPAN
##gtk_source_buffer_get_markers_in_region (GtkSourceBuffer *buffer, const GtkTextIter *begin, const GtkTextIter *end);
void
gtk_source_buffer_get_markers_in_region (GtkSourceBuffer *buffer, const GtkTextIter *begin, const GtkTextIter *end)
PREINIT:
GSList * markers, * i;
PPCODE:
markers = gtk_source_buffer_get_markers_in_region (buffer, begin, end);
for (i = markers ; i != NULL ; i = i->next)
XPUSHs (sv_2mortal (newSVGtkSourceMarker
(GTK_SOURCE_MARKER (i->data))));
g_slist_free (markers);
Gtk2-SourceView2
view release on metacpan or search on metacpan
xs/GtkSourceBuffer.xs view on Meta::CPAN
void
gtk_source_buffer_get_source_marks_at_iter (GtkSourceBuffer *buffer, GtkTextIter *iter, const gchar_ornull *category)
PREINIT:
GSList *list = NULL;
PPCODE:
list = gtk_source_buffer_get_source_marks_at_iter(buffer, iter, category);
sourceview2perl_return_gslist(list);
void
gtk_source_buffer_get_source_marks_at_line (GtkSourceBuffer *buffer, gint line, const gchar_ornull *category)
PREINIT:
GSList *list = NULL;
PPCODE:
list = gtk_source_buffer_get_source_marks_at_line(buffer, line, category);
sourceview2perl_return_gslist(list);
void
gtk_source_buffer_remove_source_marks (GtkSourceBuffer *buffer, const GtkTextIter *start, const GtkTextIter *end, const gchar_ornull *category)
Gtk2-Unique
view release on metacpan or search on metacpan
xs/Unique.xs view on Meta::CPAN
RETVAL
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (UNIQUE_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (UNIQUE_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (UNIQUE_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
Gtk2-WebKit
view release on metacpan or search on metacpan
xs/WebKitSecurityOrigin.xs view on Meta::CPAN
void
webkit_security_origin_get_all_web_databases (security_origin)
WebKitSecurityOrigin *security_origin
PREINIT:
GList *databases, *i;
PPCODE:
databases = webkit_security_origin_get_all_web_databases (security_origin);
for (i = databases; i; i = i->next) {
XPUSHs (newSVWebKitWebDatabase (i->data));
}
Gtk2
view release on metacpan or search on metacpan
ChangeLog.pre-git view on Meta::CPAN
* t/GtkTreeView.t: Use true values to test functions that
return/take a boolean. Only test stuff inside the cell_data_func
once.
* xs/GtkClipboard.xs: Use void for the return value of
wait_for_targets - it uses PPCODE. Check targets for NULL instead
of n_targets.
* xs/GtkCalendar.xs
* xs/GtkComboBox.xs: Mark ix as unused.
ChangeLog.pre-git view on Meta::CPAN
2004/01/04 11:49 (-0500) rwmcfa1
* xs/GdkWindow.xs: for some reason get_pointer was having issues with
certian versions of perl/xsubpp. it seemed to be related to the both
having a return value and having OUTLIST's. this implements it as a
PPCODE section doing the same thing.
2004/01/04 02:50 (+0100) kaffeetisch
* t/10.GtkProgressBar.t: Test get_orientation, get_fraction,
[sg]et_text, and [sg]et_pulse_step.
ChangeLog.pre-git view on Meta::CPAN
xs/GtkColorSelection.xs, xs/GtkCurve.xs, xs/GtkEditable.xs,
xs/GtkFileSelection.xs, xs/GtkIconFactory.xs, xs/GtkLabel.xs,
xs/GtkRadioMenuItem.xs, xs/GtkSelection.xs, xs/GtkStock.xs,
xs/GtkTextBuffer.xs, xs/GtkTreeModel.xs, xs/GtkTreeSortable.xs,
xs/GtkTreeViewColumn.xs, xs/PangoLayout.xs, xs/PangoTabs.xs: apidoc
added, almost all PPCODE xsubs now have it
* xs/GtkTreeDnd.xs: gtk_tree_get_row_drag_data had the outlist params
in the prototype. apidoc added, almost all PPCODE xsubs now have it
* xs/GtkContainer.xs: PPCODE -> CODE, return was always void. apidoc
added, almost all PPCODE xsubs now have it
* xs/GdkSelection.xs: added a class parameter to
gdk_selection_property_get. apidoc added, almost all PPCODE xsubs now
have it
2003/11/17 16:27 (-0500) muppetman
* xs/GdkPixbuf.xs: i borked the get_from_(drawable|image) xsubs...
ChangeLog.pre-git view on Meta::CPAN
* xs/GdkPixbuf.xs: formatting cleanup
* xs/GdkWindow.xs: quited warning about invalid paramter type
* xs/GtkIconFactory.xs: non-void paramter with PPCODE, fixed
* xs/GtkTearoffMenuItem.xs: teamoff -> tearoff, big bug
* xs/GtkTreeModel.xs: looking for -1 list terminator incorrectly,
bug-fix
Gzip-RandomAccess
view release on metacpan or search on metacpan
RandomAccess.xs view on Meta::CPAN
RETVAL
void
build_index(self)
Gzip::RandomAccess self
PPCODE:
zran_build_index(self->zran, self->index_span, NULL);
SV *
extract(self, offset, length)
Gzip::RandomAccess self
RandomAccess.xs view on Meta::CPAN
RETVAL
void
_free(self)
Gzip::RandomAccess self
PPCODE:
zran_cleanup(self->zran);
free(self);
HTML-Embperl
view release on metacpan or search on metacpan
embperl_GetPackageOfFile(sSourcefile, sPackage, mtime, bEP1Compat)
char * sSourcefile
char * sPackage
double mtime
int bEP1Compat
PPCODE:
tFile * pFile = GetFileData (sSourcefile, sPackage, mtime, bEP1Compat) ;
EXTEND(SP,2) ;
PUSHs(sv_2mortal(newSViv(pFile -> mtime == -1?1:0))) ;
PUSHs(sv_2mortal(newSVpv(pFile -> sCurrPackage, pFile -> nCurrPackage))) ;
( run in 2.407 seconds using v1.01-cache-2.11-cpan-92ad3014f07 )