← Back to branch summary

~widelands-dev/widelands/remove-savegame-compatibility-after-economy-change

« back to all changes in this revision

Viewing changes to src/third_party/eris/lctype.h

Merged trunk.

Show diffs side-by-side

added added

removed removed

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