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 2009-02-19 20:18:25 +03:00			`/*`
missing 'LUA_CORE' definition 2011-10-03 20:19:23 +04:00			`** $Id: lctype.c,v 1.10 2011/06/24 12:25:33 roberto Exp roberto $`
"homemade" version of ctype.h 2009-02-19 20:18:25 +03:00			`** 'ctype' functions for Lua`
			`** See Copyright Notice in lua.h`
			`*/`

missing 'LUA_CORE' definition 2011-10-03 20:19:23 +04:00			`#define lctype_c`
			`#define LUA_CORE`

"homemade" version of ctype.h 2009-02-19 20:18:25 +03:00			`#include "lctype.h"`

resort to standard C ctype for non-ASCII systems 2011-06-24 16:25:33 +04:00			`#if !LUA_USE_CTYPE /* { */`

			`#include <limits.h>`

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