git.maemo.org Git - opencv/blob - apps/Hawk/CVEiCL/EiC/module/stdClib/src/ctype.c

   1 /* ctype.c
   2  *
   3  *      (C) Copyright Dec 20 1998, Edmond J. Breen.
   4  *                 ALL RIGHTS RESERVED.
   5  * This code may be copied for personal, non-profit use only.
   6  *
   7  */
   8
   9
  10
  11 #include "ctype.h"
  12
  13 #include <stdlib.h>
  14 #include "eic.h"
  15
  16 #include "stdliblocal.h"
  17
  18
  19 #define _C_DH_  (_C_DIG | _C_HEX)
  20 #define _C_LH_  (_C_LOW | _C_HEX)
  21 #define _C_UH_  (_C_UPP | _C_HEX)
  22
  23 unsigned short _c_array_[257] =
  24 {
  25  /* -1*/       0,
  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,
  42 };
  43
  44 unsigned short *_CtYpE = & _c_array_[1];
  45
  46
  47 /* CTYPE.C STUFF */
  48
  49 val_t _get_ctype(void)
  50 {
  51     val_t v;
  52     v.p.p = _CtYpE;
  53     v.p.sp = (char *)v.p.p - sizeof(unsigned short);
  54     setEp(v.p,256*sizeof(unsigned short));  /* see ctype.c */
  55     return v;
  56 }
  57
  58 /***************************************************************************/
  59
  60 void module_ctype(void)
  61 {
  62    /* ctype.h */
  63    EiC_add_builtinfunc("_get_ctype",_get_ctype);
  64 }
  65
  66
  67
  68
  69