-#!/usr/bin/env perl
+#! perl -w
#
-# Build.PL
-#
-# Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
-#
-# ------------------------------------------------------------------------------
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Lesser General Public
-# License as published by the Free Software Foundation; either
-# version 2.1 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Lesser General Public License for more details.
-#
-# You should have received a copy of the GNU Lesser General Public
-# License along with this library; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-#
-# ------------------------------------------------------------------------------
-#
-# Please feel free to send questions, suggestions or improvements to:
-#
-# David J. Goehrig
-# dgoehrig@cpan.org
-#
-
+# Copyright (C) 2003 chromatic
+# Copyright (C) 2004 David J. Goehrig
+# Copyright (C) 2009 Kartik Thakore
use strict;
use warnings;
use SDL::Build;
use YAML;
+use YAML::Node;
my $sdl_compile_flags = `sdl-config --cflags`;
my $sdl_link_flags = `sdl-config --libs`;
if ($? >> 8)
{
croak "SDL doesn't appear to be installed.\n" .
- "Please check that sdl-config is in your path and try again.\n";
+ "Please check that sdl-config is in your path and try again.\n";
}
chomp( $sdl_compile_flags );
SDL => {
file => {
from => 'src/SDL.xs',
- to => 'src/SDL_perl.xs',
+ to => './SDL_perl.xs',
},
- libraries => [qw( SDL SDL_image SDL_mixer SDL_sound SDL_net SDL_ttf
- SDL_gfx SDL_svg png jpeg smpeg )],
+ libraries => [qw( SDL SDL_image SDL_mixer SDL_net SDL_ttf SDL_gfx
+ png jpeg smpeg )],
},
OpenGL => {
file => {
from => 'src/OpenGL.xs',
- to => 'src/SDL/OpenGL.xs',
+ to => 'SDL/OpenGL.xs',
},
libraries => [qw( SDL GL GLU )],
},
SFont => {
file => {
from => 'src/SFont.xs',
- to => 'src/SDL/SFont.xs',
+ to => 'SDL/SFont.xs',
},
libraries => [qw( SDL SDL_image )],
},
define => 'HAVE_SDL_MIXER',
header => 'SDL_mixer.h'
},
- SDL_sound => {
- define => 'HAVE_SDL_SOUND',
- header => 'SDL_sound.h'
- },
SDL_net => {
define => 'HAVE_SDL_NET',
header => 'SDL_net.h'
define => 'HAVE_SDL_GFX',
header => 'SDL_gfxPrimitives.h'
},
- SDL_svg => {
- define => 'HAVE_SDL_SVG',
- header => 'SDL_svg.h'
- },
png => {
define => 'HAVE_PNG',
header => 'png.h',
# see build/lib/SDL/Build/*pm
my $arch = SDL::Build->get_arch( $^O );
-print "[Build.PL] arch $arch\n";
-
# see which subsystems can be built -- do we have headers for them?
my $build_systems = $arch->find_subsystems( \%subsystems, \%libraries );
$arch->write_sdl_config( $build_systems );
# and fetch all of the information needed to compile
-my $defines = $arch->build_defines( \%libraries, $build_systems );
-my $includes = $arch->build_includes( \%libraries, $build_systems );
-my $links = $arch->build_links( \%libraries, $build_systems );
+my $defines = $arch->build_defines( \%libraries, $build_systems );
+my $includes = $arch->build_includes( \%libraries, $build_systems );
+my $links = $arch->build_links( \%libraries, $build_systems );
# mangle the compilable files into a format Module::Build can understand
my %xs = map { $subsystems{$_}{file}{from} => $subsystems{$_}{file}{to} }
-keys %subsystems;
-
+ keys %subsystems;
my $build = SDL::Build->new(
+ module_name => 'SDL',
dist_name => 'SDL_Perl',
license => 'lgpl',
dist_version_from => 'lib/SDL.pm',
{
'Pod::ToDemo' => '0.20',
},
- c_source => 'src',
+ c_source => 'src',
xs_files => \%xs,
dist_author => 'David J. Goehrig <DGOEHRIG@cpan.org>',
);
-if($arch eq 'Darwin')
-{
- $build->{c_source} = $arch->build_c_source( \%libraries, $build_systems );
- $build->{c_sources} = $arch->build_c_sources( \%libraries, $build_systems );
- $build->{install_base} = $arch->build_install_base( \%libraries, $build_systems );
-
-}
+# and here's where the real (and ugly) magic works... see SDL::Build
$build->set_flags(
\%subsystems,
$build_systems,