]>
Commit | Line | Data |
---|---|---|
1 | /* | |
2 | ** $Id: luaconf.h,v 1.82.1.7 2008/02/11 16:25:08 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(__STRICT_ANSI__) | |
28 | #define LUA_ANSI | |
29 | #endif | |
30 | ||
31 | ||
32 | #if !defined(LUA_ANSI) && defined(_WIN32) | |
33 | #define LUA_WIN | |
34 | #endif | |
35 | ||
36 | #if defined(LUA_USE_LINUX) | |
37 | #define LUA_USE_POSIX | |
38 | #define LUA_USE_DLOPEN /* needs an extra library: -ldl */ | |
39 | #define LUA_USE_READLINE /* needs some extra libraries */ | |
40 | #endif | |
41 | ||
42 | #if defined(LUA_USE_MACOSX) | |
43 | #define LUA_USE_POSIX | |
44 | #define LUA_DL_DYLD /* does not need extra library */ | |
45 | #endif | |
46 | ||
47 | ||
48 | ||
49 | /* | |
50 | @@ LUA_USE_POSIX includes all functionallity listed as X/Open System | |
51 | @* Interfaces Extension (XSI). | |
52 | ** CHANGE it (define it) if your system is XSI compatible. | |
53 | */ | |
54 | #if defined(LUA_USE_POSIX) | |
55 | #define LUA_USE_MKSTEMP | |
56 | #define LUA_USE_ISATTY | |
57 | #define LUA_USE_POPEN | |
58 | #define LUA_USE_ULONGJMP | |
59 | #endif | |
60 | ||
61 | ||
62 | /* | |
63 | @@ LUA_PATH and LUA_CPATH are the names of the environment variables that | |
64 | @* Lua check to set its paths. | |
65 | @@ LUA_INIT is the name of the environment variable that Lua | |
66 | @* checks for initialization code. | |
67 | ** CHANGE them if you want different names. | |
68 | */ | |
69 | #define LUA_PATH "LUA_PATH" | |
70 | #define LUA_CPATH "LUA_CPATH" | |
71 | #define LUA_INIT "LUA_INIT" | |
72 | ||
73 | ||
74 | /* | |
75 | @@ LUA_PATH_DEFAULT is the default path that Lua uses to look for | |
76 | @* Lua libraries. | |
77 | @@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for | |
78 | @* C libraries. | |
79 | ** CHANGE them if your machine has a non-conventional directory | |
80 | ** hierarchy or if you want to install your libraries in | |
81 | ** non-conventional directories. | |
82 | */ | |
83 | #if defined(_WIN32) | |
84 | /* | |
85 | ** In Windows, any exclamation mark ('!') in the path is replaced by the | |
86 | ** path of the directory of the executable file of the current process. | |
87 | */ | |
88 | #define LUA_LDIR "!\\lua\\" | |
89 | #define LUA_CDIR "!\\" | |
90 | #define LUA_PATH_DEFAULT \ | |
91 | ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" \ | |
92 | LUA_CDIR"?.lua;" LUA_CDIR"?\\init.lua" | |
93 | #define LUA_CPATH_DEFAULT \ | |
94 | ".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll" | |
95 | ||
96 | #else | |
97 | #define LUA_ROOT "/usr/local/" | |
98 | #define LUA_LDIR LUA_ROOT "share/lua/5.1/" | |
99 | #define LUA_CDIR LUA_ROOT "lib/lua/5.1/" | |
100 | #define LUA_PATH_DEFAULT \ | |
101 | "./?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ | |
102 | LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua" | |
103 | #define LUA_CPATH_DEFAULT \ | |
104 | "./?.so;" LUA_CDIR"?.so;" LUA_CDIR"loadall.so" | |
105 | #endif | |
106 | ||
107 | ||
108 | /* | |
109 | @@ LUA_DIRSEP is the directory separator (for submodules). | |
110 | ** CHANGE it if your machine does not use "/" as the directory separator | |
111 | ** and is not Windows. (On Windows Lua automatically uses "\".) | |
112 | */ | |
113 | #if defined(_WIN32) | |
114 | #define LUA_DIRSEP "\\" | |
115 | #else | |
116 | #define LUA_DIRSEP "/" | |
117 | #endif | |
118 | ||
119 | ||
120 | /* | |
121 | @@ LUA_PATHSEP is the character that separates templates in a path. | |
122 | @@ LUA_PATH_MARK is the string that marks the substitution points in a | |
123 | @* template. | |
124 | @@ LUA_EXECDIR in a Windows path is replaced by the executable's | |
125 | @* directory. | |
126 | @@ LUA_IGMARK is a mark to ignore all before it when bulding the | |
127 | @* luaopen_ function name. | |
128 | ** CHANGE them if for some reason your system cannot use those | |
129 | ** characters. (E.g., if one of those characters is a common character | |
130 | ** in file/directory names.) Probably you do not need to change them. | |
131 | */ | |
132 | #define LUA_PATHSEP ";" | |
133 | #define LUA_PATH_MARK "?" | |
134 | #define LUA_EXECDIR "!" | |
135 | #define LUA_IGMARK "-" | |
136 | ||
137 | ||
138 | /* | |
139 | @@ LUA_INTEGER is the integral type used by lua_pushinteger/lua_tointeger. | |
140 | ** CHANGE that if ptrdiff_t is not adequate on your machine. (On most | |
141 | ** machines, ptrdiff_t gives a good choice between int or long.) | |
142 | */ | |
143 | #define LUA_INTEGER ptrdiff_t | |
144 | ||
145 | ||
146 | /* | |
147 | @@ LUA_API is a mark for all core API functions. | |
148 | @@ LUALIB_API is a mark for all standard library functions. | |
149 | ** CHANGE them if you need to define those functions in some special way. | |
150 | ** For instance, if you want to create one Windows DLL with the core and | |
151 | ** the libraries, you may want to use the following definition (define | |
152 | ** LUA_BUILD_AS_DLL to get it). | |
153 | */ | |
154 | #if defined(LUA_BUILD_AS_DLL) | |
155 | ||
156 | #if defined(LUA_CORE) || defined(LUA_LIB) | |
157 | #define LUA_API __declspec(dllexport) | |
158 | #else | |
159 | #define LUA_API __declspec(dllimport) | |
160 | #endif | |
161 | ||
162 | #else | |
163 | ||
164 | #define LUA_API extern | |
165 | ||
166 | #endif | |
167 | ||
168 | /* more often than not the libs go together with the core */ | |
169 | #define LUALIB_API LUA_API | |
170 | ||
171 | ||
172 | /* | |
173 | @@ LUAI_FUNC is a mark for all extern functions that are not to be | |
174 | @* exported to outside modules. | |
175 | @@ LUAI_DATA is a mark for all extern (const) variables that are not to | |
176 | @* be exported to outside modules. | |
177 | ** CHANGE them if you need to mark them in some special way. Elf/gcc | |
178 | ** (versions 3.2 and later) mark them as "hidden" to optimize access | |
179 | ** when Lua is compiled as a shared library. | |
180 | */ | |
181 | #if defined(luaall_c) | |
182 | #define LUAI_FUNC static | |
183 | #define LUAI_DATA /* empty */ | |
184 | ||
185 | #elif defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \ | |
186 | defined(__ELF__) | |
187 | #define LUAI_FUNC __attribute__((visibility("hidden"))) extern | |
188 | #define LUAI_DATA LUAI_FUNC | |
189 | ||
190 | #else | |
191 | #define LUAI_FUNC extern | |
192 | #define LUAI_DATA extern | |
193 | #endif | |
194 | ||
195 | ||
196 | ||
197 | /* | |
198 | @@ LUA_QL describes how error messages quote program elements. | |
199 | ** CHANGE it if you want a different appearance. | |
200 | */ | |
201 | #define LUA_QL(x) "'" x "'" | |
202 | #define LUA_QS LUA_QL("%s") | |
203 | ||
204 | ||
205 | /* | |
206 | @@ LUA_IDSIZE gives the maximum size for the description of the source | |
207 | @* of a function in debug information. | |
208 | ** CHANGE it if you want a different size. | |
209 | */ | |
210 | #define LUA_IDSIZE 60 | |
211 | ||
212 | ||
213 | /* | |
214 | ** {================================================================== | |
215 | ** Stand-alone configuration | |
216 | ** =================================================================== | |
217 | */ | |
218 | ||
219 | #if defined(lua_c) || defined(luaall_c) | |
220 | ||
221 | /* | |
222 | @@ lua_stdin_is_tty detects whether the standard input is a 'tty' (that | |
223 | @* is, whether we're running lua interactively). | |
224 | ** CHANGE it if you have a better definition for non-POSIX/non-Windows | |
225 | ** systems. | |
226 | */ | |
227 | #if defined(LUA_USE_ISATTY) | |
228 | #include <unistd.h> | |
229 | #define lua_stdin_is_tty() isatty(0) | |
230 | #elif defined(LUA_WIN) | |
231 | #include <io.h> | |
232 | #include <stdio.h> | |
233 | #define lua_stdin_is_tty() _isatty(_fileno(stdin)) | |
234 | #else | |
235 | #define lua_stdin_is_tty() 1 /* assume stdin is a tty */ | |
236 | #endif | |
237 | ||
238 | ||
239 | /* | |
240 | @@ LUA_PROMPT is the default prompt used by stand-alone Lua. | |
241 | @@ LUA_PROMPT2 is the default continuation prompt used by stand-alone Lua. | |
242 | ** CHANGE them if you want different prompts. (You can also change the | |
243 | ** prompts dynamically, assigning to globals _PROMPT/_PROMPT2.) | |
244 | */ | |
245 | #define LUA_PROMPT "> " | |
246 | #define LUA_PROMPT2 ">> " | |
247 | ||
248 | ||
249 | /* | |
250 | @@ LUA_PROGNAME is the default name for the stand-alone Lua program. | |
251 | ** CHANGE it if your stand-alone interpreter has a different name and | |
252 | ** your system is not able to detect that name automatically. | |
253 | */ | |
254 | #define LUA_PROGNAME "lua" | |
255 | ||
256 | ||
257 | /* | |
258 | @@ LUA_MAXINPUT is the maximum length for an input line in the | |
259 | @* stand-alone interpreter. | |
260 | ** CHANGE it if you need longer lines. | |
261 | */ | |
262 | #define LUA_MAXINPUT 512 | |
263 | ||
264 | ||
265 | /* | |
266 | @@ lua_readline defines how to show a prompt and then read a line from | |
267 | @* the standard input. | |
268 | @@ lua_saveline defines how to "save" a read line in a "history". | |
269 | @@ lua_freeline defines how to free a line read by lua_readline. | |
270 | ** CHANGE them if you want to improve this functionality (e.g., by using | |
271 | ** GNU readline and history facilities). | |
272 | */ | |
273 | #if defined(LUA_USE_READLINE) | |
274 | #include <stdio.h> | |
275 | #include <readline/readline.h> | |
276 | #include <readline/history.h> | |
277 | #define lua_readline(L,b,p) ((void)L, ((b)=readline(p)) != NULL) | |
278 | #define lua_saveline(L,idx) \ | |
279 | if (lua_strlen(L,idx) > 0) /* non-empty line? */ \ | |
280 | add_history(lua_tostring(L, idx)); /* add it to history */ | |
281 | #define lua_freeline(L,b) ((void)L, free(b)) | |
282 | #else | |
283 | #define lua_readline(L,b,p) \ | |
284 | ((void)L, fputs(p, stdout), fflush(stdout), /* show prompt */ \ | |
285 | fgets(b, LUA_MAXINPUT, stdin) != NULL) /* get line */ | |
286 | #define lua_saveline(L,idx) { (void)L; (void)idx; } | |
287 | #define lua_freeline(L,b) { (void)L; (void)b; } | |
288 | #endif | |
289 | ||
290 | #endif | |
291 | ||
292 | /* }================================================================== */ | |
293 | ||
294 | ||
295 | /* | |
296 | @@ LUAI_GCPAUSE defines the default pause between garbage-collector cycles | |
297 | @* as a percentage. | |
298 | ** CHANGE it if you want the GC to run faster or slower (higher values | |
299 | ** mean larger pauses which mean slower collection.) You can also change | |
300 | ** this value dynamically. | |
301 | */ | |
302 | #define LUAI_GCPAUSE 200 /* 200% (wait memory to double before next GC) */ | |
303 | ||
304 | ||
305 | /* | |
306 | @@ LUAI_GCMUL defines the default speed of garbage collection relative to | |
307 | @* memory allocation as a percentage. | |
308 | ** CHANGE it if you want to change the granularity of the garbage | |
309 | ** collection. (Higher values mean coarser collections. 0 represents | |
310 | ** infinity, where each step performs a full collection.) You can also | |
311 | ** change this value dynamically. | |
312 | */ | |
313 | #define LUAI_GCMUL 200 /* GC runs 'twice the speed' of memory allocation */ | |
314 | ||
315 | ||
316 | ||
317 | /* | |
318 | @@ LUA_COMPAT_GETN controls compatibility with old getn behavior. | |
319 | ** CHANGE it (define it) if you want exact compatibility with the | |
320 | ** behavior of setn/getn in Lua 5.0. | |
321 | */ | |
322 | #undef LUA_COMPAT_GETN | |
323 | ||
324 | /* | |
325 | @@ LUA_COMPAT_LOADLIB controls compatibility about global loadlib. | |
326 | ** CHANGE it to undefined as soon as you do not need a global 'loadlib' | |
327 | ** function (the function is still available as 'package.loadlib'). | |
328 | */ | |
329 | #undef LUA_COMPAT_LOADLIB | |
330 | ||
331 | /* | |
332 | @@ LUA_COMPAT_VARARG controls compatibility with old vararg feature. | |
333 | ** CHANGE it to undefined as soon as your programs use only '...' to | |
334 | ** access vararg parameters (instead of the old 'arg' table). | |
335 | */ | |
336 | #define LUA_COMPAT_VARARG | |
337 | ||
338 | /* | |
339 | @@ LUA_COMPAT_MOD controls compatibility with old math.mod function. | |
340 | ** CHANGE it to undefined as soon as your programs use 'math.fmod' or | |
341 | ** the new '%' operator instead of 'math.mod'. | |
342 | */ | |
343 | #define LUA_COMPAT_MOD | |
344 | ||
345 | /* | |
346 | @@ LUA_COMPAT_LSTR controls compatibility with old long string nesting | |
347 | @* facility. | |
348 | ** CHANGE it to 2 if you want the old behaviour, or undefine it to turn | |
349 | ** off the advisory error when nesting [[...]]. | |
350 | */ | |
351 | #define LUA_COMPAT_LSTR 1 | |
352 | ||
353 | /* | |
354 | @@ LUA_COMPAT_GFIND controls compatibility with old 'string.gfind' name. | |
355 | ** CHANGE it to undefined as soon as you rename 'string.gfind' to | |
356 | ** 'string.gmatch'. | |
357 | */ | |
358 | #define LUA_COMPAT_GFIND | |
359 | ||
360 | /* | |
361 | @@ LUA_COMPAT_OPENLIB controls compatibility with old 'luaL_openlib' | |
362 | @* behavior. | |
363 | ** CHANGE it to undefined as soon as you replace to 'luaL_register' | |
364 | ** your uses of 'luaL_openlib' | |
365 | */ | |
366 | #define LUA_COMPAT_OPENLIB | |
367 | ||
368 | ||
369 | ||
370 | /* | |
371 | @@ luai_apicheck is the assert macro used by the Lua-C API. | |
372 | ** CHANGE luai_apicheck if you want Lua to perform some checks in the | |
373 | ** parameters it gets from API calls. This may slow down the interpreter | |
374 | ** a bit, but may be quite useful when debugging C code that interfaces | |
375 | ** with Lua. A useful redefinition is to use assert.h. | |
376 | */ | |
377 | #if defined(LUA_USE_APICHECK) | |
378 | #include <assert.h> | |
379 | #define luai_apicheck(L,o) { (void)L; assert(o); } | |
380 | #else | |
381 | #define luai_apicheck(L,o) { (void)L; } | |
382 | #endif | |
383 | ||
384 | ||
385 | /* | |
386 | @@ LUAI_BITSINT defines the number of bits in an int. | |
387 | ** CHANGE here if Lua cannot automatically detect the number of bits of | |
388 | ** your machine. Probably you do not need to change this. | |
389 | */ | |
390 | /* avoid overflows in comparison */ | |
391 | #if INT_MAX-20 < 32760 | |
392 | #define LUAI_BITSINT 16 | |
393 | #elif INT_MAX > 2147483640L | |
394 | /* int has at least 32 bits */ | |
395 | #define LUAI_BITSINT 32 | |
396 | #else | |
397 | #error "you must define LUA_BITSINT with number of bits in an integer" | |
398 | #endif | |
399 | ||
400 | ||
401 | /* | |
402 | @@ LUAI_UINT32 is an unsigned integer with at least 32 bits. | |
403 | @@ LUAI_INT32 is an signed integer with at least 32 bits. | |
404 | @@ LUAI_UMEM is an unsigned integer big enough to count the total | |
405 | @* memory used by Lua. | |
406 | @@ LUAI_MEM is a signed integer big enough to count the total memory | |
407 | @* used by Lua. | |
408 | ** CHANGE here if for some weird reason the default definitions are not | |
409 | ** good enough for your machine. (The definitions in the 'else' | |
410 | ** part always works, but may waste space on machines with 64-bit | |
411 | ** longs.) Probably you do not need to change this. | |
412 | */ | |
413 | #if LUAI_BITSINT >= 32 | |
414 | #define LUAI_UINT32 unsigned int | |
415 | #define LUAI_INT32 int | |
416 | #define LUAI_MAXINT32 INT_MAX | |
417 | #define LUAI_UMEM size_t | |
418 | #define LUAI_MEM ptrdiff_t | |
419 | #else | |
420 | /* 16-bit ints */ | |
421 | #define LUAI_UINT32 unsigned long | |
422 | #define LUAI_INT32 long | |
423 | #define LUAI_MAXINT32 LONG_MAX | |
424 | #define LUAI_UMEM unsigned long | |
425 | #define LUAI_MEM long | |
426 | #endif | |
427 | ||
428 | ||
429 | /* | |
430 | @@ LUAI_MAXCALLS limits the number of nested calls. | |
431 | ** CHANGE it if you need really deep recursive calls. This limit is | |
432 | ** arbitrary; its only purpose is to stop infinite recursion before | |
433 | ** exhausting memory. | |
434 | */ | |
435 | #define LUAI_MAXCALLS 20000 | |
436 | ||
437 | ||
438 | /* | |
439 | @@ LUAI_MAXCSTACK limits the number of Lua stack slots that a C function | |
440 | @* can use. | |
441 | ** CHANGE it if you need lots of (Lua) stack space for your C | |
442 | ** functions. This limit is arbitrary; its only purpose is to stop C | |
443 | ** functions to consume unlimited stack space. (must be smaller than | |
444 | ** -LUA_REGISTRYINDEX) | |
445 | */ | |
446 | #define LUAI_MAXCSTACK 8000 | |
447 | ||
448 | ||
449 | ||
450 | /* | |
451 | ** {================================================================== | |
452 | ** CHANGE (to smaller values) the following definitions if your system | |
453 | ** has a small C stack. (Or you may want to change them to larger | |
454 | ** values if your system has a large C stack and these limits are | |
455 | ** too rigid for you.) Some of these constants control the size of | |
456 | ** stack-allocated arrays used by the compiler or the interpreter, while | |
457 | ** others limit the maximum number of recursive calls that the compiler | |
458 | ** or the interpreter can perform. Values too large may cause a C stack | |
459 | ** overflow for some forms of deep constructs. | |
460 | ** =================================================================== | |
461 | */ | |
462 | ||
463 | ||
464 | /* | |
465 | @@ LUAI_MAXCCALLS is the maximum depth for nested C calls (short) and | |
466 | @* syntactical nested non-terminals in a program. | |
467 | */ | |
468 | #define LUAI_MAXCCALLS 200 | |
469 | ||
470 | ||
471 | /* | |
472 | @@ LUAI_MAXVARS is the maximum number of local variables per function | |
473 | @* (must be smaller than 250). | |
474 | */ | |
475 | #define LUAI_MAXVARS 200 | |
476 | ||
477 | ||
478 | /* | |
479 | @@ LUAI_MAXUPVALUES is the maximum number of upvalues per function | |
480 | @* (must be smaller than 250). | |
481 | */ | |
482 | #define LUAI_MAXUPVALUES 60 | |
483 | ||
484 | ||
485 | /* | |
486 | @@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system. | |
487 | */ | |
488 | #define LUAL_BUFFERSIZE BUFSIZ | |
489 | ||
490 | /* }================================================================== */ | |
491 | ||
492 | ||
493 | ||
494 | ||
495 | /* | |
496 | ** {================================================================== | |
497 | @@ LUA_NUMBER is the type of numbers in Lua. | |
498 | ** CHANGE the following definitions only if you want to build Lua | |
499 | ** with a number type different from double. You may also need to | |
500 | ** change lua_number2int & lua_number2integer. | |
501 | ** =================================================================== | |
502 | */ | |
503 | ||
504 | #define LUA_NUMBER_DOUBLE | |
505 | #define LUA_NUMBER double | |
506 | ||
507 | /* | |
508 | @@ LUAI_UACNUMBER is the result of an 'usual argument conversion' | |
509 | @* over a number. | |
510 | */ | |
511 | #define LUAI_UACNUMBER double | |
512 | ||
513 | ||
514 | /* | |
515 | @@ LUA_NUMBER_SCAN is the format for reading numbers. | |
516 | @@ LUA_NUMBER_FMT is the format for writing numbers. | |
517 | @@ lua_number2str converts a number to a string. | |
518 | @@ LUAI_MAXNUMBER2STR is maximum size of previous conversion. | |
519 | @@ lua_str2number converts a string to a number. | |
520 | */ | |
521 | #define LUA_NUMBER_SCAN "%lf" | |
522 | #define LUA_NUMBER_FMT "%.14g" | |
523 | #define lua_number2str(s,n) sprintf((s), LUA_NUMBER_FMT, (n)) | |
524 | #define LUAI_MAXNUMBER2STR 32 /* 16 digits, sign, point, and \0 */ | |
525 | #define lua_str2number(s,p) strtod((s), (p)) | |
526 | ||
527 | ||
528 | /* | |
529 | @@ The luai_num* macros define the primitive operations over numbers. | |
530 | */ | |
531 | #if defined(LUA_CORE) | |
532 | #include <math.h> | |
533 | #define luai_numadd(a,b) ((a)+(b)) | |
534 | #define luai_numsub(a,b) ((a)-(b)) | |
535 | #define luai_nummul(a,b) ((a)*(b)) | |
536 | #define luai_numdiv(a,b) ((a)/(b)) | |
537 | #define luai_nummod(a,b) ((a) - floor((a)/(b))*(b)) | |
538 | #define luai_numpow(a,b) (pow(a,b)) | |
539 | #define luai_numunm(a) (-(a)) | |
540 | #define luai_numeq(a,b) ((a)==(b)) | |
541 | #define luai_numlt(a,b) ((a)<(b)) | |
542 | #define luai_numle(a,b) ((a)<=(b)) | |
543 | #define luai_numisnan(a) (!luai_numeq((a), (a))) | |
544 | #endif | |
545 | ||
546 | ||
547 | /* | |
548 | @@ lua_number2int is a macro to convert lua_Number to int. | |
549 | @@ lua_number2integer is a macro to convert lua_Number to lua_Integer. | |
550 | ** CHANGE them if you know a faster way to convert a lua_Number to | |
551 | ** int (with any rounding method and without throwing errors) in your | |
552 | ** system. In Pentium machines, a naive typecast from double to int | |
553 | ** in C is extremely slow, so any alternative is worth trying. | |
554 | */ | |
555 | ||
556 | /* On a Pentium, resort to a trick */ | |
557 | #if defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI) && !defined(__SSE2__) && \ | |
558 | (defined(__i386) || defined (_M_IX86) || defined(__i386__)) | |
559 | ||
560 | /* On a Microsoft compiler, use assembler */ | |
561 | #if defined(_MSC_VER) | |
562 | ||
563 | #define lua_number2int(i,d) __asm fld d __asm fistp i | |
564 | #define lua_number2integer(i,n) lua_number2int(i, n) | |
565 | ||
566 | /* the next trick should work on any Pentium, but sometimes clashes | |
567 | with a DirectX idiosyncrasy */ | |
568 | #else | |
569 | ||
570 | union luai_Cast { double l_d; long l_l; }; | |
571 | #define lua_number2int(i,d) \ | |
572 | { volatile union luai_Cast u; u.l_d = (d) + 6755399441055744.0; (i) = u.l_l; } | |
573 | #define lua_number2integer(i,n) lua_number2int(i, n) | |
574 | ||
575 | #endif | |
576 | ||
577 | ||
578 | /* this option always works, but may be slow */ | |
579 | #else | |
580 | #define lua_number2int(i,d) ((i)=(int)(d)) | |
581 | #define lua_number2integer(i,d) ((i)=(lua_Integer)(d)) | |
582 | ||
583 | #endif | |
584 | ||
585 | /* }================================================================== */ | |
586 | ||
587 | ||
588 | /* | |
589 | @@ LUAI_USER_ALIGNMENT_T is a type that requires maximum alignment. | |
590 | ** CHANGE it if your system requires alignments larger than double. (For | |
591 | ** instance, if your system supports long doubles and they must be | |
592 | ** aligned in 16-byte boundaries, then you should add long double in the | |
593 | ** union.) Probably you do not need to change this. | |
594 | */ | |
595 | #define LUAI_USER_ALIGNMENT_T union { double u; void *s; long l; } | |
596 | ||
597 | ||
598 | /* | |
599 | @@ LUAI_THROW/LUAI_TRY define how Lua does exception handling. | |
600 | ** CHANGE them if you prefer to use longjmp/setjmp even with C++ | |
601 | ** or if want/don't to use _longjmp/_setjmp instead of regular | |
602 | ** longjmp/setjmp. By default, Lua handles errors with exceptions when | |
603 | ** compiling as C++ code, with _longjmp/_setjmp when asked to use them, | |
604 | ** and with longjmp/setjmp otherwise. | |
605 | */ | |
606 | #if defined(__cplusplus) | |
607 | /* C++ exceptions */ | |
608 | #define LUAI_THROW(L,c) throw(c) | |
609 | #define LUAI_TRY(L,c,a) try { a } catch(...) \ | |
610 | { if ((c)->status == 0) (c)->status = -1; } | |
611 | #define luai_jmpbuf int /* dummy variable */ | |
612 | ||
613 | #elif defined(LUA_USE_ULONGJMP) | |
614 | /* in Unix, try _longjmp/_setjmp (more efficient) */ | |
615 | #define LUAI_THROW(L,c) _longjmp((c)->b, 1) | |
616 | #define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } | |
617 | #define luai_jmpbuf jmp_buf | |
618 | ||
619 | #else | |
620 | /* default handling with long jumps */ | |
621 | #define LUAI_THROW(L,c) longjmp((c)->b, 1) | |
622 | #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } | |
623 | #define luai_jmpbuf jmp_buf | |
624 | ||
625 | #endif | |
626 | ||
627 | ||
628 | /* | |
629 | @@ LUA_MAXCAPTURES is the maximum number of captures that a pattern | |
630 | @* can do during pattern-matching. | |
631 | ** CHANGE it if you need more captures. This limit is arbitrary. | |
632 | */ | |
633 | #define LUA_MAXCAPTURES 32 | |
634 | ||
635 | ||
636 | /* | |
637 | @@ lua_tmpnam is the function that the OS library uses to create a | |
638 | @* temporary name. | |
639 | @@ LUA_TMPNAMBUFSIZE is the maximum size of a name created by lua_tmpnam. | |
640 | ** CHANGE them if you have an alternative to tmpnam (which is considered | |
641 | ** insecure) or if you want the original tmpnam anyway. By default, Lua | |
642 | ** uses tmpnam except when POSIX is available, where it uses mkstemp. | |
643 | */ | |
644 | #if defined(loslib_c) || defined(luaall_c) | |
645 | ||
646 | #if defined(LUA_USE_MKSTEMP) | |
647 | #include <unistd.h> | |
648 | #define LUA_TMPNAMBUFSIZE 32 | |
649 | #define lua_tmpnam(b,e) { \ | |
650 | strcpy(b, "/tmp/lua_XXXXXX"); \ | |
651 | e = mkstemp(b); \ | |
652 | if (e != -1) close(e); \ | |
653 | e = (e == -1); } | |
654 | ||
655 | #else | |
656 | #define LUA_TMPNAMBUFSIZE L_tmpnam | |
657 | #define lua_tmpnam(b,e) { e = (tmpnam(b) == NULL); } | |
658 | #endif | |
659 | ||
660 | #endif | |
661 | ||
662 | ||
663 | /* | |
664 | @@ lua_popen spawns a new process connected to the current one through | |
665 | @* the file streams. | |
666 | ** CHANGE it if you have a way to implement it in your system. | |
667 | */ | |
668 | #if defined(LUA_USE_POPEN) | |
669 | ||
670 | #define lua_popen(L,c,m) ((void)L, fflush(NULL), popen(c,m)) | |
671 | #define lua_pclose(L,file) ((void)L, (pclose(file) != -1)) | |
672 | ||
673 | #elif defined(LUA_WIN) | |
674 | ||
675 | #define lua_popen(L,c,m) ((void)L, _popen(c,m)) | |
676 | #define lua_pclose(L,file) ((void)L, (_pclose(file) != -1)) | |
677 | ||
678 | #else | |
679 | ||
680 | #define lua_popen(L,c,m) ((void)((void)c, m), \ | |
681 | luaL_error(L, LUA_QL("popen") " not supported"), (FILE*)0) | |
682 | #define lua_pclose(L,file) ((void)((void)L, file), 0) | |
683 | ||
684 | #endif | |
685 | ||
686 | /* | |
687 | @@ LUA_DL_* define which dynamic-library system Lua should use. | |
688 | ** CHANGE here if Lua has problems choosing the appropriate | |
689 | ** dynamic-library system for your platform (either Windows' DLL, Mac's | |
690 | ** dyld, or Unix's dlopen). If your system is some kind of Unix, there | |
691 | ** is a good chance that it has dlopen, so LUA_DL_DLOPEN will work for | |
692 | ** it. To use dlopen you also need to adapt the src/Makefile (probably | |
693 | ** adding -ldl to the linker options), so Lua does not select it | |
694 | ** automatically. (When you change the makefile to add -ldl, you must | |
695 | ** also add -DLUA_USE_DLOPEN.) | |
696 | ** If you do not want any kind of dynamic library, undefine all these | |
697 | ** options. | |
698 | ** By default, _WIN32 gets LUA_DL_DLL and MAC OS X gets LUA_DL_DYLD. | |
699 | */ | |
700 | #if defined(LUA_USE_DLOPEN) | |
701 | #define LUA_DL_DLOPEN | |
702 | #endif | |
703 | ||
704 | #if defined(LUA_WIN) | |
705 | #define LUA_DL_DLL | |
706 | #endif | |
707 | ||
708 | ||
709 | /* | |
710 | @@ LUAI_EXTRASPACE allows you to add user-specific data in a lua_State | |
711 | @* (the data goes just *before* the lua_State pointer). | |
712 | ** CHANGE (define) this if you really need that. This value must be | |
713 | ** a multiple of the maximum alignment required for your machine. | |
714 | */ | |
715 | #define LUAI_EXTRASPACE 0 | |
716 | ||
717 | ||
718 | /* | |
719 | @@ luai_userstate* allow user-specific actions on threads. | |
720 | ** CHANGE them if you defined LUAI_EXTRASPACE and need to do something | |
721 | ** extra when a thread is created/deleted/resumed/yielded. | |
722 | */ | |
723 | #define luai_userstateopen(L) ((void)L) | |
724 | #define luai_userstateclose(L) ((void)L) | |
725 | #define luai_userstatethread(L,L1) ((void)L) | |
726 | #define luai_userstatefree(L) ((void)L) | |
727 | #define luai_userstateresume(L,n) ((void)L) | |
728 | #define luai_userstateyield(L,n) ((void)L) | |
729 | ||
730 | ||
731 | /* | |
732 | @@ LUA_INTFRMLEN is the length modifier for integer conversions | |
733 | @* in 'string.format'. | |
734 | @@ LUA_INTFRM_T is the integer type correspoding to the previous length | |
735 | @* modifier. | |
736 | ** CHANGE them if your system supports long long or does not support long. | |
737 | */ | |
738 | ||
739 | #if defined(LUA_USELONGLONG) | |
740 | ||
741 | #define LUA_INTFRMLEN "ll" | |
742 | #define LUA_INTFRM_T long long | |
743 | ||
744 | #else | |
745 | ||
746 | #define LUA_INTFRMLEN "l" | |
747 | #define LUA_INTFRM_T long | |
748 | ||
749 | #endif | |
750 | ||
751 | ||
752 | ||
753 | /* =================================================================== */ | |
754 | ||
755 | /* | |
756 | ** Local configuration. You can use this space to add your redefinitions | |
757 | ** without modifying the main part of the file. | |
758 | */ | |
759 | ||
760 | ||
761 | ||
762 | #endif | |
763 |