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