|
|
|
|
/*
|
|
|
|
|
** $Id: lctype.h,v 1.7 2009/05/27 16:51:15 roberto Exp roberto $
|
|
|
|
|
** 'ctype' functions for Lua
|
|
|
|
|
** See Copyright Notice in lua.h
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#ifndef lctype_h
|
|
|
|
|
#define lctype_h
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#include <limits.h>
|
|
|
|
|
|
|
|
|
|
#include "lua.h"
|
|
|
|
|
|
|
|
|
|
#include "llimits.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define ALPHABIT 0
|
|
|
|
|
#define DIGITBIT 1
|
|
|
|
|
#define PRINTBIT 2
|
|
|
|
|
#define SPACEBIT 3
|
|
|
|
|
#define XDIGITBIT 4
|
|
|
|
|
#define UPPERBIT 5
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define MASK(B) (1 << (B))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
** add 1 to char to allow index -1 (EOZ)
|
|
|
|
|
*/
|
|
|
|
|
#define testprop(c,p) (luai_ctype_[(c)+1] & (p))
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
** 'lalpha' (Lua alphabetic) and 'lalnum' (Lua alphanumeric) both include '_'
|
|
|
|
|
*/
|
|
|
|
|
#define lislalpha(c) testprop(c, MASK(ALPHABIT))
|
|
|
|
|
#define lislalnum(c) testprop(c, (MASK(ALPHABIT) | MASK(DIGITBIT)))
|
|
|
|
|
#define lisupper(c) testprop(c, MASK(UPPERBIT))
|
|
|
|
|
#define lisdigit(c) testprop(c, MASK(DIGITBIT))
|
|
|
|
|
#define lisspace(c) testprop(c, MASK(SPACEBIT))
|
|
|
|
|
#define lisprint(c) testprop(c, MASK(PRINTBIT))
|
|
|
|
|
#define lisxdigit(c) testprop(c, MASK(XDIGITBIT))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* one more entry for 0 and one more for -1 (EOZ) */
|
|
|
|
|
LUAI_DDEC const lu_byte luai_ctype_[UCHAR_MAX + 2];
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
