view release on metacpan or  search on metacpan

Sx.xs  view on Meta::CPAN

MODULE = Sx	PACKAGE = Sx	PREFIX = Sx_

PROTOTYPES: ENABLED


void
OpenDisplay(args,...)
	String_Array	args = NO_INIT
	PROTOTYPE:	@
	PPCODE: 
	{
	    int i;
	    args = XS_unpack_String_Array(ax,items);
	    if (!items) {
	      *args = "Main Sx Window"; items = 1;
	    }
	    if (i = OpenDisplay(items,args)) {
		int j;
		for (j = 0; j != i; j++) 
		    PUSHs(sv_2mortal(newSVpv(args[j],strlen(args[j]))));