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 |
110 | ||
28892255 DG |
111 | #if 1 |
112 | ||
113 | INCLUDE: XSInclude.xsh | |
114 | ||
115 | #else | |
116 | ||
117 | # for testing #else directive | |
118 | ||
119 | #endif |