[proxmark3-svn] / liblua / luaconf.h

/*
** $Id: luaconf.h,v 1.176 2013/03/16 21:10:18 roberto Exp $
** Configuration file for Lua
** See Copyright Notice in lua.h
*/


#ifndef lconfig_h
#define lconfig_h

#include <limits.h>
#include <stddef.h>


/*
** ==================================================================
** Search for "@@" to find all configurable definitions.
** ===================================================================
*/


/*
@@ LUA_ANSI controls the use of non-ansi features.
** CHANGE it (define it) if you want Lua to avoid the use of any
** non-ansi feature or library.
*/
#if !defined(LUA_ANSI) && defined(__STRICT_ANSI__)
#define LUA_ANSI
#endif


#if !defined(LUA_ANSI) && defined(_WIN32) && !defined(_WIN32_WCE)
#define LUA_WIN		/* enable goodies for regular Windows platforms */
#endif

#if defined(LUA_WIN)
#define LUA_DL_DLL
#define LUA_USE_AFORMAT		/* assume 'printf' handles 'aA' specifiers */
#endif


#if defined(LUA_USE_LINUX)
#define LUA_USE_POSIX
#define LUA_USE_DLOPEN		/* needs an extra library: -ldl */
#define LUA_USE_READLINE	/* needs some extra libraries */
#define LUA_USE_STRTODHEX	/* assume 'strtod' handles hex formats */
#define LUA_USE_AFORMAT		/* assume 'printf' handles 'aA' specifiers */
#define LUA_USE_LONGLONG	/* assume support for long long */
#endif

#if defined(LUA_USE_MACOSX)
#define LUA_USE_POSIX
#define LUA_USE_DLOPEN		/* does not need -ldl */
#define LUA_USE_READLINE	/* needs an extra library: -lreadline */
#define LUA_USE_STRTODHEX	/* assume 'strtod' handles hex formats */
#define LUA_USE_AFORMAT		/* assume 'printf' handles 'aA' specifiers */
#define LUA_USE_LONGLONG	/* assume support for long long */
#endif


/*
@@ LUA_USE_POSIX includes all functionality listed as X/Open System
@* Interfaces Extension (XSI).
** CHANGE it (define it) if your system is XSI compatible.
*/
#if defined(LUA_USE_POSIX)
#define LUA_USE_MKSTEMP
#define LUA_USE_ISATTY
#define LUA_USE_POPEN
#define LUA_USE_ULONGJMP
#define LUA_USE_GMTIME_R
#endif


/*
@@ LUA_PATH_DEFAULT is the default path that Lua uses to look for
@* Lua libraries.
@@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for
@* C libraries.
** CHANGE them if your machine has a non-conventional directory
** hierarchy or if you want to install your libraries in
** non-conventional directories.
*/
#if defined(_WIN32)	/* { */
/*
** In Windows, any exclamation mark ('!') in the path is replaced by the
** path of the directory of the executable file of the current process.
*/
#define LUA_LDIR	"!\\lua\\"
#define LUA_CDIR	"!\\"
#define LUA_PATH_DEFAULT  \
		LUA_LDIR"?.lua;"  LUA_LDIR"?\\init.lua;" \
		LUA_CDIR"?.lua;"  LUA_CDIR"?\\init.lua;" ".\\?.lua"
#define LUA_CPATH_DEFAULT \
		LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll;" ".\\?.dll"

#else			/* }{ */

#define LUA_VDIR	LUA_VERSION_MAJOR "." LUA_VERSION_MINOR "/"
#define LUA_ROOT	"/usr/local/"
#define LUA_LDIR	LUA_ROOT "share/lua/" LUA_VDIR
#define LUA_CDIR	LUA_ROOT "lib/lua/" LUA_VDIR
#define LUA_PATH_DEFAULT  \
		LUA_LDIR"?.lua;"  LUA_LDIR"?/init.lua;" \
		LUA_CDIR"?.lua;"  LUA_CDIR"?/init.lua;" "./?.lua"
#define LUA_CPATH_DEFAULT \
		LUA_CDIR"?.so;" LUA_CDIR"loadall.so;" "./?.so"
#endif			/* } */


/*
@@ LUA_DIRSEP is the directory separator (for submodules).
** CHANGE it if your machine does not use "/" as the directory separator
** and is not Windows. (On Windows Lua automatically uses "\".)
*/
#if defined(_WIN32)
#define LUA_DIRSEP	"\\"
#else
#define LUA_DIRSEP	"/"
#endif


/*
@@ LUA_ENV is the name of the variable that holds the current
@@ environment, used to access global names.
** CHANGE it if you do not like this name.
*/
#define LUA_ENV		"_ENV"


