Added docs, XS , PM and test file stubs for SDL::MultiThread
Kartik Thakore [Wed, 4 Nov 2009 19:03:27 +0000 (14:03 -0500)]
Build.PL
lib/SDL/MultiThread.pm [new file with mode: 0644]
lib/pods/SDL/MultiThread.pod [new file with mode: 0644]
src/Core/MultiThread.xs
t/core_multi.t

index 595c8da..c9c2284 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -49,6 +49,13 @@ my %subsystems =
                },
                libraries => [qw( SDL )],
        },
+       MultiThread => {
+               file      => {
+                       from  => 'src/Core/MultiThread.xs',
+                       to    => 'lib/SDL/MultiThread.xs',
+               },
+               libraries => [qw( SDL )],
+       },
        Video => {
                file      => {
                        from  => 'src/Core/Video.xs',
diff --git a/lib/SDL/MultiThread.pm b/lib/SDL/MultiThread.pm
new file mode 100644 (file)
index 0000000..9807794
--- /dev/null
@@ -0,0 +1,9 @@
+package SDL::MultiThread;
+use strict;
+use warnings;
+require Exporter;
+require DynaLoader;
+our @ISA = qw(Exporter DynaLoader);
+bootstrap SDL::MultiThread;
+
+1;
diff --git a/lib/pods/SDL/MultiThread.pod b/lib/pods/SDL/MultiThread.pod
new file mode 100644 (file)
index 0000000..3162010
--- /dev/null
@@ -0,0 +1,12 @@
+=pod
+
+=head1 NAME
+
+SDL::Video - Bindings to the MultiThread category in SDL API
+
+=head1 SYNOPSIS
+
+This module is not an object. 
+
+
+=cut
index e69de29..729c516 100644 (file)
@@ -0,0 +1,27 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#ifndef aTHX_
+#define aTHX_
+#endif
+
+#include <SDL.h>
+#include <SDL_thread.h>
+
+MODULE = SDL::MultiThread      PACKAGE = SDL::MultiThread    PREFIX = multi_
+
+=for documentation
+
+The Following are XS bindings to the MultiThread category in the SDL API v2.1.13
+
+Describe on the SDL API site.
+
+See: L<http://www.libsdl.org/cgi/docwiki.cgi/SDL_API>
+
+=cut
+
+Uint32
+multi_threadID()
+       CODE:
+               warn(" ... " );
index d075d36..702ece3 100644 (file)
@@ -8,10 +8,11 @@ plan ( tests => 4 );
 my @done =qw/ none /;
 
 
+use_ok( 'SDL::MultiThread' ); 
 SKIP:
 {
-skip 'Not implemented', 2; 
-use_ok( 'SDL::MultiThread' ); 
+skip 'Not implemented', 1; 
+
 can_ok ('SDL::MultiThread ', @done); 
 }