From: cthulhuology Date: Tue, 4 Aug 2009 15:08:59 +0000 (-0400) Subject: Adding 2.1.3 to 2.2.1 diff, this is so we can merge the two X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebd172fdb00a66438d37e6a07c6436fde151ed0b;p=sdlgit%2FSDL_perl.git Adding 2.1.3 to 2.2.1 diff, this is so we can merge the two Dave --- diff --git a/2.1.3 to 2.2.1.diff b/2.1.3 to 2.2.1.diff new file mode 100644 index 0000000..c57facb --- /dev/null +++ b/2.1.3 to 2.2.1.diff @@ -0,0 +1,4579 @@ +diff -r SDL_perl/Build.PL sdlperl/Build.PL +1c1 +< #! perl -w +--- +> #!/usr/bin/env perl +3,5c3,30 +< # Copyright (C) 2003 chromatic +< # Copyright (C) 2004 David J. Goehrig +< # Copyright (C) 2009 Kartik Thakore +--- +> # 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 +> # +> +13d37 +< use YAML::Node; +39c63 +< to => './SDL_perl.xs', +--- +> to => 'src/SDL_perl.xs', +41,42c65,66 +< 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 )], +47c71 +< to => 'SDL/OpenGL.xs', +--- +> to => 'src/SDL/OpenGL.xs', +54c78 +< to => 'SDL/SFont.xs', +--- +> to => 'src/SDL/SFont.xs', +72a97,100 +> SDL_sound => { +> define => 'HAVE_SDL_SOUND', +> header => 'SDL_sound.h' +> }, +84a113,116 +> SDL_svg => { +> define => 'HAVE_SDL_SVG', +> header => 'SDL_svg.h' +> }, +110a143,144 +> print "[Build.PL] arch $arch\n"; +> +118,120c152,157 +< 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 ); +124a162 +> +126d163 +< module_name => 'SDL', +139c176,177 +< c_source => 'src', +--- +> c_source => $c_source, +> c_sources => $c_sources, +141a180 +> install_base => $install_base +diff -r SDL_perl/CHANGELOG sdlperl/CHANGELOG +2,9d1 +< * Aug 2 2009 Kartik Thakore +< - Added patches +< - Verified and Tested patches +< - Clean bugs +< +< * Mar 3 2006 Tels 77 Tests +< - Color.pm: add rgb(), and make new($r,$g,$b) work for speed +< - add ColorRGB() to src/SDL.xs +11c3,24 +< * Oct 4 2004 David J. Goehrig +--- +> * Jul 8 2006 David J. Goehrig +> - finished embedding data in example scripts +> - fixed Mac OS X file associations +> +> * Mar 15 2006 David J. Goehrig +> - fixed OpenGL examples to work under MacOS X using the SDL Perl.app bundle +> +> * Oct 12 2005 David J. Goehrig +> - Fixed bug where SDL::App frees underlying Surface via DESTROY +> - Added SDL_svg support +> - cleaned up SDL_gfx support in SDL.xs +> - cleaned up smpeg support in SDL.xs +> - Added more SDL_sound support +> - Added basic SDL_RWops support (TODO - perl callback for user defined) +> +> * Oct 6 2005 David J. Goehrig +> - Changed constructors to die upon invalid initialization +> +> * Oct 5 2005 David J. Goehrig +> - Updated the copyright notices as per the LGPL guidelines +> +> * Oct 4 2005 David J. Goehrig +diff -r SDL_perl/META.yml sdlperl/META.yml +3c3 +< version: 2.1.3 +--- +> version: 2.2.0 +14c14 +< version: 2.1.3 +--- +> version: 2.2.0 +49,50d48 +< SDL::TTFont: +< file: lib/SDL/TTFont.pm +61,62d58 +< SDL::Tutorial::Drawing: +< file: lib/SDL/Tutorial/Drawing.pm +64a61,62 +> SDL::Tutorial:Drawing: +> file: lib/SDL/Tutorial/Drawing.pm +66a65,66 +> SDL:TTFont: +> file: lib/SDL/TTFont.pm +Only in sdlperl/: MacOSX +diff -r SDL_perl/README sdlperl/README +1c1 +< README for SDL_Perl-2.2 +--- +> README for SDL_Perl-2.2.0 +3,4c3 +< First step is to make SDL perl pass all tests in +< t/. +--- +> What's New in 2.2.0: +6c5,9 +< I will add these as a issue. +--- +> SDL_Perl-2.2.0 adds support for a few new modules, fixes a few more +> bugs, and improves the error handling of the object layer. Additional +> support for SDL_sound, SDL_svg, and SDL_vnc has been added. In the +> OO layer, all constructors now die when they fail to construct an object +> with a valid underlying datastructure pointer. +8,12c11 +< Simple Run: +< perl Build.PL +< perl Build +< perl Build test +< perl Build install +--- +> Prerequisites: +14c13,14 +< There are more test scripts in test/ +--- +> SDL Perl recommends installing the following libraries available +> from http://www.libsdl.org/ prior to installing: +16c16,71 +< Disclaimer: This might be moved to CPAN when I get access +--- +> SDL-1.2.8 +> smpeg-0.4.5 +> SDL_image-1.2.4 +> SDL_mixer-1.2.6 +> SDL_sound-1.0.1 +> SDL_net-1.2.5 +> SDL_gfx-2.0.13 +> SDL_ttf-2.0.7 +> SDL_svg-1.1.9 +> SDL_vnc-1.0.0 +> +> Additionally the following Perl modules should be installed: +> +> Module-Build-0.22 +> Test-Simple-0.62 +> +> Installation: +> +> perl Build.PL +> ./Build +> ./Build test +> ./Build install +> +> The build process will use the new Module::Build facility +> to autodetect and build SDL Perl for your platform. If +> the build fails please forward bugs to sdl-devel@perl.org. +> +> Documentation: +> +> Each module now includes its own documentation, and +> is accessible through perldoc. Additional tutorials, +> code, and tips can be found at the website: +> +> http://sdl.perl.org +> +> Online documentation and tutorials are available through +> perldoc module. +> +> Contributing: +> +> Anyone wishing to contribute modules, sprite engines, documentation, +> and anything else that others might find useful, please join +> the mailing list: +> +> sdl-devel@perl.org +> +> This is a mailing list for those interested in SDLperl development, +> both as an applications developer, and as a core contributor. +> +> I am always more than happy to take patches, bug reports, and +> helpful suggestions. It is feedback, both good and poor, that +> keeps projects like this going. +> +> Enjoy, +> +> David J. Goehrig +18,19d72 +< kthakore +< 1 August 2009 +diff -r SDL_perl/TODO sdlperl/TODO +3a4,8 +> o fix OpenGL build without glu.h +> o fix openFile: support on Mac (SDL patch) +> o add Windows application bundle support +> o add Linux application bundle support +> o add embedded media module +Only in sdlperl/: _build +Only in sdlperl/: blib +diff -r SDL_perl/lib/SDL/App.pm sdlperl/lib/SDL/App.pm +1c1 +< # App.pm +--- +> #!/usr/bin/env perl +3c3 +< # The application object, sort of like a surface +--- +> # App.pm +5,6c5 +< # Copyright (C) 2000,2002,2003,2004 David J. Goehrig +< # Copyright (C) 2009 Kartik Thakore +--- +> # Copyright (C) 2005 David J. Goehrig +7a7,30 +> # ------------------------------------------------------------------------------ +> # +> # 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 +> # +> +17a41,44 +> sub DESTROY { +> +> } +> +30c57 +< -asyncblit -init +--- +> -asyncblit +33,36c60 +< # SDL_INIT_VIDEO() is 0, so check defined instead of truth. +< my $init = defined $options{-init} ? $options{-init} : SDL_INIT_EVERYTHING(); +< +< SDL::Init($init); +--- +> SDL::Init(SDL::SDL_INIT_EVERYTHING()); +65c89 +< if ($f & SDL_OPENGL()) { +--- +> if ($f & SDL::SDL_OPENGL()) { +67,75c91,99 +< SDL::GLSetAttribute(SDL_GL_RED_SIZE(),$r) if ($r); +< SDL::GLSetAttribute(SDL_GL_GREEN_SIZE(),$g) if ($g); +< SDL::GLSetAttribute(SDL_GL_BLUE_SIZE(),$b) if ($b); +< SDL::GLSetAttribute(SDL_GL_ALPHA_SIZE(),$a) if ($a); +< +< SDL::GLSetAttribute(SDL_GL_RED_ACCUM_SIZE(),$ras) if ($ras); +< SDL::GLSetAttribute(SDL_GL_GREEN_ACCUM_SIZE(),$gas) if ($gas); +< SDL::GLSetAttribute(SDL_GL_BLUE_ACCUM_SIZE(),$bas) if ($bas); +< SDL::GLSetAttribute(SDL_GL_ALPHA_ACCUM_SIZE(),$aas) if ($aas); +--- +> SDL::GLSetAttribute(SDL::SDL_GL_RED_SIZE(),$r) if ($r); +> SDL::GLSetAttribute(SDL::SDL_GL_GREEN_SIZE(),$g) if ($g); +> SDL::GLSetAttribute(SDL::SDL_GL_BLUE_SIZE(),$b) if ($b); +> SDL::GLSetAttribute(SDL::SDL_GL_ALPHA_SIZE(),$a) if ($a); +> +> SDL::GLSetAttribute(SDL::SDL_GL_RED_ACCUM_SIZE(),$ras) if ($ras); +> SDL::GLSetAttribute(SDL::SDL_GL_GREEN_ACCUM_SIZE(),$gas) if ($gas); +> SDL::GLSetAttribute(SDL::SDL_GL_BLUE_ACCUM_SIZE(),$bas) if ($bas); +> SDL::GLSetAttribute(SDL::SDL_GL_ALPHA_ACCUM_SIZE(),$aas) if ($aas); +77,79c101,103 +< SDL::GLSetAttribute(SDL_GL_DOUBLEBUFFER(),$db) if ($db); +< SDL::GLSetAttribute(SDL_GL_BUFFER_SIZE(),$bs) if ($bs); +< SDL::GLSetAttribute(SDL_GL_DEPTH_SIZE(),$d); +--- +> SDL::GLSetAttribute(SDL::SDL_GL_DOUBLEBUFFER(),$db) if ($db); +> SDL::GLSetAttribute(SDL::SDL_GL_BUFFER_SIZE(),$bs) if ($bs); +> SDL::GLSetAttribute(SDL::SDL_GL_DEPTH_SIZE(),$d); +83,84c107,108 +< my $self = \SDL::SetVideoMode($w,$h,$d,$f); +< $$self +--- +> +> my $self = \SDL::SetVideoMode($w,$h,$d,$f) +103c127 +< $$self = SDL::SetVideoMode($w,$h,$bpp,$flags); +--- +> $self = \SDL::SetVideoMode($w,$h,$bpp,$flags); +diff -r SDL_perl/lib/SDL/Cdrom.pm sdlperl/lib/SDL/Cdrom.pm +1c1 +< # Cdrom.pm +--- +> #!/usr/bin/env perl +3c3 +< # a SDL cdrom manipluation module +--- +> # Cdrom.pm +5c5,28 +< # Copyright (C) 2000,2002 David J. Goehrig +--- +> # 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 +diff -r SDL_perl/lib/SDL/Color.pm sdlperl/lib/SDL/Color.pm +1c1 +< # Color.pm +--- +> #!/usr/bin/env perl +3c3,28 +< # A package for manipulating SDL_Color * +--- +> # Color.pm +> # +> # 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 +5d29 +< # Copyright (C) 2002,2003,2004 David J. Goehrig +15,18d38 +< +< # called like SDL::Color->new($red,$green,$blue); +< return bless \SDL::NewColor(@_), $class if (@_ == 3); +< +19a40 +> +39c60,61 +< bless $self, $class; +--- +> bless $self,$class; +> return $self; +61,65d82 +< sub rgb { +< my $self = shift; +< SDL::ColorRGB($$self,@_); +< } +< +72,78c89,95 +< $SDL::Color::black = SDL::Color->new(0,0,0); +< $SDL::Color::white = SDL::Color->new(255,255,255); +< $SDL::Color::red = SDL::Color->new(255,0,0); +< $SDL::Color::blue = SDL::Color->new(0,0,255); +< $SDL::Color::green = SDL::Color->new(0,255,0); +< $SDL::Color::purple = SDL::Color->new(255,0,255); +< $SDL::Color::yellow = SDL::Color->new(255,255,0); +--- +> $SDL::Color::black = new SDL::Color -r => 0, -g => 0, -b => 0; +> $SDL::Color::white = new SDL::Color -r => 255, -g => 255, -b => 255; +> $SDL::Color::red = new SDL::Color -r => 255, -g => 0, -b => 0; +> $SDL::Color::blue = new SDL::Color -r => 0, -g => 0, -b => 255; +> $SDL::Color::green = new SDL::Color -r => 0, -g => 255, -b => 0; +> $SDL::Color::purple = new SDL::Color -r => 255, -g => 0, -b => 255; +> $SDL::Color::yellow = new SDL::Color -r => 255, -g => 255, -b => 0; +92,93d108 +< $color = SDL::Color->new($red,$green,$blue); # fastest +< +101c116 +< representations. +--- +> representations, with the same interface as L. +108,112d122 +< =head2 new ($r, $g, $b) +< +< C with three color values will construct both a SDL_Color +< structure, and the associated object with the specified values. +< +130,136d139 +< =head2 rgb ( $red, $green, $blue ) +< +< C is an accessor method for the red, green, and blue components +< in one go. It will return a list of three values. +< +< The color value can be set by passing a byte value (0-255) for each color component. +< +146,147d148 +< Additions by Tels 2006. +< +150c151 +< L and L. +--- +> L L +Only in sdlperl/lib/SDL: Config.pm +diff -r SDL_perl/lib/SDL/Constants.pm sdlperl/lib/SDL/Constants.pm +1c1 +< # SDL::Constants +--- +> #!/usr/bin/env perl +3c3 +< # This is an automatically generated file, don't bother editing +--- +> # Constants.pm +5c5,28 +< # Copyright (C) 2003,2004 David J. Goehrig +--- +> # 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 +10,29d32 +< require Exporter; +< +< BEGIN { +< #supposedly this crap isn't thread safe +< #SelfLoader screws up and we can't be certain to read all DATA +< #if this isn't loaded prior to creating new threads. +< +< if (! $threads::threads) { +< +< use SelfLoader; +< #$SelfLoader::DEBUG=1; +< } +< }; +< +< use vars qw( +< @EXPORT +< @ISA +< ); +< +< @ISA=qw(Exporter); +63d65 +< MIX_CHANNEL_POST +296a299,305 +> SDL_SVG_FLAG_DIRECT +> SDL_SVG_FLAG_COMPOSITE +> SDL_SAMPLEFLAG_NONE +> SDL_SAMPLEFLAG_CANSEEK +> SDL_SAMPLEFLAG_EOF +> SDL_SAMPLEFLAG_ERROR +> SDL_SAMPLEFLAG_EAGAIN +298a308,311 +> for (@EXPORT) { +> *{"SDL::" . $_} = *{$_}; +> *{"main::" . $_} = *{$_}; +> } +300d312 +< __DATA__ +333d344 +< sub MIX_CHANNEL_POST {2} +566a578,584 +> sub SDL_SVG_FLAG_DIRECT {0} +> sub SDL_SVG_FLAG_COMPOSITE {1} +> sub SDL_SAMPLEFLAG_NONE {0} +> sub SDL_SAMPLEFLAG_CANSEEK {1} +> sub SDL_SAMPLEFLAG_EOF {1<<29} +> sub SDL_SAMPLEFLAG_ERROR {1<<30} +> sub SDL_SAMPLEFLAG_EAGAIN {1<<31} +567a586 +> 1; +diff -r SDL_perl/lib/SDL/Cursor.pm sdlperl/lib/SDL/Cursor.pm +0a1,2 +> #!/usr/bin/env perl +> # +3c5,28 +< # Copyright (C) 2000,2002 David J. Goehrig +--- +> # 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 +17a43 +> die SDL::GetError() unless $$self; +diff -r SDL_perl/lib/SDL/Event.pm sdlperl/lib/SDL/Event.pm +1c1 +< # Event.pm +--- +> #!/usr/bin/env perl +3c3 +< # A package for handling SDL_Event * +--- +> # Event.pm +5,7c5,28 +< # Copyright (C) 2000,2001,2002 David J. Goehrig +< # Copyright (C) 2009 Kartik Thakore +< # see the file COPYING for terms of use +--- +> # 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 +10a32 +> +45,50d66 +< sub peep($$$$) +< { +< my ($event, $numEvents, $action, $mask) = @_; +< return SDL::PeepEvents($$event, $numEvents, $action, $mask); +< } +< +231,232d246 +< Pumps the event loop, gathering events from the input devices. +< +235,249d248 +< Polls for currently pending events +< +< =head2 peep() +< +< Checks the event queue for messages and optionally returns them. +< +< If action is SDL_ADDEVENT, up to numevents events will be added to the back of the event queue. +< +< If action is SDL_PEEKEVENT, up to numevents events at the front of the event queue, matching mask, will be returned and will not be removed from the queue. +< +< If action is SDL_GETEVENT, up to numevents events at the front of the event queue, matching mask, will be returned and will be removed from the queue. +< +< The mask parameter is a bitwise OR of SDL_EVENTMASK(event_type), for all event types you are interested in +< +< +diff -r SDL_perl/lib/SDL/Font.pm sdlperl/lib/SDL/Font.pm +1c1 +< # Font.pm +--- +> #!/usr/bin/env perl +3c3 +< # a SDL perl extension for SFont support +--- +> # Font.pm +5c5,28 +< # Copyright (C) David J. Goehrig 2000,2002 +--- +> # 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 +8a32 +> +diff -r SDL_perl/lib/SDL/MPEG.pm sdlperl/lib/SDL/MPEG.pm +0a1 +> #!/usr/bin/env perl +2c3 +< # MPEG.pm +--- +> # MPEG.pm +4c5,28 +< # A package for manipulating MPEG video +--- +> # 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 +6d29 +< # Copyright (C) 2004 David J. Goehrig +diff -r SDL_perl/lib/SDL/Mixer.pm sdlperl/lib/SDL/Mixer.pm +1c1,28 +< # Mixer.pm +--- +> #!/usr/bin/env perl +> # +> # Mixer.pm +> # +> # 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 +3,6d29 +< # a SDL module for manipulating the SDL_mixer lib. +< # +< # Copyright (C) 2000,2002 David J. Goehrig +< # Copyright (C) 2009 Kartik Thakore +8a32 +> +127,132d150 +< sub mix_set_panning($$$$) { +< my ($self,$channel,$left,$right) = @_; +< return SDL::MixSetPanning($channel,$left,$right); +< } +< +< +212,216d229 +< sub mix_volume_chunk($$$) { +< my ($self, $chunk, $volume) = @_; +< return SDL::MixVolumeChunk($chunk, $volume); +< } +< +396,403d408 +< =head2 sub mix_set_panning(channel,left,right) +< +< Set panning for mixer, Use MIX_CHANNEL_POST to process the postmix stream +< +< Volume for the left channel, range is 0(silence) to 255(loud) +< +< Volume for the right channel, range is 0(silence) to 255(loud) +< +406d410 +< Kartik Thakore +diff -r SDL_perl/lib/SDL/Music.pm sdlperl/lib/SDL/Music.pm +1c1 +< # Music.pm +--- +> #!/usr/bin/env perl +3c3,28 +< # a SDL_mixer data module +--- +> # Music.pm +> # +> # 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 +5d29 +< # Copyright (C) 2000,2002 David J. Goehrig +7a32 +> +15a41 +> die SDL::GetError() unless $$self; +diff -r SDL_perl/lib/SDL/OpenGL/Constants.pm sdlperl/lib/SDL/OpenGL/Constants.pm +1c1 +< # SDL::OpenGL::Constants +--- +> #!/usr/bin/env perl +3c3,28 +< # This is an autogenerate file, don't bother editing +--- +> # Constants.pm +> # +> # 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 +5d29 +< # Copyright (C) 2003 David J. Goehrig +9,19d32 +< require Exporter; +< +< use SelfLoader; +< #$SelfLoader::DEBUG=1; +< +< use vars qw( +< @EXPORT +< @ISA +< ); +< +< @ISA=qw(Exporter); +1588c1601,1605 +< __DATA__ +--- +> for (@EXPORT) { +> *{"SDL::" . $_} = *{$_}; +> *{"main::" . $_} = *{$_}; +> } +> +3153a3171,3172 +> +> 1; +diff -r SDL_perl/lib/SDL/OpenGL.pm sdlperl/lib/SDL/OpenGL.pm +1c1 +< # SDL::OpenGL.pm +--- +> #!/usr/bin/env perl +3c3 +< # A simplified OpenGL wrapper +--- +> # OpenGL.pm +5c5,28 +< # Copyright (C) 2002, 2003, 2004 David J. Goehrig +--- +> # 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 +19d41 +< use SDL::OpenGL::Constants; +28,32c50 +< # export all GL constants +< for (@SDL::OpenGL::Constants::EXPORT) { +< push @EXPORT, $_; +< } +< +--- +> use SDL::OpenGL::Constants; +diff -r SDL_perl/lib/SDL/Palette.pm sdlperl/lib/SDL/Palette.pm +0a1 +> #!/usr/bin/env perl +2c3 +< # Palette.pm +--- +> # Palette.pm +4c5 +< # a module for manipulating SDL_Palette * +--- +> # Copyright (C) 2005 David J. Goehrig +6c7,33 +< # Copyright (C) 2000,2002 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 +> # +> +> # NB: there is no palette destructor because most of the time the +> # palette will be owned by a surface, so any palettes you create +> # with new, won't be destroyed until the program ends! +25a53 +> die SDL::GetError() unless $$self; +diff -r SDL_perl/lib/SDL/Rect.pm sdlperl/lib/SDL/Rect.pm +0a1 +> #!/usr/bin/env perl +2c3 +< # Rect.pm +--- +> # Rect.pm +4c5,28 +< # A package for manipulating SDL_Rect * +--- +> # 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 +6d29 +< # Copyright (C) 2003 David J. Goehrig +8a32 +> +24a49 +> die SDL::GetError() unless $$self; +diff -r SDL_perl/lib/SDL/SFont.pm sdlperl/lib/SDL/SFont.pm +1c1 +< # SDL::OpenGL.pm +--- +> #!/usr/bin/env perl +3c3,28 +< # SFont bitmat font support +--- +> # SFont.pm +> # +> # 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 +5d29 +< # Copyright (C) 2004 David J. Goehrig +diff -r SDL_perl/lib/SDL/Sound.pm sdlperl/lib/SDL/Sound.pm +0a1 +> #!/usr/bin/env perl +2c3 +< # Sound.pm +--- +> # Sound.pm +4c5,28 +< # a SDL_mixer data module +--- +> # 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 +6d29 +< # Copyright (C) 2000,2002 David J. Goehrig +15a39 +> die SDL::GetError() unless $$self; +diff -r SDL_perl/lib/SDL/Surface.pm sdlperl/lib/SDL/Surface.pm +0a1,12 +> #!/usr/bin/env perl +> # +> # Surface.pm +> # +> # 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. +2c14,25 +< # Surface.pm +--- +> # 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: +4c27,28 +< # A package for manipulating SDL_Surface * +--- +> # David J. Goehrig +> # dgoehrig@cpan.org +6d29 +< # Copyright (C) 2003 David J. Goehrig +50,51c73 +< die "SDL::Surface::new failed. ", SDL::GetError() +< unless ( $$self); +--- +> die SDL::GetError() unless $$self; +diff -r SDL_perl/lib/SDL/TTFont.pm sdlperl/lib/SDL/TTFont.pm +1c1 +< # TTFont.pm +--- +> #!/usr/bin/env perl +3c3 +< # a SDL perl extension for SDL_ttf support +--- +> # TTFont.pm +5c5,28 +< # Copyright (C) David J. Goehrig 2002 +--- +> # 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 +24c47 +< $self->{-mode} = $options{-mode} || $options{-m} || TEXT_SHADED(); +--- +> $self->{-mode} = $options{-mode} || $options{-m} || SDL::TEXT_SHADED(); +89c112 +< SDL::TTFSetFontStyle($$self{-font},TTF_STYLE_NORMAL()); +--- +> SDL::TTFSetFontStyle($$self{-font},SDL::TTF_STYLE_NORMAL()); +94c117 +< SDL::TTFSetFontStyle($$self{-font},TTF_STYLE_BOLD()); +--- +> SDL::TTFSetFontStyle($$self{-font},SDL::TTF_STYLE_BOLD()); +99c122 +< SDL::TTFSetFontStyle($$self{-font},TTF_STYLE_ITALIC()); +--- +> SDL::TTFSetFontStyle($$self{-font},SDL::TTF_STYLE_ITALIC()); +105c128 +< SDL::TTFSetFontStyle($$self{-font},TTF_STYLE_UNDERLINE()); +--- +> SDL::TTFSetFontStyle($$self{-font},SDL::TTF_STYLE_UNDERLINE()); +110c133 +< $$self{-mode} = TEXT_SHADED(); +--- +> $$self{-mode} = SDL::TEXT_SHADED(); +115c138 +< $$self{-mode} = TEXT_SOLID(); +--- +> $$self{-mode} = SDL::TEXT_SOLID(); +120c143 +< $$self{-mode} = TEXT_BLENDED(); +--- +> $$self{-mode} = SDL::TEXT_BLENDED(); +125c148 +< $$self{-mode} = UTF8_SHADED(); +--- +> $$self{-mode} = SDL::UTF8_SHADED(); +130c153 +< $$self{-mode} = UTF8_SOLID(); +--- +> $$self{-mode} = SDL::UTF8_SOLID(); +135c158 +< $$self{-mode} = UTF8_BLENDED(); +--- +> $$self{-mode} = SDL::UTF8_BLENDED(); +140c163 +< $$self{-mode} = UNICODE_SHADED(); +--- +> $$self{-mode} = SDL::UNICODE_SHADED(); +145c168 +< $$self{-mode} = UNICODE_SOLID(); +--- +> $$self{-mode} = SDL::UNICODE_SOLID(); +150c173 +< $$self{-mode} = UNICODE_BLENDED(); +--- +> $$self{-mode} = SDL::UNICODE_BLENDED(); +diff -r SDL_perl/lib/SDL/Timer.pm sdlperl/lib/SDL/Timer.pm +1c1 +< # Timer.pm +--- +> #!/usr/bin/env perl +3c3,28 +< # A package for manipulating SDL_Timer * +--- +> # Timer.pm +> # +> # 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 +5d29 +< # Copyright (C) 2002 David J. Goehrig +7a32 +> +diff -r SDL_perl/lib/SDL/Tool/Font.pm sdlperl/lib/SDL/Tool/Font.pm +0a1 +> #!/usr/bin/env perl +2c3,28 +< # SDL::Tool::Font - format agnostic font tool +--- +> # Font.pm +> # +> # 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 +4d29 +< # Copyright (C) 2002 David J. Goehrig +49c74 +< unless ($surface->isa('SDL::Surface')); +--- +> unless ($SDL::DEBUG && $surface->isa('SDL::Surface')); +diff -r SDL_perl/lib/SDL/Tool/Graphic.pm sdlperl/lib/SDL/Tool/Graphic.pm +0a1 +> #!/usr/bin/env perl +2c3,28 +< # SDL::GraphicTool - zooming and rotating graphic tool +--- +> # Graphic.pm +> # +> # 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 +4,5d29 +< # Copyright (C) 2002 Russell E. Valentine +< # Copyright (C) 2002 David J. Goehrig +Only in sdlperl/lib/SDL/Tutorial: .svn +diff -r SDL_perl/lib/SDL/Tutorial/Animation.pm sdlperl/lib/SDL/Tutorial/Animation.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # Animation.pm +> # +> # 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 +> # +> +3c33,34 +< use Pod::ToDemo <<'END_HERE'; +--- +> use strict; +> use SDL; +diff -r SDL_perl/lib/SDL/Tutorial/Drawing.pm sdlperl/lib/SDL/Tutorial/Drawing.pm +1c1,29 +< package SDL::Tutorial::Drawing; +--- +> #!/usr/bin/env perl +> # +> # Drawing.pm +> # +> # 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 +> # +3c31,34 +< use Pod::ToDemo <<'END_HERE'; +--- +> package SDL::Tutorial:Drawing; +> +> use strict; +> use SDL; +diff -r SDL_perl/lib/SDL/Tutorial/Images.pm sdlperl/lib/SDL/Tutorial/Images.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # Images.pm +> # +> # 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 +> # +> +3a34 +> use SDL; +diff -r SDL_perl/lib/SDL/Tutorial.pm sdlperl/lib/SDL/Tutorial.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # Tutorial.pm +> # +> # 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 +> # +> +3c33,34 +< use Pod::ToDemo <<'END_HERE'; +--- +> use strict; +> use SDL; +diff -r SDL_perl/lib/SDL/Video.pm sdlperl/lib/SDL/Video.pm +0a1 +> #!/usr/bin/env perl +2c3 +< # Video.pm +--- +> # Video.pm +4c5,28 +< # A package for manipulating MPEG video +--- +> # 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 +6d29 +< # Copyright (C) 2004 David J. Goehrig +26a50 +> die SDL::GetError() unless $$self; +diff -r SDL_perl/lib/SDL.pm sdlperl/lib/SDL.pm +0a1 +> #!/usr/bin/env perl +2c3,28 +< # Copyright (C) 2004 David J. Goehrig +--- +> # SDL.pm +> # +> # 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 +19,22d44 +< # reexport all SDL constants +< for (@SDL::Constants::EXPORT) { +< push @EXPORT,$_; +< } +26c48 +< $VERSION = '2.1.3'; +--- +> $VERSION = '2.2.1'; +76d97 +< +diff -r SDL_perl/lib/SDL_perl.pm sdlperl/lib/SDL_perl.pm +0a1,12 +> #!/usr/bin/env perl +> # +> # SDL_perl.pm +> # +> # 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. +2c14,28 +< # Copyright (C) 2004 David J. Goehrig +--- +> # 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 +diff -r SDL_perl/make/lib/SDL/Build/Cygwin.pm sdlperl/make/lib/SDL/Build/Cygwin.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # Cygwin.pm +> # +> # 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 +> # +> +diff -r SDL_perl/make/lib/SDL/Build/Darwin.pm sdlperl/make/lib/SDL/Build/Darwin.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # Darwin.pm +> # +> # 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 +> # +> +18,31c48,58 +< +< '/Library/Frameworks/SDL.framework/Headers' => '../../lib', +< '/Library/Frameworks/SDL_mixer.framework/Headers' => '../../lib', +< '/Library/Frameworks/SDL_image.framework/Headers' => '../../lib', +< '/Library/Frameworks/SDL_net.framework/Headers' => '../../lib', +< '/Library/Frameworks/SDL_ttf.framework/Headers' => '../../lib', +< '/Library/Frameworks/SDL_gfx.framework/Headers' => '../../lib', +< '/Library/Frameworks/libogg.framework/Headers' => '../../lib', +< '/Library/Frameworks/libvorbis.framework/Headers' => '../../lib', +< '/Frameworks/libvorbisfile.framework/Headers' => '../../lib', +< '/Library/Frameworks/libvorbisenc.framework/Headers' => '../../lib', +< '../../include' => '../../lib', +< '/System/Library/Frameworks/OpenGL.framework/Headers' => +< '/System/Library/Frameworks/OpenGL.framework/Libraries', +--- +> +> '/System/Library/Frameworks/SDL_mixer.framework/Headers' => '../../lib', +> '/System/Library/Frameworks/SDL_image.framework/Headers' => '../../lib', +> '/System/Library/Frameworks/SDL_ttf.framework/Headers' => '../../lib', +> '/System/Library/Frameworks/libogg.framework/Headers' => '../../lib', +> '/System/Library/Frameworks/libvorbis.framework/Headers' => '../../lib', +> '/System/Library/Frameworks/libvorbisfile.framework/Headers' => '../../lib', +> '/System/Library/Frameworks/libvorbisenc.framework/Headers' => '../../lib', +> '../../include' => '../../lib', +> '/System/Library/Frameworks/OpenGL.framework/Headers' => +> '/System/Library/Frameworks/OpenGL.framework/Libraries', +35c62 +< sub build_defines +--- +> sub build_c_sources +37,38c64,67 +< my $self = shift; +< my $defines = $self->SUPER::build_defines(@_); +--- +> return [qw/ +> launcher.m +> /]; +> } +40c69,72 +< push @{$defines->{SDL}}, "-Ddarwin", "-DMACOSX"; +--- +> sub build_c_source +> { +> return 'MacOSX'; +> } +42c74,76 +< return $defines; +--- +> sub build_install_base +> { +> return "SDL Perl.app/Contents/Resources"; +43a78,94 +> +> sub build_bundle +> { +> $bundle_contents="SDL Perl.app/Contents"; +> system "mkdir -p \"$bundle_contents\""; +> mkdir "$bundle_contents/MacOS",0755; +> $libs = `sdl-config --libs`; +> chomp($libs); +> $libs =~ s/-lSDLmain//g; +> system "gcc $libs -framework Cocoa `perl -MExtUtils::Embed -e ldopts` MacOSX/launcher.o -o \"$bundle_contents/MacOS/SDL Perl\""; +> +> mkdir "$bundle_contents/Resources",0755; +> system "echo \"APPL????\" > \"$bundle_contents/PkgInfo\""; +> system "cp MacOSX/Info.plist \"$bundle_contents/\""; +> system "cp \"MacOSX/SDL Perl.icns\" \"$bundle_contents/Resources\""; +> } +> +diff -r SDL_perl/make/lib/SDL/Build/Freebsd.pm sdlperl/make/lib/SDL/Build/Freebsd.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # Freebsd.pm +> # +> # 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 +> # +> +diff -r SDL_perl/make/lib/SDL/Build/Linux.pm sdlperl/make/lib/SDL/Build/Linux.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # Linux.pm +> # +> # 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 +> # +> +diff -r SDL_perl/make/lib/SDL/Build/MSWin32.pm sdlperl/make/lib/SDL/Build/MSWin32.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # MSWin32.pm +> # +> # 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 +> # +> +diff -r SDL_perl/make/lib/SDL/Build/Netbsd.pm sdlperl/make/lib/SDL/Build/Netbsd.pm +0a1,30 +> #!/usr/bin/env perl +> # +> # Netbsd.pm +> # +> # 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 +> # +> +3c33 +< use base 'SDL::Build'; +--- +> use strict; +diff -r SDL_perl/make/lib/SDL/Build.pm sdlperl/make/lib/SDL/Build.pm +0a1 +> #!/usr/bin/env perl +2,3c3,28 +< # Copyright (C) 2004 chromatic +< # Copyright (C) 2004 David J. Goehrig +--- +> # Build.pm +> # +> # 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 +22d46 +< +25a50 +> +29a55 +> +148c174 +< ( defined $Config{usethreads} ? ('-DUSE_THREADS', '-fPIC') : '-fPIC' ), +--- +> ( defined $Config{usethreads} ? ('-DUSE_THREADS', '-fPIC') : ('-fPIC' )), +200a227,266 +> # Subclass Darwin to build Objective-C addons +> +> sub filter_support { +> my $self = shift; +> print STDERR "[SDL::Build] generic filter\n"; +> return (); +> } +> +> sub process_support_files { +> my $self = shift; +> my $p = $self->{properties}; +> return unless $p->{c_source}; +> return unless $p->{c_sources}; +> +> push @{$p->{include_dirs}}, $p->{c_source}; +> unless ( $p->{extra_compiler_flags} && $p->{extra_compiler_flags} =~ /DARCHNAME/) { +> $p->{extra_compiler_flags} .= " -DARCHNAME=" . $self->{config}{archname}; +> } +> print STDERR "[SDL::Build] extra compiler flags" . $p->{extra_compiler_flags} . "\n"; +> +> foreach my $file (map($p->{c_source} . "/$_", @{$p->{c_sources}})) { +> push @{$p->{objects}}, $self->compile_c($file); +> } +> } +> +> # Override to create a MacOS Bundle +> sub build_bundle +> { +> return; +> } +> +> # Override Install method for darwin +> sub ACTION_install { +> my ($self) = @_; +> require ExtUtils::Install; +> $self->depends_on('build'); +> $self->get_arch($^O)->build_bundle(); +> ExtUtils::Install::install($self->install_map, 1, 0, $self->{args}{uninst}||0); +> } +> +Only in sdlperl/: pod2htmd.tmp +Only in sdlperl/: pod2htmi.tmp +diff -r SDL_perl/src/OpenGL.xs sdlperl/src/OpenGL.xs +1d0 +< // SDL::OpenGL +3c2,28 +< // Copyright (C) 2002,2003,2004 David J. Goehrig +--- +> // OpenGL.xs +> // +> // 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 +> // +17d41 +< #include +27c51 +< #include "defines.h" +--- +> #include "../defines.h" +673d696 +< case GL_MAX_TEXTURE_UNITS_ARB: +713,718d735 +< const char * glGetString ( name ) +< GLenum name +< CODE: +< RETVAL = (const char *)glGetString (name); +< OUTPUT: +< RETVAL +1236c1253 +< glRasterPos ( x, y, ... ) +--- +> glRasterPos ( x, y, z, ... ) +1238a1256 +> double z +1240,1253c1258,1262 +< if (items == 2) +< { +< glRasterPos2d (x,y); +< } +< else if (items == 3) +< { +< double z = SvNV (ST(2)); +< glRasterPos3d (x,y,z); +< } +< else if (items == 4) +< { +< double z = SvNV (ST(2)); +< double w = SvNV (ST(3)); +< glRasterPos4d (x,y,z,w); +--- +> if ( items == 4 ) { +> double w = SvNV(ST(3)); +> glRasterPos4d(x,y,z,w); +> } else { +> glRasterPos3d(x,y,z); +1737,1739c1746,1748 +< Uint32 i; +< Uint32 *names; +< names = (Uint32*)safemalloc(sizeof(Uint32)*n); +--- +> GLsizei i; +> GLuint* names; +> names = (GLuint*)safemalloc(sizeof(GLuint)*n); +1767c1776 +< Uint32 *textures; +--- +> GLuint* textures; +1769c1778 +< textures = (Uint32*)safemalloc(sizeof(Uint32) * items); +--- +> textures = (GLuint*)safemalloc(sizeof(GLuint) * items); +1781c1790 +< Uint32 *textures; +--- +> GLuint* textures; +1785c1794 +< textures = (Uint32*)safemalloc(sizeof(Uint32) * items); +--- +> textures = (GLuint*)safemalloc(sizeof(GLuint) * items); +2722,2803d2730 +< GLUquadric * +< gluNewQuadric () +< CODE: +< RETVAL = gluNewQuadric (); +< OUTPUT: +< RETVAL +< +< void +< gluDeleteQuadric (quad) +< GLUquadric *quad +< CODE: +< gluDeleteQuadric(quad); +< +< void +< gluQuadricNormals ( quad, normal ) +< GLUquadric *quad +< GLenum normal +< CODE: +< gluQuadricNormals(quad, normal); +< +< +< void +< gluQuadricTexture ( quad, texture ) +< GLUquadric *quad +< GLboolean texture +< CODE: +< gluQuadricTexture ( quad, texture ); +< +< void +< gluCylinder ( quad, base, top, height, slices, stacks ) +< GLUquadric *quad +< GLdouble base +< GLdouble top +< GLdouble height +< GLint slices +< GLint stacks +< CODE: +< gluCylinder ( quad, base, top, height, slices, stacks ); +< +< void +< gluDisk ( quad, inner, outer, slices, loops ) +< GLUquadric *quad +< GLdouble inner +< GLdouble outer +< GLint slices +< GLint loops +< CODE: +< gluDisk ( quad, inner, outer, slices, loops ); +< +< void +< gluPartialDisk ( quad, inner, outer, slices, loops, start, sweep ) +< GLUquadric *quad +< GLdouble inner +< GLdouble outer +< GLint slices +< GLint loops +< GLdouble start +< GLdouble sweep +< +< CODE: +< gluPartialDisk ( quad, inner, outer, slices, loops, start, sweep ); +< +< void +< gluSphere ( quad, radius, slices, stacks ) +< GLUquadric *quad +< GLdouble radius +< GLint slices +< GLint stacks +< CODE: +< gluSphere ( quad, radius, slices, stacks ); +< +< +< +< void +< glXUseXFont ( font, first, count, list_base ) +< Font font +< int first +< int count +< int list_base +< CODE: +< glXUseXFont ( font, first, count, list_base ); +< +Only in sdlperl/src: SDL +diff -r SDL_perl/src/SDL.xs sdlperl/src/SDL.xs +0a1 +> // +3c4,27 +< // SDL Perl by David J. Goehrig +--- +> // 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 +5,8d28 +< // Copyright (C) 2000,2001,2002,2003,2004 David J. Goehrig +< // Copyright (C) 2009 Kartik Thakore +< // This software is under the GNU Library General Public License (LGPL) +< // see the file COPYING for terms of use +19a40,47 +> #ifdef HAVE_GL +> #include +> #endif +> +> #ifdef HAVE_GLU +> #include +> #endif +> +29,34c57,58 +< #ifdef HAVE_GL +< #include +< #endif +< +< #ifdef HAVE_GLU +< #include +--- +> #ifdef HAVE_SDL_SOUND +> #include +67a92,95 +> #ifdef HAVE_SDL_SVG +> #include +> #endif +> +74,99d101 +< #ifdef MACOSX +< #include +< void CPSEnableForegroundOperation(ProcessSerialNumber* psn); +< void NSApplicationLoad(); +< void SDL_macosx_init(void) { +< Boolean sameProc; +< ProcessSerialNumber myProc, frProc; +< if (GetFrontProcess(&frProc) == noErr) +< if (GetCurrentProcess(&myProc) == noErr) +< if (SameProcess(&frProc, &myProc, &sameProc) == noErr && sameProc == 0) { +< /* +< NSLog(@"creating bad autorelease pool"); +< [[NSAutoreleasePool alloc] init]; +< */ +< NSApplicationLoad(); +< CPSEnableForegroundOperation(&myProc); +< } +< } +< void SDL_macosx_quit(void) { +< } +< #endif // MACOSX +< +< +< +< +< +208a211,214 +> #define INIT_NS_APPLICATION +> #define QUIT_NS_APPLICATION +> +> +211a218 +> QUIT_NS_APPLICATION +213,215d219 +< #ifdef MACOSX +< SDL_macosx_quit(); +< #endif +241,243c245 +< #ifdef MACOSX +< SDL_macosx_init(); +< #endif +--- +> INIT_NS_APPLICATION +269a272 +> QUIT_NS_APPLICATION +271,274d273 +< #ifdef MACOSX +< SDL_macosx_quit(); +< #endif +< +339a339,435 +> SDL_RWops* +> RWFromFile ( file, mode ) +> char* file +> char * mode +> CODE: +> RETVAL = SDL_RWFromFile(file,mode); +> OUTPUT: +> RETVAL +> +> SDL_RWops* +> RWFromFP ( fp, autoclose ) +> FILE* fp +> int autoclose +> CODE: +> RETVAL = SDL_RWFromFP(fp,autoclose); +> OUTPUT: +> RETVAL +> +> SDL_RWops* +> RWFromMem ( mem, size ) +> char* mem +> int size +> CODE: +> RETVAL = SDL_RWFromMem((void*)mem,size); +> OUTPUT: +> RETVAL +> +> SDL_RWops* +> RWFromConstMem ( mem, size ) +> const char* mem +> int size +> CODE: +> RETVAL = SDL_RWFromConstMem((const void*)mem,size); +> OUTPUT: +> RETVAL +> +> SDL_RWops* +> AllocRW () +> CODE: +> RETVAL = SDL_AllocRW(); +> OUTPUT: +> RETVAL +> +> void +> FreeRW ( rw ) +> SDL_RWops* rw +> CODE: +> SDL_FreeRW(rw); +> +> int +> RWseek ( rw, off, whence ) +> SDL_RWops* rw +> int off +> int whence +> CODE: +> RETVAL = SDL_RWseek(rw,off,whence); +> OUTPUT: +> RETVAL +> +> int +> RWtell ( rw ) +> SDL_RWops* rw +> CODE: +> RETVAL = SDL_RWtell(rw); +> OUTPUT: +> RETVAL +> +> int +> RWread ( rw, mem, size, n ) +> SDL_RWops* rw +> char* mem +> int size +> int n +> CODE: +> RETVAL = SDL_RWread(rw,mem,size,n); +> OUTPUT: +> RETVAL +> +> int +> RWwrite ( rw, mem, size, n ) +> SDL_RWops* rw +> char* mem +> int size +> int n +> CODE: +> RETVAL = SDL_RWwrite(rw,mem,size,n); +> OUTPUT: +> RETVAL +> +> int +> RWclose ( rw ) +> SDL_RWops* rw +> CODE: +> RETVAL = SDL_RWclose(rw); +> OUTPUT: +> RETVAL +> +530,542d625 +< +< int +< PeepEvents( e, numevents, action, mask) +< SDL_Event *e +< int numevents +< SDL_eventaction action +< Uint32 mask +< CODE: +< RETVAL = (int)SDL_PeepEvents( e, numevents, action, mask); +< OUTPUT: +< RETVAL +< +< +1224,1237d1306 +< ColorRGB ( color, ... ) +< SDL_Color *color +< PPCODE: +< if (items > 1 ) { +< color->r = SvIV(ST(1)); +< color->g = SvIV(ST(2)); +< color->b = SvIV(ST(3)); +< } +< mXPUSHi( color->r ); +< mXPUSHi( color->g ); +< mXPUSHi( color->b ); +< XSRETURN(3); +< +< void +1941,1951d2009 +< MixSetPanning ( channel, left, right ) +< int channel +< Uint8 left +< Uint8 right +< CODE: +< RETVAL = Mix_SetPanning(channel,left, right); +< OUTPUT: +< RETVAL +< +< +< int +2364c2422 +< Sint16 +--- +> Uint8 +2519c2577 +< char *host +--- +> const char *host +3316c3374 +< SMPEG_Info *info; +--- +> SMPEG_Info *info +3322c3380 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3330c3388 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3338c3396 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3346c3404 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3354c3412 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3362c3420 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3370c3428 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3378c3436 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3386c3444 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3394c3452 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3402c3460 +< SMPEG_Info* info; +--- +> SMPEG_Info* info +3410c3468 +< SMPEG* mpeg ; +--- +> SMPEG* mpeg +3418,3419c3476,3477 +< char* filename; +< SMPEG_Info* info; +--- +> char* filename +> SMPEG_Info* info +3432c3490 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3438,3439c3496,3497 +< SMPEG* mpeg ; +< int flag; +--- +> SMPEG* mpeg +> int flag +3448,3449c3506,3507 +< SMPEG* mpeg ; +< int flag; +--- +> SMPEG* mpeg +> int flag +3455,3456c3513,3514 +< SMPEG* mpeg ; +< int volume; +--- +> SMPEG* mpeg +> int volume +3462,3464c3520,3522 +< SMPEG* mpeg; +< SDL_Surface* dest; +< SDL_mutex* surfLock; +--- +> SMPEG* mpeg +> SDL_Surface* dest +> SDL_mutex* surfLock +3470,3472c3528,3530 +< SMPEG* mpeg; +< int w; +< int h; +--- +> SMPEG* mpeg +> int w +> int h +3478c3536 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3485c3543 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3506c3564 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3514c3572 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3520c3578 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3527c3585 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3536c3594 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3542,3543c3600,3601 +< SMPEG* mpeg; +< int bytes; +--- +> SMPEG* mpeg +> int bytes +3549,3550c3607,3608 +< SMPEG* mpeg; +< float seconds; +--- +> SMPEG* mpeg +> float seconds +3556,3557c3614,3615 +< SMPEG* mpeg; +< SDL_Rect* rect; +--- +> SMPEG* mpeg +> SDL_Rect* rect +3563,3564c3621,3622 +< SMPEG* mpeg; +< int frame; +--- +> SMPEG* mpeg +> int frame +3570c3628 +< SMPEG* mpeg; +--- +> SMPEG* mpeg +3584,3591c3642,3649 +< SDL_Surface * src; +< double angle; +< double zoom; +< int smooth; +< CODE: +< RETVAL = rotozoomSurface( src, angle, zoom, smooth); +< OUTPUT: +< RETVAL +--- +> SDL_Surface * src +> double angle +> double zoom +> int smooth +> CODE: +> RETVAL = rotozoomSurface( src, angle, zoom, smooth); +> OUTPUT: +> RETVAL +3595,3603c3653,3660 +< SDL_Surface *src; +< double zoomx; +< double zoomy; +< int smooth; +< CODE: +< RETVAL = zoomSurface( src, zoomx, zoomy, smooth); +< OUTPUT: +< RETVAL +< +--- +> SDL_Surface *src +> double zoomx +> double zoomy +> int smooth +> CODE: +> RETVAL = zoomSurface( src, zoomx, zoomy, smooth); +> OUTPUT: +> RETVAL +3607,3614c3664,3671 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Uint32 color; +< CODE: +< RETVAL = pixelColor( dst, x, y, color); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Uint32 color +> CODE: +> RETVAL = pixelColor( dst, x, y, color); +> OUTPUT: +> RETVAL +3618,3628c3675,3685 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = pixelRGBA( dst, x, y, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = pixelRGBA( dst, x, y, r, g, b, a ); +> OUTPUT: +> RETVAL +3632,3640c3689,3697 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 x2; +< Sint16 y; +< Uint32 color; +< CODE: +< RETVAL = hlineColor( dst, x1, x2, y, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 x2 +> Sint16 y +> Uint32 color +> CODE: +> RETVAL = hlineColor( dst, x1, x2, y, color ); +> OUTPUT: +> RETVAL +3644,3655c3701,3712 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 x2; +< Sint16 y; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = hlineRGBA( dst, x1, x2, y, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 x2 +> Sint16 y +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = hlineRGBA( dst, x1, x2, y, r, g, b, a ); +> OUTPUT: +> RETVAL +3659,3667c3716,3724 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y1; +< Sint16 y2; +< Uint32 color; +< CODE: +< RETVAL = vlineColor( dst, x, y1, y2, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y1 +> Sint16 y2 +> Uint32 color +> CODE: +> RETVAL = vlineColor( dst, x, y1, y2, color ); +> OUTPUT: +> RETVAL +3671,3682c3728,3739 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y1; +< Sint16 y2; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = vlineRGBA( dst, x, y1, y2, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y1 +> Sint16 y2 +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = vlineRGBA( dst, x, y1, y2, r, g, b, a ); +> OUTPUT: +> RETVAL +3686,3695c3743,3752 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 y1; +< Sint16 x2; +< Sint16 y2; +< Uint32 color; +< CODE: +< RETVAL = rectangleColor( dst, x1, y1, x2, y2, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 y1 +> Sint16 x2 +> Sint16 y2 +> Uint32 color +> CODE: +> RETVAL = rectangleColor( dst, x1, y1, x2, y2, color ); +> OUTPUT: +> RETVAL +3699,3711c3756,3768 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 y1; +< Sint16 x2; +< Sint16 y2; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = rectangleRGBA( dst, x1, y1, x2, y2, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 y1 +> Sint16 x2 +> Sint16 y2 +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = rectangleRGBA( dst, x1, y1, x2, y2, r, g, b, a ); +> OUTPUT: +> RETVAL +3715,3724c3772,3781 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 y1; +< Sint16 x2; +< Sint16 y2; +< Uint32 color; +< CODE: +< RETVAL = boxColor( dst, x1, y1, x2, y2, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 y1 +> Sint16 x2 +> Sint16 y2 +> Uint32 color +> CODE: +> RETVAL = boxColor( dst, x1, y1, x2, y2, color ); +> OUTPUT: +> RETVAL +3728,3740c3785,3797 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 y1; +< Sint16 x2; +< Sint16 y2; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = boxRGBA( dst, x1, y1, x2, y2, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst; +> Sint16 x1 +> Sint16 y1 +> Sint16 x2 +> Sint16 y2 +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = boxRGBA( dst, x1, y1, x2, y2, r, g, b, a ); +> OUTPUT: +> RETVAL +3744,3753c3801,3810 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 y1; +< Sint16 x2; +< Sint16 y2; +< Uint32 color; +< CODE: +< RETVAL = lineColor( dst, x1, y1, x2, y2, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 y1 +> Sint16 x2 +> Sint16 y2 +> Uint32 color +> CODE: +> RETVAL = lineColor( dst, x1, y1, x2, y2, color ); +> OUTPUT: +> RETVAL +3757,3769c3814,3826 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 y1; +< Sint16 x2; +< Sint16 y2; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = lineRGBA( dst, x1, y1, x2, y2, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 y1 +> Sint16 x2 +> Sint16 y2 +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = lineRGBA( dst, x1, y1, x2, y2, r, g, b, a ); +> OUTPUT: +> RETVAL +3773,3782c3830,3839 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 y1; +< Sint16 x2; +< Sint16 y2; +< Uint32 color; +< CODE: +< RETVAL = aalineColor( dst, x1, y1, x2, y2, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 y1 +> Sint16 x2 +> Sint16 y2 +> Uint32 color +> CODE: +> RETVAL = aalineColor( dst, x1, y1, x2, y2, color ); +> OUTPUT: +> RETVAL +3786,3798c3843,3855 +< SDL_Surface* dst; +< Sint16 x1; +< Sint16 y1; +< Sint16 x2; +< Sint16 y2; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = aalineRGBA( dst, x1, y1, x2, y2, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x1 +> Sint16 y1 +> Sint16 x2 +> Sint16 y2 +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = aalineRGBA( dst, x1, y1, x2, y2, r, g, b, a ); +> OUTPUT: +> RETVAL +3802,3810c3859,3867 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 r; +< Uint32 color; +< CODE: +< RETVAL = circleColor( dst, x, y, r, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 r +> Uint32 color +> CODE: +> RETVAL = circleColor( dst, x, y, r, color ); +> OUTPUT: +> RETVAL +3814,3825c3871,3882 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rad; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = circleRGBA( dst, x, y, rad, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rad +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = circleRGBA( dst, x, y, rad, r, g, b, a ); +> OUTPUT: +> RETVAL +3829,3837c3886,3894 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 r; +< Uint32 color; +< CODE: +< RETVAL = aacircleColor( dst, x, y, r, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 r +> Uint32 color +> CODE: +> RETVAL = aacircleColor( dst, x, y, r, color ); +> OUTPUT: +> RETVAL +3841,3852c3898,3909 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rad; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = aacircleRGBA( dst, x, y, rad, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rad +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = aacircleRGBA( dst, x, y, rad, r, g, b, a ); +> OUTPUT: +> RETVAL +3856,3864c3913,3921 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 r; +< Uint32 color; +< CODE: +< RETVAL = filledCircleColor( dst, x, y, r, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 r +> Uint32 color +> CODE: +> RETVAL = filledCircleColor( dst, x, y, r, color ); +> OUTPUT: +> RETVAL +3868,3879c3925,3936 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rad; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = filledCircleRGBA( dst, x, y, rad, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rad +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = filledCircleRGBA( dst, x, y, rad, r, g, b, a ); +> OUTPUT: +> RETVAL +3883,3892c3940,3949 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rx; +< Sint16 ry; +< Uint32 color; +< CODE: +< RETVAL = ellipseColor( dst, x, y, rx, ry, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rx +> Sint16 ry +> Uint32 color +> CODE: +> RETVAL = ellipseColor( dst, x, y, rx, ry, color ); +> OUTPUT: +> RETVAL +3896,3908c3953,3965 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rx; +< Sint16 ry; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = ellipseRGBA( dst, x, y, rx, ry, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rx +> Sint16 ry +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = ellipseRGBA( dst, x, y, rx, ry, r, g, b, a ); +> OUTPUT: +> RETVAL +3912,3921c3969,3978 +< SDL_Surface* dst; +< Sint16 xc; +< Sint16 yc; +< Sint16 rx; +< Sint16 ry; +< Uint32 color; +< CODE: +< RETVAL = aaellipseColor( dst, xc, yc, rx, ry, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 xc +> Sint16 yc +> Sint16 rx +> Sint16 ry +> Uint32 color +> CODE: +> RETVAL = aaellipseColor( dst, xc, yc, rx, ry, color ); +> OUTPUT: +> RETVAL +3925,3937c3982,3994 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rx; +< Sint16 ry; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = aaellipseRGBA( dst, x, y, rx, ry, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rx +> Sint16 ry +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = aaellipseRGBA( dst, x, y, rx, ry, r, g, b, a ); +> OUTPUT: +> RETVAL +3941,3950c3998,4007 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rx; +< Sint16 ry; +< Uint32 color; +< CODE: +< RETVAL = filledEllipseColor( dst, x, y, rx, ry, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rx +> Sint16 ry +> Uint32 color +> CODE: +> RETVAL = filledEllipseColor( dst, x, y, rx, ry, color ); +> OUTPUT: +> RETVAL +3954,3966c4011,4023 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rx; +< Sint16 ry; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = filledEllipseRGBA( dst, x, y, rx, ry, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rx +> Sint16 ry +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = filledEllipseRGBA( dst, x, y, rx, ry, r, g, b, a ); +> OUTPUT: +> RETVAL +3970,3980c4027,4037 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rad; +< Sint16 start; +< Sint16 end; +< Uint32 color; +< CODE: +< RETVAL = filledPieColor( dst, x, y, rad, start, end, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rad +> Sint16 start +> Sint16 end +> Uint32 color +> CODE: +> RETVAL = filledPieColor( dst, x, y, rad, start, end, color ); +> OUTPUT: +> RETVAL +3984,3997c4041,4054 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< Sint16 rad; +< Sint16 start; +< Sint16 end; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = filledPieRGBA( dst, x, y, rad, start, end, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> Sint16 rad +> Sint16 start +> Sint16 end +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = filledPieRGBA( dst, x, y, rad, start, end, r, g, b, a ); +> OUTPUT: +> RETVAL +4001,4009c4058,4066 +< SDL_Surface* dst; +< Sint16* vx; +< Sint16* vy; +< int n; +< Uint32 color; +< CODE: +< RETVAL = polygonColor( dst, vx, vy, n, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16* vx +> Sint16* vy +> int n +> Uint32 color; +> CODE: +> RETVAL = polygonColor( dst, vx, vy, n, color ); +> OUTPUT: +> RETVAL +4013,4024c4070,4081 +< SDL_Surface* dst; +< Sint16* vx; +< Sint16* vy; +< int n; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = polygonRGBA( dst, vx, vy, n, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16* vx +> Sint16* vy +> int n +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = polygonRGBA( dst, vx, vy, n, r, g, b, a ); +> OUTPUT: +> RETVAL +4028,4036c4085,4093 +< SDL_Surface* dst; +< Sint16* vx; +< Sint16* vy; +< int n; +< Uint32 color; +< CODE: +< RETVAL = aapolygonColor( dst, vx, vy, n, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16* vx +> Sint16* vy +> int n +> Uint32 color +> CODE: +> RETVAL = aapolygonColor( dst, vx, vy, n, color ); +> OUTPUT: +> RETVAL +4040,4051c4097,4108 +< SDL_Surface* dst; +< Sint16* vx; +< Sint16* vy; +< int n; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = aapolygonRGBA( dst, vx, vy, n, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16* vx +> Sint16* vy +> int n +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = aapolygonRGBA( dst, vx, vy, n, r, g, b, a ); +> OUTPUT: +> RETVAL +4055,4063c4112,4120 +< SDL_Surface* dst; +< Sint16* vx; +< Sint16* vy; +< int n; +< int color; +< CODE: +< RETVAL = filledPolygonColor( dst, vx, vy, n, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16* vx +> Sint16* vy +> int n +> int color +> CODE: +> RETVAL = filledPolygonColor( dst, vx, vy, n, color ); +> OUTPUT: +> RETVAL +4067,4078c4124,4135 +< SDL_Surface* dst; +< Sint16* vx; +< Sint16* vy; +< int n; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = filledPolygonRGBA( dst, vx, vy, n, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16* vx +> Sint16* vy +> int n +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = filledPolygonRGBA( dst, vx, vy, n, r, g, b, a ); +> OUTPUT: +> RETVAL +4082,4090c4139,4147 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< char c; +< Uint32 color; +< CODE: +< RETVAL = characterColor( dst, x, y, c, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> char c +> Uint32 color +> CODE: +> RETVAL = characterColor( dst, x, y, c, color ); +> OUTPUT: +> RETVAL +4094,4105c4151,4162 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< char c; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = characterRGBA( dst, x, y, c, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> char c +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = characterRGBA( dst, x, y, c, r, g, b, a ); +> OUTPUT: +> RETVAL +4109,4117c4166,4174 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< char* c; +< Uint32 color; +< CODE: +< RETVAL = stringColor( dst, x, y, c, color ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> char* c +> Uint32 color +> CODE: +> RETVAL = stringColor( dst, x, y, c, color ); +> OUTPUT: +> RETVAL +4121,4132c4178,4289 +< SDL_Surface* dst; +< Sint16 x; +< Sint16 y; +< char* c; +< Uint8 r; +< Uint8 g; +< Uint8 b; +< Uint8 a; +< CODE: +< RETVAL = stringRGBA( dst, x, y, c, r, g, b, a ); +< OUTPUT: +< RETVAL +--- +> SDL_Surface* dst +> Sint16 x +> Sint16 y +> char* c +> Uint8 r +> Uint8 g +> Uint8 b +> Uint8 a +> CODE: +> RETVAL = stringRGBA( dst, x, y, c, r, g, b, a ); +> OUTPUT: +> RETVAL +> +> #endif +> +> +> #ifdef HAVE_SDL_SVG +> +> SDL_svg_context * +> SVG_Load ( filename ) +> char* filename +> CODE: +> RETVAL = SVG_Load(filename); +> OUTPUT: +> RETVAL +> +> SDL_svg_context * +> SVG_LoadBuffer ( data, len ) +> char* data +> int len +> CODE: +> RETVAL = SVG_LoadBuffer(data,len); +> OUTPUT: +> RETVAL +> +> int +> SVG_SetOffset ( source, xoff, yoff ) +> SDL_svg_context* source +> double xoff +> double yoff +> CODE: +> RETVAL = SVG_SetOffset(source,xoff,yoff); +> OUTPUT: +> RETVAL +> +> int +> SVG_SetScale ( source, xscale, yscale ) +> SDL_svg_context* source +> double xscale +> double yscale +> CODE: +> RETVAL = SVG_SetScale(source,xscale,yscale); +> OUTPUT: +> RETVAL +> +> int +> SVG_RenderToSurface ( source, x, y, dest ) +> SDL_svg_context* source +> int x +> int y +> SDL_Surface* dest; +> CODE: +> RETVAL = SVG_RenderToSurface(source,x,y,dest); +> OUTPUT: +> RETVAL +> +> void +> SVG_Free ( source ) +> SDL_svg_context* source +> CODE: +> SVG_Free(source); +> +> void +> SVG_Set_Flags ( source, flags ) +> SDL_svg_context* source +> Uint32 flags +> CODE: +> SVG_Set_Flags(source,flags); +> +> float +> SVG_Width ( source ) +> SDL_svg_context* source +> CODE: +> RETVAL = SVG_Width(source); +> OUTPUT: +> RETVAL +> +> float +> SVG_HEIGHT ( source ) +> SDL_svg_context* source +> CODE: +> RETVAL = SVG_Height(source); +> OUTPUT: +> RETVAL +> +> void +> SVG_SetClipping ( source, minx, miny, maxx, maxy ) +> SDL_svg_context* source +> int minx +> int miny +> int maxx +> int maxy +> CODE: +> SVG_SetClipping(source,minx,miny,maxx,maxy); +> +> int +> SVG_Version ( ) +> CODE: +> RETVAL = SVG_Version(); +> OUTPUT: +> RETVAL +> +4166c4323 +< char **ext; +--- +> const char **ext; +4168c4325 +< av_push(RETVAL,sv_2mortal(newSVpv(*ext,0))); +--- +> av_push(RETVAL,newSVpv(*ext,0)); +4173c4330 +< char* +--- +> const char* +4181c4338 +< char* +--- +> const char* +4189c4346 +< char* +--- +> const char* +4233c4390 +< RETVAL = sample->buffer; +--- +> RETVAL = sample->buffer_size; +4244a4402,4451 +> int +> Sound_Init ( ) +> CODE: +> RETVAL = Sound_Init(); +> OUTPUT: +> RETVAL +> +> int +> Sound_Quit ( ) +> CODE: +> RETVAL = Sound_Quit(); +> OUTPUT: +> RETVAL +> +> AV* +> Sound_AvailableDecoders ( ) +> CODE: +> RETVAL = newAV(); +> const Sound_DecoderInfo** sdi; +> sdi = Sound_AvailableDecoders(); +> if (sdi != NULL) { +> for (;*sdi != NULL; ++sdi) { +> av_push(RETVAL,sv_2mortal(newSViv(PTR2IV(*sdi)))); +> } +> } +> OUTPUT: +> RETVAL +> +> const char* +> Sound_GetError ( ) +> CODE: +> RETVAL = Sound_GetError(); +> OUTPUT: +> RETVAL +> +> void +> Sound_ClearError ( ) +> CODE: +> Sound_ClearError(); +> +> Sound_Sample* +> Sound_NewSample ( rw, ext, desired, buffsize ) +> SDL_RWops* rw +> const char* ext +> Sound_AudioInfo* desired +> Uint32 buffsize +> CODE: +> RETVAL = Sound_NewSample(rw,ext,desired,buffsize); +> OUTPUT: +> RETVAL +4245a4453,4529 +> Sound_Sample* +> Sound_NewSampleFromMem ( data, size, ext, desired, buffsize ) +> const Uint8 *data +> Uint32 size +> const char* ext +> Sound_AudioInfo* desired +> Uint32 buffsize +> CODE: +> RETVAL = Sound_NewSampleFromMem(data,size,ext,desired,buffsize); +> OUTPUT: +> RETVAL +> +> Sound_Sample* +> Sound_NewSampleFromFile ( fname, desired, buffsize ) +> const char* fname +> Sound_AudioInfo* desired +> Uint32 buffsize +> CODE: +> RETVAL = Sound_NewSampleFromFile(fname,desired,buffsize); +> OUTPUT: +> RETVAL +> +> void +> Sound_FreeSample ( sample ) +> Sound_Sample* sample +> CODE: +> Sound_FreeSample(sample); +> +> Sint32 +> Sound_GetDuration ( sample ) +> Sound_Sample* sample +> CODE: +> RETVAL = Sound_GetDuration(sample); +> OUTPUT: +> RETVAL +> +> int +> Sound_SetBufferSize ( sample, size ) +> Sound_Sample* sample +> Uint32 size +> CODE: +> RETVAL = Sound_SetBufferSize(sample,size); +> OUTPUT: +> RETVAL +> +> Uint32 +> Sound_Decode ( sample ) +> Sound_Sample* sample +> CODE: +> RETVAL = Sound_Decode(sample); +> OUTPUT: +> RETVAL +> +> Uint32 +> Sound_DecodeAll ( sample ) +> Sound_Sample* sample +> CODE: +> RETVAL = Sound_DecodeAll(sample); +> OUTPUT: +> RETVAL +> +> int +> Sound_Rewind ( sample ) +> Sound_Sample* sample +> CODE: +> RETVAL = Sound_Rewind(sample); +> OUTPUT: +> RETVAL +> +> int +> Sound_Seek ( sample, ms ) +> Sound_Sample* sample +> Uint32 ms +> CODE: +> RETVAL = Sound_Seek(sample,ms); +> OUTPUT: +> RETVAL +Only in sdlperl/src: SDL_perl.bs +Only in sdlperl/src: SDL_perl.c +Only in sdlperl/src: SDL_perl.o +Only in sdlperl/src: SDL_perl.xs +diff -r SDL_perl/src/SFont.h sdlperl/src/SFont.h +1,9c1,29 +< /************************************************************************ +< * SFONT - SDL Font Library by Karl Bartel * +< * * +< * All functions are explained below. There are two versions of each * +< * funtction. The first is the normal one, the function with the * +< * 2 at the end can be used when you want to handle more than one font * +< * in your program. * +< * * +< ************************************************************************/ +--- +> // +> // SFont.h +> // +> // Original SFont code Copyright (C) Karl Bartel +> // 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 +> // +diff -r SDL_perl/src/SFont.xs sdlperl/src/SFont.xs +1d0 +< // SDL::SFont +3c2 +< // SFont bitmap font support +--- +> // SFont.xs +5c4,5 +< // SFont library code by Karl Bartel +--- +> // Original SFont code Copyright (C) Karl Bartel +> // Copyright (C) 2005 David J. Goehrig +7c7,28 +< // SFont.xs Copyright (C) 2004 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 +26,27c47,48 +< #include "defines.h" +< #include "SFont.h" +--- +> #include "../defines.h" +> #include "../SFont.h" +diff -r SDL_perl/src/defines.h sdlperl/src/defines.h +2c2 +< // Copyright (C) 2004 David J. Goehrig +--- +> // defines.h +3a4,27 +> // 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 +Only in sdlperl/src: support +diff -r SDL_perl/t/apppm.t sdlperl/t/apppm.t +5c5,29 +< # Copyright (C) 2009 Kartik Thakore +--- +> # +> # ------------------------------------------------------------------------------ +> # +> # 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 +> # +> # +9c33 +< unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/', 'blib/arch/auto/SDL/SFont'; +--- +> unshift @INC, 'blib/lib','blib/arch'; +diff -r SDL_perl/t/cdrompm.t sdlperl/t/cdrompm.t +5a6,29 +> # ------------------------------------------------------------------------------ +> # +> # 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 +> # +> # +diff -r SDL_perl/t/colorpm.t sdlperl/t/colorpm.t +3c3 +< # Copyright (C) 2003,2006 Tels +--- +> # Copyright (C) 2003 Tels +5a6,31 +> # 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 +> # +> # +16c42 +< plan ( tests => 15 ); +--- +> plan ( tests => 10 ); +25d50 +< rgb +36,37d60 +< is (join(":", $color->rgb()), '0:0:0', 'r, g and b are 0'); +< +44,51d66 +< is (join(":", $color->rgb()), '255:255:255', 'r, g and b are 255'); +< is (join(":", $color->rgb(128,0,80)), '128:0:80', 'r, g and b are set'); +< is (join(":", $color->rgb()), '128:0:80', 'r, g and b still set'); +< +< # test the new new($r,$g,$b) calling style +< $color = SDL::Color->new( 255,70,128); +< is (join(":", $color->rgb()), '255:70:128', 'r, g and b are set via new($r,$g,$b)'); +< +diff -r SDL_perl/t/cursorpm.t sdlperl/t/cursorpm.t +5a6,31 +> # 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 +> # +> # +diff -r SDL_perl/t/eventpm.t sdlperl/t/eventpm.t +5a6,31 +> # 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 +> # +> # +25d50 +< peep +46,47c71 +< button_y +< /); +--- +> button_y /); +diff -r SDL_perl/t/fontpm.t sdlperl/t/fontpm.t +5c5,31 +< # Copyright (C) 2009 Kartik Thakore +--- +> # +> # 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 +> # +> # +9c35 +< unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont'; +--- +> unshift @INC, 'blib/lib','blib/arch'; +diff -r SDL_perl/t/mixerpm.t sdlperl/t/mixerpm.t +5c5,31 +< # Copyright (C) 2009 Kartik Thakore +--- +> # +> # 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 +> # +> # +61,62d86 +< mix_volume_chunk +< mix_set_panning +diff -r SDL_perl/t/mpegpm.t sdlperl/t/mpegpm.t +5a6,31 +> # 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 +> # +> # +diff -r SDL_perl/t/musicpm.t sdlperl/t/musicpm.t +5a6,31 +> # 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 +> # +> # +diff -r SDL_perl/t/opengl.t sdlperl/t/opengl.t +5c5,31 +< # Copyright (C) 2009 Kartik Thakore +--- +> # +> # 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 +> # +> # +9c35 +< unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/OpenGL'; +--- +> unshift @INC, 'blib/lib','blib/arch'; +18c44 +< plan ( tests => 4 ); +--- +> plan ( tests => 3 ); +39d64 +< glGetString +68,78c93 +< gluPwlCurve +< gluNewQuadric +< gluDeleteQuadric +< gluQuadricNormals +< gluQuadricTexture +< gluCylinder +< gluDisk +< gluPartialDisk +< gluSphere /); +< +< can_ok('main',qw/glXUseXFont/); +--- +> gluPwlCurve /); +diff -r SDL_perl/t/palettepm.t sdlperl/t/palettepm.t +5a6,31 +> # 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 +> # +> # +diff -r SDL_perl/t/rectpm.t sdlperl/t/rectpm.t +5a6,31 +> # 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 +> # +> # +diff -r SDL_perl/t/sdlpm.t sdlperl/t/sdlpm.t +5a6,31 +> # 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 +> # +> # +diff -r SDL_perl/t/soundpm.t sdlperl/t/soundpm.t +5a6,31 +> # 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 +> # +> # +diff -r SDL_perl/t/surfacepm.t sdlperl/t/surfacepm.t +5c5,31 +< # Copyright (C) 2009 Kartik Thakore +--- +> # +> # 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 +> # +> # +9c35 +< unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont',; +--- +> unshift @INC, 'blib/lib','blib/arch'; +61a88,113 +> # +> # 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 +> # +diff -r SDL_perl/t/timerpm.t sdlperl/t/timerpm.t +5a6,31 +> # 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 +> # +> # +diff -r SDL_perl/t/toolfontpm.t sdlperl/t/toolfontpm.t +5a6,31 +> # 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 +> # +> # +9c35 +< unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont/'; +--- +> unshift @INC, 'blib/lib','blib/arch'; +diff -r SDL_perl/t/toolgraphicpm.t sdlperl/t/toolgraphicpm.t +5c5,31 +< # Copyright (C) 2009 Kartik Thakore +--- +> # +> # 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 +> # +> # +9c35 +< unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont/'; +--- +> unshift @INC, 'blib/lib','blib/arch'; +diff -r SDL_perl/t/ttfontpm.t sdlperl/t/ttfontpm.t +5c5,31 +< # Copyright (C) 2009 Kartik Thakore +--- +> # +> # 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 +> # +> # +9c35 +< unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont'; +--- +> unshift @INC, 'blib/lib','blib/arch'; +diff -r SDL_perl/t/videopm.t sdlperl/t/videopm.t +5c5,31 +< # Copyright (C) 2009 Kartik Thakore +--- +> # +> # 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 +> # +> # +9c35 +< unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont'; +--- +> unshift @INC, 'blib/lib','blib/arch'; +diff -r SDL_perl/typemap sdlperl/typemap +4a5 +> const Uint8* T_PTR +16d16 +< SDL_eventaction T_PTR +57a58 +> GLuint* T_PTR +63,64d63 +< GLUquadric * T_PTR +< GLdouble T_NV +69c68,69 +< Font T_IV +--- +> SDL_RWops* T_PTR +> SDL_svg_context* T_PTR