/*
@@ LUA_API is a mark for all core API functions.
@@ LUALIB_API is a mark for all auxiliary library functions.
@@ LUAMOD_API is a mark for all standard library opening functions.
** CHANGE them if you need to define those functions in some special way.
** For instance, if you want to create one Windows DLL with the core and
** the libraries, you may want to use the following definition (define
** LUA_BUILD_AS_DLL to get it).
*/
#if defined(LUA_BUILD_AS_DLL)	/* { */

#if defined(LUA_CORE) || defined(LUA_LIB)	/* { */
#define LUA_API __declspec(dllexport)
#else						/* }{ */
#define LUA_API __declspec(dllimport)
#endif						/* } */

#else				/* }{ */

#define LUA_API		extern

#endif				/* } */


/* more often than not the libs go together with the core */
#define LUALIB_API	LUA_API
#define LUAMOD_API	LUALIB_API


/*
@@ LUAI_FUNC is a mark for all extern functions that are not to be
@* exported to outside modules.
@@ LUAI_DDEF and LUAI_DDEC are marks for all extern (const) variables
@* that are not to be exported to outside modules (LUAI_DDEF for
@* definitions and LUAI_DDEC for declarations).
** CHANGE them if you need to mark them in some special way. Elf/gcc
** (versions 3.2 and later) mark them as "hidden" to optimize access
** when Lua is compiled as a shared library. Not all elf targets support
** this attribute. Unfortunately, gcc does not offer a way to check
** whether the target offers that support, and those without support
** give a warning about it. To avoid these warnings, change to the
** default definition.
*/
#if defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \
    defined(__ELF__)		/* { */
#define LUAI_FUNC	__attribute__((visibility("hidden"))) extern
#define LUAI_DDEC	LUAI_FUNC
#define LUAI_DDEF	/* empty */

#else				/* }{ */
#define LUAI_FUNC	extern
#define LUAI_DDEC	extern
#define LUAI_DDEF	/* empty */
#endif				/* } */


/*
@@ LUA_QL describes how error messages quote program elements.
** CHANGE it if you want a different appearance.
*/
#define LUA_QL(x)	"'" x "'"
#define LUA_QS		LUA_QL("%s")


/*
@@ LUA_IDSIZE gives the maximum size for the description of the source
@* of a function in debug information.
** CHANGE it if you want a different size.
*/
#define LUA_IDSIZE	60


/*
@@ luai_writestring/luai_writeline define how 'print' prints its results.
** They are only used in libraries and the stand-alone program. (The #if
** avoids including 'stdio.h' everywhere.)
*/
#if defined(LUA_LIB) || defined(lua_c)
#include <stdio.h>
#define luai_writestring(s,l)	fwrite((s), sizeof(char), (l), stdout)
#define luai_writeline()	(luai_writestring("\n", 1), fflush(stdout))
#endif

/*
@@ luai_writestringerror defines how to print error messages.
** (A format string with one argument is enough for Lua...)
*/
#define luai_writestringerror(s,p) \
	(fprintf(stderr, (s), (p)), fflush(stderr))


/*
@@ LUAI_MAXSHORTLEN is the maximum length for short strings, that is,
** strings that are internalized. (Cannot be smaller than reserved words
** or tags for metamethods, as these strings must be internalized;
** #("function") = 8, #("__newindex") = 10.)
*/
#define LUAI_MAXSHORTLEN        40


/*
** {==================================================================
** Compatibility with previous versions
** ===================================================================
*/

/*
@@ LUA_COMPAT_ALL controls all compatibility options.
** You can define it to get all options, or change specific options
** to fit your specific needs.
*/
#if defined(LUA_COMPAT_ALL)	/* { */

/*
@@ LUA_COMPAT_UNPACK controls the presence of global 'unpack'.
** You can replace it with 'table.unpack'.
*/
#define LUA_COMPAT_UNPACK

/*
@@ LUA_COMPAT_LOADERS controls the presence of table 'package.loaders'.
** You can replace it with 'package.searchers'.
*/
#define LUA_COMPAT_LOADERS

/*
@@ macro 'lua_cpcall' emulates deprecated function lua_cpcall.
** You can call your C function directly (with light C functions).
*/
#define lua_cpcall(L,f,u)  \
	(lua_pushcfunction(L, (f)), \
	 lua_pushlightuserdata(L,(u)), \
	 lua_pcall(L,1,0,0))


/*
@@ LUA_COMPAT_LOG10 defines the function 'log10' in the math library.
** You can rewrite 'log10(x)' as 'log(x, 10)'.
*/
#define LUA_COMPAT_LOG10

/*
@@ LUA_COMPAT_LOADSTRING defines the function 'loadstring' in the base
** library. You can rewrite 'loadstring(s)' as 'load(s)'.
*/
#define LUA_COMPAT_LOADSTRING

/*
@@ LUA_COMPAT_MAXN defines the function 'maxn' in the table library.
*/
#define LUA_COMPAT_MAXN

