| line |
stmt |
bran |
cond |
sub |
time |
code |
|
1
|
|
|
|
|
|
#include "EXTERN.h" |
|
2
|
|
|
|
|
|
#include "perl.h" |
|
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
/* We have to be in a different .xs so that we can do this: */ |
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
#undef XS_VERSION |
|
7
|
|
|
|
|
|
#define XS_VERSION "" |
|
8
|
|
|
|
|
|
#undef PERL_API_VERSION_STRING |
|
9
|
|
|
|
|
|
#define PERL_API_VERSION_STRING "1.0.16" |
|
10
|
|
|
|
|
|
#include "XSUB.h" |
|
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
/* This can't be "MODULE = XS::APItest" as then we get duplicate bootstraps. */ |
|
13
|
|
|
|
|
|
MODULE = XS::APItest::XSUB1 PACKAGE = XS::APItest::XSUB |
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
PROTOTYPES: DISABLE |
|
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
EXPORT_XSUB_SYMBOLS: ENABLE |
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
void |
|
20
|
|
|
|
|
|
XS_VERSION_empty(...) |
|
21
|
|
|
|
|
|
PPCODE: |
|
22
|
2
|
|
|
|
|
XS_VERSION_BOOTCHECK; |
|
23
|
0
|
|
|
|
|
XSRETURN_EMPTY; |
|
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
void |
|
26
|
|
|
|
|
|
XS_APIVERSION_invalid(...) |
|
27
|
|
|
|
|
|
PPCODE: |
|
28
|
2
|
|
|
|
|
XS_APIVERSION_BOOTCHECK; |
|
29
|
0
|
|
|
|
|
XSRETURN_EMPTY; |