3 * (C) Copyright Dec 20 1998, Edmond J. Breen.
5 * This code may be copied for personal, non-profit use only.
16 #include "stdliblocal.h"
19 #define _C_DH_ (_C_DIG | _C_HEX)
20 #define _C_LH_ (_C_LOW | _C_HEX)
21 #define _C_UH_ (_C_UPP | _C_HEX)
23 unsigned short _c_array_[257] =
26 /* 0*/ _C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,
27 /* 8*/ _C_OTH,_C_CTL,_C_CTL,_C_CTL,_C_CTL,_C_CTL,_C_OTH,_C_OTH,
28 /* 16*/ _C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,
29 /* 24*/ _C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,_C_OTH,
30 /* 32*/ _C_SPA,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,
31 /* 40*/ _C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,
32 /* 48*/ _C_DH_,_C_DH_,_C_DH_,_C_DH_,_C_DH_,_C_DH_,_C_DH_,_C_DH_,
33 /* 56*/ _C_DH_,_C_DH_,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,
34 /* 64*/ _C_PUN,_C_UH_,_C_UH_,_C_UH_,_C_UH_,_C_UH_,_C_UH_,_C_UPP,
35 /* 72*/ _C_UPP,_C_UPP,_C_UPP,_C_UPP,_C_UPP,_C_UPP,_C_UPP,_C_UPP,
36 /* 80*/ _C_UPP,_C_UPP,_C_UPP,_C_UPP,_C_UPP,_C_UPP,_C_UPP,_C_UPP,
37 /* 88*/ _C_UPP,_C_UPP,_C_UPP,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_PUN,
38 /* 96*/ _C_PUN,_C_LH_,_C_LH_,_C_LH_,_C_LH_,_C_LH_,_C_LH_,_C_LOW,
39 /*104*/ _C_LOW,_C_LOW,_C_LOW,_C_LOW,_C_LOW,_C_LOW,_C_LOW,_C_LOW,
40 /*112*/ _C_LOW,_C_LOW,_C_LOW,_C_LOW,_C_LOW,_C_LOW,_C_LOW,_C_LOW,
41 /*120*/ _C_LOW,_C_LOW,_C_LOW,_C_PUN,_C_PUN,_C_PUN,_C_PUN,_C_OTH,
44 unsigned short *_CtYpE = & _c_array_[1];
49 val_t _get_ctype(void)
53 v.p.sp = (char *)v.p.p - sizeof(unsigned short);
54 setEp(v.p,256*sizeof(unsigned short)); /* see ctype.c */
58 /***************************************************************************/
60 void module_ctype(void)
63 EiC_add_builtinfunc("_get_ctype",_get_ctype);