// SDL Perl by David J. Goehrig <dgoehrig@cpan.org>
//
// 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
CODE:
safefree(e);
+
+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
+
+
int
PollEvent ( e )
SDL_Event *e
RETVAL
void
+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
FreeColor ( color )
SDL_Color *color
CODE:
OUTPUT:
RETVAL
-Uint8
+Sint16
JoyButtonEventWhich ( e )
SDL_Event *e
CODE:
CODE:
safefree(ip);
-char*
+const char*
NetResolveIP ( address )
IPaddress *address
CODE: