1 | /* |
2 | ** $Id: luaconf.h $ |
3 | ** Configuration file for Lua |
4 | ** See Copyright Notice in lua.h |
5 | */ |
6 | |
7 | |
8 | #ifndef luaconf_h |
9 | #define luaconf_h |
10 | |
11 | #include <limits.h> |
12 | #include <stddef.h> |
13 | |
14 | |
15 | /* |
16 | ** =================================================================== |
17 | ** General Configuration File for Lua |
18 | ** |
19 | ** Some definitions here can be changed externally, through the |
20 | ** compiler (e.g., with '-D' options). Those are protected by |
21 | ** '#if !defined' guards. However, several other definitions should |
22 | ** be changed directly here, either because they affect the Lua |
23 | ** ABI (by making the changes here, you ensure that all software |
24 | ** connected to Lua, such as C libraries, will be compiled with the |
25 | ** same configuration); or because they are seldom changed. |
26 | ** |
27 | ** Search for "@@" to find all configurable definitions. |
28 | ** =================================================================== |
29 | */ |
30 | |
31 | |
32 | /* |
33 | ** {==================================================================== |
34 | ** System Configuration: macros to adapt (if needed) Lua to some |
35 | ** particular platform, for instance restricting it to C89. |
36 | ** ===================================================================== |
37 | */ |
38 | |
39 | /* |
40 | @@ LUA_USE_C89 controls the use of non-ISO-C89 features. |
41 | ** Define it if you want Lua to avoid the use of a few C99 features |
42 | ** or Windows-specific features on Windows. |
43 | */ |
44 | /* #define LUA_USE_C89 */ |
45 | |
46 | |
47 | /* |
48 | ** By default, Lua on Windows use (some) specific Windows features |
49 | */ |
50 | #if !defined(LUA_USE_C89) && defined(_WIN32) && !defined(_WIN32_WCE) |
51 | #define LUA_USE_WINDOWS /* enable goodies for regular Windows */ |
52 | #endif |
53 | |
54 | |
55 | #if defined(LUA_USE_WINDOWS) |
56 | #define LUA_DL_DLL /* enable support for DLL */ |
57 | #define LUA_USE_C89 /* broadly, Windows is C89 */ |
58 | #endif |
59 | |
60 | |
61 | #if defined(LUA_USE_LINUX) |
62 | #define LUA_USE_POSIX |
63 | #define LUA_USE_DLOPEN /* needs an extra library: -ldl */ |
64 | #endif |
65 | |
66 | |
67 | #if defined(LUA_USE_MACOSX) |
68 | #define LUA_USE_POSIX |
69 | #define LUA_USE_DLOPEN /* MacOS does not need -ldl */ |
70 | #endif |
71 | |
72 | |
73 | /* |
74 | @@ LUAI_IS32INT is true iff 'int' has (at least) 32 bits. |
75 | */ |
76 | #define LUAI_IS32INT ((UINT_MAX >> 30) >= 3) |
77 | |
78 | /* }================================================================== */ |
79 | |
80 | |
81 | |
82 | /* |
83 | ** {================================================================== |
84 | ** Configuration for Number types. |
85 | ** =================================================================== |
86 | */ |
87 | |
88 | /* |
89 | @@ LUA_32BITS enables Lua with 32-bit integers and 32-bit floats. |
90 | */ |
91 | /* #define LUA_32BITS */ |
92 | |
93 | |
94 | /* |
95 | @@ LUA_C89_NUMBERS ensures that Lua uses the largest types available for |
96 | ** C89 ('long' and 'double'); Windows always has '__int64', so it does |
97 | ** not need to use this case. |
98 | */ |
99 | #if defined(LUA_USE_C89) && !defined(LUA_USE_WINDOWS) |
100 | #define LUA_C89_NUMBERS |
101 | #endif |
102 | |
103 | |
104 | /* |
105 | @@ LUA_INT_TYPE defines the type for Lua integers. |
106 | @@ LUA_FLOAT_TYPE defines the type for Lua floats. |
107 | ** Lua should work fine with any mix of these options supported |
108 | ** by your C compiler. The usual configurations are 64-bit integers |
109 | ** and 'double' (the default), 32-bit integers and 'float' (for |
110 | ** restricted platforms), and 'long'/'double' (for C compilers not |
111 | ** compliant with C99, which may not have support for 'long long'). |
112 | */ |
113 | |
114 | /* predefined options for LUA_INT_TYPE */ |
115 | #define LUA_INT_INT 1 |
116 | #define LUA_INT_LONG 2 |
117 | #define LUA_INT_LONGLONG 3 |
118 | |
119 | /* predefined options for LUA_FLOAT_TYPE */ |
120 | #define LUA_FLOAT_FLOAT 1 |
121 | #define LUA_FLOAT_DOUBLE 2 |
122 | #define LUA_FLOAT_LONGDOUBLE 3 |
123 | |
124 | #if defined(LUA_32BITS) /* { */ |
125 | /* |
126 | ** 32-bit integers and 'float' |
127 | */ |
128 | #if LUAI_IS32INT /* use 'int' if big enough */ |
129 | #define LUA_INT_TYPE LUA_INT_INT |
130 | #else /* otherwise use 'long' */ |
131 | #define LUA_INT_TYPE LUA_INT_LONG |
132 | #endif |
133 | #define LUA_FLOAT_TYPE LUA_FLOAT_FLOAT |
134 | |
135 | #elif defined(LUA_C89_NUMBERS) /* }{ */ |
136 | /* |
137 | ** largest types available for C89 ('long' and 'double') |
138 | */ |
139 | #define LUA_INT_TYPE LUA_INT_LONG |
140 | #define LUA_FLOAT_TYPE LUA_FLOAT_DOUBLE |
141 | |
142 | #endif /* } */ |
143 | |
144 | |
145 | /* |
146 | ** default configuration for 64-bit Lua ('long long' and 'double') |
147 | */ |
148 | #if !defined(LUA_INT_TYPE) |
149 | #define LUA_INT_TYPE LUA_INT_LONGLONG |
150 | #endif |
151 | |
152 | #if !defined(LUA_FLOAT_TYPE) |
153 | #define LUA_FLOAT_TYPE LUA_FLOAT_DOUBLE |
154 | #endif |
155 | |
156 | /* }================================================================== */ |
157 | |
158 | |
159 | |
160 | /* |
161 | ** {================================================================== |
162 | ** Configuration for Paths. |
163 | ** =================================================================== |
164 | */ |
165 | |
166 | /* |
167 | ** LUA_PATH_SEP is the character that separates templates in a path. |
168 | ** LUA_PATH_MARK is the string that marks the substitution points in a |
169 | ** template. |
170 | ** LUA_EXEC_DIR in a Windows path is replaced by the executable's |
171 | ** directory. |
172 | */ |
173 | #define LUA_PATH_SEP ";" |
174 | #define LUA_PATH_MARK "?" |
175 | #define LUA_EXEC_DIR "!" |
176 | |
177 | |
178 | /* |
179 | @@ LUA_PATH_DEFAULT is the default path that Lua uses to look for |
180 | ** Lua libraries. |
181 | @@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for |
182 | ** C libraries. |
183 | ** CHANGE them if your machine has a non-conventional directory |
184 | ** hierarchy or if you want to install your libraries in |
185 | ** non-conventional directories. |
186 | */ |
187 | |
188 | #define LUA_VDIR LUA_VERSION_MAJOR "." LUA_VERSION_MINOR |
189 | #if defined(_WIN32) /* { */ |
190 | /* |
191 | ** In Windows, any exclamation mark ('!') in the path is replaced by the |
192 | ** path of the directory of the executable file of the current process. |
193 | */ |
194 | #define LUA_LDIR "!\\lua\\" |
195 | #define LUA_CDIR "!\\" |
196 | #define LUA_SHRDIR "!\\..\\share\\lua\\" LUA_VDIR "\\" |
197 | |
198 | #if !defined(LUA_PATH_DEFAULT) |
199 | #define LUA_PATH_DEFAULT \ |
200 | LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" \ |
201 | LUA_CDIR"?.lua;" LUA_CDIR"?\\init.lua;" \ |
202 | LUA_SHRDIR"?.lua;" LUA_SHRDIR"?\\init.lua;" \ |
203 | ".\\?.lua;" ".\\?\\init.lua" |
204 | #endif |
205 | |
206 | #if !defined(LUA_CPATH_DEFAULT) |
207 | #define LUA_CPATH_DEFAULT \ |
208 | LUA_CDIR"?.dll;" \ |
209 | LUA_CDIR"..\\lib\\lua\\" LUA_VDIR "\\?.dll;" \ |
210 | LUA_CDIR"loadall.dll;" ".\\?.dll" |
211 | #endif |
212 | |
213 | #else /* }{ */ |
214 | |
215 | #define LUA_ROOT "/usr/local/" |
216 | #define LUA_LDIR LUA_ROOT "share/lua/" LUA_VDIR "/" |
217 | #define LUA_CDIR LUA_ROOT "lib/lua/" LUA_VDIR "/" |
218 | |
219 | #if !defined(LUA_PATH_DEFAULT) |
220 | #define LUA_PATH_DEFAULT \ |
221 | LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ |
222 | LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua;" \ |
223 | "./?.lua;" "./?/init.lua" |
224 | #endif |
225 | |
226 | #if !defined(LUA_CPATH_DEFAULT) |
227 | #define LUA_CPATH_DEFAULT \ |
228 | LUA_CDIR"?.so;" LUA_CDIR"loadall.so;" "./?.so" |
229 | #endif |
230 | |
231 | #endif /* } */ |
232 | |
233 | |
234 | /* |
235 | @@ LUA_DIRSEP is the directory separator (for submodules). |
236 | ** CHANGE it if your machine does not use "/" as the directory separator |
237 | ** and is not Windows. (On Windows Lua automatically uses "\".) |
238 | */ |
239 | #if !defined(LUA_DIRSEP) |
240 | |
241 | #if defined(_WIN32) |
242 | #define LUA_DIRSEP "\\" |
243 | #else |
244 | #define LUA_DIRSEP "/" |
245 | #endif |
246 | |
247 | #endif |
248 | |
249 | /* }================================================================== */ |
250 | |
251 | |
252 | /* |
253 | ** {================================================================== |
254 | ** Marks for exported symbols in the C code |
255 | ** =================================================================== |
256 | */ |
257 | |
258 | /* |
259 | @@ LUA_API is a mark for all core API functions. |
260 | @@ LUALIB_API is a mark for all auxiliary library functions. |
261 | @@ LUAMOD_API is a mark for all standard library opening functions. |
262 | ** CHANGE them if you need to define those functions in some special way. |
263 | ** For instance, if you want to create one Windows DLL with the core and |
264 | ** the libraries, you may want to use the following definition (define |
265 | ** LUA_BUILD_AS_DLL to get it). |
266 | */ |
267 | #if defined(LUA_BUILD_AS_DLL) /* { */ |
268 | |
269 | #if defined(LUA_CORE) || defined(LUA_LIB) /* { */ |
270 | #define LUA_API __declspec(dllexport) |
271 | #else /* }{ */ |
272 | #define LUA_API __declspec(dllimport) |
273 | #endif /* } */ |
274 | |
275 | #else /* }{ */ |
276 | |
277 | #define LUA_API extern |
278 | |
279 | #endif /* } */ |
280 | |
281 | |
282 | /* |
283 | ** More often than not the libs go together with the core. |
284 | */ |
285 | #define LUALIB_API LUA_API |
286 | #define LUAMOD_API LUA_API |
287 | |
288 | |
289 | /* |
290 | @@ LUAI_FUNC is a mark for all extern functions that are not to be |
291 | ** exported to outside modules. |
292 | @@ LUAI_DDEF and LUAI_DDEC are marks for all extern (const) variables, |
293 | ** none of which to be exported to outside modules (LUAI_DDEF for |
294 | ** definitions and LUAI_DDEC for declarations). |
295 | ** CHANGE them if you need to mark them in some special way. Elf/gcc |
296 | ** (versions 3.2 and later) mark them as "hidden" to optimize access |
297 | ** when Lua is compiled as a shared library. Not all elf targets support |
298 | ** this attribute. Unfortunately, gcc does not offer a way to check |
299 | ** whether the target offers that support, and those without support |
300 | ** give a warning about it. To avoid these warnings, change to the |
301 | ** default definition. |
302 | */ |
303 | #if defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \ |
304 | defined(__ELF__) /* { */ |
305 | #define LUAI_FUNC __attribute__((visibility("internal"))) extern |
306 | #else /* }{ */ |
307 | #define LUAI_FUNC extern |
308 | #endif /* } */ |
309 | |
310 | #define LUAI_DDEC(dec) LUAI_FUNC dec |
311 | #define LUAI_DDEF /* empty */ |
312 | |
313 | /* }================================================================== */ |
314 | |
315 | |
316 | /* |
317 | ** {================================================================== |
318 | ** Compatibility with previous versions |
319 | ** =================================================================== |
320 | */ |
321 | |
322 | /* |
323 | @@ LUA_COMPAT_5_3 controls other macros for compatibility with Lua 5.3. |
324 | ** You can define it to get all options, or change specific options |
325 | ** to fit your specific needs. |
326 | */ |
327 | #if defined(LUA_COMPAT_5_3) /* { */ |
328 | |
329 | /* |
330 | @@ LUA_COMPAT_MATHLIB controls the presence of several deprecated |
331 | ** functions in the mathematical library. |
332 | ** (These functions were already officially removed in 5.3; |
333 | ** nevertheless they are still available here.) |
334 | */ |
335 | #define LUA_COMPAT_MATHLIB |
336 | |
337 | /* |
338 | @@ LUA_COMPAT_APIINTCASTS controls the presence of macros for |
339 | ** manipulating other integer types (lua_pushunsigned, lua_tounsigned, |
340 | ** luaL_checkint, luaL_checklong, etc.) |
341 | ** (These macros were also officially removed in 5.3, but they are still |
342 | ** available here.) |
343 | */ |
344 | #define LUA_COMPAT_APIINTCASTS |
345 | |
346 | |
347 | /* |
348 | @@ LUA_COMPAT_LT_LE controls the emulation of the '__le' metamethod |
349 | ** using '__lt'. |
350 | */ |
351 | #define LUA_COMPAT_LT_LE |
352 | |
353 | |
354 | /* |
355 | @@ The following macros supply trivial compatibility for some |
356 | ** changes in the API. The macros themselves document how to |
357 | ** change your code to avoid using them. |
358 | ** (Once more, these macros were officially removed in 5.3, but they are |
359 | ** still available here.) |
360 | */ |
361 | #define lua_strlen(L,i) lua_rawlen(L, (i)) |
362 | |
363 | #define lua_objlen(L,i) lua_rawlen(L, (i)) |
364 | |
365 | #define lua_equal(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPEQ) |
366 | #define lua_lessthan(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPLT) |
367 | |
368 | #endif /* } */ |
369 | |
370 | /* }================================================================== */ |
371 | |
372 | |
373 | |
374 | /* |
375 | ** {================================================================== |
376 | ** Configuration for Numbers. |
377 | ** Change these definitions if no predefined LUA_FLOAT_* / LUA_INT_* |
378 | ** satisfy your needs. |
379 | ** =================================================================== |
380 | */ |
381 | |
382 | /* |
383 | @@ LUA_NUMBER is the floating-point type used by Lua. |
384 | @@ LUAI_UACNUMBER is the result of a 'default argument promotion' |
385 | @@ over a floating number. |
386 | @@ l_floatatt(x) corrects float attribute 'x' to the proper float type |
387 | ** by prefixing it with one of FLT/DBL/LDBL. |
388 | @@ LUA_NUMBER_FRMLEN is the length modifier for writing floats. |
389 | @@ LUA_NUMBER_FMT is the format for writing floats. |
390 | @@ lua_number2str converts a float to a string. |
391 | @@ l_mathop allows the addition of an 'l' or 'f' to all math operations. |
392 | @@ l_floor takes the floor of a float. |
393 | @@ lua_str2number converts a decimal numeral to a number. |
394 | */ |
395 | |
396 | |
397 | /* The following definitions are good for most cases here */ |
398 | |
399 | #define l_floor(x) (l_mathop(floor)(x)) |
400 | |
401 | #define lua_number2str(s,sz,n) \ |
402 | l_sprintf((s), sz, LUA_NUMBER_FMT, (LUAI_UACNUMBER)(n)) |
403 | |
404 | /* |
405 | @@ lua_numbertointeger converts a float number with an integral value |
406 | ** to an integer, or returns 0 if float is not within the range of |
407 | ** a lua_Integer. (The range comparisons are tricky because of |
408 | ** rounding. The tests here assume a two-complement representation, |
409 | ** where MININTEGER always has an exact representation as a float; |
410 | ** MAXINTEGER may not have one, and therefore its conversion to float |
411 | ** may have an ill-defined value.) |
412 | */ |
413 | #define lua_numbertointeger(n,p) \ |
414 | ((n) >= (LUA_NUMBER)(LUA_MININTEGER) && \ |
415 | (n) < -(LUA_NUMBER)(LUA_MININTEGER) && \ |
416 | (*(p) = (LUA_INTEGER)(n), 1)) |
417 | |
418 | |
419 | /* now the variable definitions */ |
420 | |
421 | #if LUA_FLOAT_TYPE == LUA_FLOAT_FLOAT /* { single float */ |
422 | |
423 | #define LUA_NUMBER float |
424 | |
425 | #define l_floatatt(n) (FLT_##n) |
426 | |
427 | #define LUAI_UACNUMBER double |
428 | |
429 | #define LUA_NUMBER_FRMLEN "" |
430 | #define LUA_NUMBER_FMT "%.7g" |
431 | |
432 | #define l_mathop(op) op##f |
433 | |
434 | #define lua_str2number(s,p) strtof((s), (p)) |
435 | |
436 | |
437 | #elif LUA_FLOAT_TYPE == LUA_FLOAT_LONGDOUBLE /* }{ long double */ |
438 | |
439 | #define LUA_NUMBER long double |
440 | |
441 | #define l_floatatt(n) (LDBL_##n) |
442 | |
443 | #define LUAI_UACNUMBER long double |
444 | |
445 | #define LUA_NUMBER_FRMLEN "L" |
446 | #define LUA_NUMBER_FMT "%.19Lg" |
447 | |
448 | #define l_mathop(op) op##l |
449 | |
450 | #define lua_str2number(s,p) strtold((s), (p)) |
451 | |
452 | #elif LUA_FLOAT_TYPE == LUA_FLOAT_DOUBLE /* }{ double */ |
453 | |
454 | #define LUA_NUMBER double |
455 | |
456 | #define l_floatatt(n) (DBL_##n) |
457 | |
458 | #define LUAI_UACNUMBER double |
459 | |
460 | #define LUA_NUMBER_FRMLEN "" |
461 | #define LUA_NUMBER_FMT "%.14g" |
462 | |
463 | #define l_mathop(op) op |
464 | |
465 | #define lua_str2number(s,p) strtod((s), (p)) |
466 | |
467 | #else /* }{ */ |
468 | |
469 | #error "numeric float type not defined" |
470 | |
471 | #endif /* } */ |
472 | |
473 | |
474 | |
475 | /* |
476 | @@ LUA_INTEGER is the integer type used by Lua. |
477 | ** |
478 | @@ LUA_UNSIGNED is the unsigned version of LUA_INTEGER. |
479 | ** |
480 | @@ LUAI_UACINT is the result of a 'default argument promotion' |
481 | @@ over a LUA_INTEGER. |
482 | @@ LUA_INTEGER_FRMLEN is the length modifier for reading/writing integers. |
483 | @@ LUA_INTEGER_FMT is the format for writing integers. |
484 | @@ LUA_MAXINTEGER is the maximum value for a LUA_INTEGER. |
485 | @@ LUA_MININTEGER is the minimum value for a LUA_INTEGER. |
486 | @@ LUA_MAXUNSIGNED is the maximum value for a LUA_UNSIGNED. |
487 | @@ LUA_UNSIGNEDBITS is the number of bits in a LUA_UNSIGNED. |
488 | @@ lua_integer2str converts an integer to a string. |
489 | */ |
490 | |
491 | |
492 | /* The following definitions are good for most cases here */ |
493 | |
494 | #define LUA_INTEGER_FMT "%" LUA_INTEGER_FRMLEN "d" |
495 | |
496 | #define LUAI_UACINT LUA_INTEGER |
497 | |
498 | #define lua_integer2str(s,sz,n) \ |
499 | l_sprintf((s), sz, LUA_INTEGER_FMT, (LUAI_UACINT)(n)) |
500 | |
501 | /* |
502 | ** use LUAI_UACINT here to avoid problems with promotions (which |
503 | ** can turn a comparison between unsigneds into a signed comparison) |
504 | */ |
505 | #define LUA_UNSIGNED unsigned LUAI_UACINT |
506 | |
507 | |
508 | #define LUA_UNSIGNEDBITS (sizeof(LUA_UNSIGNED) * CHAR_BIT) |
509 | |
510 | |
511 | /* now the variable definitions */ |
512 | |
513 | #if LUA_INT_TYPE == LUA_INT_INT /* { int */ |
514 | |
515 | #define LUA_INTEGER int |
516 | #define LUA_INTEGER_FRMLEN "" |
517 | |
518 | #define LUA_MAXINTEGER INT_MAX |
519 | #define LUA_MININTEGER INT_MIN |
520 | |
521 | #define LUA_MAXUNSIGNED UINT_MAX |
522 | |
523 | #elif LUA_INT_TYPE == LUA_INT_LONG /* }{ long */ |
524 | |
525 | #define LUA_INTEGER long |
526 | #define LUA_INTEGER_FRMLEN "l" |
527 | |
528 | #define LUA_MAXINTEGER LONG_MAX |
529 | #define LUA_MININTEGER LONG_MIN |
530 | |
531 | #define LUA_MAXUNSIGNED ULONG_MAX |
532 | |
533 | #elif LUA_INT_TYPE == LUA_INT_LONGLONG /* }{ long long */ |
534 | |
535 | /* use presence of macro LLONG_MAX as proxy for C99 compliance */ |
536 | #if defined(LLONG_MAX) /* { */ |
537 | /* use ISO C99 stuff */ |
538 | |
539 | #define LUA_INTEGER long long |
540 | #define LUA_INTEGER_FRMLEN "ll" |
541 | |
542 | #define LUA_MAXINTEGER LLONG_MAX |
543 | #define LUA_MININTEGER LLONG_MIN |
544 | |
545 | #define LUA_MAXUNSIGNED ULLONG_MAX |
546 | |
547 | #elif defined(LUA_USE_WINDOWS) /* }{ */ |
548 | /* in Windows, can use specific Windows types */ |
549 | |
550 | #define LUA_INTEGER __int64 |
551 | #define LUA_INTEGER_FRMLEN "I64" |
552 | |
553 | #define LUA_MAXINTEGER _I64_MAX |
554 | #define LUA_MININTEGER _I64_MIN |
555 | |
556 | #define LUA_MAXUNSIGNED _UI64_MAX |
557 | |
558 | #else /* }{ */ |
559 | |
560 | #error "Compiler does not support 'long long'. Use option '-DLUA_32BITS' \ |
561 | or '-DLUA_C89_NUMBERS' (see file 'luaconf.h' for details)" |
562 | |
563 | #endif /* } */ |
564 | |
565 | #else /* }{ */ |
566 | |
567 | #error "numeric integer type not defined" |
568 | |
569 | #endif /* } */ |
570 | |
571 | /* }================================================================== */ |
572 | |
573 | |
574 | /* |
575 | ** {================================================================== |
576 | ** Dependencies with C99 and other C details |
577 | ** =================================================================== |
578 | */ |
579 | |
580 | /* |
581 | @@ l_sprintf is equivalent to 'snprintf' or 'sprintf' in C89. |
582 | ** (All uses in Lua have only one format item.) |
583 | */ |
584 | #if !defined(LUA_USE_C89) |
585 | #define l_sprintf(s,sz,f,i) snprintf(s,sz,f,i) |
586 | #else |
587 | #define l_sprintf(s,sz,f,i) ((void)(sz), sprintf(s,f,i)) |
588 | #endif |
589 | |
590 | |
591 | /* |
592 | @@ lua_strx2number converts a hexadecimal numeral to a number. |
593 | ** In C99, 'strtod' does that conversion. Otherwise, you can |
594 | ** leave 'lua_strx2number' undefined and Lua will provide its own |
595 | ** implementation. |
596 | */ |
597 | #if !defined(LUA_USE_C89) |
598 | #define lua_strx2number(s,p) lua_str2number(s,p) |
599 | #endif |
600 | |
601 | |
602 | /* |
603 | @@ lua_pointer2str converts a pointer to a readable string in a |
604 | ** non-specified way. |
605 | */ |
606 | #define lua_pointer2str(buff,sz,p) l_sprintf(buff,sz,"%p",p) |
607 | |
608 | |
609 | /* |
610 | @@ lua_number2strx converts a float to a hexadecimal numeral. |
611 | ** In C99, 'sprintf' (with format specifiers '%a'/'%A') does that. |
612 | ** Otherwise, you can leave 'lua_number2strx' undefined and Lua will |
613 | ** provide its own implementation. |
614 | */ |
615 | #if !defined(LUA_USE_C89) |
616 | #define lua_number2strx(L,b,sz,f,n) \ |
617 | ((void)L, l_sprintf(b,sz,f,(LUAI_UACNUMBER)(n))) |
618 | #endif |
619 | |
620 | |
621 | /* |
622 | ** 'strtof' and 'opf' variants for math functions are not valid in |
623 | ** C89. Otherwise, the macro 'HUGE_VALF' is a good proxy for testing the |
624 | ** availability of these variants. ('math.h' is already included in |
625 | ** all files that use these macros.) |
626 | */ |
627 | #if defined(LUA_USE_C89) || (defined(HUGE_VAL) && !defined(HUGE_VALF)) |
628 | #undef l_mathop /* variants not available */ |
629 | #undef lua_str2number |
630 | #define l_mathop(op) (lua_Number)op /* no variant */ |
631 | #define lua_str2number(s,p) ((lua_Number)strtod((s), (p))) |
632 | #endif |
633 | |
634 | |
635 | /* |
636 | @@ LUA_KCONTEXT is the type of the context ('ctx') for continuation |
637 | ** functions. It must be a numerical type; Lua will use 'intptr_t' if |
638 | ** available, otherwise it will use 'ptrdiff_t' (the nearest thing to |
639 | ** 'intptr_t' in C89) |
640 | */ |
641 | #define LUA_KCONTEXT ptrdiff_t |
642 | |
643 | #if !defined(LUA_USE_C89) && defined(__STDC_VERSION__) && \ |
644 | __STDC_VERSION__ >= 199901L |
645 | #include <stdint.h> |
646 | #if defined(INTPTR_MAX) /* even in C99 this type is optional */ |
647 | #undef LUA_KCONTEXT |
648 | #define LUA_KCONTEXT intptr_t |
649 | #endif |
650 | #endif |
651 | |
652 | |
653 | /* |
654 | @@ lua_getlocaledecpoint gets the locale "radix character" (decimal point). |
655 | ** Change that if you do not want to use C locales. (Code using this |
656 | ** macro must include the header 'locale.h'.) |
657 | */ |
658 | #if !defined(lua_getlocaledecpoint) |
659 | #define lua_getlocaledecpoint() (localeconv()->decimal_point[0]) |
660 | #endif |
661 | |
662 | /* }================================================================== */ |
663 | |
664 | |
665 | /* |
666 | ** {================================================================== |
667 | ** Language Variations |
668 | ** ===================================================================== |
669 | */ |
670 | |
671 | /* |
672 | @@ LUA_NOCVTN2S/LUA_NOCVTS2N control how Lua performs some |
673 | ** coercions. Define LUA_NOCVTN2S to turn off automatic coercion from |
674 | ** numbers to strings. Define LUA_NOCVTS2N to turn off automatic |
675 | ** coercion from strings to numbers. |
676 | */ |
677 | /* #define LUA_NOCVTN2S */ |
678 | /* #define LUA_NOCVTS2N */ |
679 | |
680 | |
681 | /* |
682 | @@ LUA_USE_APICHECK turns on several consistency checks on the C API. |
683 | ** Define it as a help when debugging C code. |
684 | */ |
685 | #if defined(LUA_USE_APICHECK) |
686 | #include <assert.h> |
687 | #define luai_apicheck(l,e) assert(e) |
688 | #endif |
689 | |
690 | /* }================================================================== */ |
691 | |
692 | |
693 | /* |
694 | ** {================================================================== |
695 | ** Macros that affect the API and must be stable (that is, must be the |
696 | ** same when you compile Lua and when you compile code that links to |
697 | ** Lua). |
698 | ** ===================================================================== |
699 | */ |
700 | |
701 | /* |
702 | @@ LUAI_MAXSTACK limits the size of the Lua stack. |
703 | ** CHANGE it if you need a different limit. This limit is arbitrary; |
704 | ** its only purpose is to stop Lua from consuming unlimited stack |
705 | ** space (and to reserve some numbers for pseudo-indices). |
706 | ** (It must fit into max(size_t)/32.) |
707 | */ |
708 | #if LUAI_IS32INT |
709 | #define LUAI_MAXSTACK 1000000 |
710 | #else |
711 | #define LUAI_MAXSTACK 15000 |
712 | #endif |
713 | |
714 | |
715 | /* |
716 | @@ LUA_EXTRASPACE defines the size of a raw memory area associated with |
717 | ** a Lua state with very fast access. |
718 | ** CHANGE it if you need a different size. |
719 | */ |
720 | #define (sizeof(void *)) |
721 | |
722 | |
723 | /* |
724 | @@ LUA_IDSIZE gives the maximum size for the description of the source |
725 | @@ of a function in debug information. |
726 | ** CHANGE it if you want a different size. |
727 | */ |
728 | #define LUA_IDSIZE 60 |
729 | |
730 | |
731 | /* |
732 | @@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system. |
733 | */ |
734 | #define LUAL_BUFFERSIZE ((int)(16 * sizeof(void*) * sizeof(lua_Number))) |
735 | |
736 | |
737 | /* |
738 | @@ LUAI_MAXALIGN defines fields that, when used in a union, ensure |
739 | ** maximum alignment for the other items in that union. |
740 | */ |
741 | #define LUAI_MAXALIGN lua_Number n; double u; void *s; lua_Integer i; long l |
742 | |
743 | /* }================================================================== */ |
744 | |
745 | |
746 | |
747 | |
748 | |
749 | /* =================================================================== */ |
750 | |
751 | /* |
752 | ** Local configuration. You can use this space to add your redefinitions |
753 | ** without modifying the main part of the file. |
754 | */ |
755 | |
756 | |
757 | |
758 | |
759 | |
760 | #endif |
761 | |
762 | |