view release on metacpan or  search on metacpan

xs/MemphisMap.xs  view on Meta::CPAN

void
memphis_map_get_bounding_box (MemphisMap *map)
	PREINIT:
		gdouble minlat = 0,
		        minlon = 0,
		        maxlat = 0,
		        maxlon = 0;

	PPCODE:
		memphis_map_get_bounding_box(map, &minlat, &minlon, &maxlat, &maxlon);
		EXTEND(SP, 4);
		PUSHs(sv_2mortal(newSVnv(minlat)));
		PUSHs(sv_2mortal(newSVnv(minlon)));
		PUSHs(sv_2mortal(newSVnv(maxlat)));
		PUSHs(sv_2mortal(newSVnv(maxlon)));

xs/MemphisRule.xs  view on Meta::CPAN

# Accessor for the struct members that handle string lists.
#
void
keys (MemphisRule *rule, ...)
	ALIAS:
		values = 1

	PREINIT:
		gchar **list = NULL;

	PPCODE:
		switch (ix) {
			case 0:
				list = rule->keys;
			break;

			case 1:
				list = rule->values;
			break;
		}

xs/MemphisRuleSet.xs  view on Meta::CPAN

void
memphis_rule_set_set_bg_color (MemphisRuleSet *rules, guint8 r, guint8 g, guint8 b, guint8 a)


void
memphis_rule_set_get_bg_color (MemphisRuleSet *rules)
	PREINIT:
		guint8 r, g, b, a;

	PPCODE:
		memphis_rule_set_get_bg_color(rules, &r, &g, &b, &a);
		EXTEND (SP, 4);
		PUSHs (sv_2mortal (newSViv (r)));
		PUSHs (sv_2mortal (newSViv (g)));
		PUSHs (sv_2mortal (newSViv (b)));
		PUSHs (sv_2mortal (newSViv (a)));
		PERL_UNUSED_VAR (ax);


void
memphis_rule_set_get_rule_ids (MemphisRuleSet *rules)
	PREINIT:
		GList *list = NULL;
		GList *item = NULL;

	PPCODE:
		list = memphis_rule_set_get_rule_ids(rules);
		if (!list) {
			XSRETURN_EMPTY;
		}

		for (item = list; item != NULL; item = item->next) {
			gchar *id = (gchar *) item->data;
			XPUSHs(sv_2mortal(newSVGChar(id)));
		}