1 files changed, 101 insertions, 0 deletions

diff --git a/src/3rdParty/lua/lctype.h b/src/3rdParty/lua/lctype.h
new file mode 100644
index 0000000..864e190
--- /dev/null
+++ b/src/3rdParty/lua/lctype.h
@@ -0,0 +1,101 @@
+/*
+** $Id: lctype.h $
+** 'ctype' functions for Lua
+** See Copyright Notice in lua.h
+*/
+
+#ifndef lctype_h
+#define lctype_h
+
+#include "lua.h"
+
+
+/*
+** WARNING: the functions defined here do not necessarily correspond
+** to the similar functions in the standard C ctype.h. They are
+** optimized for the specific needs of Lua.
+*/
+
+#if !defined(LUA_USE_CTYPE)
+
+#if 'A' == 65 && '0' == 48
+/* ASCII case: can use its own tables; faster and fixed */
+#define LUA_USE_CTYPE   0
+#else
+/* must use standard C ctype */
+#define LUA_USE_CTYPE   1
+#endif
+
+#endif
+
+
+#if !LUA_USE_CTYPE      /* { */
+
+#include <limits.h>
+
+#include "llimits.h"
+
+
+#define ALPHABIT        0
+#define DIGITBIT        1
+#define PRINTBIT        2
+#define SPACEBIT        3
+#define XDIGITBIT       4
+
+
+#define MASK(B)         (1 << (B))
+
+
+/*
+** add 1 to char to allow index -1 (EOZ)
+*/
+#define testprop(c,p)   (luai_ctype_[(c)+1] & (p))
+
+/*
+** 'lalpha' (Lua alphabetic) and 'lalnum' (Lua alphanumeric) both include '_'
+*/
+#define lislalpha(c)    testprop(c, MASK(ALPHABIT))
+#define lislalnum(c)    testprop(c, (MASK(ALPHABIT) | MASK(DIGITBIT)))
+#define lisdigit(c)     testprop(c, MASK(DIGITBIT))
+#define lisspace(c)     testprop(c, MASK(SPACEBIT))
+#define lisprint(c)     testprop(c, MASK(PRINTBIT))
+#define lisxdigit(c)    testprop(c, MASK(XDIGITBIT))
+
+
+/*
+** In ASCII, this 'ltolower' is correct for alphabetic characters and
+** for '.'. That is enough for Lua needs. ('check_exp' ensures that
+** the character either is an upper-case letter or is unchanged by
+** the transformation, which holds for lower-case letters and '.'.)
+*/
+#define ltolower(c)  \
+  check_exp(('A' <= (c) && (c) <= 'Z') || (c) == ((c) | ('A' ^ 'a')),  \
+            (c) | ('A' ^ 'a'))
+
+
+/* one entry for each character and for -1 (EOZ) */
+LUAI_DDEC(const lu_byte luai_ctype_[UCHAR_MAX + 2];)
+
+
+#else                   /* }{ */
+
+/*
+** use standard C ctypes
+*/
+
+#include <ctype.h>
+
+
+#define lislalpha(c)    (isalpha(c) || (c) == '_')
+#define lislalnum(c)    (isalnum(c) || (c) == '_')
+#define lisdigit(c)     (isdigit(c))
+#define lisspace(c)     (isspace(c))
+#define lisprint(c)     (isprint(c))
+#define lisxdigit(c)    (isxdigit(c))
+
+#define ltolower(c)     (tolower(c))
+
+#endif                  /* } */
+
+#endif
+