lua/lctype.c at master · zeroisme/lua · GitHub

64 lines (53 loc) · 2.4 KB

** $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. */