added SDL_PeepEvents support

diff --git a/lib/SDL/Event.pm b/lib/SDL/Event.pm
index bbdb5e8..dd21aff 100644 (file)
--- a/lib/SDL/Event.pm
+++ b/lib/SDL/Event.pm
@@ -42,6 +42,12 @@ sub poll {
        return SDL::PollEvent($$self);
 }
 
+sub peep($$$$)
+{
+       my ($event, $numEvents, $action, $mask) = @_;
+       return SDL::PeepEvents($$event, $numEvents, $action, $mask);
+}
+
 sub push {
        my $self = shift;
        return SDL::PushEvent($$self);
@@ -228,6 +234,19 @@ Pumps the event loop, gathering events from the input devices.
 
 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
+
+
 =head2 wait()
 
 Waits for an event end returns then. Always returns true.

diff --git a/src/SDL.xs b/src/SDL.xs
index 9db342c..b880c5c 100644 (file)
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -3,7 +3,7 @@
 // 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
 
@@ -527,6 +527,19 @@ FreeEvent ( e )
        CODE:
                safefree(e);
 
+
+int
+PeepEvents( e, numevents, action, mask)
+       SDL_Event *e
+       int numevents
+       SDL_eventaction action
+       Uint32 mask
+       CODE:
+               RETVAL = SDL_PeepEvents( e, numevents, action, mask);
+       OUTPUT:
+               RETVAL
+
+
 int
 PollEvent ( e )
        SDL_Event *e

diff --git a/t/eventpm.t b/t/eventpm.t
index 97822b4..3a1da0f 100644 (file)
--- a/t/eventpm.t
+++ b/t/eventpm.t
@@ -22,6 +22,7 @@ can_ok ('SDL::Event', qw/
        type 
        pump 
        poll 
+       peep
        wait 
        set 
        set_unicode 
@@ -42,7 +43,8 @@ can_ok ('SDL::Event', qw/
        button 
        button_state 
        button_x 
-       button_y /);
+       button_y 
+       /);
 
 
 

diff --git a/typemap b/typemap
index 18d0bd5..0eb347c 100644 (file)
--- a/typemap
+++ b/typemap
@@ -13,6 +13,7 @@ Sint16 *              T_PTR
 Sint32                 T_IV
 Sint32 *               T_PTR
 SDL_Event *            T_PTR
+SDL_eventaction        T_PTR
 SDL_Surface *          T_PTR
 SDL_SysWMmsg *         T_PTR
 SDL_CD *               T_PTR