source/libs/lua52/lua52-src/src/lctype.h

   1 /*
   2 ** $Id: lctype.h,v 1.12.1.1 2013/04/12 18:48:47 roberto Exp $
   3 ** 'ctype' functions for Lua
   4 ** See Copyright Notice in lua.h
   5 */
   6
   7 #ifndef lctype_h
   8 #define lctype_h
   9
  10 #include <ctype.h>
  11
  12 #include "lua.h"
  13
  14
  15 /*
  16 ** WARNING: the functions defined here do not necessarily correspond
  17 ** to the similar functions in the standard C ctype.h. They are
  18 ** optimized for the specific needs of Lua
  19 */
  20
  21 #if !defined(LUA_USE_CTYPE)
  22
  23 #if 'A' == 65 && '0' == 48
  24 /* ASCII case: can use its own tables; faster and fixed */
  25 #define LUA_USE_CTYPE   0
  26 #else
  27 /* must use standard C ctype */
  28 #define LUA_USE_CTYPE   1
  29 #endif
  30
  31 #endif
  32
  33
  34 #if !LUA_USE_CTYPE      /* { */
  35
  36 #include <limits.h>
  37
  38 #include "llimits.h"
  39
  40
  41 #define ALPHABIT        0
  42 #define DIGITBIT        1
  43 #define PRINTBIT        2
  44 #define SPACEBIT        3
  45 #define XDIGITBIT       4
  46
  47
  48 #define MASK(B)         (1 << (B))
  49
  50
  51 /*
  52 ** add 1 to char to allow index -1 (EOZ)
  53 */
  54 #define testprop(c,p)   (luai_ctype_[(c)+1] & (p))
  55
  56 /*
  57 ** 'lalpha' (Lua alphabetic) and 'lalnum' (Lua alphanumeric) both include '_'
  58 **
  59 ** all utf-8 chars (greater than 0x7f) are always alphabetic
  60 */
  61 #define lislalpha(c)    (isalpha(c) || (c) == '_' || (c) > 0x7f)
  62 #define lislalnum(c)    (isalnum(c) || (c) == '_' || (c) > 0x7f)
  63 #define lisdigit(c)     testprop(c, MASK(DIGITBIT))
  64 #define lisspace(c)     testprop(c, MASK(SPACEBIT))
  65 #define lisprint(c)     testprop(c, MASK(PRINTBIT))
  66 #define lisxdigit(c)    testprop(c, MASK(XDIGITBIT))
  67
  68 /*
  69 ** this 'ltolower' only works for alphabetic characters
  70 */
  71 #define ltolower(c)     ((c) | ('A' ^ 'a'))
  72
  73
  74 /* two more entries for 0 and -1 (EOZ) */
  75 LUAI_DDEC const lu_byte luai_ctype_[UCHAR_MAX + 2];
  76
  77
  78 #else                   /* }{ */
  79
  80 /*
  81 ** use standard C ctypes
  82 */
  83
  84 #include <ctype.h>
  85
  86
  87 #define lislalpha(c)    (isalpha(c) || (c) == '_')
  88 #define lislalnum(c)    (isalnum(c) || (c) == '_')
  89 #define lisdigit(c)     (isdigit(c))
  90 #define lisspace(c)     (isspace(c))
  91 #define lisprint(c)     (isprint(c))
  92 #define lisxdigit(c)    (isxdigit(c))
  93
  94 #define ltolower(c)     (tolower(c))
  95
  96 #endif                  /* } */
  97
  98 #endif
  99