1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#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
|
