From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Thu, 5 Nov 2009 20:12:05 +0000 (-0500)
Subject: Added tool I used to do that
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=20aa5e32fedfa13af933bee163c7f770f88f7e0b;p=sdlgit%2FSDL_perl.git

Added tool I used to do that
---

diff --git a/tools/make_XS_stub.pl b/tools/make_XS_stub.pl
new file mode 100644
index 0000000..838987b
--- /dev/null
+++ b/tools/make_XS_stub.pl
@@ -0,0 +1,37 @@
+
+my @files = qw/
+ActiveEvent  	
+KeyboardEvent  	
+TextInputEvent  	
+MouseMotionEvent  	
+MouseButtonEvent  	
+JoyAxisEvent  	
+JoyHatEvent  	
+JoyButtonEvent 	
+JoyBallEvent  	
+ResizeEvent  	
+ExposeEvent  	
+SysWMEvent  	
+UserEvent  	
+QuitEvent  	
+keysym 		
+/;
+
+foreach (@files)
+{
+   my $file = $_;
+   my $fn = $file.'.pm';
+   open FH, ">$fn";
+   print FH 
+"package SDL::$file;
+use strict;
+use warnings;
+require Exporter;
+require DynaLoader;
+our \@ISA = qw(Exporter DynaLoader);
+bootstrap SDL::$file;
+1;";
+   close FH;
+}
+
+