/*
@@ The following macros supply trivial compatibility for some
** changes in the API. The macros themselves document how to
** change your code to avoid using them.
*/
#define lua_strlen(L,i)		lua_rawlen(L, (i))

#define lua_objlen(L,i)		lua_rawlen(L, (i))

#define lua_equal(L,idx1,idx2)		lua_compare(L,(idx1),(idx2),LUA_OPEQ)
#define lua_lessthan(L,idx1,idx2)	lua_compare(L,(idx1),(idx2),LUA_OPLT)

/*
@@ LUA_COMPAT_MODULE controls compatibility with previous
** module functions 'module' (Lua) and 'luaL_register' (C).
*/
#define LUA_COMPAT_MODULE

#endif				/* } */

/* }================================================================== */


/*
@@ LUAI_BITSINT defines the number of bits in an int.
** CHANGE here if Lua cannot automatically detect the number of bits of
** your machine. Probably you do not need to change this.
*/
/* avoid overflows in comparison */
#if INT_MAX-20 < 32760		/* { */
#define LUAI_BITSINT	16
#elif INT_MAX > 2147483640L	/* }{ */
/* int has at least 32 bits */
#define LUAI_BITSINT	32
#else				/* }{ */
#error "you must define LUA_BITSINT with number of bits in an integer"
#endif				/* } */


/*
@@ LUA_INT32 is an signed integer with exactly 32 bits.
@@ LUAI_UMEM is an unsigned integer big enough to count the total
@* memory used by Lua.
@@ LUAI_MEM is a signed integer big enough to count the total memory
@* used by Lua.
** CHANGE here if for some weird reason the default definitions are not
** good enough for your machine. Probably you do not need to change
** this.
*/
#if LUAI_BITSINT >= 32		/* { */
#define LUA_INT32	int
#define LUAI_UMEM	size_t
#define LUAI_MEM	ptrdiff_t
#else				/* }{ */
/* 16-bit ints */
#define LUA_INT32	long
#define LUAI_UMEM	unsigned long
#define LUAI_MEM	long
#endif				/* } */


/*
@@ LUAI_MAXSTACK limits the size of the Lua stack.
** CHANGE it if you need a different limit. This limit is arbitrary;
** its only purpose is to stop Lua to consume unlimited stack
** space (and to reserve some numbers for pseudo-indices).
*/
#if LUAI_BITSINT >= 32
#define LUAI_MAXSTACK		1000000
#else
#define LUAI_MAXSTACK		15000
#endif

/* reserve some space for error handling */
#define LUAI_FIRSTPSEUDOIDX	(-LUAI_MAXSTACK - 1000)


/*
@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system.
** CHANGE it if it uses too much C-stack space.
*/
#define LUAL_BUFFERSIZE		BUFSIZ


/*
** {==================================================================
@@ LUA_NUMBER is the type of numbers in Lua.
** CHANGE the following definitions only if you want to build Lua
** with a number type different from double. You may also need to
** change lua_number2int & lua_number2integer.
** ===================================================================
*/

#define LUA_NUMBER_DOUBLE
#define LUA_NUMBER	double

/*
@@ LUAI_UACNUMBER is the result of an 'usual argument conversion'
@* over a number.
*/
#define LUAI_UACNUMBER	double


/*
@@ LUA_NUMBER_SCAN is the format for reading numbers.
@@ LUA_NUMBER_FMT is the format for writing numbers.
@@ lua_number2str converts a number to a string.
@@ LUAI_MAXNUMBER2STR is maximum size of previous conversion.
*/
#define LUA_NUMBER_SCAN		"%lf"
#define LUA_NUMBER_FMT		"%.14g"
#define lua_number2str(s,n)	sprintf((s), LUA_NUMBER_FMT, (n))
#define LUAI_MAXNUMBER2STR	32 /* 16 digits, sign, point, and \0 */


/*
@@ l_mathop allows the addition of an 'l' or 'f' to all math operations
*/
#define l_mathop(x)		(x)


/*
@@ lua_str2number converts a decimal numeric string to a number.
@@ lua_strx2number converts an hexadecimal numeric string to a number.
** In C99, 'strtod' does both conversions. C89, however, has no function
** to convert floating hexadecimal strings to numbers. For these
** systems, you can leave 'lua_strx2number' undefined and Lua will
** provide its own implementation.
*/
#define lua_str2number(s,p)	strtod((s), (p))

#if defined(LUA_USE_STRTODHEX)
#define lua_strx2number(s,p)	strtod((s), (p))
#endif


/*
@@ The luai_num* macros define the primitive operations over numbers.
*/

/* the following operations need the math library */
#if defined(lobject_c) || defined(lvm_c)
#include <math.h>
#define luai_nummod(L,a,b)	((a) - l_mathop(floor)((a)/(b))*(b))
#define luai_numpow(L,a,b)	(l_mathop(pow)(a,b))
#endif

