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
|
package Embperl::ParseSource;
use strict;
use Config ();
use vars qw{@ISA $VERSION $MMARGS} ;
use ExtUtils::XSBuilder::ParseSource ;
use FindBin ;
@ISA = ('ExtUtils::XSBuilder::ParseSource') ;
$VERSION = '2.0.0';
# ============================================================================
sub include_paths {
my $self = shift;
local $MMARGS ;
if (-f 'WrapXS/mmargs.pl')
{
do 'WrapXS/mmargs.pl' ;
die $@ if ($@) ;
}
$MMARGS ||= {} ;
my @inc = split (/\s+/, $MMARGS -> {INC}) ;
@inc = map { /-I(.*?)$/; $1 } @inc ;
push @inc, "$FindBin::Bin/.." ;
return \@inc ;
}
# ============================================================================
sub find_includes {
my $self = shift;
return $self->{includes} if $self->{includes};
my @includes = ("$FindBin::Bin/../epdat2.h", "$FindBin::Bin/../eppublic.h", "$FindBin::Bin/../eptypes.h", ) ;
return $self->{includes} = $self -> sort_includes (\@includes) ;
}
# ============================================================================
sub package { 'Embperl' }
# ============================================================================
sub targetdir { "$FindBin::Bin/tables" }
# ============================================================================
sub preprocess {
my $self = shift ;
$_[0] =~ s/pTHX_?//g ;
}
1;
__END__
|
