lua/lctype.c

/*
** $Id: lctype.c,v 1.10 2011/06/24 12:25:33 roberto Exp roberto $
** 'ctype' functions for Lua
** See Copyright Notice in lua.h
*/

#define lctype_c
#define LUA_CORE

#include "lctype.h"

#if !LUA_USE_CTYPE	/* { */

#include <limits.h>

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,
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,	/* 8. */
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,	/* 9. */
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,	/* a. */
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,	/* b. */
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,	/* c. */
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,	/* d. */
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,	/* e. */
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,	/* f. */
  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,  0x00,
};

#endif			/* } */
"homemade" version of ctype.h 16 years ago			`/*`
missing 'LUA_CORE' definition 13 years ago			`** $Id: lctype.c,v 1.10 2011/06/24 12:25:33 roberto Exp roberto $`
"homemade" version of ctype.h 16 years ago			`** 'ctype' functions for Lua`
			`** See Copyright Notice in lua.h`
			`*/`

missing 'LUA_CORE' definition 13 years ago			`#define lctype_c`
			`#define LUA_CORE`

"homemade" version of ctype.h 16 years ago			`#include "lctype.h"`

resort to standard C ctype for non-ASCII systems 14 years ago			`#if !LUA_USE_CTYPE /* { */`

			`#include <limits.h>`

new macros 'LUAI_DDEC'/'LUAI_DDEF' to better control declarations and definitions of non-static variables 15 years ago			`LUAI_DDEF const lu_byte luai_ctype_[UCHAR_MAX + 2] = {`
small bug: EOZ is a valid character to be tested 16 years ago			`0x00, /* EOZ */`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x08, 0x08, 0x08, 0x08, 0x08, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 1. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x0c, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, /* 2. */`
"homemade" version of ctype.h 16 years ago			`0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, /* 3. */`
added macro 'lisxdigit' (just in case :) 16 years ago			`0x16, 0x16, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x04, 0x15, 0x15, 0x15, 0x15, 0x15, 0x15, 0x05, /* 4. */`
"homemade" version of ctype.h 16 years ago			`0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`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. */`
"homemade" version of ctype.h 16 years ago			`0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, /* 7. */`
"homemade" version of ctype.h 16 years ago			`0x05, 0x05, 0x05, 0x04, 0x04, 0x04, 0x04, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 8. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 9. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* a. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* b. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* c. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* d. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* e. */`
"homemade" version of ctype.h 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua) 14 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* f. */`
new property 'lisupper' (needed to compute values for hexa digits) 16 years ago			`0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,`
"homemade" version of ctype.h 16 years ago			`};`
resort to standard C ctype for non-ASCII systems 14 years ago
			`#endif /* } */`