blob: 9ad9749410600bf91b357a34ec8415ce1f14b4ac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
diff -ur lua-5.2.4.orig/src/lctype.h lua-5.2.4/src/lctype.h
--- lua-5.2.4.orig/src/lctype.h 2013-04-12 20:48:47.000000000 +0200
+++ lua-5.2.4/src/lctype.h 2014-02-13 13:17:33.000000000 +0100
@@ -7,6 +7,8 @@
#ifndef lctype_h
#define lctype_h
+#include <ctype.h>
+
#include "lua.h"
@@ -53,9 +55,11 @@
/*
** 'lalpha' (Lua alphabetic) and 'lalnum' (Lua alphanumeric) both include '_'
+**
+** all utf-8 chars (greater than 0x7f) are always alphabetic
*/
-#define lislalpha(c) testprop(c, MASK(ALPHABIT))
-#define lislalnum(c) testprop(c, (MASK(ALPHABIT) | MASK(DIGITBIT)))
+#define lislalpha(c) (isalpha(c) || (c) == '_' || (c) > 0x7f)
+#define lislalnum(c) (isalnum(c) || (c) == '_' || (c) > 0x7f)
#define lisdigit(c) testprop(c, MASK(DIGITBIT))
#define lisspace(c) testprop(c, MASK(SPACEBIT))
#define lisprint(c) testprop(c, MASK(PRINTBIT))
|
