Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | RSS feed

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