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
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/env perl
package My::Builder::Darwin;
use strict;
use warnings;
use Alien::SDL;
use File::Find qw(find);
use Data::Dumper;
use Cwd;
use Config;
use File::Copy;
use File::Spec;
use base 'My::Builder';
sub special_build_settings {
my $self = shift;
$self->{c_source} = [ 'src', 'main.c' ];
$self->{c_sources} = 'MacOSX';
$self->{install_base} = "SDLPerl.app/Contents/Resources";
}
sub build_bundle {
my $self = shift;
system "mkdir -p blib/script";
my $Perl = ( $ENV{'FULLPERL'} or $^X or 'perl' );
my $cflags =
`$Perl -MExtUtils::Embed -e ccopts` . ' ' . Alien::SDL->config('cflags');
my $libs =
`$Perl -MExtUtils::Embed -e ldopts` . ' '
. Alien::SDL->config('libs')
. ' -lSDLmain';
my $arch = '';
my $sdl_lib = '';
$sdl_lib =
Alien::SDL->config('ld_shlib_map')
&& Alien::SDL->config('ld_shlib_map')->{SDL}
? Alien::SDL->config('ld_shlib_map')->{SDL}
: _find_SDL_lib();
$arch = $1 if $sdl_lib && `lipo -info $sdl_lib` =~ m/\s(\w+)s*$/;
$arch = $ENV{SDL_ARCH} if $ENV{SDL_ARCH};
if ($arch) {
$cflags =~ s/\b-arch \w+\s//g;
$libs =~ s/\b-arch \w+\s//g;
$arch = "-arch $arch";
}
my $cmd =
"gcc $arch -o \"blib/script/SDLPerl\" MacOSX/main.c $cflags $libs";
$cmd =~ s/\s+/ /g;
unless(-e 'blib/script/SDLPerl') {
print STDERR $cmd . "\n";
system($cmd);
}
}
sub ACTION_test {
my $self = shift;
$self->depends_on('build');
$self->build_bundle() if !( -e 'blib/script/SDLPerl' );
if( $ENV{SDL_RELEASE_TESTING} ) {
if ( $ENV{SDL_PERL_TEST} ) {
$self->Module::Build::ACTION_test;
$ENV{SDL_PERL_TEST} = 0; #unset it again
}
else {
my $cmd = 'blib/script/SDLPerl Build test';
$ENV{SDL_PERL_TEST} = 1;
system( split ' ', $cmd );
die 'Errors in Testing. Can\'t continue' if $?;
}
}
else {
$self->Module::Build::ACTION_test;
}
}
sub _find_SDL_lib {
my $inc_lib_candidates = {
'/usr/local/include' => '/usr/local/lib',
'/usr/include' => '/usr/lib',
'/usr/X11R6/include' => '/usr/X11R6/lib',
};
if ( -e '/usr/lib64' && $Config{'myarchname'} =~ /64/ ) {
$inc_lib_candidates->{'/usr/include'} = '/usr/lib64';
}
if ( exists $ENV{SDL_LIB} && exists $ENV{SDL_INC} ) {
$inc_lib_candidates->{ $ENV{SDL_INC} } = $ENV{SDL_LIB};
}
foreach ( keys %$inc_lib_candidates ) {
my $ld = $inc_lib_candidates->{$_};
next unless -d $ld;
my ($found_lib) = _find_file( $ld,
qr/[\/\\]lib\QSDLmain\E[\-\d\.]*\.(so|dylib|bundle[\d\.]*|a|dll.a)$/
);
return $found_lib if $found_lib;
}
return 0;
}
sub _find_file {
my ( $dir, $re ) = @_;
my @files;
$re ||= qr/.*/;
{
#hide warning "Can't opendir(...): Permission denied - fix for http://rt.cpan.org/Public/Bug/Display.html?id=57232
no warnings;
find(
{
wanted => sub { push @files, File::Spec->rel2abs($_) if /$re/ },
follow => 1,
no_chdir => 1,
follow_skip => 2
},
$dir
);
};
return @files;
}
1;
|
