Permalink
Browse files

Importing SDLPerl 2.2

  • Loading branch information...
cthulhuology committed Jul 12, 2009
0 parents commit bfd90409c307d445ed6fec5cce6344b1e3d1be05
Showing with 64,132 additions and 0 deletions.
  1. +12 −0 BUGS
  2. +39 −0 Build
  3. +195 −0 Build.PL
  4. +489 −0 CHANGELOG
  5. +437 −0 COPYING
  6. +114 −0 MANIFEST
  7. +73 −0 META.yml
  8. +51 −0 MacOSX/Info.plist
  9. BIN MacOSX/SDL Perl.icns
  10. +12 −0 MacOSX/launcher.h
  11. +198 −0 MacOSX/launcher.m
  12. +72 −0 README
  13. +10 −0 TODO
  14. +1,035 −0 lib/SDL.pm
  15. +368 −0 lib/SDL/App.pm
  16. +231 −0 lib/SDL/Cdrom.pm
  17. +153 −0 lib/SDL/Color.pm
  18. +41 −0 lib/SDL/Config.pm
  19. +586 −0 lib/SDL/Constants.pm
  20. +131 −0 lib/SDL/Cursor.pm
  21. +319 −0 lib/SDL/Event.pm
  22. +94 −0 lib/SDL/Font.pm
  23. +175 −0 lib/SDL/MPEG.pm
  24. +417 −0 lib/SDL/Mixer.pm
  25. +78 −0 lib/SDL/Music.pm
  26. +123 −0 lib/SDL/OpenGL.pm
  27. +3,172 −0 lib/SDL/OpenGL/Constants.pm
  28. +162 −0 lib/SDL/Palette.pm
  29. +135 −0 lib/SDL/Rect.pm
  30. +78 −0 lib/SDL/SFont.pm
  31. +89 −0 lib/SDL/Sound.pm
  32. +556 −0 lib/SDL/Surface.pm
  33. +205 −0 lib/SDL/TTFont.pm
  34. +112 −0 lib/SDL/Timer.pm
  35. +113 −0 lib/SDL/Tool/Font.pm
  36. +167 −0 lib/SDL/Tool/Graphic.pm
  37. +158 −0 lib/SDL/Tutorial.pm
  38. +2 −0 lib/SDL/Tutorial/.svn/README.txt
  39. +5 −0 lib/SDL/Tutorial/.svn/dir-wcprops
  40. 0 lib/SDL/Tutorial/.svn/empty-file
  41. +36 −0 lib/SDL/Tutorial/.svn/entries
  42. +1 −0 lib/SDL/Tutorial/.svn/format
  43. +1 −0 lib/SDL/Tutorial/.svn/prop-base/Animation.pm.svn-base
  44. +1 −0 lib/SDL/Tutorial/.svn/prop-base/Drawing.pm.svn-base
  45. +1 −0 lib/SDL/Tutorial/.svn/prop-base/Images.pm.svn-base
  46. +1 −0 lib/SDL/Tutorial/.svn/props/Animation.pm.svn-work
  47. +1 −0 lib/SDL/Tutorial/.svn/props/Drawing.pm.svn-work
  48. +1 −0 lib/SDL/Tutorial/.svn/props/Images.pm.svn-work
  49. +282 −0 lib/SDL/Tutorial/.svn/text-base/Animation.pm.svn-base
  50. +221 −0 lib/SDL/Tutorial/.svn/text-base/Drawing.pm.svn-base
  51. +492 −0 lib/SDL/Tutorial/.svn/text-base/Images.pm.svn-base
  52. +5 −0 lib/SDL/Tutorial/.svn/wcprops/Animation.pm.svn-work
  53. +5 −0 lib/SDL/Tutorial/.svn/wcprops/Drawing.pm.svn-work
  54. +5 −0 lib/SDL/Tutorial/.svn/wcprops/Images.pm.svn-work
  55. +282 −0 lib/SDL/Tutorial/Animation.pm
  56. +221 −0 lib/SDL/Tutorial/Drawing.pm
  57. +492 −0 lib/SDL/Tutorial/Images.pm
  58. +240 −0 lib/SDL/Video.pm
  59. +39 −0 lib/SDL_perl.pm
  60. BIN logo/sdl_perl_logo_large.png
  61. BIN logo/sdl_perl_logo_small.png
  62. +267 −0 make/lib/SDL/Build.pm
  63. +74 −0 make/lib/SDL/Build/Cygwin.pm
  64. +95 −0 make/lib/SDL/Build/Darwin.pm
  65. +59 −0 make/lib/SDL/Build/Freebsd.pm
  66. +56 −0 make/lib/SDL/Build/Linux.pm
  67. +149 −0 make/lib/SDL/Build/MSWin32.pm
  68. +60 −0 make/lib/SDL/Build/Netbsd.pm
  69. +2,732 −0 src/OpenGL.xs
  70. +4,536 −0 src/SDL.xs
  71. 0 src/SDL/OpenGL.bs
  72. +4,851 −0 src/SDL/OpenGL.c
  73. BIN src/SDL/OpenGL.o
  74. +2,732 −0 src/SDL/OpenGL.xs
  75. 0 src/SDL/SFont.bs
  76. +382 −0 src/SDL/SFont.c
  77. BIN src/SDL/SFont.o
  78. +308 −0 src/SDL/SFont.xs
  79. 0 src/SDL_perl.bs
  80. +9,408 −0 src/SDL_perl.c
  81. BIN src/SDL_perl.o
  82. +4,536 −0 src/SDL_perl.xs
  83. +79 −0 src/SFont.h
  84. +308 −0 src/SFont.xs
  85. +49 −0 src/defines.h
  86. +3 −0 src/support/darwin_support.h
  87. +60 −0 src/support/darwin_support.m
  88. +8 −0 src/support/win32.c
  89. +58 −0 t/apppm.t
  90. +59 −0 t/cdrompm.t
  91. +66 −0 t/colorpm.t
  92. +52 −0 t/cursorpm.t
  93. +74 −0 t/eventpm.t
  94. +53 −0 t/fontpm.t
  95. +93 −0 t/mixerpm.t
  96. +66 −0 t/mpegpm.t
  97. +51 −0 t/musicpm.t
  98. +93 −0 t/opengl.t
  99. +53 −0 t/palettepm.t
  100. +73 −0 t/rectpm.t
  101. +56 −0 t/sdlpm.t
  102. +51 −0 t/soundpm.t
  103. +113 −0 t/surfacepm.t
  104. +62 −0 t/timerpm.t
  105. +62 −0 t/toolfontpm.t
  106. +57 −0 t/toolgraphicpm.t
  107. +70 −0 t/ttfontpm.t
  108. +73 −0 t/videopm.t
  109. +9 −0 test/64encode.pl
  110. BIN test/OpenGL/.DS_Store
  111. +37 −0 test/OpenGL/README
  112. +122 −0 test/OpenGL/test1.sdlpl
  113. +181 −0 test/OpenGL/test2.sdlpl
  114. +89 −0 test/OpenGL/test3.sdlpl
  115. +144 −0 test/OpenGL/test4.sdlpl
  116. +159 −0 test/OpenGL/test5.sdlpl
  117. BIN test/OpenGL/tutorial/.DS_Store
  118. +156 −0 test/OpenGL/tutorial/lesson02.sdlpl
  119. +161 −0 test/OpenGL/tutorial/lesson03.sdlpl
  120. +179 −0 test/OpenGL/tutorial/lesson04.sdlpl
  121. +242 −0 test/OpenGL/tutorial/lesson05.sdlpl
  122. +2,563 −0 test/OpenGL/tutorial/lesson06.sdlpl
  123. +2,556 −0 test/OpenGL/tutorial/lesson07.sdlpl
  124. +1,281 −0 test/OpenGL/tutorial/lesson08.sdlpl
  125. +28 −0 test/README
  126. +104 −0 test/checkkeys.sdlpl
  127. +76 −0 test/graywin.sdlpl
  128. +6,494 −0 test/loopwave.sdlpl
  129. +92 −0 test/testcolor.sdlpl
  130. +2,168 −0 test/testfonttool.sdlpl
  131. +275 −0 test/testgfxprim.sdlpl
  132. +396 −0 test/testgfxroto.sdlpl
  133. +216 −0 test/testgraphictool.sdlpl
  134. +240 −0 test/testjoystick.sdlpl
  135. +994 −0 test/testmenu.sdlpl
  136. +222 −0 test/testsprite.sdlpl
  137. +58 −0 test/testtimer.sdlpl
  138. +69 −0 typemap
12 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.
+
39 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;
195 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();
Oops, something went wrong.

0 comments on commit bfd9040

Please sign in to comment.