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
|
/*
* <% $c_api_h_filename %> - This file is in the public domain
* Author: <% $author %>
*
* Generated on: <% $now %>
* <% $module_name %> version: <% $module_version %>
* Module::CAPIMaker version: <% $module_capimaker_version %>
*/
#if !defined (<% $c_api_h_barrier %>)
#define <% $c_api_h_barrier %>
static void
init_c_api(pTHX) {
HV *hv = get_hv("<% $module_name %>::C_API", TRUE|GV_ADDMULTI);
hv_store(hv, "min_version", <% length("min_version") %>, newSViv(<% $min_version %>), 0);
hv_store(hv, "max_version", <% length("max_version") %>, newSViv(<% $max_version %>), 0);
hv_store(hv, "version", <% length("version") %>, newSViv(<% $max_version %>), 0);
<%
for my $n (sort keys %function) {
my $f = $function{$n};
my $len = length $n;
$OUT .= " hv_store(hv, \"$n\", $len, newSViv(PTR2IV(&$n)), 0);\n";
}
%>
}
#define INIT_C_API init_c_api(aTHX)
#endif
|
