view release on metacpan or  search on metacpan

lib/Colouring/In/XS.xs  view on Meta::CPAN

		colour = xs_ensure_obj(class, colour);
		c = xs_extract_rgba(colour);
		c = colouring_greyscale(c.r, c.g, c.b, c.a);
		RETVAL = xs_rgba_to_obj(class, c);
	OUTPUT:
		RETVAL

void
colour(self)
	SV * self
	PPCODE:
		int i;
		AV * colour = (AV*)SvRV(*hv_fetch((HV*)SvRV(self), "colour", 6, 0));
		int len = av_len(colour);
		EXTEND(SP, len + 1);
		for (i = 0; i <= len; i++) {
			PUSHs(sv_2mortal(newSVsv(*av_fetch(colour, i, 0))));
		}

SV *
get_message(msg)