65 lines
2.4 KiB
C
65 lines
2.4 KiB
C
|
/*
|
||
|
|
** $Id: lctype.c $
|
||
|
|
** 'ctype' functions for Lua
|
||
|
|
** See Copyright Notice in lua.h
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define lctype_c
|
||
|
|
#define LUA_CORE
|
||
|
|
|
||
|
|
#include "lprefix.h"
|
||
|
|
|
||
|
|
|
||
|
|
#include "lctype.h"
|
||
|
|
|
||
|
|
#if !LUA_USE_CTYPE /* { */
|
||
|
|
|
||
|
|
#include <limits.h>
|
||
|
|
|
||
|
|
|
||
|
|
#if defined (LUA_UCID) /* accept UniCode IDentifiers? */
|
||
|
|
/* consider all non-ascii codepoints to be alphabetic */
|
||
|
|
#define NONA 0x01
|
||
|
|
#else
|
||
|
|
#define NONA 0x00 /* default */
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
LUAI_DDEF const lu_byte luai_ctype_[UCHAR_MAX + 2] = {
|
||
|
|
0x00, /* EOZ */
|
||
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0. */
|
||
|
|
0x00, 0x08, 0x08, 0x08, 0x08, 0x08, 0x00, 0x00,
|
||
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 1. */
|
||
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
|
||
|
|
0x0c, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, /* 2. */
|
||
|
|
0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
|
||
|
|
0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, /* 3. */
|
||
|
|
0x16, 0x16, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,
|
||
|
|
0x04, 0x15, 0x15, 0x15, 0x15, 0x15, 0x15, 0x05, /* 4. */
|
||
|
|
0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
|
||
|
|
0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, /* 5. */
|
||
|
|
0x05, 0x05, 0x05, 0x04, 0x04, 0x04, 0x04, 0x05,
|
||
|
|
0x04, 0x15, 0x15, 0x15, 0x15, 0x15, 0x15, 0x05, /* 6. */
|
||
|
|
0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
|
||
|
|
0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, /* 7. */
|
||
|
|
0x05, 0x05, 0x05, 0x04, 0x04, 0x04, 0x04, 0x00,
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, /* 8. */
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA,
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, /* 9. */
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA,
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, /* a. */
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA,
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, /* b. */
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA,
|
||
|
|
0x00, 0x00, NONA, NONA, NONA, NONA, NONA, NONA, /* c. */
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA,
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, /* d. */
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA,
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA, /* e. */
|
||
|
|
NONA, NONA, NONA, NONA, NONA, NONA, NONA, NONA,
|
||
|
|
NONA, NONA, NONA, NONA, NONA, 0x00, 0x00, 0x00, /* f. */
|
||
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
|
||
|
|
};
|
||
|
|
|
||
|
|
#endif /* } */
|