/* these are quite standard operations */
#if defined(LUA_CORE)
#define luai_numadd(L,a,b)	((a)+(b))
#define luai_numsub(L,a,b)	((a)-(b))
#define luai_nummul(L,a,b)	((a)*(b))
#define luai_numdiv(L,a,b)	((a)/(b))
#define luai_numunm(L,a)	(-(a))
#define luai_numeq(a,b)		((a)==(b))
#define luai_numlt(L,a,b)	((a)<(b))
#define luai_numle(L,a,b)	((a)<=(b))
#define luai_numisnan(L,a)	(!luai_numeq((a), (a)))
#endif


/*
@@ LUA_INTEGER is the integral type used by lua_pushinteger/lua_tointeger.
** CHANGE that if ptrdiff_t is not adequate on your machine. (On most
** machines, ptrdiff_t gives a good choice between int or long.)
*/
#define LUA_INTEGER	ptrdiff_t

/*
@@ LUA_UNSIGNED is the integral type used by lua_pushunsigned/lua_tounsigned.
** It must have at least 32 bits.
*/
#define LUA_UNSIGNED	unsigned LUA_INT32


/*
** Some tricks with doubles
*/

#if defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI)	/* { */
/*
** The next definitions activate some tricks to speed up the
** conversion from doubles to integer types, mainly to LUA_UNSIGNED.
**
@@ LUA_MSASMTRICK uses Microsoft assembler to avoid clashes with a
** DirectX idiosyncrasy.
**
@@ LUA_IEEE754TRICK uses a trick that should work on any machine
** using IEEE754 with a 32-bit integer type.
**
@@ LUA_IEEELL extends the trick to LUA_INTEGER; should only be
** defined when LUA_INTEGER is a 32-bit integer.
**
@@ LUA_IEEEENDIAN is the endianness of doubles in your machine
** (0 for little endian, 1 for big endian); if not defined, Lua will
** check it dynamically for LUA_IEEE754TRICK (but not for LUA_NANTRICK).
**
@@ LUA_NANTRICK controls the use of a trick to pack all types into
** a single double value, using NaN values to represent non-number
** values. The trick only works on 32-bit machines (ints and pointers
** are 32-bit values) with numbers represented as IEEE 754-2008 doubles
** with conventional endianess (12345678 or 87654321), in CPUs that do
** not produce signaling NaN values (all NaNs are quiet).
*/

/* Microsoft compiler on a Pentium (32 bit) ? */
#if defined(LUA_WIN) && defined(_MSC_VER) && defined(_M_IX86)	/* { */

#define LUA_MSASMTRICK
#define LUA_IEEEENDIAN		0
#define LUA_NANTRICK


/* pentium 32 bits? */
#elif defined(__i386__) || defined(__i386) || defined(__X86__) /* }{ */

#define LUA_IEEE754TRICK
#define LUA_IEEELL
#define LUA_IEEEENDIAN		0
#define LUA_NANTRICK

/* pentium 64 bits? */
#elif defined(__x86_64)						/* }{ */

#define LUA_IEEE754TRICK
#define LUA_IEEEENDIAN		0

#elif defined(__POWERPC__) || defined(__ppc__)			/* }{ */

#define LUA_IEEE754TRICK
#define LUA_IEEEENDIAN		1

#else								/* }{ */

/* assume IEEE754 and a 32-bit integer type */
#define LUA_IEEE754TRICK

#endif								/* } */

#endif							/* } */

/* }================================================================== */


/* =================================================================== */

/*
** Local configuration. You can use this space to add your redefinitions
** without modifying the main part of the file.
*/


