blob: bb00feb4b9d185ad482e129405b76421599d9610 (
plain)
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
|
use ExtUtils::MakeMaker;
use File::Spec;
use Config;
my $object = 're_exec$(OBJ_EXT) re_comp$(OBJ_EXT) re$(OBJ_EXT)';
my $defines = '-DPERL_EXT_RE_BUILD -DPERL_EXT_RE_DEBUG -DPERL_EXT';
WriteMakefile(
NAME => 're',
VERSION_FROM => 're.pm',
XSPROTOARG => '-noprototypes',
OBJECT => $object,
DEFINE => $defines,
clean => { FILES => '*$(OBJ_EXT) *.c ../../lib/re.pm' },
);
package MY;
sub upupfile {
File::Spec->catfile(File::Spec->updir, File::Spec->updir, $_[0]);
}
sub postamble {
my $regcomp_c = upupfile('regcomp.c');
my $regexec_c = upupfile('regexec.c');
my $dquote_static_c = upupfile('dquote_static.c');
my $invlist_inline_h = upupfile('invlist_inline.h');
<<EOF;
re_comp.c : $regcomp_c
- \$(RM_F) re_comp.c
\$(CP) $regcomp_c re_comp.c
re_comp\$(OBJ_EXT) : re_comp.c dquote_static.c invlist_inline_h
re_exec.c : $regexec_c
- \$(RM_F) re_exec.c
\$(CP) $regexec_c re_exec.c
re_exec\$(OBJ_EXT) : re_exec.c invlist_inline_h
dquote_static.c : $dquote_static_c
- \$(RM_F) dquote_static.c
\$(CP) $dquote_static_c dquote_static.c
invlist_inline_h : $inline_invlist_c
- \$(RM_F) invlist_inline_h
\$(CP) $invlist_inline_h inline_invlist.c
EOF
}
sub MY::c_o {
my($self) = @_;
package MY; # so that "SUPER" works right
my $inh = $self->SUPER::c_o(@_);
use Config;
if ($Config{osname} eq 'aix' && $Config{ccversion} eq '5.0.1.0') {
# Known buggy optimizer.
my $cccmd = $self->const_cccmd;
$cccmd =~ s/^CCCMD\s*=\s*//;
$cccmd =~ s/\s\$\(OPTIMIZE\)\s/ /;
$inh .= qq{
re_comp\$\(OBJ_EXT\): re_comp.c
\t$cccmd \$(CCCDLFLAGS) -I\$(PERL_INC) \$(DEFINE) \$*.c
};
}
$inh;
}
|
