X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Build.PL;h=c841997948590b779f6a1d54dd706ff4c05aea05;hb=7b6a53a1f5064ca5b8ab0243f7bcf6209e6bf5a4;hp=2c005fc4eb3a4432350781408495f964731520e7;hpb=c84dba468e96512c1065247cd5f2e8f045d4476a;p=sdlgit%2FSDL_perl.git diff --git a/Build.PL b/Build.PL index 2c005fc..c841997 100644 --- a/Build.PL +++ b/Build.PL @@ -1,11 +1,37 @@ -#! perl -w +#!/usr/bin/env perl # -# Copyright (C) 2003 chromatic -# Copyright (C) 2004 David J. Goehrig +# Build.PL +# +# Copyright (C) 2005 David J. Goehrig +# +# ------------------------------------------------------------------------------ +# +# 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 # -use strict; +use strict; +use warnings; +use Carp; use lib 'make/lib'; use SDL::Build; @@ -16,7 +42,7 @@ my $sdl_link_flags = `sdl-config --libs`; if ($? >> 8) { - die "SDL doesn't appear to be installed.\n" . + croak "SDL doesn't appear to be installed.\n" . "Please check that sdl-config is in your path and try again.\n"; } @@ -35,22 +61,22 @@ my %subsystems = SDL => { file => { from => 'src/SDL.xs', - to => './SDL_perl.xs', + to => 'src/SDL_perl.xs', }, - libraries => [qw( SDL SDL_image SDL_mixer SDL_net SDL_ttf SDL_gfx - png jpeg smpeg )], + libraries => [qw( SDL SDL_image SDL_mixer SDL_sound SDL_net SDL_ttf + SDL_gfx SDL_svg png jpeg smpeg )], }, OpenGL => { file => { from => 'src/OpenGL.xs', - to => 'SDL/OpenGL.xs', + to => 'src/SDL/OpenGL.xs', }, libraries => [qw( SDL GL GLU )], }, SFont => { file => { from => 'src/SFont.xs', - to => 'SDL/SFont.xs', + to => 'src/SDL/SFont.xs', }, libraries => [qw( SDL SDL_image )], }, @@ -69,6 +95,10 @@ my %libraries = ( 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' @@ -81,6 +111,10 @@ my %libraries = ( 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', @@ -107,6 +141,8 @@ my %libraries = ( # 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 ); @@ -114,13 +150,17 @@ 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 ); +my $c_sources = $arch->build_c_sources( \%libraries, $build_systems ); +my $c_source = $arch->build_c_source( \%libraries, $build_systems ); +my $install_base = $arch->build_install_base( \%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; + my $build = SDL::Build->new( dist_name => 'SDL_Perl', license => 'lgpl', @@ -134,9 +174,11 @@ my $build = SDL::Build->new( { 'Pod::ToDemo' => '0.20', }, - c_source => 'src', + c_source => $c_source, + c_sources => $c_sources, xs_files => \%xs, dist_author => 'David J. Goehrig ', + install_base => $install_base ); # and here's where the real (and ugly) magic works... see SDL::Build