[perl5.git] / lib / ExtUtils / ParseXS / t / XSTest.xs

#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 (class, some_thing)
	char * some_thing
    C_ARGS:
	some_thing

void
xstest_something2 (some_thing)
	char * some_thing

void
xstest_something3 (class, some_thing)
	SV   * class
	char * some_thing
    PREINIT:
    	int i;
    PPCODE:
    	/* it's up to us clear these warnings */
	class = class;
	some_thing = some_thing;
	i = i;
	XSRETURN_UNDEF;
	
int
consts (class)
	SV * class
    ALIAS:
	const_one = 1
	const_two = 2
	const_three = 3
    CODE:
    	/* it's up to us clear these warnings */
    	class = class;
	ix = ix;
    	RETVAL = 1;
    OUTPUT:
	RETVAL
Commit	Line	Data
6b09c160 YST	1	#include "EXTERN.h"
	2	#include "perl.h"
	3	#include "XSUB.h"
	4
	5	void
	6	xstest_something (char * some_thing)
	7	{
	8	some_thing = some_thing;
	9	}
	10
	11	void
	12	xstest_something2 (char * some_thing)
	13	{
	14	some_thing = some_thing;
	15	}
	16
	17
	18	MODULE = XSTest PACKAGE = XSTest PREFIX = xstest_
	19
	20	PROTOTYPES: DISABLE
	21
	22	int
	23	is_even(input)
	24	int input
	25	CODE:
	26	RETVAL = (input % 2 == 0);
	27	OUTPUT:
	28	RETVAL
	29
	30	void
	31	xstest_something (class, some_thing)
	32	char * some_thing
	33	C_ARGS:
	34	some_thing
	35
	36	void
	37	xstest_something2 (some_thing)
	38	char * some_thing
	39
	40	void
	41	xstest_something3 (class, some_thing)
	42	SV * class
	43	char * some_thing
	44	PREINIT:
	45	int i;
	46	PPCODE:
	47	/* it's up to us clear these warnings */
	48	class = class;
	49	some_thing = some_thing;
	50	i = i;
	51	XSRETURN_UNDEF;
	52
	53	int
	54	consts (class)
	55	SV * class
	56	ALIAS:
	57	const_one = 1
	58	const_two = 2
	59	const_three = 3
	60	CODE:
	61	/* it's up to us clear these warnings */
	62	class = class;
	63	ix = ix;
	64	RETVAL = 1;
65	OUTPUT:
66	RETVAL
67