MultiTheadPOC.pl added. It shows quickly how we can use Inline::C to do threading...

diff --git a/scripts/MultiThreadPOC.pl b/scripts/MultiThreadPOC.pl
new file mode 100644 (file)
index 0000000..8c46eaa
--- /dev/null
+++ b/scripts/MultiThreadPOC.pl
@@ -0,0 +1,37 @@
+use Inline C => DATA =>
+       LIBS => `sdl-config --libs` =>
+       INC  => `sdl-config --cflags`;
+            
+my $fp = get_function_pointer();
+print '[Perl] In perl we got :'.$fp."\n";
+print '[Perl] Making Thread.';
+
+make_thread( $fp, 'I AM THE OVERLOARD XENU!!!');
+
+__END__    
+__C__
+
+#include <SDL.h>
+#include <SDL_thread.h>
+
+char DoIt(char* c){ 
+       int threadID = SDL_ThreadID(); 
+       printf("[C-Thread] we are in %d \n", &threadID);
+       printf("[C-Thread] Called with %s \n", c); 
+       return c;
+}
+
+int get_function_pointer() {
+       printf("[C] Function Pointer is at %d!\n", &DoIt);
+       return PTR2IV(&DoIt);
+}
+
+
+int make_thread(IV pointer, char* c)
+{
+       void * fp = INT2PTR( void *, pointer);
+       void * data = c;
+       SDL_CreateThread( fp, data );
+       printf("[C] Created thread: \n");
+}
+