Commit | Line | Data |
28892255 |
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 |
109 | INCLUDE_COMMAND: $^X -Ilib -It/lib -MIncludeTester -e IncludeTester::print_xs |
110 | |
28892255 |
111 | #if 1 |
112 | |
113 | INCLUDE: XSInclude.xsh |
114 | |
115 | #else |
116 | |
117 | # for testing #else directive |
118 | |
119 | #endif |