view release on metacpan or  search on metacpan

xs/Unique.xs  view on Meta::CPAN

MICRO_VERSION ()
	CODE:
		RETVAL = UNIQUE_MICRO_VERSION;

	OUTPUT:
		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);


gboolean
CHECK_VERSION (class, guint major, guint minor, guint micro)
	CODE:

xs/UniqueMessageData.xs  view on Meta::CPAN

Retrieves the URIs as an array.

=cut
void
unique_message_data_get_uris (UniqueMessageData *message_data)
	PREINIT:
		gchar **uris = NULL;
		gchar *uri = NULL;
		gint i = 0;
		
	PPCODE:
		uris = unique_message_data_get_uris(message_data);
		if (uris == NULL) {XSRETURN_EMPTY;}
		
		for (i = 0; TRUE; ++i) {
			uri = uris[i];
			if (uri == NULL) {break;}
			
			XPUSHs(sv_2mortal(newSVGChar(uri)));
		}
		g_strfreev(uris);