X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FConstants.pm;h=5ed457a05ef96d3d0f3b5f1d55b063ebbdc81ce3;hb=0064136debf6b3e5eea159887367743220a31d20;hp=2ddc6dcffda7da6303907810e015e1ac679a9579;hpb=ae1cb2f6c6127b1869aff7e47a6f2e7180a5375f;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/Constants.pm b/lib/SDL/Constants.pm
index 2ddc6dc..5ed457a 100644
--- a/lib/SDL/Constants.pm
+++ b/lib/SDL/Constants.pm
@@ -1,32 +1,35 @@
-# SDL::Constants
+#!/usr/bin/env perl
 #
-# This is an automatically generated file, don't bother editing
+# Constants.pm
 #
-# Copyright (C) 2003,2004 David J. Goehrig <dgoehrig@cpan.org>
+# Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
+#
+# ------------------------------------------------------------------------------
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+# 
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#
+# ------------------------------------------------------------------------------
+#
+# Please feel free to send questions, suggestions or improvements to:
+#
+#	David J. Goehrig
+#	dgoehrig@cpan.org
 #
 
 package SDL::Constants;
 
-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);
 @EXPORT=qw(
 	AUDIO_S16
 	AUDIO_S16MSB
@@ -60,7 +63,6 @@ use vars qw(
 	MIX_FADING_OUT
 	MIX_MAX_VOLUME
 	MIX_NO_FADING
-	MIX_CHANNEL_POST
 	SDLK_0
 	SDLK_1
 	SDLK_2
@@ -294,10 +296,17 @@ use vars qw(
 	UTF8_BLENDED
 	UTF8_SHADED
 	UTF8_SOLID
+	SDL_SVG_FLAG_DIRECT
+	SDL_SVG_FLAG_COMPOSITE
+	SDL_SAMPLEFLAG_NONE
+	SDL_SAMPLEFLAG_CANSEEK
+	SDL_SAMPLEFLAG_EOF
+	SDL_SAMPLEFLAG_ERROR
+	SDL_SAMPLEFLAG_EAGAIN
 );
 
+@ISA = qw(Exporter);
 
-__DATA__
 sub AUDIO_S16 {32784}
 sub AUDIO_S16MSB {36880}
 sub AUDIO_S8 {32776}
@@ -330,7 +339,6 @@ sub MIX_FADING_IN {2}
 sub MIX_FADING_OUT {1}
 sub MIX_MAX_VOLUME {128}
 sub MIX_NO_FADING {0}
-sub MIX_CHANNEL_POST {-2}
 sub SDLK_0 {48}
 sub SDLK_1 {49}
 sub SDLK_2 {50}
@@ -564,4 +572,12 @@ sub UNICODE_SOLID {64}
 sub UTF8_BLENDED {32}
 sub UTF8_SHADED {16}
 sub UTF8_SOLID {8}
+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}
 
+1;