| 1 | /* | 
|---|
| 2 | ** $Id: luaconf.h,v 1.82.1.6 2008/01/18 17:07:48 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. | 
|---|
| 444 | */ | 
|---|
| 445 | #define LUAI_MCS_AUX    ((int)(INT_MAX / (4*sizeof(LUA_NUMBER)))) | 
|---|
| 446 | #define LUAI_MAXCSTACK  (LUAI_MCS_AUX > SHRT_MAX ? SHRT_MAX : LUAI_MCS_AUX) | 
|---|
| 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 |  | 
|---|