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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
package Embperl::WrapXS ;
use strict;
use vars qw{@ISA $VERSION $verbose} ;
use warnings FATAL => 'all';
use ExtUtils::XSBuilder::WrapXS ;
@ISA = ('ExtUtils::XSBuilder::WrapXS') ;
$VERSION = '2.0.0';
# ============================================================================
sub new_parsesource { [ Embperl::ParseSource->new ] }
# ============================================================================
sub my_xs_prefix { 'epxs_' }
# ============================================================================
sub h_filename_prefix { 'ep_xs_' }
# ============================================================================
sub xs_includes
{
my $self = shift ;
my $inc = $self -> SUPER::xs_includes ;
unshift @$inc, "epmacro.h" ;
unshift @$inc, "ep.h" ;
return $inc ;
}
sub xs_map_dir { "$FindBin::Bin/maps" } ;
sub xs_target_dir { "$FindBin::Bin/../xs" } ;
sub xs_include_dir { "$FindBin::Bin/../xsinclude" } ;
sub trans
{
my $name = shift ;
return $name if ($name !~ /[A-Z]/) ;
$name =~ s/^.*?([A-Z])/$1/ ;
$name =~ s/([A-Z]+)/'_' . lc($1)/eg ;
$name =~ s/^_// ;
return $name ;
}
sub mapline_elem
{
my ($self, $name) = @_ ;
my $perl_name = trans ($name) ;
return "$name | $perl_name" if ($name ne $perl_name) ;
return $name ;
}
sub pm_text { undef } ;
sub makefilepl_text {
my $self = shift ;
my $code = "local \$mp2cfg ;\nlocal \$ccdebug ;\nlocal \$addcflags;\n" .
$self -> SUPER::makefilepl_text (@_) ;
$code .= q[
sub MY::top_targets
{
my ($txt) = shift -> MM::top_targets (@_) ;
$txt =~ s/config\s+pm_to_blib\s+subdirs\s+linkext/\$(O_FILES) subdirs/ ;
return $txt ;
}
sub MY::cflags
{
my $self = shift ;
my $txt = $self -> MM::cflags (@_) ;
if ($mp2cfg)
{ # with Apache 2, make sure we have the same defines as mod_perl
$txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ;
$txt =~ /CCFLAGS\s*=(.*?)\n/s ;
my $flags = $mp2cfg->{MODPERL_CCOPTS} || $1 ;
$txt =~ s/CCFLAGS\s*=(.*?)\n/CCFLAGS = $ccdebug $flags $addcflags\n/s ;
}
else
{
$txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ;
$txt =~ s/CCFLAGS\s*=/CCFLAGS = $ccdebug $addcflags/ ;
}
return $txt ;
}
] ;
return $code ;
}
|
