Result:
found more than 1151 distributions - search limited to the first 2001 files matching your query
( run in 2.852 )
Geo-Calc-XS
view release on metacpan or search on metacpan
PROTOTYPES: DISABLE
void new ( char *klass, ... )
PREINIT:
int add_count = items - 1;
PPCODE:
{
SV *pv = NEWSV ( 0, sizeof( GCX ) );
HV *options = newHV();
int i = 0;
SvPOK_only( pv );
Geo-Coordinates-MGRS-XS
view release on metacpan or search on metacpan
MODULE = Geo::Coordinates::MGRS::XS PACKAGE = Geo::Coordinates::MGRS::XS
void mgrs_to_utm(mgrs)
char *mgrs;
PPCODE:
long zone;
char hemisphere;
double easting;
double northing;
croak("Unable to convert MGRS coordinates %ld (%s)", err, mgrs);
}
void mgrs_to_latlon(mgrs)
char *mgrs;
PPCODE:
double latitude;
double longitude;
long err = Convert_MGRS_To_Geodetic(mgrs, &latitude, &longitude);
if(!err) {
Geo-Coordinates-UTM-XS
view release on metacpan or search on metacpan
PROTOTYPE: $$$
PREINIT:
int zone = 0;
char zone_letter = 0;
double easting, northing;
PPCODE:
_latlon_to_utm(aTHX_ ename, latitude_deg, longitude_deg,
&zone, &zone_letter, &easting, &northing);
XPUSHs(sv_2mortal(newSVpvf("%d%c", zone, zone_letter)));
XPUSHs(sv_2mortal(newSVnv(easting)));
XPUSHs(sv_2mortal(newSVnv(northing)));
PROTOTYPE: $$$$
PREINIT:
int zone_number;
char zone_letter;
double easting, northing;
PPCODE:
zone_letter = 0;
_zonesv_to_number_letter(aTHX_ zone, &zone_number, &zone_letter);
if (zone_number < 0 || zone_number > 60)
Perl_croak(aTHX_ "Zone value (%d) invalid.", zone_number);
_latlon_to_utm(aTHX_ ename, latitude_deg, longitude_deg,
SV *ename
SV *zone
double easting
double northing
PROTOTYPE: $$$$
PPCODE:
{
int index;
double radius, inv_radius, eccentricity_2, eccentricity_4, eccentricity_6, eccentricity_prime_2;
double x, y;
double longitude_origin_deg;
Geo-Coordinates-VandH-XS
view release on metacpan or search on metacpan
toVH (lat, lon)
double lat
double lon
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
toVH(lat, lon);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
toLatLon (v, h)
double v
double h
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
toLatLon(v, h);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Geo-Hash-XS
view release on metacpan or search on metacpan
xs/geohash.xs view on Meta::CPAN
PREINIT:
NV lat_min = 0, lat_max = 0, lon_min = 0, lon_max = 0;
STRLEN len = strlen(hash);
AV *lat_range = (AV *)sv_2mortal((SV *)newAV());
AV *lon_range = (AV *)sv_2mortal((SV *)newAV());
PPCODE:
PERL_UNUSED_VAR(self);
decode_to_interval(hash, len, &lat_min, &lat_max, &lon_min, &lon_max);
av_push(lat_range, newSVnv(lat_max));
av_push(lat_range, newSVnv(lat_min));
xs/geohash.xs view on Meta::CPAN
SV *self;
char *hash;
PREINIT:
NV lat = 0, lon = 0;
STRLEN len = strlen(hash);
PPCODE:
PERL_UNUSED_VAR(self);
decode(hash, len, &lat, &lon);
mXPUSHn(lat);
mXPUSHn(lon);
xs/geohash.xs view on Meta::CPAN
int offset;
PREINIT:
int i;
int nsize;
char **list;
PPCODE:
PERL_UNUSED_VAR(self);
neighbors(hash, strlen(hash), around, offset, &list, &nsize);
for( i = 0; i < nsize; i++ ) {
mXPUSHp( list[i], strlen(list[i]) );
Geo-Hex-V3-XS
view release on metacpan or search on metacpan
lib/Geo/Hex/V3/XS.xs view on Meta::CPAN
PROTOTYPES: DISABLE
void
_new_with_code(...)
PPCODE:
{
if (items != 2) {
croak("Invalid argument count: %d", items);
}
const char *class = SvPV_nolen(ST(0));
lib/Geo/Hex/V3/XS.xs view on Meta::CPAN
}
}
void
_new_with_latlng(...)
PPCODE:
{
if (items != 4) {
croak("Invalid argument count: %d", items);
}
const char *class = SvPV_nolen(ST(0));
lib/Geo/Hex/V3/XS.xs view on Meta::CPAN
XSRETURN(1);
}
void
_new_with_xy(...)
PPCODE:
{
if (items != 4) {
croak("Invalid argument count: %d", items);
}
const char *class = SvPV_nolen(ST(0));
lib/Geo/Hex/V3/XS.xs view on Meta::CPAN
XSRETURN(1);
}
void
encode_geohex(...)
PPCODE:
{
if (items != 3) {
croak("Invalid argument count: %d", items);
}
const NV lat = SvNV(ST(0));
lib/Geo/Hex/V3/XS.xs view on Meta::CPAN
XSRETURN(1);
}
void
decode_geohex(...)
PPCODE:
{
if (items != 1) {
croak("Invalid argument count: %d", items);
}
const char *code = SvPV_nolen(ST(0));
lib/Geo/Hex/V3/XS.xs view on Meta::CPAN
}
}
void
geohex_hexsize(...)
PPCODE:
{
if (items != 1) {
croak("Invalid argument count: %d", items);
}
const UV level = SvUV(ST(0));
lib/Geo/Hex/V3/XS.xs view on Meta::CPAN
Geo::Hex::V3::XS::code = 4
Geo::Hex::V3::XS::level = 5
Geo::Hex::V3::XS::size = 6
PREINIT:
static const char *key[7] = {"lat", "lng", "x", "y", "code", "level", "size"};
PPCODE:
{
if (items != 1) {
croak("Invalid argument count: %d", items);
}
HV* state = (HV*)SvRV(ST(0));
lib/Geo/Hex/V3/XS.xs view on Meta::CPAN
XSRETURN(1);
}
void
polygon(...)
PPCODE:
{
if (items != 1) {
croak("Invalid argument count: %d", items);
}
HV* state = (HV*)SvRV(ST(0));
Geo-IP
view release on metacpan or search on metacpan
name_by_ipnum_v6(gi, ptr)
GeoIP *gi
char * ptr
PREINIT:
char * n;
PPCODE:
ST(0) = sv_newmortal();
n = GeoIP_name_by_ipnum_v6(gi,*(geoipv6_t*)ptr);
if ( n != NULL ) {
ST(0) = newSVpv(n, strlen(n));
free(n);
name_by_addr_v6(gi, addr)
GeoIP *gi
char * addr
PREINIT:
char * n;
PPCODE:
ST(0) = sv_newmortal();
n = GeoIP_name_by_addr_v6(gi,addr);
if ( n != NULL ) {
ST(0) = newSVpv(n, strlen(n));
free(n);
name_by_name_v6(gi, name)
GeoIP *gi
char * name
PREINIT:
char * n;
PPCODE:
ST(0) = sv_newmortal();
n = GeoIP_name_by_name_v6(gi,name);
if ( n != NULL ) {
ST(0) = newSVpv(n, strlen(n));
free(n);
org_by_addr(gi, addr)
GeoIP *gi
char * addr
PREINIT:
char * n;
PPCODE:
ST(0) = sv_newmortal();
n = GeoIP_org_by_addr(gi,addr);
if ( n != NULL ) {
ST(0) = newSVpv(n, strlen(n));
free(n);
org_by_name(gi, name)
GeoIP *gi
char * name
PREINIT:
char * n;
PPCODE:
ST(0) = sv_newmortal();
n = GeoIP_org_by_name(gi,name);
if ( n != NULL ) {
ST(0) = newSVpv(n, strlen(n));
free(n);
range_by_ip(gi, addr)
GeoIP *gi
const char * addr
PREINIT:
char ** r;
PPCODE:
r = GeoIP_range_by_ip(gi,addr);
if (r != NULL){
EXTEND(SP,2);
PUSHs( sv_2mortal( newSVpv(r[0], 0) ) );
PUSHs( sv_2mortal( newSVpv(r[1], 0) ) );
region_by_addr(gi, addr)
GeoIP *gi
char * addr
PREINIT:
GeoIPRegion * gir;
PPCODE:
gir = GeoIP_region_by_addr(gi,addr);
if (gir){
EXTEND(SP,2);
( gir->country_code[0] == '\0' && gir->country_code[1] == '\0' )
region_by_name(gi, name)
GeoIP *gi
char * name
PREINIT:
GeoIPRegion * gir;
PPCODE:
gir = GeoIP_region_by_name(gi,name);
if (gir){
EXTEND(SP,2);
( gir->country_code[0] == '\0' && gir->country_code[1] == '\0' )
void
city(gir)
GeoIPRecord *gir
PREINIT:
SV * n;
PPCODE:
n = newSVpv( gir->city ? gir->city : "", 0);
#if defined(sv_utf8_decode)
if ( gir->charset == GEOIP_CHARSET_UTF8 )
SvUTF8_on(n);
#endif
Geo-Index
view release on metacpan or search on metacpan
float p_lon
float polar_circumference
float search_radius
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
ComputeAreaExtrema_float(tile_adjust, max_size, max_level, p_lat, p_lat_rad, p_lon, polar_circumference, search_radius);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
double p_lon
double polar_circumference
double search_radius
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
ComputeAreaExtrema_double(tile_adjust, max_size, max_level, p_lat, p_lat_rad, p_lon, polar_circumference, search_radius);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
float new_diameter
float new_lat_1
float new_lon_1
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
SetUpDistance_float(new_diameter, new_lat_1, new_lon_1);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
double new_diameter
double new_lat_1
double new_lon_1
PREINIT:
I32* temp;
PPCODE:
temp = PL_markstack_ptr++;
SetUpDistance_double(new_diameter, new_lat_1, new_lon_1);
if (PL_markstack_ptr != temp) {
/* truly void, because dXSARGS not invoked */
PL_markstack_ptr = temp;
Geo-Location-TimeZoneFinder
view release on metacpan or search on metacpan
TimeZoneFinder.xs view on Meta::CPAN
shp_point_t location;
AV *time_zones;
SSize_t tz_count, tz_num;
SV **svp;
U8 gimme = GIMME_V;
PPCODE:
if ((items - 1) % 2 != 0) {
warn("Odd-length list passed to %s method",
(ix == 1) ? "time_zone_at" : "time_zones_at");
}
Geo-MedianCenter-XS
view release on metacpan or search on metacpan
PREINIT:
double lat = 0.0f;
double lon = 0.0f;
PPCODE:
if (median_center(opts, &lat, &lon))
XSRETURN_EMPTY;
mXPUSHs(newSVnv( lat ));
mXPUSHs(newSVnv( lon ));
Geo-Proj4
view release on metacpan or search on metacpan
void
new_proj4(defn)
char * defn
INIT:
projPJ rawstruct;
PPCODE:
rawstruct = pj_init_plus(defn);
if(rawstruct==NULL)
{ EXTEND(SP, 3);
PUSHs(&PL_sv_undef);
double lat
double lon
PROTOTYPE: $$$
PREINIT:
projUV in, out;
PPCODE:
in.u = lon * DEG_TO_RAD;
in.v = lat * DEG_TO_RAD;
out = pj_fwd(in, proj);
if(out.u == HUGE_VAL && out.v == HUGE_VAL)
XSRETURN_UNDEF;
double lon
PROTOTYPE: $$$
PREINIT:
projUV in, out;
projPJ toProj;
PPCODE:
in.u = lon;
in.v = lat;
out = pj_fwd(in, proj);
if (out.u == HUGE_VAL && out.v == HUGE_VAL)
XSRETURN_UNDEF;
double x
double y
PROTOTYPE: $$$
PREINIT:
projUV in, out;
PPCODE:
if(pj_is_latlong(proj))
{ in.u = x * DEG_TO_RAD;
in.v = y * DEG_TO_RAD;
}
else
double x
double y
PROTOTYPE: $$$
PREINIT:
projUV in, out;
PPCODE:
in.u = x;
in.v = y;
out = pj_inv(in, proj);
if (out.u == HUGE_VAL && out.v == HUGE_VAL)
)
{ XSRETURN_UNDEF;
}
nrpoints += 1; /* XS returns last index, not size */
PPCODE:
New(0, x, nrpoints, double);
New(0, y, nrpoints, double);
New(0, z, nrpoints, double);
/* fprintf(stderr, "%d points\n", nrpoints); */
SV *
def_types_proj4(void)
PREINIT:
struct PJ_LIST *type;
PPCODE:
#if PJ_VERSION >= 449
for(type = pj_get_list_ref(); type->id; type++)
{ /* same as "proj -l" does */
if( strcmp(type->id,"latlong")==0
|| strcmp(type->id,"longlat")==0
SV *
type_proj4(id)
char * id
PREINIT:
struct PJ_LIST *type;
PPCODE:
#if PJ_VERSION >= 449
for(type = pj_get_list_ref(); type->id; type++)
{ if(strcmp(id, type->id)!=0)
continue;
SV *
def_ellps_proj4(void)
PREINIT:
struct PJ_ELLPS *ellps;
PPCODE:
#if PJ_VERSION >= 449
for(ellps = pj_get_ellps_ref(); ellps->id; ellps++)
{ XPUSHs(sv_2mortal(newSVpv(ellps->id, 0)));
}
#endif
SV *
ellps_proj4(id)
char * id
PREINIT:
struct PJ_ELLPS *ellps;
PPCODE:
#if PJ_VERSION >= 449
for(ellps = pj_get_ellps_ref(); ellps->id; ellps++)
{ if(strcmp(id, ellps->id)!=0)
continue;
SV *
def_units_proj4(void)
PREINIT:
struct PJ_UNITS *unit;
PPCODE:
#if PJ_VERSION >= 449
for(unit = pj_get_units_ref(); unit->id; unit++)
{ XPUSHs(sv_2mortal(newSVpv(unit->id, 0)));
}
#endif
SV *
unit_proj4(id)
char * id
PREINIT:
struct PJ_UNITS *units;
PPCODE:
#if PJ_VERSION >= 449
for(units = pj_get_units_ref(); units->id; units++)
{ if(strcmp(id, units->id)!=0)
continue;
SV *
def_datums_proj4(void)
PREINIT:
struct PJ_DATUMS *datum;
PPCODE:
#if PJ_VERSION >= 449
for(datum = pj_get_datums_ref(); datum->id; datum++)
{ XPUSHs(sv_2mortal(newSVpv(datum->id, 0)));
}
#endif
SV *
datum_proj4(id)
char * id
PREINIT:
struct PJ_DATUMS *datum;
PPCODE:
#if PJ_VERSION >= 449
for(datum = pj_get_datums_ref(); datum->id; datum++)
{ if(strcmp(id, datum->id)!=0)
continue;
Geo-Vector
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 */
Geo-libpostal
view release on metacpan or search on metacpan
libpostal.xs view on Meta::CPAN
MODULE = Geo::libpostal PACKAGE = Geo::libpostal PREFIX = lp_
PROTOTYPES: ENABLED
void
lp__teardown()
PPCODE:
if (LP_SETUP) {
libpostal_teardown();
LP_SETUP = 0;
}
if (LP_SETUP_LANGCLASS) {
libpostal.xs view on Meta::CPAN
char *src, *option_name;
size_t src_len, option_len, i, j, num_expansions, num_langs, exp_len, lang_len, components;
AV *languages_av;
SV **lang;
char **languages = NULL;
PPCODE:
/* lazy load libpostal */
if (!LP_SETUP) {
if (!libpostal_setup()) {
croak("libpostal_setup() failed");
}
libpostal.xs view on Meta::CPAN
lp_parse_address(address, ...)
SV *address
PREINIT:
char *src, *option_name;
size_t src_len, option_len, i, label_len, component_len;
PPCODE:
/* lazy load libpostal */
if (!LP_SETUP) {
if (!libpostal_setup()) {
croak("libpostal_setup() failed");
}
Gfsm
view release on metacpan or search on metacpan
gfsmStateId qid;
guint lo_i;
guint hi_i;
gfsmWeight w_last;
guint nitems = 1;
PPCODE:
{
qid = gfsm_trie_find_prefix(trie, lo,hi, &lo_i,&hi_i,&w_last, NULL);
//
//
//-- return stack
AV *qpath_av;
guint lo_i;
guint hi_i;
gfsmWeight w_last;
guint nitems = 1;
PPCODE:
{
qpath = g_ptr_array_sized_new(lo->len + hi->len);
gfsm_trie_find_prefix(trie, lo,hi, &lo_i,&hi_i,&w_last, qpath);
//
//
Gimp
view release on metacpan or search on metacpan
lib/Gimp/Lib.xs view on Meta::CPAN
INIT:
gimp_enums_init ();
gint n_type_names;
const gchar **etn;
int i;
PPCODE:
etn = gimp_enums_get_type_names (&n_type_names);
if (!etn) XSRETURN_EMPTY;
EXTEND(SP, n_type_names);
for (i = 0; i < n_type_names; i++) {
PUSHs(sv_2mortal(newSVpv(etn[i], 0)));
lib/Gimp/Lib.xs view on Meta::CPAN
const char *name
INIT:
GType enum_type;
GEnumClass *enum_class;
GEnumValue *value;
PPCODE:
if (!(enum_type = g_type_from_name (name)))
croak (__("gimp_enums_list_type(%s) invalid name"), name);
if (!(enum_class = g_type_class_peek (enum_type)))
croak (__("gimp_enums_list_type(%s) invalid class"), name);
for (value = enum_class->values; value->value_name; value++) {
lib/Gimp/Lib.xs view on Meta::CPAN
# get gimp procedure info
void
gimp_procedural_db_proc_info(proc_name)
char * proc_name
PPCODE:
{
char *proc_blurb;
char *proc_help;
char *proc_author;
char *proc_copyright;
lib/Gimp/Lib.xs view on Meta::CPAN
const char *proc_type
INIT:
gint num_matches;
gchar **procedure_names;
int i;
PPCODE:
if (!gimp_procedural_db_query (
name, blurb, help, author, copyright, date, proc_type, &num_matches,
&procedure_names
)) croak (__("gimp_procedural_db_proc_query failed"));
if (!num_matches) XSRETURN_EMPTY;
lib/Gimp/Lib.xs view on Meta::CPAN
}
void
gimp_call_procedure (proc_name, ...)
utf8_str proc_name
PPCODE:
{
char croak_str[MAX_STRING] = "";
char *proc_blurb;
char *proc_help;
char *proc_author;
lib/Gimp/Lib.xs view on Meta::CPAN
}
void
gimp_get_data(id)
SV * id;
PPCODE:
{
SV *data;
STRLEN dlen;
dlen = gimp_get_data_size (SvPV_nolen (id));
lib/Gimp/Lib.xs view on Meta::CPAN
#
void
gimp_patterns_get_pattern_data(name)
SV * name
PPCODE:
{
GimpParam *return_vals;
int nreturn_vals;
return_vals = gimp_run_procedure ("gimp_patterns_get_pattern_data",
Git-Raw
view release on metacpan or search on metacpan
SV *class
PREINIT:
int ctx = GIMME_V;
PPCODE:
if (ctx != G_VOID) {
if (ctx == G_ARRAY) {
int features = git_libgit2_features();
mXPUSHs(newSVpv("threads", 0));
Glib-Object-Introspection
view release on metacpan or search on metacpan
GObjectIntrospection.xs view on Meta::CPAN
AV *global_functions;
HV *namespaced_functions;
HV *fields;
AV *interfaces;
AV *objects_with_vfuncs;
PPCODE:
repository = g_irepository_get_default ();
constants = newAV ();
global_functions = newAV ();
namespaced_functions = newHV ();
GObjectIntrospection.xs view on Meta::CPAN
GIRepository *repository;
GIObjectInfo *info;
GType gtype, object_gtype;
/* FIXME: we should export gperl_type_reg_quark from Glib */
GQuark reg_quark = g_quark_from_static_string ("__gperl_type_reg");
PPCODE:
repository = g_irepository_get_default ();
info = g_irepository_find_by_name (repository, basename, object_name);
g_assert (info && GI_IS_OBJECT_INFO (info));
gtype = gperl_object_type_from_package (target_package);
object_gtype = get_gtype (info);
GObjectIntrospection.xs view on Meta::CPAN
GIRepository *repository;
GType object_gtype, target_gtype;
gpointer object_klass, target_klass;
GIObjectInfo *object_info;
gint n_vfuncs, i;
PPCODE:
repository = g_irepository_get_default ();
target_gtype = gperl_object_type_from_package (target_package);
object_gtype = gperl_object_type_from_package (object_package);
g_assert (target_gtype && object_gtype);
target_klass = g_type_class_peek (target_gtype);
GObjectIntrospection.xs view on Meta::CPAN
GType gtype;
gpointer klass;
GIVFuncInfo *vfunc_info;
gint field_offset;
gpointer func_pointer;
PPCODE:
dwarn ("%s::%s, target = %s\n",
vfunc_package, vfunc_name, target_package);
gtype = gperl_object_type_from_package (target_package);
klass = g_type_class_peek (gtype);
g_assert (klass);
GObjectIntrospection.xs view on Meta::CPAN
UV internal_stack_offset = 4;
GIRepository *repository;
GIFunctionInfo *info;
gpointer func_pointer = NULL;
const gchar *symbol = NULL;
PPCODE:
repository = g_irepository_get_default ();
info = get_function_info (repository, basename, namespace, function);
symbol = g_function_info_get_symbol (info);
if (!g_typelib_symbol (g_base_info_get_typelib((GIBaseInfo *) info),
symbol, &func_pointer))
GObjectIntrospection.xs view on Meta::CPAN
void
_invoke (SV *code, ...)
PREINIT:
GPerlI11nCCallbackInfo *wrapper;
UV internal_stack_offset = 1;
PPCODE:
wrapper = INT2PTR (GPerlI11nCCallbackInfo*, SvIV (SvRV (code)));
if (!wrapper || !wrapper->func)
ccroak ("invalid reference encountered");
invoke_c_code (wrapper->interface, wrapper->func,
sp, ax, mark, items,
Glib
view release on metacpan or search on metacpan
lib/Glib/GenPod.pm view on Meta::CPAN
at any point in this pod -- they are stripped after.
In fact, any pod is valid in here, until the =cut.
=cut
void foo (...)
PPCODE:
/* crazy code follows */
=item =for arg name (type) description
=item =for arg name description
lib/Glib/GenPod.pm view on Meta::CPAN
? (@outlist > 1
? "(".join (", ", @outlist).")"
: $outlist[0]
)." = "
: (defined $xsub->{codetype} and
$xsub->{codetype} eq 'PPCODE'
? 'list = '
: ''
);
"$retstr$call ".($argstr ? "($argstr)" : "");
Gnome2-Canvas
view release on metacpan or search on metacpan
xs/GnomeCanvas.xs view on Meta::CPAN
GnomeCanvas *canvas
const char *spec
PREINIT:
int result;
GdkColor color;
PPCODE:
result = gnome_canvas_get_color (canvas, spec, &color);
EXTEND (sp, 2);
PUSHs (sv_2mortal (newSViv (result)));
PUSHs (sv_2mortal (newSVGdkColor (&color)));
xs/GnomeCanvas.xs view on Meta::CPAN
Fetch as a list the version of libgnomecanvas for which Gnome2::Canvas was
built.
=cut
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (GNOME_CANVAS_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (GNOME_CANVAS_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (GNOME_CANVAS_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
Gnome2-Dia
view release on metacpan or search on metacpan
# --------------------------------------------------------------------------- #
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (DIACANVAS_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (DIACANVAS_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (DIACANVAS_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
Gnome2-GConf
view release on metacpan or search on metacpan
can supply doctypes and give decent names to the unregistered
structures in the bindings. this requires an update to
ExtUtils::Depends 0.2 and bleeding edge Glib.
* xs/GConfClient.xs: use the new typemaps instead of hand-coded
PPCODE sections; this eliminates the need for several =for signature
directives in pod.
2004/02/20 14:15 (+0100) ebassi
* GConf,pm, README: version 0.91 - final beta cycle before API freeze
Gnome2-PanelApplet
view release on metacpan or search on metacpan
xs/PanelApplet.xs view on Meta::CPAN
panel_applet_get_background (PanelApplet *applet)
PREINIT:
PanelAppletBackgroundType type;
GdkColor color;
GdkPixmap *pixmap = NULL;
PPCODE:
type = panel_applet_get_background (applet, &color, &pixmap);
EXTEND (sp, 3);
PUSHs (sv_2mortal (newSVPanelAppletBackgroundType (type)));
switch (type) {
case PANEL_NO_BACKGROUND:
xs/PanelApplet.xs view on Meta::CPAN
#endif
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (PANEL_APPLET_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (PANEL_APPLET_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (PANEL_APPLET_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
Gnome2-Print
view release on metacpan or search on metacpan
2003/11/29 18:45 (+0100) ebassi
* xs/GnomePrintJob.xs, xs/GnomeFont.xs, xs/GnomeFontFace.xs,
xs/GnomePrintConfig.xs, xs/GnomePrintDialog.xs: better apidoc for
PPCODE in methods.
2003/11/29 18:15 (+0100) ebassi
* t/*: updated tests for constants modules change, and for unused
variables.
get_version class method.
2003/11/28 19:00 (+0100) ebassi
* xs/GnomeFont.xs, xs/GnomePrintJob.xs, xs/GnomePrintDialog.xs: added
apidoc for PPCODE sections.
2003/11/28 18:34 (+0100) ebassi
* Makefile.PL, pm/Config.pm, pm/Font.pm, t/05.GnomeFont.t: moved
constants to another namespace to avoid collisions with the
Gnome2-Rsvg
view release on metacpan or search on metacpan
#include "register.xsh"
#include "boot.xsh"
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (LIBRSVG_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (LIBRSVG_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (LIBRSVG_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
Gnome2-VFS
view release on metacpan or search on metacpan
ChangeLog.pre-git view on Meta::CPAN
* xs/GnomeVFS.xs: hush unused var warning in get_version_info.
* xs/GnomeVFSAsync.xs: looks like a couple of
s/VFS2PERL_GNOME_TYPE/GNOME_VFS_TYPE/ slipped through the cracks.
* xs/GnomeVFSDirectory.xs, xs/GnomeVFSOps.xs: if using PPCODE, the
return type should be void. this hushes some 'unused var RETVAL'
warnings.
* xs/GnomeVFSUtils.xs: disambiguating braces hush compiler warnings.
ChangeLog.pre-git view on Meta::CPAN
that it gets overwritten by the one generated by Gtk2::CodeGen.
* xs/GnomeVFSAsync.xs
* xs/GnomeVFSDirectory.xs
* xs/GnomeVFSOps.xs
* xs/GnomeVFSXfer.xs: Don't declare variables in CODE or PPCODE
sections, use PREINIT instead.
2003/11/23 21:52 (+0100) kaffeetisch
* Makefile.PL: Use custom prefixes for all GEnums and GFlags so
Gnome2-Vte
view release on metacpan or search on metacpan
#include "register.xsh"
#include "boot.xsh"
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (VTE_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (VTE_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (VTE_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
Gnome2-Wnck
view release on metacpan or search on metacpan
#include "register.xsh"
#include "boot.xsh"
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (WNCK_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (WNCK_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (WNCK_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
Gnome2
view release on metacpan or search on metacpan
ChangeLog.pre-git view on Meta::CPAN
don't let RETVAL be used uninitialized in alias switches.
* xs/Gnome2.xs: mark ax unused in functions which don't touch the
input stack, to hush compiler warnings
* xs/GnomeScore.xs: return type on PPCODE xsubs must be void.
2003/12/29 16:32 (-0500) rwmcfa1
* perl-Gnome2.spec.in: use the new DATE replacement in conjunction with
VERSION to create the changlog on the fly, which is better.
Goo-Canvas
view release on metacpan or search on metacpan
xs/goocanvas.xs view on Meta::CPAN
PREINIT:
gdouble left;
gdouble top;
gdouble right;
gdouble bottom;
PPCODE:
goo_canvas_get_bounds(canvas, &left, &top, &right, &bottom);
mXPUSHn(left);
mXPUSHn(top);
mXPUSHn(right);
mXPUSHn(bottom);
GooCanvas2-CairoTypes
view release on metacpan or search on metacpan
lib/GooCanvas2/CairoTypes.xs view on Meta::CPAN
gperl_register_boxed_synonym(CAIRO_GOBJECT_TYPE_PATTERN, GOO_TYPE_CAIRO_PATTERN);
# I don't know how to do this transformation more implicitly, without changing the code to call weird functions
SV*
cairoize_pattern(SV* input)
PPCODE:
SV* result = gperl_new_boxed(gperl_get_boxed_check(input, GOO_TYPE_CAIRO_PATTERN), CAIRO_GOBJECT_TYPE_PATTERN, 0);
PUSHs(sv_2mortal(result));
( run in 2.852 seconds using v1.01-cache-2.11-cpan-92ad3014f07 )