X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibextutils-parsexs-perl%2Flibextutils-parsexs-perl-2.19%2Ft%2FXSTest.xs;fp=dev%2Farm%2Flibextutils-parsexs-perl%2Flibextutils-parsexs-perl-2.19%2Ft%2FXSTest.xs;h=699c7341aa6f8f674f5224ad708189ee1707477a;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11

diff --git a/dev/arm/libextutils-parsexs-perl/libextutils-parsexs-perl-2.19/t/XSTest.xs b/dev/arm/libextutils-parsexs-perl/libextutils-parsexs-perl-2.19/t/XSTest.xs
new file mode 100644
index 0000000..699c734
--- /dev/null
+++ b/dev/arm/libextutils-parsexs-perl/libextutils-parsexs-perl-2.19/t/XSTest.xs
@@ -0,0 +1,67 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+void
+xstest_something (char * some_thing)
+{
+	some_thing = some_thing;
+}
+
+void
+xstest_something2 (char * some_thing)
+{
+	some_thing = some_thing;
+}
+
+
+MODULE = XSTest         PACKAGE = XSTest	PREFIX = xstest_
+
+PROTOTYPES: DISABLE
+
+int
+is_even(input)
+	int     input
+    CODE:
+	RETVAL = (input % 2 == 0);
+    OUTPUT:
+	RETVAL
+
+void
+xstest_something (myclass, some_thing)
+	char * some_thing
+    C_ARGS:
+	some_thing
+
+void
+xstest_something2 (some_thing)
+	char * some_thing
+
+void
+xstest_something3 (myclass, some_thing)
+	SV   * myclass
+	char * some_thing
+    PREINIT:
+    	int i = 0;
+    PPCODE:
+    	/* it's up to us clear these warnings */
+	myclass = myclass;
+	some_thing = some_thing;
+	i = i;
+	XSRETURN_UNDEF;
+	
+int
+consts (myclass)
+	SV * myclass
+    ALIAS:
+	const_one = 1
+	const_two = 2
+	const_three = 3
+    CODE:
+    	/* it's up to us clear these warnings */
+    	myclass = myclass;
+	ix = ix;
+    	RETVAL = 1;
+    OUTPUT:
+	RETVAL
+