com32/lua/src/luaconf.h

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