lua/lctype.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>

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 14:18:25 -03:00			`/*`
Removed extra information from RCS keyword strings Version numbers and dates (mostly wrong) from RCS keyword strings removed from all source files; only the file name are kept. 2018-08-23 14:26:12 -03:00			`** $Id: lctype.c $`
"homemade" version of ctype.h 2009-02-19 14:18:25 -03:00			`** 'ctype' functions for Lua`
			`** See Copyright Notice in lua.h`
			`*/`

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

added include for 'lprefix.h', for stuff that must be added before any other header file 2014-11-02 17:19:04 -02:00			`#include "lprefix.h"`


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

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