1#include "EXTERN.h" 2#include "perl.h" 3#include "XSUB.h" 4 5<Headers> 6 7static int 8not_here(s) 9char *s; 10{ 11 croak("%s not implemented on this architecture", s); 12 return -1; 13} 14 15static int consterr; 16 17static double 18constant(name, arg) 19char *name; 20int arg; 21{ 22 consterr = 0; 23 errno = 0; 24 switch (*name) { 25<Constants> 26 } 27 consterr = 2; 28 errno = EINVAL; 29 return 0; 30 31not_there: 32 errno = ENOENT; 33 consterr = 1; 34 return 0; 35disabled: 36 errno = ENOENT; 37 consterr = 3; 38 return 0; 39} 40 41int errtype _((void)) { 42 return consterr; 43} 44 45 46MODULE = <Name> PACKAGE = <Name> 47 48 49double 50constant(name,arg) 51 char * name 52 int arg 53 54int 55errtype() 56 57