/* ** $Id: luaconf.h,v 1.21 2004/12/22 17:43:27 roberto Exp roberto $ ** Configuration file for Lua ** See Copyright Notice in lua.h */ #ifndef lconfig_h #define lconfig_h #include #include /* ** {====================================================== ** Index (search for keyword to find corresponding entry) ** ======================================================= */ /* }====================================================== */ /* ** {====================================================== ** Generic configuration ** ======================================================= */ /* default path */ #if defined(_WIN32) #define LUA_ROOT "C:\\Program Files\\Lua51" #define LUA_LDIR LUA_ROOT "\\lua" #define LUA_CDIR LUA_ROOT "\\dll" #define LUA_PATH_DEFAULT \ "?.lua;" LUA_LDIR "\\?.lua;" LUA_LDIR "\\?\\init.lua" #define LUA_CPATH_DEFAULT "?.dll;" LUA_CDIR "\\?.dll" #else #define LUA_ROOT "/usr/local" #define LUA_LDIR LUA_ROOT "/share/lua/5.1" #define LUA_CDIR LUA_ROOT "/lib/lua/5.1" #define LUA_PATH_DEFAULT \ "./?.lua;" LUA_LDIR "/?.lua;" LUA_LDIR "/?/init.lua" #define LUA_CPATH_DEFAULT "./?.so;" LUA_CDIR "/?.so" #endif /* type of numbers in Lua */ #define LUA_NUMBER double /* formats for Lua numbers */ #define LUA_NUMBER_SCAN "%lf" #define LUA_NUMBER_FMT "%.14g" /* ** type for integer functions ** on most machines, `ptrdiff_t' gives a reasonable size for integers */ #define LUA_INTEGER ptrdiff_t /* mark for all API functions */ #define LUA_API extern /* mark for auxlib functions */ #define LUALIB_API extern /* buffer size used by lauxlib buffer system */ #define LUAL_BUFFERSIZE BUFSIZ /* assertions in Lua (mainly for internal debugging) */ #define lua_assert(c) ((void)0) /* }====================================================== */ /* ** {====================================================== ** Stand-alone configuration ** ======================================================= */ #ifdef lua_c /* definition of `isatty' */ #ifdef _POSIX_C_SOURCE #include #define stdin_is_tty() isatty(0) #elif defined(_WIN32) #include #include #define stdin_is_tty() _isatty(_fileno(stdin)) #else #define stdin_is_tty() 1 /* assume stdin is a tty */ #endif #define PROMPT "> " #define PROMPT2 ">> " #define PROGNAME "lua" /* ** this macro allows you to open other libraries when starting the ** stand-alone interpreter */ #define lua_userinit(L) luaopen_stdlibs(L) /* ** #define lua_userinit(L) { int luaopen_mylibs(lua_State *L); \ ** luaopen_stdlibs(L); luaopen_mylibs(L); } */ /* ** this macro can be used by some `history' system to save lines ** read in manual input */ #define lua_saveline(L,line) /* empty */ #endif /* }====================================================== */ /* ** {====================================================== ** Core configuration ** ======================================================= */ #ifdef LUA_CORE /* LUA-C API assertions */ #define api_check(L,o) lua_assert(o) /* number of bits in an `int' */ /* avoid overflows in comparison */ #if INT_MAX-20 < 32760 #define LUA_BITSINT 16 #elif INT_MAX > 2147483640L /* `int' has at least 32 bits */ #define LUA_BITSINT 32 #else #error "you must define LUA_BITSINT with number of bits in an integer" #endif /* ** L_UINT32: unsigned integer with at least 32 bits ** L_INT32: signed integer with at least 32 bits ** LU_MEM: an unsigned integer big enough to count the total memory used by Lua ** L_MEM: a signed integer big enough to count the total memory used by Lua */ #if LUA_BITSINT >= 32 #define LUA_UINT32 unsigned int #define LUA_INT32 int #define LUA_MAXINT32 INT_MAX #define LU_MEM size_t #define L_MEM ptrdiff_t #else /* 16-bit ints */ #define LUA_UINT32 unsigned long #define LUA_INT32 long #define LUA_MAXINT32 LONG_MAX #define LU_MEM LUA_UINT32 #define L_MEM ptrdiff_t #endif /* maximum depth for calls (unsigned short) */ #define LUA_MAXCALLS 10000 /* ** maximum depth for C calls (unsigned short): Not too big, or may ** overflow the C stack... */ #define LUA_MAXCCALLS 200 /* maximum size for the virtual stack of a C function */ #define MAXCSTACK 2048 /* ** maximum number of syntactical nested non-terminals: Not too big, ** or may overflow the C stack... */ #define LUA_MAXPARSERLEVEL 200 /* maximum number of variables declared in a function */ #define MAXVARS 200 /* #pragma warning(disable: 4514) __inline int l_lrint (double flt) { int i; _asm { fld flt fistp i }; return i; } #define lua_number2int(i,d) ((i)=l_lrint((d))) #elif defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199900L) /* on machines compliant with C99, you can try `lrint' */ #include #define lua_number2int(i,d) ((i)=lrint(d)) #else #define lua_number2int(i,d) ((i)=(int)(d)) #endif /* function to convert a lua_Number to lua_Integer (with any rounding method) */ #define lua_number2integer(i,n) lua_number2int((i), (n)) /* function to convert a lua_Number to a string */ #include #define lua_number2str(s,n) sprintf((s), LUA_NUMBER_FMT, (n)) /* function to convert a string to a lua_Number */ #define lua_str2number(s,p) strtod((s), (p)) /* result of a `usual argument conversion' over lua_Number */ #define LUA_UACNUMBER double /* type to ensure maximum alignment */ #define LUSER_ALIGNMENT_T union { double u; void *s; long l; } /* exception handling */ #ifndef __cplusplus /* default handling with long jumps */ #include #define L_THROW(L,c) longjmp((c)->b, 1) #define L_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } #define l_jmpbuf jmp_buf #else /* C++ exceptions */ #define L_THROW(L,c) throw(c) #define L_TRY(L,c,a) try { a } catch(...) \ { if ((c)->status == 0) (c)->status = -1; } #define l_jmpbuf int /* dummy variable */ #endif /* ** macros for thread synchronization inside Lua core machine: ** all accesses to the global state and to global objects are synchronized. ** Because threads can read the stack of other threads ** (when running garbage collection), ** a thread must also synchronize any write-access to its own stack. ** Unsynchronized accesses are allowed only when reading its own stack, ** or when reading immutable fields from global objects ** (such as string values and udata values). */ #define lua_lock(L) ((void) 0) #define lua_unlock(L) ((void) 0) /* ** this macro allows a thread switch in appropriate places in the Lua ** core */ #define lua_threadyield(L) {lua_unlock(L); lua_lock(L);} /* allows user-specific initialization on new threads */ #define lua_userstateopen(L) /* empty */ #endif /* }====================================================== */ /* ** {====================================================== ** Library configuration ** ======================================================= */ #ifdef LUA_LIB /* `assert' options */ /* environment variables that hold the search path for packages */ #define LUA_PATH "LUA_PATH" #define LUA_CPATH "LUA_CPATH" /* prefix for open functions in C libraries */ #define LUA_POF "luaopen_" /* separator for open functions in C libraries */ #define LUA_OFSEP "" /* directory separator (for submodules) */ #if defined(_WIN32) #define LUA_DIRSEP "\\" #else #define LUA_DIRSEP "/" #endif /* separator of templates in a path */ #define LUA_PATH_SEP ';' /* wild char in each template */ #define LUA_PATH_MARK "?" /* maximum number of captures in pattern-matching */ #define MAX_CAPTURES 32 /* arbitrary limit */ /* ** by default, gcc does not get `tmpname' */ #ifdef __GNUC__ #define USE_TMPNAME 0 #else #define USE_TMPNAME 1 #endif /* ** Configuration for loadlib */ #if defined(_WIN32) #define USE_DLL #elif defined(__APPLE__) && defined(__MACH__) #define USE_DYLD #elif defined(__linux) || defined(sun) || defined(sgi) || defined(BSD) #define USE_DLOPEN #endif #endif /* }====================================================== */ /* Local configuration */ #undef USE_TMPNAME #define USE_TMPNAME 1 #endif