git.maemo.org Git - pkg-perl/blob - deb-src/dh-make-perl/dh-make-perl-0.47/Strange-2.1/Strange.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3 #include "XSUB.h"
   4
   5 static int
   6 not_here(char *s)
   7 {
   8     croak("%s not implemented on this architecture", s);
   9     return -1;
  10 }
  11
  12 static double
  13 constant(char *name, int arg)
  14 {
  15     errno = 0;
  16     switch (*name) {
  17     }
  18     errno = EINVAL;
  19     return 0;
  20
  21 not_there:
  22     errno = ENOENT;
  23     return 0;
  24 }
  25
  26
  27 MODULE = Strange                PACKAGE = Strange
  28
  29
  30 double
  31 constant(name,arg)
  32         char *          name
  33         int             arg
  34