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
|
/*
* <% $module_c_filename %> - This file is in the public domain
* Author: <% $author %>
*
* Generated on: <% $now %>
* <% $module_name %> version: <% $module_version %>
* Module::CAPIMaker version: <% $module_capimaker_version %>
*/
#include "EXTERN.h"
#include "perl.h"
#include "ppport.h"
#ifdef __MINGW32__
#include <stdint.h>
#endif
#ifdef _MSC_VER
#include <stdlib.h>
typedef __int64 int64_t;
typedef unsigned __int64 uint64_t;
#endif
/* you may need to add a typemap for int64_t here if it is not defined
by default in your C header files */
HV *<% $c_module_name %>_c_api_hash;
int <% $c_module_name %>_c_api_min_version;
int <% $c_module_name %>_c_api_max_version;
<%
for my $n (sort keys %function) {
my $f = $function{$n};
$OUT .= "$f->{type} (*${c_module_name}_c_api_$n)($f->{args});\n";
}
%>
int
perl_<% $c_module_name %>_load(int required_version) {
dTHX;
SV **svp;
eval_pv("require <% $module_name %>", TRUE);
if (SvTRUE(ERRSV)) return 0;
<% $c_module_name %>_c_api_hash = get_hv("<% $module_name %>::C_API", 0);
if (!<% $c_module_name %>_c_api_hash) {
sv_setpv(ERRSV, "Unable to load <% $module_name %> C API");
SvSETMAGIC(ERRSV);
return 0;
}
svp = hv_fetch(<% $c_module_name %>_c_api_hash, "min_version", <% length "min_version" %>, 0);
if (!svp) svp = hv_fetch(<% $c_module_name %>_c_api_hash, "version", <% length "version" %>, 1);
if (!svp || !*svp) {
sv_setpv(ERRSV, "Unable to retrieve C API version for <% $module_name %>");
SvSETMAGIC(ERRSV);
return 0;
}
<% $c_module_name %>_c_api_min_version = SvIV(*svp);
svp = hv_fetch(<% $c_module_name %>_c_api_hash, "max_version", <% length "max_version" %>, 0);
if (!svp) svp = hv_fetch(<% $c_module_name %>_c_api_hash, "version", <% length "version" %>, 1);
if (!svp || !*svp) {
sv_setpv(ERRSV, "Unable to retrieve C API version for <% $module_name %>");
SvSETMAGIC(ERRSV);
return 0;
}
<% $c_module_name %>_c_api_max_version = SvIV(*svp);
if ((required_version < <% $c_module_name %>_c_api_min_version) ||
(required_version > <% $c_module_name %>_c_api_max_version)) {
sv_setpvf(ERRSV,
"<% $module_name %> C API version mismatch. "
"The installed module supports versions %d to %d but %d is required",
<% $c_module_name %>_c_api_min_version,
<% $c_module_name %>_c_api_max_version,
required_version);
SvSETMAGIC(ERRSV);
return 0;
}
<%
for my $n (sort keys %function) {
my $len = length $n;
$OUT .= <<EOC
svp = hv_fetch(${c_module_name}_c_api_hash, "$n", $len, 0);
if (!svp || !*svp) {
sv_setpv(ERRSV, "Unable to fetch pointer '$n' C function from $module_name");
SvSETMAGIC(ERRSV);
return 0;
}
${c_module_name}_c_api_$n = INT2PTR(void *, SvIV(*svp));
EOC
}
%>
return 1;
}
|
