Add ARM files

[dh-make-perl] / dev / arm / dh-make-perl / dh-make-perl-0.47 / Strange-2.1 / Strange.xs

diff --git a/dev/arm/dh-make-perl/dh-make-perl-0.47/Strange-2.1/Strange.xs b/dev/arm/dh-make-perl/dh-make-perl-0.47/Strange-2.1/Strange.xs
new file mode 100644 (file)
index 0000000..1e11158
--- /dev/null
+++ b/dev/arm/dh-make-perl/dh-make-perl-0.47/Strange-2.1/Strange.xs
@@ -0,0 +1,34 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+static int
+not_here(char *s)
+{
+    croak("%s not implemented on this architecture", s);
+    return -1;
+}
+
+static double
+constant(char *name, int arg)
+{
+    errno = 0;
+    switch (*name) {
+    }
+    errno = EINVAL;
+    return 0;
+
+not_there:
+    errno = ENOENT;
+    return 0;
+}
+
+
+MODULE = Strange               PACKAGE = Strange               
+
+
+double
+constant(name,arg)
+       char *          name
+       int             arg
+