File Coverage

xs/API.xs
Criterion Covered Total %
statement 4 75 5.3
branch 3 54 5.5
condition n/a
subroutine n/a
pod n/a
total 7 129 5.4


line stmt bran cond sub pod time code
1             MODULE = FFI::Platypus PACKAGE = FFI::Platypus::API
2              
3             int
4             arguments_count()
5             PROTOTYPE:
6             PREINIT:
7             dMY_CXT;
8             CODE:
9 0 0         if(MY_CXT.current_argv == NULL)
10 0           croak("Not in custom type handler");
11 0           RETVAL = ffi_pl_arguments_count(MY_CXT.current_argv);
12             OUTPUT:
13             RETVAL
14              
15             void *
16             arguments_get_pointer(i)
17             int i
18             PROTOTYPE: $
19             PREINIT:
20             dMY_CXT;
21             CODE:
22 0 0         if(MY_CXT.current_argv == NULL)
23 0           croak("Not in custom type handler");
24 0           RETVAL = ffi_pl_arguments_get_pointer(MY_CXT.current_argv, i);
25             OUTPUT:
26             RETVAL
27              
28             void
29             arguments_set_pointer(i, value)
30             int i
31             void *value
32             PROTOTYPE: $$
33             PREINIT:
34             dMY_CXT;
35             CODE:
36 6 50         if(MY_CXT.current_argv == NULL)
37 0           croak("Not in custom type handler");
38 6           ffi_pl_arguments_set_pointer(MY_CXT.current_argv, i, value);
39              
40             ffi_pl_string
41             arguments_get_string(i)
42             int i
43             PROTOTYPE: $
44             PREINIT:
45             dMY_CXT;
46             CODE:
47 0 0         if(MY_CXT.current_argv == NULL)
48 0           croak("Not in custom type handler");
49 0           RETVAL = ffi_pl_arguments_get_string(MY_CXT.current_argv, i);
50             OUTPUT:
51             RETVAL
52              
53             void
54             arguments_set_string(i, value)
55             int i
56             ffi_pl_string value
57             PROTOTYPE: $$
58             PREINIT:
59             dMY_CXT;
60             CODE:
61 0 0         if(MY_CXT.current_argv == NULL)
62 0           croak("Not in custom type handler");
63 0           ffi_pl_arguments_set_string(MY_CXT.current_argv, i, value);
64              
65             UV
66             arguments_get_uint8(i)
67             int i
68             PROTOTYPE: $
69             PREINIT:
70             dMY_CXT;
71             CODE:
72 0 0         if(MY_CXT.current_argv == NULL)
73 0           croak("Not in custom type handler");
74 0           RETVAL = ffi_pl_arguments_get_uint8(MY_CXT.current_argv, i);
75             OUTPUT:
76             RETVAL
77              
78             void
79             arguments_set_uint8(i, value)
80             int i
81             UV value
82             PROTOTYPE: $$
83             PREINIT:
84             dMY_CXT;
85             CODE:
86 0 0         if(MY_CXT.current_argv == NULL)
87 0           croak("Not in custom type handler");
88 0           ffi_pl_arguments_set_uint8(MY_CXT.current_argv, i, value);
89              
90             IV
91             arguments_get_sint8(i)
92             int i
93             PROTOTYPE: $
94             PREINIT:
95             dMY_CXT;
96             CODE:
97 0 0         if(MY_CXT.current_argv == NULL)
98 0           croak("Not in custom type handler");
99 0           RETVAL = ffi_pl_arguments_get_sint8(MY_CXT.current_argv, i);
100             OUTPUT:
101             RETVAL
102              
103             void
104             arguments_set_sint8(i, value)
105             int i
106             IV value
107             PROTOTYPE: $$
108             PREINIT:
109             dMY_CXT;
110             CODE:
111 0 0         if(MY_CXT.current_argv == NULL)
112 0           croak("Not in custom type handler");
113 0           ffi_pl_arguments_set_sint8(MY_CXT.current_argv, i, value);
114              
115             float
116             arguments_get_float(i)
117             int i
118             PROTOTYPE: $
119             PREINIT:
120             dMY_CXT;
121             CODE:
122 0 0         if(MY_CXT.current_argv == NULL)
123 0           croak("Not in custom type handler");
124 0           RETVAL = ffi_pl_arguments_get_float(MY_CXT.current_argv, i);
125             OUTPUT:
126             RETVAL
127              
128             void
129             arguments_set_float(i, value)
130             int i
131             float value
132             PROTOTYPE: $$
133             PREINIT:
134             dMY_CXT;
135             CODE:
136 0 0         if(MY_CXT.current_argv == NULL)
137 0           croak("Not in custom type handler");
138 0           ffi_pl_arguments_set_float(MY_CXT.current_argv, i, value);
139              
140             double
141             arguments_get_double(i)
142             int i
143             PROTOTYPE: $
144             PREINIT:
145             dMY_CXT;
146             CODE:
147 0 0         if(MY_CXT.current_argv == NULL)
148 0           croak("Not in custom type handler");
149 0           RETVAL = ffi_pl_arguments_get_double(MY_CXT.current_argv, i);
150             OUTPUT:
151             RETVAL
152              
153             void
154             arguments_set_double(i, value)
155             int i
156             double value
157             PROTOTYPE: $$
158             PREINIT:
159             dMY_CXT;
160             CODE:
161 0 0         if(MY_CXT.current_argv == NULL)
162 0           croak("Not in custom type handler");
163 0           ffi_pl_arguments_set_double(MY_CXT.current_argv, i, value);
164              
165             UV
166             arguments_get_uint16(i)
167             int i
168             PROTOTYPE: $
169             PREINIT:
170             dMY_CXT;
171             CODE:
172 0 0         if(MY_CXT.current_argv == NULL)
173 0           croak("Not in custom type handler");
174 0           RETVAL = ffi_pl_arguments_get_uint16(MY_CXT.current_argv, i);
175             OUTPUT:
176             RETVAL
177              
178             void
179             arguments_set_uint16(i, value)
180             int i
181             UV value
182             PROTOTYPE: $$
183             PREINIT:
184             dMY_CXT;
185             CODE:
186 0 0         if(MY_CXT.current_argv == NULL)
187 0           croak("Not in custom type handler");
188 0           ffi_pl_arguments_set_uint16(MY_CXT.current_argv, i, value);
189              
190             IV
191             arguments_get_sint16(i)
192             int i
193             PROTOTYPE: $
194             PREINIT:
195             dMY_CXT;
196             CODE:
197 0 0         if(MY_CXT.current_argv == NULL)
198 0           croak("Not in custom type handler");
199 0           RETVAL = ffi_pl_arguments_get_sint16(MY_CXT.current_argv, i);
200             OUTPUT:
201             RETVAL
202              
203             void
204             arguments_set_sint16(i, value)
205             int i
206             IV value
207             PROTOTYPE: $$
208             PREINIT:
209             dMY_CXT;
210             CODE:
211 0 0         if(MY_CXT.current_argv == NULL)
212 0           croak("Not in custom type handler");
213 0           ffi_pl_arguments_set_sint16(MY_CXT.current_argv, i, value);
214              
215             UV
216             arguments_get_uint32(i)
217             int i
218             PROTOTYPE: $
219             PREINIT:
220             dMY_CXT;
221             CODE:
222 0 0         if(MY_CXT.current_argv == NULL)
223 0           croak("Not in custom type handler");
224 0           RETVAL = ffi_pl_arguments_get_uint32(MY_CXT.current_argv, i);
225             OUTPUT:
226             RETVAL
227              
228             void
229             arguments_set_uint32(i, value)
230             int i
231             UV value
232             PROTOTYPE: $$
233             PREINIT:
234             dMY_CXT;
235             CODE:
236 0 0         if(MY_CXT.current_argv == NULL)
237 0           croak("Not in custom type handler");
238 0           ffi_pl_arguments_set_uint32(MY_CXT.current_argv, i, value);
239              
240             IV
241             arguments_get_sint32(i)
242             int i
243             PROTOTYPE: $
244             PREINIT:
245             dMY_CXT;
246             CODE:
247 0 0         if(MY_CXT.current_argv == NULL)
248 0           croak("Not in custom type handler");
249 0           RETVAL = ffi_pl_arguments_get_sint32(MY_CXT.current_argv, i);
250             OUTPUT:
251             RETVAL
252              
253             void
254             arguments_set_sint32(i, value)
255             int i
256             IV value
257             PROTOTYPE: $$
258             PREINIT:
259             dMY_CXT;
260             CODE:
261 0 0         if(MY_CXT.current_argv == NULL)
262 0           croak("Not in custom type handler");
263 0           ffi_pl_arguments_set_sint32(MY_CXT.current_argv, i, value);
264              
265             void
266             arguments_get_uint64(i)
267             int i
268             PROTOTYPE: $
269             PREINIT:
270             dMY_CXT;
271             CODE:
272 0 0         if(MY_CXT.current_argv == NULL)
273 0           croak("Not in custom type handler");
274 0           XSRETURN_U64(ffi_pl_arguments_get_uint64(MY_CXT.current_argv, i));
275              
276             void
277             arguments_set_uint64(i, value)
278             int i
279             SV* value
280             PROTOTYPE: $$
281             PREINIT:
282             dMY_CXT;
283             CODE:
284 6 50         if(MY_CXT.current_argv == NULL)
285 0           croak("Not in custom type handler");
286 6 50         ffi_pl_arguments_set_uint64(MY_CXT.current_argv, i, SvU64(value));
287              
288             void
289             arguments_get_sint64(i)
290             int i
291             PROTOTYPE: $
292             PREINIT:
293             dMY_CXT;
294             CODE:
295 0 0         if(MY_CXT.current_argv == NULL)
296 0           croak("Not in custom type handler");
297 0           XSRETURN_I64(ffi_pl_arguments_get_sint64(MY_CXT.current_argv, i));
298              
299             void
300             arguments_set_sint64(i, value)
301             int i
302             SV* value
303             PROTOTYPE: $$
304             PREINIT:
305             dMY_CXT;
306             CODE:
307 0 0         if(MY_CXT.current_argv == NULL)
308 0           croak("Not in custom type handler");
309 0 0         ffi_pl_arguments_set_sint64(MY_CXT.current_argv, i, SvI64(value));
310