xstest.xs

来自「source of perl for linux application,」· XS 代码 · 共 68 行

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

void
xstest_something (char * some_thing)
{
	some_thing = some_thing;
}

void
xstest_something2 (char * some_thing)
{
	some_thing = some_thing;
}


MODULE = XSTest         PACKAGE = XSTest	PREFIX = xstest_

PROTOTYPES: DISABLE

int
is_even(input)
	int     input
    CODE:
	RETVAL = (input % 2 == 0);
    OUTPUT:
	RETVAL

void
xstest_something (myclass, some_thing)
	char * some_thing
    C_ARGS:
	some_thing

void
xstest_something2 (some_thing)
	char * some_thing

void
xstest_something3 (myclass, some_thing)
	SV   * myclass
	char * some_thing
    PREINIT:
    	int i = 0;
    PPCODE:
    	/* it's up to us clear these warnings */
	myclass = myclass;
	some_thing = some_thing;
	i = i;
	XSRETURN_UNDEF;
	
int
consts (myclass)
	SV * myclass
    ALIAS:
	const_one = 1
	const_two = 2
	const_three = 3
    CODE:
    	/* it's up to us clear these warnings */
    	myclass = myclass;
	ix = ix;
    	RETVAL = 1;
    OUTPUT:
	RETVAL