view release on metacpan or  search on metacpan

XMMSClientResultPropDict.xs  view on Meta::CPAN

MODULE = Audio::XMMSClient::Result::PropDict	PACKAGE = Audio::XMMSClient::Result::PropDict

void
set_source_preference (sv, ...)
		SV *sv
	PREINIT:
		int i;
		MAGIC *mg = NULL;
		xmmsc_result_t *res;
		char **prefs;
	CODE:
		if (!(mg = perl_xmmsclient_get_magic_from_sv (sv, "Audio::XMMSClient::Result::PropDict"))) {
			croak ("bug");
		}
		res = (xmmsc_result_t *)mg->mg_ptr;

		prefs = (char **)malloc (sizeof (char *) * items);
		for (i = 1; i < items; i++) {
			prefs[i] = SvPV_nolen (ST (i));
		}

		prefs[items] = NULL;

		xmmsc_result_source_preference_set (res, (const char **)prefs);

		free (prefs);

SV *
source_hash (sv)
		SV *sv
	PREINIT:
		int ret;
		HV *val;
		MAGIC *mg = NULL;
		xmmsc_result_t *res;
	CODE: