[perl5.git] / cpan / ExtUtils-ParseXS / t / XSMore.xs

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

=for testing

This parts are ignored.

=cut

STATIC void
outlist(int* a, int* b){
	*a = 'a';
	*b = 'b';
}

STATIC int
len(const char* const s, int const l){
	return l;
}

MODULE = XSMore         PACKAGE = XSMore

=for testing

This parts are also ignored.

=cut

PROTOTYPES: ENABLE

VERSIONCHECK: DISABLE

REQUIRE: 2.20

SCOPE: DISABLE

FALLBACK: TRUE

BOOT:
	sv_setiv(get_sv("XSMore::boot_ok", TRUE), 100);


void
prototype_ssa()
PROTOTYPE: $$@
CODE:
	NOOP;

void
attr_method(self, ...)
ATTRS: method
CODE:
	NOOP;

#define RET_1 1
#define RET_2 2

int
return_1()
CASE: ix == 1
	ALIAS:
		return_1 = RET_1
		return_2 = RET_2
	CODE:
		RETVAL = ix;
	OUTPUT:
		RETVAL
CASE: ix == 2
	CODE:
		RETVAL = ix;
	OUTPUT:
		RETVAL

int
arg_init(x)
	int x = SvIV($arg);
CODE:
	RETVAL = x;
OUTPUT:
	RETVAL

int
myabs(...)
OVERLOAD: abs
CODE:
	RETVAL = 42;
OUTPUT:
	RETVAL

void
hook(IN AV* av)
INIT:
	av_push(av, newSVpv("INIT", 0));
CODE:
	av_push(av, newSVpv("CODE", 0));
POSTCALL:
	av_push(av, newSVpv("POSTCALL", 0));
CLEANUP:
	av_push(av, newSVpv("CLEANUP", 0));


void
outlist(OUTLIST int a, OUTLIST int b)

int
len(char* s, int length(s))

INCLUDE_COMMAND: $^X -Ilib -It/lib -MIncludeTester -e IncludeTester::print_xs

#if 1

INCLUDE: XSInclude.xsh

#else

# for testing #else directive

#endif
Commit	Line	Data
28892255 DG	1	#include "EXTERN.h"
	2	#include "perl.h"
	3	#include "XSUB.h"
	4
	5	=for testing
	6
	7	This parts are ignored.
	8
	9	=cut
	10
	11	STATIC void
	12	outlist(int* a, int* b){
	13	*a = 'a';
	14	*b = 'b';
	15	}
	16
	17	STATIC int
	18	len(const char* const s, int const l){
	19	return l;
	20	}
	21
	22	MODULE = XSMore PACKAGE = XSMore
	23
	24	=for testing
	25
	26	This parts are also ignored.
	27
	28	=cut
	29
	30	PROTOTYPES: ENABLE
	31
	32	VERSIONCHECK: DISABLE
	33
	34	REQUIRE: 2.20
	35
	36	SCOPE: DISABLE
	37
	38	FALLBACK: TRUE
	39
	40	BOOT:
	41	sv_setiv(get_sv("XSMore::boot_ok", TRUE), 100);
	42
	43
	44	void
	45	prototype_ssa()
	46	PROTOTYPE: $$@
	47	CODE:
	48	NOOP;
	49
	50	void
	51	attr_method(self, ...)
	52	ATTRS: method
	53	CODE:
	54	NOOP;
	55
	56	#define RET_1 1
	57	#define RET_2 2
	58
	59	int
	60	return_1()
	61	CASE: ix == 1
	62	ALIAS:
	63	return_1 = RET_1
	64	return_2 = RET_2
65	CODE:
66	RETVAL = ix;
67	OUTPUT:
68	RETVAL
69	CASE: ix == 2
70	CODE:
71	RETVAL = ix;
72	OUTPUT:
73	RETVAL
74
75	int
76	arg_init(x)
77	int x = SvIV($arg);
78	CODE:
79	RETVAL = x;
80	OUTPUT:
81	RETVAL
82
83	int
84	myabs(...)
85	OVERLOAD: abs
86	CODE:
87	RETVAL = 42;
88	OUTPUT:
89	RETVAL
90
91	void
92	hook(IN AV* av)
93	INIT:
94	av_push(av, newSVpv("INIT", 0));
95	CODE:
96	av_push(av, newSVpv("CODE", 0));
97	POSTCALL:
98	av_push(av, newSVpv("POSTCALL", 0));
99	CLEANUP:
100	av_push(av, newSVpv("CLEANUP", 0));
101
102
103	void
104	outlist(OUTLIST int a, OUTLIST int b)
105
106	int
107	len(char* s, int length(s))
108
387b6f8d S	109	INCLUDE_COMMAND: $^X -Ilib -It/lib -MIncludeTester -e IncludeTester::print_xs
387b6f8d S	110
28892255 DG	111	#if 1
	112
	113	INCLUDE: XSInclude.xsh
	114
	115	#else
	116
	117	# for testing #else directive
	118
	119	#endif