Importing SDLPerl 2.2

BUGS

@@ -0,0 +1,12 @@
+BUGS and Outstanding Issues 
+
+
+Using SDL::TTFont::width function with UTF-8 encoded strings returns 
+the width of the characters that make up the UTF-8 format and not what 
+they represent.  The function for this appears to exist in SDL.xs: 
+
+AV* TTFSizeUTF8 ( font, text )
+
+However, this function crashes immediately when called with a valid 
+font and [utf-8 encoded] string.
+

Build

@@ -0,0 +1,39 @@
+#! /usr/env/bin perl
+
+use strict;
+use Cwd;
+use File::Spec;
+
+BEGIN {
+  $^W = 1;  # Use warnings
+  my $curdir = File::Spec->canonpath( Cwd::cwd() );
+  my $is_same_dir = $^O eq 'MSWin32' ? (Win32::GetShortPathName($curdir) eq '/Users/dave/sdlperl')
+                                       : ($curdir eq '/Users/dave/sdlperl');
+  unless ($is_same_dir) {
+    die ('This script must be run from /Users/dave/sdlperl, not '.$curdir."\n".
+	 "Please re-run the Build.PL script here.\n");
+  }
+  unshift @INC,
+    (
+     '/Users/dave/sdlperl/make/lib'
+    );
+}
+
+use SDL::Build;
+
+# Some platforms have problems setting $^X in shebang contexts, fix it up here
+$^X = Module::Build->find_perl_interpreter
+  unless File::Spec->file_name_is_absolute($^X);
+
+if (-e 'Build.PL' and not SDL::Build->up_to_date("Build.PL", $0)) {
+   warn "Warning: Build.PL has been altered.  You may need to run 'perl Build.PL' again.\n";
+}
+
+# This should have just enough arguments to be able to bootstrap the rest.
+my $build = SDL::Build->resume (
+  properties => {
+    config_dir => '/Users/dave/sdlperl/_build',
+  },
+);
+
+$build->dispatch;

Build.PL

@@ -0,0 +1,195 @@
+#!/usr/bin/env perl
+#
+# 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
+#
+
+
+use strict;
+
+use lib  'make/lib';
+
+use SDL::Build;
+use YAML;
+
+my $sdl_compile_flags = `sdl-config --cflags`;
+my $sdl_link_flags    = `sdl-config --libs`;
+
+if ($? >> 8)
+{
+	die "SDL doesn't appear to be installed.\n" .
+		"Please check that sdl-config is in your path and try again.\n";
+}
+
+chomp( $sdl_compile_flags );
+chomp( $sdl_link_flags );
+
+# subsystem to build
+#	file
+#		location of source file => location of build file to get name right
+#	libraries
+#		name of shared library (soname)
+#			preprocessor definition
+#			name of header file
+my %subsystems =
+(
+	SDL => {
+		file      => {
+			from  => 'src/SDL.xs',
+			to    => 'src/SDL_perl.xs',
+		},
+		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   => 'src/SDL/OpenGL.xs', 
+		},
+		libraries => [qw( SDL GL GLU )],
+	},
+	SFont => {
+		file	=> {
+			from => 'src/SFont.xs',
+			to   =>	'src/SDL/SFont.xs',
+		},
+		libraries => [qw( SDL SDL_image )],
+	},	
+);
+
+my %libraries = (
+	SDL         => {
+		define => 'HAVE_SDL', 
+		header => 'SDL.h',
+	},
+	SDL_image   => {
+		define => 'HAVE_SDL_IMAGE',   
+		header => 'SDL_image.h'
+	},
+	SDL_mixer   => {
+		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'
+	},
+	SDL_ttf     => {
+		define => 'HAVE_SDL_TTF',     
+		header => 'SDL_ttf.h'
+	},
+	SDL_gfx     => {
+		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',
+	},
+	jpeg        => {	
+		define    => 'HAVE_JPEG',
+		header    => 'jpeglib.h',
+	},
+	smpeg       => {
+		define    => 'HAVE_SMPEG',
+		header    => 'smpeg.h',
+	},
+	GL          => {
+		define => 'HAVE_GL',  
+		header => 'gl.h'
+	},
+	GLU         => {
+		define => 'HAVE_GLU', 
+		header => 'glu.h'
+	},
+);
+
+# need the platform-specific module to find include paths correctly
+# 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 );
+
+# now write SDL::Config
+$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 $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',
+	dist_version_from    => 'lib/SDL.pm',
+	build_requires       =>
+	{
+		'Test::Simple' => '0.47',
+		'Module::Build' => '0.22',
+	},
+	build_recommends     =>
+	{
+		'Pod::ToDemo'  => '0.20',
+	},
+	c_source => $c_source,
+	c_sources => $c_sources,
+	xs_files             => \%xs,
+	dist_author	     => 'David J. Goehrig <DGOEHRIG@cpan.org>',
+	install_base => $install_base
+);
+
+# and here's where the real (and ugly) magic works... see SDL::Build
+$build->set_flags(
+	\%subsystems,
+	$build_systems,
+	$defines,
+	$includes,
+	$links,
+	$sdl_compile_flags,
+	$sdl_link_flags,
+);
+
+# now we're ready to go!
+$build->create_build_script();