1  /*
2  ** $Id: lctype.h $
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  /*
66  ** In ASCII, this 'ltolower' is correct for alphabetic characters and
67  ** for '.'. That is enough for Lua needs. ('check_exp' ensures that
68  ** the character either is an upper-case letter or is unchanged by
69  ** the transformation, which holds for lower-case letters and '.'.)
70  */
71  #define ltolower(c)  \
72    check_exp(('A' <= (c) && (c) <= 'Z') || (c) == ((c) | ('A' ^ 'a')),  \
73              (c) | ('A' ^ 'a'))
74  
75  
76  /* one entry for each character and for -1 (EOZ) */
77  LUAI_DDEC(const lu_byte luai_ctype_[UCHAR_MAX + 2];)
78  
79  
80  #else			/* }{ */
81  
82  /*
83  ** use standard C ctypes
84  */
85  
86  #include <ctype.h>
87  
88  
89  #define lislalpha(c)	(isalpha(c) || (c) == '_')
90  #define lislalnum(c)	(isalnum(c) || (c) == '_')
91  #define lisdigit(c)	(isdigit(c))
92  #define lisspace(c)	(isspace(c))
93  #define lisprint(c)	(isprint(c))
94  #define lisxdigit(c)	(isxdigit(c))
95  
96  #define ltolower(c)	(tolower(c))
97  
98  #endif			/* } */
99  
100  #endif
101  
102