added macro 'lisxdigit' (just in case :)

2 files changed, 8 insertions, 6 deletions

diff --git a/lctype.c b/lctype.c
index 2979bd81..df7d23a9 100644
--- a/lctype.c
+++ b/lctype.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lctype.c,v 1.1 2009/02/19 17:18:25 roberto Exp roberto $
+** $Id: lctype.c,v 1.2 2009/02/20 13:11:15 roberto Exp roberto $
 ** 'ctype' functions for Lua
 ** See Copyright Notice in lua.h
 */
@@ -15,13 +15,13 @@ const char luai_ctype_[UCHAR_MAX + 1] = {
   0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
   0x0c,  0x04,  0x04,  0x04,  0x04,  0x04,  0x04,  0x04,
   0x04,  0x04,  0x04,  0x04,  0x04,  0x04,  0x04,  0x04,
-  0x06,  0x06,  0x06,  0x06,  0x06,  0x06,  0x06,  0x06,
-  0x06,  0x06,  0x04,  0x04,  0x04,  0x04,  0x04,  0x04,
-  0x04,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,
+  0x16,  0x16,  0x16,  0x16,  0x16,  0x16,  0x16,  0x16,
+  0x16,  0x16,  0x04,  0x04,  0x04,  0x04,  0x04,  0x04,
+  0x04,  0x15,  0x15,  0x15,  0x15,  0x15,  0x15,  0x05,
   0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,
   0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,
   0x05,  0x05,  0x05,  0x04,  0x04,  0x04,  0x04,  0x04,
-  0x04,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,
+  0x04,  0x15,  0x15,  0x15,  0x15,  0x15,  0x15,  0x05,
   0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,
   0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,  0x05,
   0x05,  0x05,  0x05,  0x04,  0x04,  0x04,  0x04,  0x00,
diff --git a/lctype.h b/lctype.h
index 89dbbd8d..13e3d88d 100644
--- a/lctype.h
+++ b/lctype.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lctype.h,v 1.1 2009/02/19 17:18:25 roberto Exp roberto $
+** $Id: lctype.h,v 1.2 2009/02/20 13:11:15 roberto Exp roberto $
 ** 'ctype' functions for Lua
 ** See Copyright Notice in lua.h
 */
@@ -17,6 +17,7 @@
 #define DIGITBIT        1
 #define PRINTBIT        2
 #define SPACEBIT        3
+#define XDIGITBIT       4
 
 
 #define MASK(B)         (1 << (B))
@@ -27,6 +28,7 @@
 #define lisdigit(x)     (luai_ctype_[x] & MASK(DIGITBIT))
 #define lisspace(x)     (luai_ctype_[x] & MASK(SPACEBIT))
 #define lisprint(x)     (luai_ctype_[x] & MASK(PRINTBIT))
+#define lisxdigit(x)    (luai_ctype_[x] & MASK(XDIGITBIT))
 
 LUAI_DATA const char luai_ctype_[UCHAR_MAX + 1];