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