#endif
Commit	Line	Data
ba8b5c17	1	/*
	2	** $Id: luaconf.h,v 1.176 2013/03/16 21:10:18 roberto Exp $
	3	** Configuration file for Lua
	4	** See Copyright Notice in lua.h
	5	*/
	6
	7
	8	#ifndef lconfig_h
	9	#define lconfig_h
	10
	11	#include <limits.h>
	12	#include <stddef.h>
	13
	14
	15	/*
	16	** ==================================================================
	17	** Search for "@@" to find all configurable definitions.
	18	** ===================================================================
	19	*/
	20
	21
	22	/*
	23	@@ LUA_ANSI controls the use of non-ansi features.
	24	** CHANGE it (define it) if you want Lua to avoid the use of any
	25	** non-ansi feature or library.
	26	*/
	27	#if !defined(LUA_ANSI) && defined(__STRICT_ANSI__)
	28	#define LUA_ANSI
	29	#endif
	30
	31
	32	#if !defined(LUA_ANSI) && defined(_WIN32) && !defined(_WIN32_WCE)
	33	#define LUA_WIN /* enable goodies for regular Windows platforms */
	34	#endif
	35
	36	#if defined(LUA_WIN)
	37	#define LUA_DL_DLL
	38	#define LUA_USE_AFORMAT /* assume 'printf' handles 'aA' specifiers */
	39	#endif
	40
	41
	42
	43	#if defined(LUA_USE_LINUX)
	44	#define LUA_USE_POSIX
	45	#define LUA_USE_DLOPEN /* needs an extra library: -ldl */
	46	#define LUA_USE_READLINE /* needs some extra libraries */
	47	#define LUA_USE_STRTODHEX /* assume 'strtod' handles hex formats */
	48	#define LUA_USE_AFORMAT /* assume 'printf' handles 'aA' specifiers */
	49	#define LUA_USE_LONGLONG /* assume support for long long */
	50	#endif
	51
	52	#if defined(LUA_USE_MACOSX)
	53	#define LUA_USE_POSIX
	54	#define LUA_USE_DLOPEN /* does not need -ldl */
	55	#define LUA_USE_READLINE /* needs an extra library: -lreadline */
	56	#define LUA_USE_STRTODHEX /* assume 'strtod' handles hex formats */
	57	#define LUA_USE_AFORMAT /* assume 'printf' handles 'aA' specifiers */
	58	#define LUA_USE_LONGLONG /* assume support for long long */
	59	#endif
	60
	61
	62
	63	/*
	64	@@ LUA_USE_POSIX includes all functionality listed as X/Open System
65	@* Interfaces Extension (XSI).
66	** CHANGE it (define it) if your system is XSI compatible.
67	*/
68	#if defined(LUA_USE_POSIX)
69	#define LUA_USE_MKSTEMP
70	#define LUA_USE_ISATTY
71	#define LUA_USE_POPEN
72	#define LUA_USE_ULONGJMP
73	#define LUA_USE_GMTIME_R
74	#endif
75
76
77
78	/*
79	@@ LUA_PATH_DEFAULT is the default path that Lua uses to look for
80	@* Lua libraries.
81	@@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for
82	@* C libraries.
83	** CHANGE them if your machine has a non-conventional directory
84	** hierarchy or if you want to install your libraries in
85	** non-conventional directories.
86	*/
87	#if defined(_WIN32) /* { */
88	/*
89	** In Windows, any exclamation mark ('!') in the path is replaced by the
90	** path of the directory of the executable file of the current process.
91	*/
92	#define LUA_LDIR "!\\lua\\"
93	#define LUA_CDIR "!\\"
94	#define LUA_PATH_DEFAULT \
95	LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" \
96	LUA_CDIR"?.lua;" LUA_CDIR"?\\init.lua;" ".\\?.lua"
97	#define LUA_CPATH_DEFAULT \
98	LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll;" ".\\?.dll"
99
100	#else /* }{ */
101
102	#define LUA_VDIR LUA_VERSION_MAJOR "." LUA_VERSION_MINOR "/"
103	#define LUA_ROOT "/usr/local/"
104	#define LUA_LDIR LUA_ROOT "share/lua/" LUA_VDIR
105	#define LUA_CDIR LUA_ROOT "lib/lua/" LUA_VDIR
106	#define LUA_PATH_DEFAULT \
107	LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \
108	LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua;" "./?.lua"
109	#define LUA_CPATH_DEFAULT \
110	LUA_CDIR"?.so;" LUA_CDIR"loadall.so;" "./?.so"
111	#endif /* } */
112
113
114	/*
115	@@ LUA_DIRSEP is the directory separator (for submodules).
116	** CHANGE it if your machine does not use "/" as the directory separator
117	** and is not Windows. (On Windows Lua automatically uses "\".)
118	*/
119	#if defined(_WIN32)
120	#define LUA_DIRSEP "\\"
121	#else
122	#define LUA_DIRSEP "/"
123	#endif
124
125
126	/*
127	@@ LUA_ENV is the name of the variable that holds the current
128	@@ environment, used to access global names.
129	** CHANGE it if you do not like this name.
130	*/
131	#define LUA_ENV "_ENV"
132
133
134	/*
135	@@ LUA_API is a mark for all core API functions.
136	@@ LUALIB_API is a mark for all auxiliary library functions.
137	@@ LUAMOD_API is a mark for all standard library opening functions.
138	** CHANGE them if you need to define those functions in some special way.
139	** For instance, if you want to create one Windows DLL with the core and
140	** the libraries, you may want to use the following definition (define
141	** LUA_BUILD_AS_DLL to get it).
142	*/
143	#if defined(LUA_BUILD_AS_DLL) /* { */
144
145	#if defined(LUA_CORE) \|\| defined(LUA_LIB) /* { */
146	#define LUA_API __declspec(dllexport)
147	#else /* }{ */
148	#define LUA_API __declspec(dllimport)
149	#endif /* } */
150
151	#else /* }{ */
152
153	#define LUA_API extern
154
155	#endif /* } */
156
157
158	/* more often than not the libs go together with the core */
159	#define LUALIB_API LUA_API
160	#define LUAMOD_API LUALIB_API
161
162
163	/*
164	@@ LUAI_FUNC is a mark for all extern functions that are not to be
165	@* exported to outside modules.
166	@@ LUAI_DDEF and LUAI_DDEC are marks for all extern (const) variables
167	@* that are not to be exported to outside modules (LUAI_DDEF for
168	@* definitions and LUAI_DDEC for declarations).
169	** CHANGE them if you need to mark them in some special way. Elf/gcc
170	** (versions 3.2 and later) mark them as "hidden" to optimize access
171	** when Lua is compiled as a shared library. Not all elf targets support
172	** this attribute. Unfortunately, gcc does not offer a way to check
173	** whether the target offers that support, and those without support
174	** give a warning about it. To avoid these warnings, change to the
175	** default definition.
176	*/
177	#if defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \
178	defined(__ELF__) /* { */
179	#define LUAI_FUNC __attribute__((visibility("hidden"))) extern
180	#define LUAI_DDEC LUAI_FUNC
181	#define LUAI_DDEF /* empty */
182
183	#else /* }{ */
184	#define LUAI_FUNC extern
185	#define LUAI_DDEC extern
186	#define LUAI_DDEF /* empty */
187	#endif /* } */
188
189
190
191	/*
192	@@ LUA_QL describes how error messages quote program elements.
193	** CHANGE it if you want a different appearance.
194	*/
195	#define LUA_QL(x) "'" x "'"
196	#define LUA_QS LUA_QL("%s")
197
198
199	/*
200	@@ LUA_IDSIZE gives the maximum size for the description of the source
201	@* of a function in debug information.
202	** CHANGE it if you want a different size.
203	*/
204	#define LUA_IDSIZE 60
205
206
207	/*
208	@@ luai_writestring/luai_writeline define how 'print' prints its results.
209	** They are only used in libraries and the stand-alone program. (The #if
210	** avoids including 'stdio.h' everywhere.)
211	*/
212	#if defined(LUA_LIB) \|\| defined(lua_c)
213	#include <stdio.h>
214	#define luai_writestring(s,l) fwrite((s), sizeof(char), (l), stdout)
215	#define luai_writeline() (luai_writestring("\n", 1), fflush(stdout))
216	#endif
217
218	/*
219	@@ luai_writestringerror defines how to print error messages.
220	** (A format string with one argument is enough for Lua...)
221	*/
222	#define luai_writestringerror(s,p) \
223	(fprintf(stderr, (s), (p)), fflush(stderr))
224
225
226	/*
227	@@ LUAI_MAXSHORTLEN is the maximum length for short strings, that is,
228	** strings that are internalized. (Cannot be smaller than reserved words
229	** or tags for metamethods, as these strings must be internalized;
230	** #("function") = 8, #("__newindex") = 10.)
231	*/
232	#define LUAI_MAXSHORTLEN 40
233
234
235
236	/*
237	** {==================================================================
238	** Compatibility with previous versions
239	** ===================================================================
240	*/
241
242	/*
243	@@ LUA_COMPAT_ALL controls all compatibility options.
244	** You can define it to get all options, or change specific options
245	** to fit your specific needs.
246	*/
247	#if defined(LUA_COMPAT_ALL) /* { */
248
249	/*
250	@@ LUA_COMPAT_UNPACK controls the presence of global 'unpack'.
251	** You can replace it with 'table.unpack'.
252	*/
253	#define LUA_COMPAT_UNPACK
254
255	/*
256	@@ LUA_COMPAT_LOADERS controls the presence of table 'package.loaders'.
257	** You can replace it with 'package.searchers'.
258	*/
259	#define LUA_COMPAT_LOADERS
260
261	/*
262	@@ macro 'lua_cpcall' emulates deprecated function lua_cpcall.
263	** You can call your C function directly (with light C functions).
264	*/
265	#define lua_cpcall(L,f,u) \
266	(lua_pushcfunction(L, (f)), \
267	lua_pushlightuserdata(L,(u)), \
268	lua_pcall(L,1,0,0))
269
270
271	/*
272	@@ LUA_COMPAT_LOG10 defines the function 'log10' in the math library.
273	** You can rewrite 'log10(x)' as 'log(x, 10)'.
274	*/
275	#define LUA_COMPAT_LOG10
276
277	/*
278	@@ LUA_COMPAT_LOADSTRING defines the function 'loadstring' in the base
279	** library. You can rewrite 'loadstring(s)' as 'load(s)'.
280	*/
281	#define LUA_COMPAT_LOADSTRING
282
283	/*
284	@@ LUA_COMPAT_MAXN defines the function 'maxn' in the table library.
285	*/
286	#define LUA_COMPAT_MAXN
287
288	/*
289	@@ The following macros supply trivial compatibility for some
290	** changes in the API. The macros themselves document how to
291	** change your code to avoid using them.
292	*/
293	#define lua_strlen(L,i) lua_rawlen(L, (i))
294
295	#define lua_objlen(L,i) lua_rawlen(L, (i))
296
297	#define lua_equal(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPEQ)
298	#define lua_lessthan(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPLT)
299
300	/*
301	@@ LUA_COMPAT_MODULE controls compatibility with previous
302	** module functions 'module' (Lua) and 'luaL_register' (C).
303	*/
304	#define LUA_COMPAT_MODULE
305
306	#endif /* } */
307
308	/* }================================================================== */
309
310
311
312	/*
313	@@ LUAI_BITSINT defines the number of bits in an int.
314	** CHANGE here if Lua cannot automatically detect the number of bits of
315	** your machine. Probably you do not need to change this.
316	*/
317	/* avoid overflows in comparison */
318	#if INT_MAX-20 < 32760 /* { */
319	#define LUAI_BITSINT 16
320	#elif INT_MAX > 2147483640L /* }{ */
321	/* int has at least 32 bits */
322	#define LUAI_BITSINT 32
323	#else /* }{ */
324	#error "you must define LUA_BITSINT with number of bits in an integer"
325	#endif /* } */
326
327
328	/*
329	@@ LUA_INT32 is an signed integer with exactly 32 bits.
330	@@ LUAI_UMEM is an unsigned integer big enough to count the total
331	@* memory used by Lua.
332	@@ LUAI_MEM is a signed integer big enough to count the total memory
333	@* used by Lua.
334	** CHANGE here if for some weird reason the default definitions are not
335	** good enough for your machine. Probably you do not need to change
336	** this.
337	*/
338	#if LUAI_BITSINT >= 32 /* { */
339	#define LUA_INT32 int
340	#define LUAI_UMEM size_t
341	#define LUAI_MEM ptrdiff_t
342	#else /* }{ */
343	/* 16-bit ints */
344	#define LUA_INT32 long
345	#define LUAI_UMEM unsigned long
346	#define LUAI_MEM long
347	#endif /* } */
348
349
350	/*
351	@@ LUAI_MAXSTACK limits the size of the Lua stack.
352	** CHANGE it if you need a different limit. This limit is arbitrary;
353	** its only purpose is to stop Lua to consume unlimited stack
354	** space (and to reserve some numbers for pseudo-indices).
355	*/
356	#if LUAI_BITSINT >= 32
357	#define LUAI_MAXSTACK 1000000
358	#else
359	#define LUAI_MAXSTACK 15000
360	#endif
361
362	/* reserve some space for error handling */
363	#define LUAI_FIRSTPSEUDOIDX (-LUAI_MAXSTACK - 1000)
364
365
366
367
368	/*
369	@@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system.
370	** CHANGE it if it uses too much C-stack space.
371	*/
372	#define LUAL_BUFFERSIZE BUFSIZ
373
374
375
376
377	/*
378	** {==================================================================
379	@@ LUA_NUMBER is the type of numbers in Lua.
380	** CHANGE the following definitions only if you want to build Lua
381	** with a number type different from double. You may also need to
382	** change lua_number2int & lua_number2integer.
383	** ===================================================================
384	*/
385
386	#define LUA_NUMBER_DOUBLE
387	#define LUA_NUMBER double
388
389	/*
390	@@ LUAI_UACNUMBER is the result of an 'usual argument conversion'
391	@* over a number.
392	*/
393	#define LUAI_UACNUMBER double
394
395
396	/*
397	@@ LUA_NUMBER_SCAN is the format for reading numbers.
398	@@ LUA_NUMBER_FMT is the format for writing numbers.
399	@@ lua_number2str converts a number to a string.
400	@@ LUAI_MAXNUMBER2STR is maximum size of previous conversion.
401	*/
402	#define LUA_NUMBER_SCAN "%lf"
403	#define LUA_NUMBER_FMT "%.14g"
404	#define lua_number2str(s,n) sprintf((s), LUA_NUMBER_FMT, (n))
405	#define LUAI_MAXNUMBER2STR 32 /* 16 digits, sign, point, and \0 */
406
407
408	/*
409	@@ l_mathop allows the addition of an 'l' or 'f' to all math operations
410	*/
411	#define l_mathop(x) (x)
412
413
414	/*
415	@@ lua_str2number converts a decimal numeric string to a number.
416	@@ lua_strx2number converts an hexadecimal numeric string to a number.
417	** In C99, 'strtod' does both conversions. C89, however, has no function
418	** to convert floating hexadecimal strings to numbers. For these
419	** systems, you can leave 'lua_strx2number' undefined and Lua will
420	** provide its own implementation.
421	*/
422	#define lua_str2number(s,p) strtod((s), (p))
423
424	#if defined(LUA_USE_STRTODHEX)
425	#define lua_strx2number(s,p) strtod((s), (p))
426	#endif
427
428
429	/*
430	@@ The luai_num* macros define the primitive operations over numbers.
431	*/
432
433	/* the following operations need the math library */
434	#if defined(lobject_c) \|\| defined(lvm_c)
435	#include <math.h>
436	#define luai_nummod(L,a,b) ((a) - l_mathop(floor)((a)/(b))*(b))
437	#define luai_numpow(L,a,b) (l_mathop(pow)(a,b))
438	#endif
439
440	/* these are quite standard operations */
441	#if defined(LUA_CORE)
442	#define luai_numadd(L,a,b) ((a)+(b))
443	#define luai_numsub(L,a,b) ((a)-(b))
444	#define luai_nummul(L,a,b) ((a)*(b))
445	#define luai_numdiv(L,a,b) ((a)/(b))
446	#define luai_numunm(L,a) (-(a))
447	#define luai_numeq(a,b) ((a)==(b))
448	#define luai_numlt(L,a,b) ((a)<(b))
449	#define luai_numle(L,a,b) ((a)<=(b))
450	#define luai_numisnan(L,a) (!luai_numeq((a), (a)))
451	#endif
452
453
454
455	/*
456	@@ LUA_INTEGER is the integral type used by lua_pushinteger/lua_tointeger.
457	** CHANGE that if ptrdiff_t is not adequate on your machine. (On most
458	** machines, ptrdiff_t gives a good choice between int or long.)
459	*/
460	#define LUA_INTEGER ptrdiff_t
461
462	/*
463	@@ LUA_UNSIGNED is the integral type used by lua_pushunsigned/lua_tounsigned.
464	** It must have at least 32 bits.
465	*/
466	#define LUA_UNSIGNED unsigned LUA_INT32
467
468
469
470	/*
471	** Some tricks with doubles
472	*/
473
474	#if defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI) /* { */
475	/*
476	** The next definitions activate some tricks to speed up the
477	** conversion from doubles to integer types, mainly to LUA_UNSIGNED.
478	**
479	@@ LUA_MSASMTRICK uses Microsoft assembler to avoid clashes with a
480	** DirectX idiosyncrasy.
481	**
482	@@ LUA_IEEE754TRICK uses a trick that should work on any machine
483	** using IEEE754 with a 32-bit integer type.
484	**
485	@@ LUA_IEEELL extends the trick to LUA_INTEGER; should only be
486	** defined when LUA_INTEGER is a 32-bit integer.
487	**
488	@@ LUA_IEEEENDIAN is the endianness of doubles in your machine
489	** (0 for little endian, 1 for big endian); if not defined, Lua will
490	** check it dynamically for LUA_IEEE754TRICK (but not for LUA_NANTRICK).
491	**
492	@@ LUA_NANTRICK controls the use of a trick to pack all types into
493	** a single double value, using NaN values to represent non-number
494	** values. The trick only works on 32-bit machines (ints and pointers
495	** are 32-bit values) with numbers represented as IEEE 754-2008 doubles
496	** with conventional endianess (12345678 or 87654321), in CPUs that do
497	** not produce signaling NaN values (all NaNs are quiet).
498	*/
499
500	/* Microsoft compiler on a Pentium (32 bit) ? */
501	#if defined(LUA_WIN) && defined(_MSC_VER) && defined(_M_IX86) /* { */
502
503	#define LUA_MSASMTRICK
504	#define LUA_IEEEENDIAN 0
505	#define LUA_NANTRICK
506
507
508	/* pentium 32 bits? */
509	#elif defined(__i386__) \|\| defined(__i386) \|\| defined(__X86__) /* }{ */
510
511	#define LUA_IEEE754TRICK
512	#define LUA_IEEELL
513	#define LUA_IEEEENDIAN 0
514	#define LUA_NANTRICK
515
516	/* pentium 64 bits? */
517	#elif defined(__x86_64) /* }{ */
518
519	#define LUA_IEEE754TRICK
520	#define LUA_IEEEENDIAN 0
521
522	#elif defined(__POWERPC__) \|\| defined(__ppc__) /* }{ */
523
524	#define LUA_IEEE754TRICK
525	#define LUA_IEEEENDIAN 1
526
527	#else /* }{ */
528
529	/* assume IEEE754 and a 32-bit integer type */
530	#define LUA_IEEE754TRICK
531
532	#endif /* } */
533
534	#endif /* } */
535
536	/* }================================================================== */
537
538
539
540
541	/* =================================================================== */
542
543	/*
544	** Local configuration. You can use this space to add your redefinitions
545	** without modifying the main part of the file.
546	*/
547
548
549
550	#endif
551