Alien-SDL
view release on metacpan or search on metacpan
inc/My/Utility.pm view on Meta::CPAN
package My::Utility;
use strict;
use warnings;
use base qw(Exporter);
our @EXPORT_OK = qw(check_config_script check_prebuilt_binaries check_prereqs_libs check_prereqs_tools find_SDL_dir find_file check_header
sed_inplace get_dlext $inc_lib_candidates $source_packs check_perl_buildlibs);
use Config;
use ExtUtils::CBuilder;
use File::Spec::Functions qw(splitdir catdir splitpath catpath rel2abs);
use File::Find qw(find);
use File::Which;
use File::Copy qw(cp);
use Cwd qw(realpath);
our $cc = $Config{cc};
our $inc_lib_candidates = {
'/usr/local/include' => '/usr/local/lib',
'/usr/include' => '/usr/lib',
'/usr/X11R6/include' => '/usr/X11R6/lib',
'/usr/local/include/smpeg' => '/usr/local/lib',
};
$inc_lib_candidates->{'/usr/pkg/include/smpeg'} = '/usr/local/lib' if -f '/usr/pkg/include/smpeg/smpeg.h';
$inc_lib_candidates->{'/usr/include/smpeg'} = '/usr/lib' if -f '/usr/include/smpeg/smpeg.h';
$inc_lib_candidates->{'/usr/X11R6/include'} = '/usr/X11R6/lib' if -f '/usr/X11R6/include/GL/gl.h';
$inc_lib_candidates->{'/usr/X11R7/include'} = '/usr/X11R7/lib' if -f '/usr/X11R7/include/GL/gl.h';
$inc_lib_candidates->{'/usr/X11R7/include'} = '/usr/X11R7/lib' if -f '/usr/X11R7/include/freetype2/freetype/freetype.h';
$inc_lib_candidates->{'/usr/X11R7/include'} = '/usr/X11R7/lib' if -f '/usr/X11R7/include/fontconfig/fontconfig.h';
$inc_lib_candidates->{'/usr/include/ogg'} = '/usr/lib/x86_64-linux-gnu' if -f '/usr/lib/x86_64-linux-gnu/libogg.so';
$inc_lib_candidates->{'/usr/include/vorbis'} = '/usr/lib/x86_64-linux-gnu' if -f '/usr/lib/x86_64-linux-gnu/libvorbis.so';
$inc_lib_candidates->{'/usr/include'} = '/usr/lib64' if -e '/usr/lib64' && $Config{'myarchname'} =~ /64/;
$inc_lib_candidates->{$ENV{SDL_INC}} = $ENV{SDL_LIB} if exists $ENV{SDL_LIB} && exists $ENV{SDL_INC};
#### packs with prebuilt binaries
# - all regexps has to match: arch_re ~ $Config{archname}, cc_re ~ $Config{cc}, os_re ~ $^O
# - the order matters, we offer binaries to user in the same order (1st = preffered)
my $prebuilt_binaries = [
{
title => "Binaries Win/32bit SDL-1.2.14 (extended, 20100704) RECOMMENDED\n" .
"\t(gfx, image, mixer, net, smpeg, ttf, sound, svg, rtf, Pango)",
url => [
'http://strawberryperl.com/package/kmx/sdl/Win32_SDL-1.2.14-extended-bin_20100704.zip',
'http://froggs.de/libsdl/Win32_SDL-1.2.14-extended-bin_20100704.zip',
],
sha1sum => '98409ddeb649024a9cc1ab8ccb2ca7e8fe804fd8',
arch_re => qr/^MSWin32-x86-multi-thread(-64int)?$/,
os_re => qr/^MSWin32$/,
cc_re => qr/gcc/,
},
{
title => "Binaries Win/32bit SDL-1.2.14 (extended, 20111205)\n" .
"\t(gfx, image, mixer, net, smpeg, ttf, sound, svg, rtf, Pango)",
url => [
'http://strawberryperl.com/package/kmx/sdl/Win32_SDL-1.2.14-extended-bin_20111205.zip',
'http://froggs.de/libsdl/Win32_SDL-1.2.14-extended-bin_20111205.zip',
],
sha1sum => '553b7e21bb650d047ec9f2a5f650c67d76430e61',
arch_re => qr/^MSWin32-x86-multi-thread(-64int)?$/,
os_re => qr/^MSWin32$/,
cc_re => qr/gcc/,
},
{
title => "Binaries Win/64bit SDL-1.2.14 (extended, 20100824)\n" .
"\t(gfx, image, mixer, net, smpeg, ttf, sound, svg, rtf, Pango)\n" .
"\tBEWARE: binaries are using old ABI - will fail with the latest gcc\n" .
"\tBEWARE: this is intended just for old strawberryperl 5.12.x/64bit",
url => [
'http://strawberryperl.com/package/kmx/sdl/Win64_SDL-1.2.14-extended-bin_20100824.zip',
'http://froggs.de/libsdl/Win64_SDL-1.2.14-extended-bin_20100824.zip',
],
sha1sum => 'ccffb7218bcb17544ab00c8a1ae383422fe9586d',
arch_re => qr/^MSWin32-x64-multi-thread$/,
os_re => qr/^MSWin32$/,
cc_re => qr/gcc/,
gccversion_re => qr/^4\.4\.3$/, #specific to the old gcc compiler used in 64bit strawberryperl 5.12.x
},
{
title => "Binaries Win/64bit SDL-1.2.14 (extended, 20111205) RECOMMENDED\n" .
"\t(gfx, image, mixer, net, smpeg, ttf, sound, svg, rtf, Pango)",
url => [
'http://strawberryperl.com/package/kmx/sdl/Win64_SDL-1.2.14-extended-bin_20111205.zip',
'http://froggs.de/libsdl/Win64_SDL-1.2.14-extended-bin_20111205.zip',
],
sha1sum => '35f3b496ca443a9d14eff77e9e26acfa813afafd',
arch_re => qr/^MSWin32-x64-multi-thread$/,
os_re => qr/^MSWin32$/,
cc_re => qr/gcc/,
gccversion_re => qr/^4\.(4\.[5-9]|[5-9]\.[0-9])$/,
inc/My/Utility.pm view on Meta::CPAN
],
sha1sum => 'a20fa96470ad9e1052f1957b77ffa68fb090b384',
patches => [
'SDL_mixer-1.2.12-native-midi-win32.patch',
],
prereqs => {
libs => [
'ogg', 'vorbis',
]
},
},
{
pack => 'SDL_ttf',
version => '2.0.11',
dirname => 'SDL_ttf-2.0.11',
url => [
'http://www.libsdl.org/projects/SDL_ttf/release/SDL_ttf-2.0.11.tar.gz',
'http://froggs.de/libsdl/SDL_ttf-2.0.11.tar.gz',
],
sha1sum => '0ccf7c70e26b7801d83f4847766e09f09db15cc6',
patches => [ ],
prereqs => {
libs => [
'freetype', # SDL_ttf
]
},
},
{
pack => 'SDL_gfx',
version => '2.0.25',
dirname => 'SDL_gfx-2.0.25',
url => [
'http://froggs.de/libsdl/SDL_gfx-2.0.25.tar.gz',
'http://www.ferzkopp.net/Software/SDL_gfx-2.0/SDL_gfx-2.0.25.tar.gz',
],
sha1sum => '20a89d0b71b7b790b830c70f17ed2c44100bc0f4',
patches => [ ],
prereqs => {
libs => [ ]
}
},
{
pack => 'SDL_Pango',
version => '1.2',
dirname => 'SDL_Pango-0.1.2',
url => [
'http://downloads.sourceforge.net/sdlpango/SDL_Pango-0.1.2.tar.gz',
'http://froggs.de/libsdl/SDL_Pango-0.1.2.tar.gz',
],
sha1sum => 'c30f2941d476d9362850a150d29cb4a93730af68',
patches => [
'SDL_Pango-0.1.2-API-adds.1.patch',
'SDL_Pango-0.1.2-API-adds.2.patch',
'SDL_Pango-0.1.2-config-tools.1.patch',
'SDL_Pango-0.1.2-config-tools.2.patch',
'SDL_Pango-0.1.2-config-tools.3.patch',
'SDL_Pango-0.1.2-include-ft2build.h.patch',
],
prereqs => {
libs => [
'pangoft2', 'pango', 'gobject', 'gmodule', 'glib', 'fontconfig', 'freetype', 'expat', # SDL_Pango
]
}
},
],
},
];
sub check_config_script {
my $script = shift || 'sdl-config';
print "checking for config script... ";
my $devnull = File::Spec->devnull();
my $version = `$script --version 2>$devnull`;
if($? >> 8) {
print "no\n";
return;
}
my $prefix = `$script --prefix 2>$devnull`;
if($? >> 8) {
print "no\n";
return;
}
$version =~ s/[\r\n]+$//;
$prefix =~ s/[\r\n]+$//;
print "yes, $script\n";
#returning HASHREF
return {
title => "Already installed SDL ver=$version path=$prefix",
buildtype => 'use_config_script',
script => $script,
prefix => $prefix,
};
}
sub check_prebuilt_binaries
{
print "checking for prebuilt binaries... ";
# print "(os=$^O cc=$cc archname=$Config{archname})\n";
my @good = ();
foreach my $b (@{$prebuilt_binaries}) {
if ( ($^O =~ $b->{os_re}) &&
($Config{archname} =~ $b->{arch_re}) &&
($cc =~ $b->{cc_re}) &&
(!defined $b->{gccversion_re} || $Config{gccversion} =~ $b->{gccversion_re})
) {
$b->{buildtype} = 'use_prebuilt_binaries';
push @good, $b;
}
}
scalar(@good)
? print "yes, " . scalar(@good) . " option(s)\n"
: print "no\n";
#returning ARRAY of HASHREFs (sometimes more than one value)
return \@good;
}
sub check_prereqs_libs {
my @libs = @_;
my $ret = 1;
foreach my $lib (@libs) {
( run in 1.098 second using v1.01-cache-2.11-cpan-5735350b133 )