view release on metacpan or  search on metacpan

xs/SexySpellEntry.xs  view on Meta::CPAN

GtkWidget *
sexy_spell_entry_new (class)
	C_ARGS:

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;
		}

		for (cur = list; cur; cur = g_slist_next (cur)) {
			XPUSHs (sv_2mortal (newSVGChar (cur->data)));
		}

xs/SexySpellEntry.xs  view on Meta::CPAN

			gperl_croak_gerror(NULL, error);
		}
	OUTPUT:
		RETVAL

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;
		}

		for (cur = list; cur; cur = g_slist_next (cur)) {
			XPUSHs (sv_2mortal (newSVGChar (cur->data)));
		}