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