Repository: Neopallium/llvm-lua Branch: master Commit: 65123d239629 Files: 180 Total size: 1.1 MB Directory structure: gitextract_gz0j2dmj/ ├── .gitignore ├── .hgignore ├── AUTHORS ├── CMakeLists.txt ├── COPYRIGHT ├── ChangeLog ├── HISTORY ├── INSTALL ├── README ├── README.llvm-lua ├── TODO ├── cmake/ │ ├── CustomMacros.cmake │ └── FindLLVM.cmake ├── cmake_uninstall.cmake.in ├── doc/ │ ├── contents.html │ ├── lua.1 │ ├── lua.css │ ├── lua.html │ ├── luac.1 │ ├── luac.html │ ├── manual.css │ ├── manual.html │ └── readme.html ├── etc/ │ ├── README │ ├── all.c │ ├── embed_jit.c │ ├── embed_jit.cpp │ ├── lua.hpp │ ├── lua.pc │ ├── luavs.bat │ ├── min.c │ ├── noparser.c │ └── strict.lua ├── gen_changelog.sh ├── llvm-lua/ │ ├── CMakeLists.txt │ ├── COPYRIGHT.llvm-lua │ ├── LLVMCompiler.cpp │ ├── LLVMCompiler.h │ ├── LLVMDumper.cpp │ ├── LLVMDumper.h │ ├── TODO │ ├── bin2c.c │ ├── compile_all.sh │ ├── hook_parser.c │ ├── llvm-lua.cpp │ ├── llvm-luac.cpp │ ├── llvm_compiler.cpp │ ├── llvm_compiler.h │ ├── llvm_compiler_private.h │ ├── llvm_dumper.cpp │ ├── llvm_dumper.h │ ├── llvm_lmathlib.c │ ├── llvm_lua_config.h.in │ ├── load_embedded_bc.cpp │ ├── load_jit_proto.c │ ├── load_jit_proto.h │ ├── load_liblua_main.cpp │ ├── load_liblua_main.h │ ├── load_vm_ops.cpp │ ├── load_vm_ops.h │ ├── lua-compiler.in │ ├── lua-cross-compiler.in │ ├── lua_compiler.c │ ├── lua_compiler.h │ ├── lua_core.c │ ├── lua_core.h │ ├── lua_interpreter.c │ ├── lua_interpreter.h │ ├── lua_main.c │ ├── lua_normal.c │ ├── lua_vm_ops.c │ ├── lua_vm_ops.h │ ├── lua_vm_ops_static.c │ ├── no_jit.c │ ├── run_tests.sh │ └── tests/ │ ├── NOTES │ ├── add.lua │ ├── arg_test.lua │ ├── big_table.lua │ ├── coroutine.lua │ ├── dump.lua │ ├── for.lua │ ├── hash2.lua │ ├── loadk.lua │ ├── local_nil.lua │ ├── loops.lua │ ├── lua_tail.lua │ ├── nestedloop.lua │ ├── nestedloop2.lua │ ├── nums.lua │ ├── scimark_loop.lua │ ├── scimark_rand.lua │ ├── stress_for.lua │ ├── test.lua │ ├── test2.lua │ ├── test3.lua │ ├── test4.lua │ ├── test_lineerror.lua │ ├── test_math.lua │ ├── test_tail.lua │ ├── test_tail_nil_multret.lua │ └── test_varg_tail2.lua ├── src/ │ ├── lapi.c │ ├── lapi.h │ ├── lauxlib.c │ ├── lauxlib.h │ ├── lbaselib.c │ ├── lcoco.c │ ├── lcoco.h │ ├── lcode.c │ ├── lcode.h │ ├── ldblib.c │ ├── ldebug.c │ ├── ldebug.h │ ├── ldo.c │ ├── ldo.h │ ├── ldump.c │ ├── lfunc.c │ ├── lfunc.h │ ├── lgc.c │ ├── lgc.h │ ├── linit.c │ ├── liolib.c │ ├── llex.c │ ├── llex.h │ ├── llimits.h │ ├── lmathlib.c │ ├── lmem.c │ ├── lmem.h │ ├── loadlib.c │ ├── lobject.c │ ├── lobject.h │ ├── lopcodes.c │ ├── lopcodes.h │ ├── loslib.c │ ├── lparser.c │ ├── lparser.h │ ├── lstate.c │ ├── lstate.h │ ├── lstring.c │ ├── lstring.h │ ├── lstrlib.c │ ├── ltable.c │ ├── ltable.h │ ├── ltablib.c │ ├── ltm.c │ ├── ltm.h │ ├── lua.c │ ├── lua.h │ ├── luac.c │ ├── luaconf.h │ ├── lualib.h │ ├── lundump.c │ ├── lundump.h │ ├── lvm.c │ ├── lvm.h │ ├── lzio.c │ ├── lzio.h │ └── print.c ├── test/ │ ├── README │ ├── bisect.lua │ ├── cf.lua │ ├── echo.lua │ ├── env.lua │ ├── factorial.lua │ ├── fib.lua │ ├── fibfor.lua │ ├── globals.lua │ ├── hello.lua │ ├── life.lua │ ├── luac.lua │ ├── printf.lua │ ├── readonly.lua │ ├── sieve.lua │ ├── sort.lua │ ├── table.lua │ ├── trace-calls.lua │ ├── trace-globals.lua │ └── xd.lua └── tools/ └── hg_import_split.lua ================================================ FILE CONTENTS ================================================ ================================================ FILE: .gitignore ================================================ build llvm-lua/*.bc llvm-lua/*_bc.h src/.libs src/*.o src/*.lo src/*.la src/*.a src/lua src/luac src/lua_test .*.swp ================================================ FILE: .hgignore ================================================ # Backup files .*~$ # Rejected patches .*\.orig$ .*\.rej$ # Build directory ^build$ ================================================ FILE: AUTHORS ================================================ bobby@neoawareness.com:Robert G. Jakabosky ================================================ FILE: CMakeLists.txt ================================================ # # llvm-lua # cmake_minimum_required(VERSION 2.4 FATAL_ERROR) if(COMMAND cmake_policy) cmake_policy(SET CMP0003 NEW) endif(COMMAND cmake_policy) project(llvm_lua C CXX) set(CMAKE_MODULE_PATH ${CMAKE_SOURCE_DIR}/cmake) include(CustomMacros) include(CMakeDependentOption) include(FindLLVM) enable_testing() set(LLVM_LUA_NAME "llvm-lua") set(LLVM_LUA_COPYRIGHT "Copyright (C) 2008-2009 Robert G. Jakabosky, http://code.google.com/p/llvm-lua/") # # Lua version # set(LUA_VERSION_MAJOR 5) set(LUA_VERSION_MINOR 1) set(LUA_VERSION_PATCH 4) set(LUA_VERSION "${LUA_VERSION_MAJOR}.${LUA_VERSION_MINOR}.${LUA_VERSION_PATCH}") set(LUA_SOVERSION "${LUA_VERSION_MAJOR}.${LUA_VERSION_MINOR}") # # llvm-lua version # set(LLVM_LUA_VERSION_MAJOR 1) set(LLVM_LUA_VERSION_MINOR 3) set(LLVM_LUA_VERSION_PATCH 1) set(LLVM_LUA_VERSION "${LLVM_LUA_VERSION_MAJOR}.${LLVM_LUA_VERSION_MINOR}.${LLVM_LUA_VERSION_PATCH}") set(LLVM_LUA_SOVERSION "${LLVM_LUA_VERSION_MAJOR}.${LLVM_LUA_VERSION_MINOR}") # # Lua package info. # set(CPACK_PACKAGE_VERSION_MAJOR ${LLVM_LUA_VERSION_MAJOR}) set(CPACK_PACKAGE_VERSION_MINOR ${LLVM_LUA_VERSION_MINOR}) set(CPACK_PACKAGE_VERSION_PATCH ${LLVM_LUA_VERSION_PATCH}) set(CPACK_RESOURCE_FILE_LICENSE "${CMAKE_SOURCE_DIR}/COPYRIGHT") set(CPACK_RESOURCE_FILE_README "${CMAKE_SOURCE_DIR}/README") set(CPACK_PACKAGE_VENDOR "") set(CPACK_SOURCE_GENERATOR "TGZ") set(CPACK_SOURCE_IGNORE_FILES "/\\\\.;/\\\\.git.*/;~$;build/;CMakeFiles/;CMakeCache;Testing/;cmake_install;CPack;Dart;Makefile$") set(CPACK_SOURCE_PACKAGE_FILE_NAME "${LLVM_LUA_NAME}-${LLVM_LUA_VERSION_MAJOR}.${LLVM_LUA_VERSION_MINOR}.${LLVM_LUA_VERSION_PATCH}") # MUST be after CPACK_* variables. include(CPack) set(COMMON_CFLAGS) set(COMMON_LDFLAGS) set(LIBS) # # Detect system type # if(CMAKE_SYSTEM_NAME STREQUAL "Linux") set(DEFAULT_POSIX TRUE) set(DEFAULT_DLOPEN ON) set(DEFAULT_READLINE ON) set(COMMON_LDFLAGS "${COMMON_LDFLAGS} -Wl,-E") set(USE_RPATH TRUE) # This is a HACK. We need to put the flags from `llvm-config --lflags` at # the end of the linker command. If you know a better way to fix this let # me know. set(CMAKE_CXX_LINK_EXECUTABLE " -o ") SET(CMAKE_C_LINK_EXECUTABLE " -o ") elseif(APPLE) set(DEFAULT_POSIX TRUE) set(DEFAULT_DLOPEN ON) # use this on Mac OS X 10.3- option(LUA_USE_MACOSX "Mac OS X 10.3-" OFF) set(OSX_ARCHITECTURES "x86_64" CACHE STRING "Build architectures for OSX") CMAKE_DEPENDENT_OPTION(WANT_FRAMEWORK "Set to ON to build framework instead of dylib." ON "WANT_SHARED_LIBRARY" ON ) CMAKE_DEPENDENT_OPTION(LUA_FRAMEWORK_SYMLINKS "Set to ON to create symlinks to llvm-lua & llvm-luac to CMAKE_PREFIX_PATH/bin." ON "WANT_FRAMEWORK;WANT_SHARED_LIBRARY" ON ) set(CMAKE_FRAMEWORK_INSTALL_DIR "/Library/Frameworks" CACHE STRING "Directory to install frameworks to.") set(CMAKE_FRAMEWORK_INSTALL_NAME_DIR "@executable_path/../Frameworks" CACHE STRING "install_name path for framework.") set(CMAKE_DYLIB_INSTALL_NAME_DIR "${CMAKE_INSTALL_PREFIX}/lib" CACHE STRING "install_name path for dylib.") set(LUA_FRAMEWORK_NAME "llvm-lua.framework") set(LUA_FRAMEWORK_VERSION_NUMBER "${LLVM_LUA_VERSION_MAJOR}.${LLVM_LUA_VERSION_MINOR}") set(LUA_FRAMEWORK_VERSIONED_EXECUTABLE_DIR "Versions/${LUA_FRAMEWORK_VERSION_NUMBER}/MacOS") set(LUA_FRAMEWORK_VERSIONED_LIB_DIR "Versions/${LUA_FRAMEWORK_VERSION_NUMBER}/lib") set(LUA_FRAMEWORK_CURRENT_EXECUTABLE_DIR "Versions/Current/MacOS") # For Apple install_name, is it better to detect if Xcode vs Makefile? # Xcode default=1, Makefile=0? Or detect if Framework vs. dylib, # Framework=1, dylib=0? option(CMAKE_BUILD_WITH_INSTALL_RPATH "Set to YES to set the rpath or install_name on build instead of install." ON) set(LUA_SOVERSION "${LUA_VERSION_MAJOR}.${LUA_VERSION_MINOR}.0") elseif(CYGWIN) set(DEFAULT_POSIX TRUE) set(USE_RPATH TRUE) elseif(UNIX) set(DEFAULT_POSIX TRUE) set(USE_RPATH TRUE) elseif(WIN32) set(LUA_WIN TRUE) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_BUILD_AS_DLL") else(APPLE) set(DEFAULT_ANSI TRUE) endif(CMAKE_SYSTEM_NAME STREQUAL "Linux") # # setup config options with default values. # option(WANT_SHARED_LIBRARY "Set to ON to build dynamic library." ON) if(WIN32) set(WANT_STATIC_LIBRARY OFF) else(WIN32) option(WANT_STATIC_LIBRARY "Set to ON to build static library." ON) endif(WIN32) option(WANT_NOJIT_LIBRARIES "Set to ON to build nojit libraries." ON) if(USE_RPATH) set(CMAKE_INSTALL_RPATH "${CMAKE_INSTALL_PREFIX}/lib" CACHE STRING "rpaths separated by semicolons.") option(CMAKE_BUILD_WITH_INSTALL_RPATH "Set to YES to set the rpath or install_name on build instead of install." OFF) endif(USE_RPATH) if(DEFAULT_DLOPEN) option(LUA_USE_DLOPEN "Enable dlopen support." ON) else(DEFAULT_DLOPEN) option(LUA_USE_DLOPEN "Enable dlopen support." OFF) endif(DEFAULT_DLOPEN) if(DEFAULT_POSIX) option(LUA_USE_CURSES "Enable Curses support." ON) option(LUA_USE_MKSTEMP "Use mkstemp." ON) option(LUA_USE_ISATTY "Enable isatty support." ON) option(LUA_USE_POPEN "Enable lua_popen support." ON) option(LUA_USE_ULONGJMP "Try using _longjmp/_setjmp (more efficient)" ON) else(DEFAULT_POSIX) option(LUA_USE_CURSES "Enable Curses support." OFF) option(LUA_USE_MKSTEMP "Use mkstemp." OFF) option(LUA_USE_ISATTY "Enable isatty support." OFF) option(LUA_USE_POPEN "Enable lua_popen support." OFF) option(LUA_USE_ULONGJMP "Try using _longjmp/_setjmp (more efficient)" OFF) endif(DEFAULT_POSIX) if(DEFAULT_READLINE) option(LUA_USE_READLINE "Enable readline support." ON) else(DEFAULT_READLINE) option(LUA_USE_READLINE "Enable readline support." OFF) endif(DEFAULT_READLINE) if(DEFAULT_ANSI) option(LUA_ANSI "Disable non-ansi features." ON) else(DEFAULT_ANSI) option(LUA_ANSI "Disable non-ansi features." OFF) endif(DEFAULT_ANSI) option(LUA_USE_APICHECK "Enable API checks." OFF) # # llvm-lua options. # option(LUA_CPP_SUPPORT "Enable c++ support" OFF) set(LLVM_PATH "/usr" CACHE STRING "Path to LLVM/Clang.") set(LLVM_CC "${LLVM_PATH}/bin/clang" CACHE STRING "Command to compile C-code to LLVM bitcode (clang or llvm-gcc)") set(LLVM_LD "${LLVM_PATH}/bin/llvm-link" CACHE STRING "Command to link LLVM bitcode files into one bitcode file.") # # Cross-compile options. # option(CROSS_COMPILE "Build llvm-luac as a cross-compiler" OFF) set(CROSS_ARCH "arm" CACHE STRING "Cross-compiler target.") set(CROSS_TRIPLE "arm-linux-gnueabi" CACHE STRING "Cross-compiler target triple.") set(CROSS_CPU "arm926ej-s" CACHE STRING "Cross-compiler target cpu name.") set(CROSS_ISYSTEM "/usr/lib/gcc/arm-linux-gnueabi/4.6.3/include:/usr/lib/gcc/arm-linux-gnueabi/4.6.3/include-fixed:/usr/arm-linux-gnueabi/usr/include/" CACHE STRING "Path to target system includes.") # # LuaCoco options # option(COCO_USE_SETJMP "Coco: Force use of setjmp (instead of gccasm)" OFF) option(COCO_USE_UCONTEXT "Coco: Force use of ucontext (instead of gccasm or setjmp)" OFF) option(COCO_USE_VALGRIND "Enable valgrind debugging support" OFF) option(COCO_DISABLE "Disable coco" OFF) set(COCO_DEFAULT_CSTACKSIZE "" CACHE STRING "Coco default cstacksize") # # libs & cflags # set(COMMON_LDFLAGS "${COMMON_LDFLAGS} -lm ") # For "Mac OS X 10.3-" if(LUA_USE_MACOSX) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_USE_MACOSX") set(LUA_USE_DLOPEN FALSE) endif(LUA_USE_MACOSX) # enable options if(LUA_USE_DLOPEN) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_USE_DLOPEN") if(NOT APPLE) set(COMMON_LDFLAGS "${COMMON_LDFLAGS} -ldl ") endif(NOT APPLE) endif(LUA_USE_DLOPEN) if(LUA_USE_MKSTEMP) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_USE_MKSTEMP") endif(LUA_USE_MKSTEMP) if(LUA_USE_ISATTY) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_USE_ISATTY") endif(LUA_USE_ISATTY) if(LUA_USE_POPEN) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_USE_POPEN") endif(LUA_USE_POPEN) if(LUA_USE_ULONGJMP) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_USE_ULONGJMP") endif(LUA_USE_ULONGJMP) if(LUA_USE_APICHECK) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_USE_APICHECK") endif(LUA_USE_APICHECK) if(LUA_ANSI) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_ANSI") endif(LUA_ANSI) # readline support if(LUA_USE_READLINE AND NOT CROSS_COMPILE) FIND_PATH(READLINE_INCLUDE_DIR readline/readline.h) FIND_LIBRARY(READLINE_LIBRARY NAMES readline) if(READLINE_LIBRARY) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_USE_READLINE") set(COMMON_LDFLAGS "${COMMON_LDFLAGS} -lreadline -lhistory") include_directories(${READLINE_INCLUDE_DIR}) endif(READLINE_LIBRARY) endif() # curses if(LUA_USE_CURSES AND NOT CROSS_COMPILE) include(FindCurses) if(CURSES_LIBRARY) include_directories(${CURSES_INCLUDE_DIR}) set(LIBS ${LIBS} ${CURSES_LIBRARY}) endif(CURSES_LIBRARY) endif() # LuaCoco flags if(COCO_DISABLE) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DCOCO_DISABLE") else(COCO_DISABLE) if(COCO_USE_SETJMP) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DCOCO_USE_SETJMP") elseif(COCO_USE_UCONTEXT) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DCOCO_USE_UCONTEXT") endif(COCO_USE_SETJMP) # check cstacksize variable. if(COCO_DEFAULT_CSTACKSIZE) set(COMMON_CFLAGS "${COMMON_CFLAGS} -DCOCO_DEFAULT_CSTACKSIZE=${COCO_DEFAULT_CSTACKSIZE}") endif(COCO_DEFAULT_CSTACKSIZE) endif(COCO_DISABLE) # # Support for embedding llvm-lua into c++ programs with exception support. # if(LUA_CPP_SUPPORT) message(STATUS "Lua C++ support enabled, forcing usage of g++ & llvm-g++") set(COMMON_CFLAGS "${COMMON_CFLAGS} -DLUA_CPP_SUPPORT") include(CMakeForceCompiler) CMAKE_FORCE_C_COMPILER(${CMAKE_CXX_COMPILER} ${CMAKE_CXX_COMPILER_ID}) set(LLVM_CC "llvm-g++") endif(LUA_CPP_SUPPORT) # # standard flags to use for each build type. # if(CMAKE_COMPILER_IS_GNUCC) set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -pipe -Wall -Wshadow -W -std=gnu89 ") set(CMAKE_C_FLAGS_RELEASE "${CMAKE_C_FLAGS_RELEASE} -O2") set(CMAKE_C_FLAGS_DEBUG "${CMAKE_C_FLAGS_DEBUG} -O0 -g") set(CMAKE_C_FLAGS_PROFILE "${CMAKE_C_FLAGS_PROFILE} -O1 -g") set(CMAKE_C_FLAGS_RELWITHDEBINFO "${CMAKE_C_FLAGS_WITHDEBINFO} -O2 -g") endif(CMAKE_COMPILER_IS_GNUCC) if(CMAKE_COMPILER_IS_GNUCXX) set(CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS} -pipe -Wall -Wshadow -W -pedantic") set(CMAKE_CXX_FLAGS_RELEASE "${CMAKE_CXX_FLAGS_RELEASE} -O2") set(CMAKE_CXX_FLAGS_DEBUG "${CMAKE_CXX_FLAGS_DEBUG} -O0 -g") set(CMAKE_CXX_FLAGS_PROFILE "${CMAKE_CXX_FLAGS_PROFILE} -O2 -g") set(CMAKE_CXX_FLAGS_RELWITHDEBINFO "${CMAKE_CXX_FLAGS_WITHDEBINFO} -O2 -g") endif(CMAKE_COMPILER_IS_GNUCXX) # # For uninstall (needs cmake_uninstall.cmake.in in the top-level directory) # configure_file( "${CMAKE_CURRENT_SOURCE_DIR}/cmake_uninstall.cmake.in" "${CMAKE_CURRENT_BINARY_DIR}/cmake_uninstall.cmake" IMMEDIATE @ONLY) add_custom_target(uninstall "${CMAKE_COMMAND}" -P "${CMAKE_CURRENT_BINARY_DIR}/cmake_uninstall.cmake") # # sub-folders # add_subdirectory(llvm-lua build) ================================================ FILE: COPYRIGHT ================================================ Lua License ----------- Lua is licensed under the terms of the MIT license reproduced below. This means that Lua is free software and can be used for both academic and commercial purposes at absolutely no cost. For details and rationale, see http://www.lua.org/license.html . =============================================================================== Copyright (C) 1994-2008 Lua.org, PUC-Rio. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. =============================================================================== (end of COPYRIGHT) ================================================ FILE: ChangeLog ================================================ 2009-11-05 Robert G. Jakabosky * llvm-lua/CMakeLists.txt, llvm-lua/run_tests.sh, src/ldo.c, src/lgc.c, src/lgc.h, src/lobject.h, src/lvm.c, src/lzio.h: Emergency GC fixes. 2009-10-18 Robert G. Jakabosky * CMakeLists.txt: Fixed bug * AUTHORS, ChangeLog, gen_changelog.sh, llvm-lua/CMakeLists.txt, llvm-lua/lua-compiler, llvm-lua/lua-compiler.in, llvm-lua/lua-cross-compiler.in, llvm-lua/lua_compiler.c, llvm-lua/run_tests.sh: Added ChangeLog, Improved lua-compiler & lua-cross-compiler. Added -mcpu option to *-compiler scripts. Changed -arch to -target option. Embed the install prefix into lua-compiler so it can find liblua_main.a Added gen_changelog.sh script to generate ChangeLog from svn history. 2009-10-17 Robert G. Jakabosky * CMakeLists.txt, README.llvm-lua, src/loadlib.c: Last commit missed these files. * llvm-lua/CMakeLists.txt, llvm-lua/Makefile, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-luac.cpp, llvm-lua/lua-compiler, llvm-lua/lua_compiler.c: Added support for preloading libraries during static compilling. Updated README.llvm-lua file. Improved lua-compilers argument parsing. Now it is possible to static compile multiple Lua scripts and there required sub-scripts into one standalone executable. 2009-10-15 Robert G. Jakabosky * llvm-lua/compile_all.sh: Wrong compiler in compile_all.sh. * cmake/CustomMacros.cmake, llvm-lua/CMakeLists.txt, llvm-lua/compile_all.sh, llvm-lua/lua-compiler, llvm-lua/lua-cross-compiler.in, llvm-lua/lua_core.h, llvm-lua/lua_vm_ops.c, src/ldo.c: Fixed bugs. Improved cross-compiler support. * src/lcoco.c, src/lcoco.h: Update LuaCoco patch to 1.1.6 2009-10-14 Robert G. Jakabosky * CMakeLists.txt, llvm-lua/CMakeLists.txt, llvm-lua/lua-cross-compiler.in: Adding cross-compiler support to CMake build scripts. 2009-10-07 Robert G. Jakabosky * .svnignore, CMakeLists.txt, cmake_uninstall.cmake.in, llvm-lua/CMakeLists.txt, llvm-lua/load_jit_proto.c, llvm-lua/lua_core.c, llvm-lua/lua_vm_ops_static.c, src/loadlib.c, src/lobject.h, src/lstate.h, src/ltable.c, src/luaconf.h: Added MacOSX framework support. 2009-09-27 Robert G. Jakabosky * llvm-lua/CMakeLists.txt: Remove duplicate source files * CMakeLists.txt, llvm-lua/CMakeLists.txt: Added lua-compiler to CMake build. * CMakeLists.txt, cmake, cmake/CustomMacros.cmake, cmake/FindLLVM.cmake, llvm-lua/CMakeLists.txt, llvm-lua/Makefile: Add CMake build scripts. 2009-09-23 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/Makefile, llvm-lua/hook_parser.c, llvm-lua/llvm-lua.cpp, llvm-lua/llvm_lmathlib.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops_static.c, llvm-lua/tests/coroutine.lua, llvm-lua/tests/test_lineerror.lua, llvm-lua/tests/test_tail.lua, llvm-lua/tests/test_tail_nil_multret.lua, src/lauxlib.c, src/ldo.c, src/lvm.c: Fixed memory leak, tailcalls, memlimit. Release LLVM Function objects when Lua Proto's are garbage collected. Fixed a few of tailcall bugs. Fixed a bug with the memlimit code. Improved command line option parsing. Added hack for iPhone support. 2009-09-22 Robert G. Jakabosky * llvm-lua/tests/test_varg_tail2.lua: Add testcase: tailcall from varg function. * llvm-lua/lua_vm_ops_static.c, src/ldo.c: Fixed tailcall inside varg function bug. 2009-09-18 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/Makefile, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-luac.cpp, llvm-lua/llvm_compiler.cpp: Fixed memory leaks and a memory access error. 2009-09-17 Robert G. Jakabosky * llvm-lua/Makefile, llvm-lua/compile_all.sh, llvm-lua/load_jit_proto.c, llvm-lua/lua-compiler: Improved cross-compiling support. * llvm-lua/LLVMDumper.cpp, llvm-lua/LLVMDumper.h, llvm-lua/load_jit_proto.c, llvm-lua/load_jit_proto.h: Made jit_proto & constant_type structures more portable. Added correct amount of padding for target architecture. 2009-09-16 Robert G. Jakabosky * llvm-lua/llvm-luac.cpp: Adding support for all native backends to llvm-luac. * README.llvm-lua, etc/embed_jit.c, etc/embed_jit.cpp: Added example 'embed_jit.c' & 'embed_jit.cpp' files. * llvm-lua/llvm_compiler.cpp: Fixed bug with native target initialization. * llvm-lua/lua-compiler: Add better support for -arch flag * llvm-lua/lua-compiler: Removed debug messages. * llvm-lua/LLVMCompiler.cpp, llvm-lua/lua-compiler: Added support for compiling static lua-modules. * llvm-lua/lua-compiler: Removed unneeded "-rdynamic -Wl,-E" from 'lua-compiler' script. 2009-09-15 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/LLVMDumper.cpp, llvm-lua/LLVMDumper.h, llvm-lua/Makefile, llvm-lua/llvm_compiler.cpp, llvm-lua/load_embedded_bc.cpp, llvm-lua/load_embedded_bc.h, llvm-lua/load_liblua_main.cpp, llvm-lua/load_liblua_main.h, llvm-lua/load_vm_ops.cpp, llvm-lua/load_vm_ops.h, src/lcode.c, src/ldblib.c, src/lvm.c: Ported code to LLVM 2.6 API. Applied patches for Lua 5.1.4: 3. Wrong code generation for some particular boolean expressions 4. luaV_settable may invalidate a reference to a table and try to reuse it. 5. debug.getfenv does not check whether it has an argument. 2009-06-16 Robert G. Jakabosky * llvm-lua/Makefile: Fixing MinGW support. 2009-06-07 Robert G. Jakabosky * Makefile, llvm-lua/Makefile: Add support for compiling shared library liblua-llvm.so 2009-06-04 Robert G. Jakabosky * llvm-lua/lua-compiler: Fixed bug with lua-compiler. Added '-c++' option for static compiling Lua code with C++ exception support. * README.llvm-lua, llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/LLVMDumper.cpp, llvm-lua/LLVMDumper.h, llvm-lua/Makefile, llvm-lua/TODO, llvm-lua/hook_parser.c, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-lua.h, llvm-lua/llvm-luac.cpp, llvm-lua/llvm-luac.h, llvm-lua/llvm_compiler.cpp, llvm-lua/llvm_compiler.h, llvm-lua/llvm_compiler_private.h, llvm-lua/llvm_dumper.cpp, llvm-lua/llvm_dumper.h, llvm-lua/llvm_lmathlib.c, llvm-lua/load_embedded_bc.cpp, llvm-lua/load_embedded_bc.h, llvm-lua/load_jit_proto.c, llvm-lua/load_jit_proto.h, llvm-lua/load_liblua_main.cpp, llvm-lua/load_liblua_main.h, llvm-lua/load_vm_ops.cpp, llvm-lua/load_vm_ops.h, llvm-lua/lua-compiler, llvm-lua/lua_compiler.c, llvm-lua/lua_core.c, llvm-lua/lua_core.h, llvm-lua/lua_interpreter.c, llvm-lua/lua_main.c, llvm-lua/lua_normal.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c, llvm-lua/no_jit.c, src/lcoco.h, src/ldebug.c, src/ldebug.h, src/lstate.c, src/lstate.h, src/luaconf.h, src/lvm.c, src/print.c: Add C++ exception support. llvm-lua is now thread-safe. Moved LLVMCompiler instance from global variable to 'global_State' to help make llvm-lua thread-safe. 2009-05-31 Robert G. Jakabosky * README.llvm-lua, llvm-lua/lua-compiler: Fixed bug with lua-compiler script and the 'cbe' mode. Fixed example compile/link commands in README.llvm-lua. * README.llvm-lua, llvm-lua/Makefile, llvm-lua/compile_all.sh, llvm-lua/llvm_compiler.cpp, llvm-lua/llvm_compiler.h, llvm-lua/lua-compiler: Bump version to 1.0. Add for information to README.llvm-lua Fixed some bugs with embedding llvm-lua. Added -help option to lua-compiler script. 2009-05-30 Robert G. Jakabosky * llvm-lua/tests, llvm-lua/tests/NOTES, llvm-lua/tests/add.lua, llvm-lua/tests/arg_test.lua, llvm-lua/tests/big_table.lua, llvm-lua/tests/dump.lua, llvm-lua/tests/for.lua, llvm-lua/tests/hash2.lua, llvm-lua/tests/loadk.lua, llvm-lua/tests/local_nil.lua, llvm-lua/tests/loops.lua, llvm-lua/tests/lua_tail.lua, llvm-lua/tests/nestedloop.lua, llvm-lua/tests/nestedloop2.lua, llvm-lua/tests/nums.lua, llvm-lua/tests/scimark_loop.lua, llvm-lua/tests/scimark_rand.lua, llvm-lua/tests/stress_for.lua, llvm-lua/tests/test.lua, llvm-lua/tests/test2.lua, llvm-lua/tests/test3.lua, llvm-lua/tests/test4.lua, llvm-lua/tests/test_math.lua, llvm-lua/tests/test_tail.lua: Added lua scripts used for regression testing. * llvm-lua/LLVMCompiler.cpp, llvm-lua/TODO, llvm-lua/llvm_lmathlib.c, llvm-lua/lua_core.c, src/lauxlib.c, src/lauxlib.h, src/ldo.c: Improved speed of math.* functions by lowering the call overhead. 2009-05-28 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp: Fixed some bugs with numeric forloop optimizations. 2009-05-24 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/TODO, llvm-lua/lua-compiler, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c, src/ldo.c: Improved performance of numeric for loops. 2009-05-21 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/llvm_dumper.cpp, llvm-lua/llvm_dumper.h, llvm-lua/lua_compiler.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c, llvm-lua/no_jit.c: Added some optimizations. Fixed a few bugs. 2009-05-20 Robert G. Jakabosky * Makefile, llvm-lua/LLVMDumper.cpp, llvm-lua/Makefile, llvm-lua/compile_all.sh, llvm-lua/lua-compiler, llvm-lua/lua_compiler.c: Fixed support for using c-backend to compile Lua scripts to standalone binaries. * Makefile, llvm-lua/Makefile, llvm-lua/compile.sh, llvm-lua/compile_all.sh, llvm-lua/llvm_compiler.h, llvm-lua/lua-compiler: Bump version number to 0.9 Cleaned up Makefile. Renamed llvm-luac wrapper script from compile.sh to lua-compiler. * Makefile, README.llvm-lua, llvm-lua/LLVMDumper.cpp, llvm-lua/Makefile, llvm-lua/bin2c.c, llvm-lua/compile.sh, llvm-lua/llvm_compiler.cpp, llvm-lua/llvm_compiler.h, llvm-lua/llvm_dumper.cpp, llvm-lua/llvm_dumper.h, llvm-lua/load_embedded_bc.cpp, llvm-lua/load_embedded_bc.h, llvm-lua/load_liblua_main.cpp, llvm-lua/load_liblua_main.h, llvm-lua/load_vm_ops.cpp, llvm-lua/lua_vm_ops_module.cpp, llvm-lua/lua_vm_ops_module.h: Embedded lua_vm_ops.bc & liblua_main.bc instead of loading/linking them at run-time. 2009-05-19 Robert G. Jakabosky * Makefile, llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/LLVMDumper.cpp, llvm-lua/LLVMDumper.h, llvm-lua/Makefile, llvm-lua/TODO, llvm-lua/compile.sh, llvm-lua/hook_parser.c, llvm-lua/load_jit_proto.c, llvm-lua/load_jit_proto.h, llvm-lua/lua_main.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c, llvm-lua/no_jit.c, src/ldo.c, src/luaconf.h: Fixed bugs with debug hooks. Added line/upvalues/locals info to jit_proto, to support debugging info of JITed code. Allow debuging info be stripped when compling Lua scripts. 2009-05-17 Robert G. Jakabosky * Makefile, etc/lua.pc, llvm-lua/LLVMCompiler.cpp, llvm-lua/compile.sh, llvm-lua/load_vm_ops.cpp, src/ldebug.c: Fixed compile bug. Fixed lua debug libraries handling of JIT functions that have Lua bytecode stripped. 2009-03-12 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/LLVMDumper.cpp, llvm-lua/LLVMDumper.h, llvm-lua/Makefile, llvm-lua/TODO, llvm-lua/compile.sh, llvm-lua/compile_all.sh, llvm-lua/compile_bc.sh, llvm-lua/compile_c.sh, llvm-lua/hook_parser.c, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-luac.cpp, llvm-lua/llvm_compiler.cpp, llvm-lua/llvm_compiler.h, llvm-lua/load_jit_proto.c, llvm-lua/load_jit_proto.h, llvm-lua/lua_compiler.c, llvm-lua/lua_core.c, llvm-lua/lua_main.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c: Added support for stripping Lua opcodes from compiled Lua code (can be used for obfucation). Added support for compiling Lua code as native code modules instead of just standalone binaries. Added support for compiling llvm-lua as an embeddable library with JIT support. Improved compile.sh wrapper script. 2009-03-06 Robert G. Jakabosky * llvm-lua/Makefile, llvm-lua/lua_vm_ops.c, src/lvm.c: Fixed bug with Lua stack re-allocation. 2009-01-22 Robert G. Jakabosky * llvm-lua/Makefile, llvm-lua/compile_c.sh, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-luac.cpp: fixed bug with llvm asserts. Added bash script for compiling lua scripts to C code. 2008-10-09 Robert G. Jakabosky * llvm-lua/Makefile, llvm-lua/compile.sh, llvm-lua/compile_all.sh, llvm-lua/compile_bc.sh: compile llvm bitcode to assembly instead of 'C' code. 2008-10-08 Robert G. Jakabosky * llvm-lua/Makefile, llvm-lua/compile.sh: remove '-foptimize-sibling-calls' disabled '-march=athlon64' * llvm-lua/llvm_compiler.h: bump version to 0.5 * src/ldo.h: Added 'PCRTAILRECUR' for tail-recursive calls from JIT functions. * llvm-lua/LLVMCompiler.cpp, llvm-lua/compile.sh, llvm-lua/hook_parser.c, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-luac.cpp, llvm-lua/llvm_compiler.cpp, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops_static.c: Fixed memory offset bug & memory leaks. Fixed '-time-passes' to display info about passes run by JIT. Changed default Optimization level to '3'. 2008-10-07 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/LLVMDumper.cpp, llvm-lua/LLVMDumper.h, llvm-lua/TODO, llvm-lua/compile.sh, llvm-lua/hook_parser.c, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-luac.cpp, llvm-lua/llvm_compiler.cpp, llvm-lua/llvm_compiler.h, llvm-lua/lua_compiler.c, llvm-lua/lua_main.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c: Added specialized functions for OP_EQ. Added support to Lower for loop's internal idx variable from the Lua stack to the c-stack. Added support to remove "LOADK" opcodes used for constant for loop parameters and turn then into llvm constants. Added command-line options for controlling the optimization level. Fixed bug with passing command-line options to the Lua core interpreter & compiler. 2008-10-05 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMDumper.cpp, llvm-lua/lua_vm_ops_static.c: Fixed a few bugs. Improved tail-calls from JIT function to non-JIT Lua function. * llvm-lua/LLVMCompiler.cpp, llvm-lua/TODO, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-luac.cpp, llvm-lua/llvm_compiler.h: Added LLVM command options to llvm-luac. Don't compiled inlined opcode functions, since they will not be called. * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/LLVMDumper.cpp, llvm-lua/Makefile, llvm-lua/compile.sh, llvm-lua/hook_parser.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c, src/ldo.c, src/ldo.h: Fixed tail-call support, now lua scripts can make tail-calls without the c-stack/lua callstack growing. Added some optimizations of the Lua bytecode and generated machine code. Lowered the opcode limit from 800 down to 200 for the max function size that is JITed. Added support for specialized versions of each opcode function to support more optimizations. 2008-10-03 Robert G. Jakabosky * llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c: remove unused argument. * llvm-lua/LLVMDumper.cpp, llvm-lua/LLVMDumper.h, llvm-lua/load_jit_proto.h, llvm-lua/lua_main.c: Fixed 32bit support for static compiling Lua scripts. * Makefile, README.llvm-lua, llvm-lua/Makefile: Improve Makefile support for other platforms. * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/Makefile, llvm-lua/compile.sh, llvm-lua/compile_bc.sh, llvm-lua/hook_parser.c, llvm-lua/llvm_compiler.cpp, llvm-lua/llvm_compiler.h, llvm-lua/lua_core.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_static.c: Improved true tailcall support when calling a JIT/C function from a JIT function. Removed 'func_state' structure from JIT functions to allow tailcalls into vm_OP_* functions. * src/ldo.c, src/ldo.h, src/luaconf.h: Export 'tryfuncTM' function as 'luaD_tryfuncTM' from ldo.c disable HARDSTACKTESTS tests. 2008-09-29 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/Makefile, llvm-lua/compile.sh, llvm-lua/lua_compiler.h, llvm-lua/lua_core.c, llvm-lua/lua_core.h, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, llvm-lua/lua_vm_ops_module.cpp, llvm-lua/lua_vm_ops_static.c: Moved some large vm_OP_* functions from loadable bitcode file into llvm-lua. Added LLVM timers to compiler. Added support for LLVM command line options. Some code clean up. 2008-09-28 Robert G. Jakabosky * llvm-lua/lua_vm_ops_module.cpp: fixed compile bug. 2008-09-27 Robert G. Jakabosky * llvm-lua/LLVMCompiler.cpp, llvm-lua/llvm-lua.cpp: Add command line parsing support for LLVM options. * llvm-lua/load_vm_ops.cpp: search current directory & LLVM_LIB_SEARCH_PATH for lua_vm_ops.bc file. * llvm-lua/LLVMCompiler.cpp, llvm-lua/LLVMCompiler.h, llvm-lua/LLVMDumper.cpp, llvm-lua/LLVMDumper.h, llvm-lua/Makefile, llvm-lua/compile.sh, llvm-lua/hook_parser.c, llvm-lua/llvm-compiler.cpp, llvm-lua/llvm-compiler.h, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-luac.cpp, llvm-lua/llvm_compiler.cpp, llvm-lua/llvm_compiler.h, llvm-lua/load_jit_proto.c, llvm-lua/load_vm_ops.cpp, llvm-lua/load_vm_ops.h, llvm-lua/lua_compiler.c, llvm-lua/lua_core.c, llvm-lua/lua_main.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops_module.cpp, llvm-lua/lua_vm_ops_module.h: Added a new way to load the lua_vm_ops.bc by compiling it into C++ LLVM API calls and embedding it into the llvm-lua & llvm-luac programs. Re-factored Lua bytecode to LLVM IR compiler code into two classes LLVMCompiler & LLVMDumper. Fixed some other bugs. 2008-09-23 Robert G. Jakabosky * src/lcoco.c: Mac OS X 64bit fix from Mike Pall 2008-09-19 Robert G. Jakabosky * Makefile, doc/manual.html, doc/readme.html, etc/lua.pc, src/lapi.c, src/loadlib.c, src/lobject.h, src/lstrlib.c, src/lua.h: Update to Official Lua-5.1.4 2008-08-30 Robert G. Jakabosky * src/lcoco.c: Changed from using %rbp & %rbx to %r12 & %r13 for wrap function. * llvm-lua/lua_vm_ops.c, src/lvm.c, src/lvm.h: Fixed support for line/count debug hooks. * src/lcoco.c: Added wrap function to set register %rdi (to lua_State *) on first resume of a coroutine, instead of very resume/yield. 2008-08-28 Robert G. Jakabosky * llvm-lua/Makefile, llvm-lua/llvm-compiler.cpp: Patch from "Kay Ropke" fixes bug with compiling on OS X with the latest LLVM revision(55456). 2008-08-27 Robert G. Jakabosky * llvm-lua/llvm-compiler.cpp, llvm-lua/load_jit_proto.h: fixed bug with boolean constants when static compiling Lua scripts. 2008-08-26 Robert G. Jakabosky * llvm-lua/compile_all.sh: add message 2008-08-25 Robert G. Jakabosky * llvm-lua/Makefile, llvm-lua/compile.sh, llvm-lua/compile_all.sh, llvm-lua/hook_parser.c, llvm-lua/llvm-compiler.cpp, llvm-lua/lua_vm_ops.c: Fixed bugs with calling non-JITed Lua functions. Manually inline opcode functions instead of using the inliner pass. Code cleanup. 2008-08-23 Robert G. Jakabosky * src/lcoco.c: fixed bug with assembly coco_switcher for x86_64. * src/Makefile, src/lcoco.c: Added added assembly ctx_switcher for x86_64-linux to LuaCoco. * .svnignore, COPYRIGHT, HISTORY, INSTALL, Makefile, README, README.llvm-lua, doc, doc/amazon.gif, doc/contents.html, doc/cover.png, doc/logo.gif, doc/lua.1, doc/lua.css, doc/lua.html, doc/luac.1, doc/luac.html, doc/manual.css, doc/manual.html, doc/readme.html, etc, etc/Makefile, etc/README, etc/all.c, etc/lua.hpp, etc/lua.ico, etc/lua.pc, etc/luavs.bat, etc/min.c, etc/noparser.c, etc/strict.lua, llvm-lua, llvm-lua/COPYRIGHT.llvm-lua, llvm-lua/Makefile, llvm-lua/compile.sh, llvm-lua/hook_parser.c, llvm-lua/llvm-compiler.cpp, llvm-lua/llvm-compiler.h, llvm-lua/llvm-lua.cpp, llvm-lua/llvm-lua.h, llvm-lua/llvm-luac.cpp, llvm-lua/llvm-luac.h, llvm-lua/load_jit_proto.c, llvm-lua/load_jit_proto.h, llvm-lua/lua_compiler.c, llvm-lua/lua_compiler.h, llvm-lua/lua_core.c, llvm-lua/lua_core.h, llvm-lua/lua_interpreter.c, llvm-lua/lua_interpreter.h, llvm-lua/lua_main.c, llvm-lua/lua_normal.c, llvm-lua/lua_vm_ops.c, llvm-lua/lua_vm_ops.h, src, src/Makefile, src/lapi.c, src/lapi.h, src/lauxlib.c, src/lauxlib.h, src/lbaselib.c, src/lcoco.c, src/lcoco.h, src/lcode.c, src/lcode.h, src/ldblib.c, src/ldebug.c, src/ldebug.h, src/ldo.c, src/ldo.h, src/ldump.c, src/lfunc.c, src/lfunc.h, src/lgc.c, src/lgc.h, src/linit.c, src/liolib.c, src/llex.c, src/llex.h, src/llimits.h, src/lmathlib.c, src/lmem.c, src/lmem.h, src/loadlib.c, src/lobject.c, src/lobject.h, src/lopcodes.c, src/lopcodes.h, src/loslib.c, src/lparser.c, src/lparser.h, src/lstate.c, src/lstate.h, src/lstring.c, src/lstring.h, src/lstrlib.c, src/ltable.c, src/ltable.h, src/ltablib.c, src/ltm.c, src/ltm.h, src/lua.c, src/lua.h, src/luac.c, src/luaconf.h, src/lualib.h, src/lundump.c, src/lundump.h, src/lvm.c, src/lvm.h, src/lzio.c, src/lzio.h, src/print.c, test, test/README, test/bisect.lua, test/cf.lua, test/echo.lua, test/env.lua, test/factorial.lua, test/fib.lua, test/fibfor.lua, test/globals.lua, test/hello.lua, test/life.lua, test/luac.lua, test/printf.lua, test/readonly.lua, test/sieve.lua, test/sort.lua, test/table.lua, test/trace-calls.lua, test/trace-globals.lua, test/xd.lua: Initial 0.1 release 2008-08-23 * .: Initial directory structure. ================================================ FILE: HISTORY ================================================ HISTORY for Lua 5.1 * Changes from version 5.0 to 5.1 ------------------------------- Language: + new module system. + new semantics for control variables of fors. + new semantics for setn/getn. + new syntax/semantics for varargs. + new long strings and comments. + new `mod' operator (`%') + new length operator #t + metatables for all types API: + new functions: lua_createtable, lua_get(set)field, lua_push(to)integer. + user supplies memory allocator (lua_open becomes lua_newstate). + luaopen_* functions must be called through Lua. Implementation: + new configuration scheme via luaconf.h. + incremental garbage collection. + better handling of end-of-line in the lexer. + fully reentrant parser (new Lua function `load') + better support for 64-bit machines. + native loadlib support for Mac OS X. + standard distribution in only one library (lualib.a merged into lua.a) * Changes from version 4.0 to 5.0 ------------------------------- Language: + lexical scoping. + Lua coroutines. + standard libraries now packaged in tables. + tags replaced by metatables and tag methods replaced by metamethods, stored in metatables. + proper tail calls. + each function can have its own global table, which can be shared. + new __newindex metamethod, called when we insert a new key into a table. + new block comments: --[[ ... ]]. + new generic for. + new weak tables. + new boolean type. + new syntax "local function". + (f()) returns the first value returned by f. + {f()} fills a table with all values returned by f. + \n ignored in [[\n . + fixed and-or priorities. + more general syntax for function definition (e.g. function a.x.y:f()...end). + more general syntax for function calls (e.g. (print or write)(9)). + new functions (time/date, tmpfile, unpack, require, load*, etc.). API: + chunks are loaded by using lua_load; new luaL_loadfile and luaL_loadbuffer. + introduced lightweight userdata, a simple "void*" without a metatable. + new error handling protocol: the core no longer prints error messages; all errors are reported to the caller on the stack. + new lua_atpanic for host cleanup. + new, signal-safe, hook scheme. Implementation: + new license: MIT. + new, faster, register-based virtual machine. + support for external multithreading and coroutines. + new and consistent error message format. + the core no longer needs "stdio.h" for anything (except for a single use of sprintf to convert numbers to strings). + lua.c now runs the environment variable LUA_INIT, if present. It can be "@filename", to run a file, or the chunk itself. + support for user extensions in lua.c. sample implementation given for command line editing. + new dynamic loading library, active by default on several platforms. + safe garbage-collector metamethods. + precompiled bytecodes checked for integrity (secure binary dostring). + strings are fully aligned. + position capture in string.find. + read('*l') can read lines with embedded zeros. * Changes from version 3.2 to 4.0 ------------------------------- Language: + new "break" and "for" statements (both numerical and for tables). + uniform treatment of globals: globals are now stored in a Lua table. + improved error messages. + no more '$debug': full speed *and* full debug information. + new read form: read(N) for next N bytes. + general read patterns now deprecated. (still available with -DCOMPAT_READPATTERNS.) + all return values are passed as arguments for the last function (old semantics still available with -DLUA_COMPAT_ARGRET) + garbage collection tag methods for tables now deprecated. + there is now only one tag method for order. API: + New API: fully re-entrant, simpler, and more efficient. + New debug API. Implementation: + faster than ever: cleaner virtual machine and new hashing algorithm. + non-recursive garbage-collector algorithm. + reduced memory usage for programs with many strings. + improved treatment for memory allocation errors. + improved support for 16-bit machines (we hope). + code now compiles unmodified as both ANSI C and C++. + numbers in bases other than 10 are converted using strtoul. + new -f option in Lua to support #! scripts. + luac can now combine text and binaries. * Changes from version 3.1 to 3.2 ------------------------------- + redirected all output in Lua's core to _ERRORMESSAGE and _ALERT. + increased limit on the number of constants and globals per function (from 2^16 to 2^24). + debugging info (lua_debug and hooks) moved into lua_state and new API functions provided to get and set this info. + new debug lib gives full debugging access within Lua. + new table functions "foreachi", "sort", "tinsert", "tremove", "getn". + new io functions "flush", "seek". * Changes from version 3.0 to 3.1 ------------------------------- + NEW FEATURE: anonymous functions with closures (via "upvalues"). + new syntax: - local variables in chunks. - better scope control with DO block END. - constructors can now be also written: { record-part; list-part }. - more general syntax for function calls and lvalues, e.g.: f(x).y=1 o:f(x,y):g(z) f"string" is sugar for f("string") + strings may now contain arbitrary binary data (e.g., embedded zeros). + major code re-organization and clean-up; reduced module interdependecies. + no arbitrary limits on the total number of constants and globals. + support for multiple global contexts. + better syntax error messages. + new traversal functions "foreach" and "foreachvar". + the default for numbers is now double. changing it to use floats or longs is easy. + complete debug information stored in pre-compiled chunks. + sample interpreter now prompts user when run interactively, and also handles control-C interruptions gracefully. * Changes from version 2.5 to 3.0 ------------------------------- + NEW CONCEPT: "tag methods". Tag methods replace fallbacks as the meta-mechanism for extending the semantics of Lua. Whereas fallbacks had a global nature, tag methods work on objects having the same tag (e.g., groups of tables). Existing code that uses fallbacks should work without change. + new, general syntax for constructors {[exp] = exp, ... }. + support for handling variable number of arguments in functions (varargs). + support for conditional compilation ($if ... $else ... $end). + cleaner semantics in API simplifies host code. + better support for writing libraries (auxlib.h). + better type checking and error messages in the standard library. + luac can now also undump. * Changes from version 2.4 to 2.5 ------------------------------- + io and string libraries are now based on pattern matching; the old libraries are still available for compatibility + dofile and dostring can now return values (via return statement) + better support for 16- and 64-bit machines + expanded documentation, with more examples * Changes from version 2.2 to 2.4 ------------------------------- + external compiler creates portable binary files that can be loaded faster + interface for debugging and profiling + new "getglobal" fallback + new functions for handling references to Lua objects + new functions in standard lib + only one copy of each string is stored + expanded documentation, with more examples * Changes from version 2.1 to 2.2 ------------------------------- + functions now may be declared with any "lvalue" as a name + garbage collection of functions + support for pipes * Changes from version 1.1 to 2.1 ------------------------------- + object-oriented support + fallbacks + simplified syntax for tables + many internal improvements (end of HISTORY) ================================================ FILE: INSTALL ================================================ INSTALL for Lua 5.1 * Building Lua ------------ Lua is built in the src directory, but the build process can be controlled from the top-level Makefile. Building Lua on Unix systems should be very easy. First do "make" and see if your platform is listed. If so, just do "make xxx", where xxx is your platform name. The platforms currently supported are: aix ansi bsd freebsd generic linux macosx mingw posix solaris If your platform is not listed, try the closest one or posix, generic, ansi, in this order. See below for customization instructions and for instructions on how to build with other Windows compilers. If you want to check that Lua has been built correctly, do "make test" after building Lua. Also, have a look at the example programs in test. * Installing Lua -------------- Once you have built Lua, you may want to install it in an official place in your system. In this case, do "make install". The official place and the way to install files are defined in Makefile. You must have the right permissions to install files. If you want to build and install Lua in one step, do "make xxx install", where xxx is your platform name. If you want to install Lua locally, then do "make local". This will create directories bin, include, lib, man, and install Lua there as follows: bin: lua luac include: lua.h luaconf.h lualib.h lauxlib.h lua.hpp lib: liblua.a man/man1: lua.1 luac.1 These are the only directories you need for development. There are man pages for lua and luac, in both nroff and html, and a reference manual in html in doc, some sample code in test, and some useful stuff in etc. You don't need these directories for development. If you want to install Lua locally, but in some other directory, do "make install INSTALL_TOP=xxx", where xxx is your chosen directory. See below for instructions for Windows and other systems. * Customization ------------- Three things can be customized by editing a file: - Where and how to install Lua -- edit Makefile. - How to build Lua -- edit src/Makefile. - Lua features -- edit src/luaconf.h. You don't actually need to edit the Makefiles because you may set the relevant variables when invoking make. On the other hand, if you need to select some Lua features, you'll need to edit src/luaconf.h. The edited file will be the one installed, and it will be used by any Lua clients that you build, to ensure consistency. We strongly recommend that you enable dynamic loading. This is done automatically for all platforms listed above that have this feature (and also Windows). See src/luaconf.h and also src/Makefile. * Building Lua on Windows and other systems ----------------------------------------- If you're not using the usual Unix tools, then the instructions for building Lua depend on the compiler you use. You'll need to create projects (or whatever your compiler uses) for building the library, the interpreter, and the compiler, as follows: library: lapi.c lcode.c ldebug.c ldo.c ldump.c lfunc.c lgc.c llex.c lmem.c lobject.c lopcodes.c lparser.c lstate.c lstring.c ltable.c ltm.c lundump.c lvm.c lzio.c lauxlib.c lbaselib.c ldblib.c liolib.c lmathlib.c loslib.c ltablib.c lstrlib.c loadlib.c linit.c interpreter: library, lua.c compiler: library, luac.c print.c If you use Visual Studio .NET, you can use etc/luavs.bat in its "Command Prompt". If all you want is to build the Lua interpreter, you may put all .c files in a single project, except for luac.c and print.c. Or just use etc/all.c. To use Lua as a library in your own programs, you'll need to know how to create and use libraries with your compiler. As mentioned above, you may edit luaconf.h to select some features before building Lua. (end of INSTALL) ================================================ FILE: README ================================================ README for Lua 5.1 See INSTALL for installation instructions. See HISTORY for a summary of changes since the last released version. * What is Lua? ------------ Lua is a powerful, light-weight programming language designed for extending applications. Lua is also frequently used as a general-purpose, stand-alone language. Lua is free software. For complete information, visit Lua's web site at http://www.lua.org/ . For an executive summary, see http://www.lua.org/about.html . Lua has been used in many different projects around the world. For a short list, see http://www.lua.org/uses.html . * Availability ------------ Lua is freely available for both academic and commercial purposes. See COPYRIGHT and http://www.lua.org/license.html for details. Lua can be downloaded at http://www.lua.org/download.html . * Installation ------------ Lua is implemented in pure ANSI C, and compiles unmodified in all known platforms that have an ANSI C compiler. In most Unix-like platforms, simply do "make" with a suitable target. See INSTALL for detailed instructions. * Origin ------ Lua is developed at Lua.org, a laboratory of the Department of Computer Science of PUC-Rio (the Pontifical Catholic University of Rio de Janeiro in Brazil). For more information about the authors, see http://www.lua.org/authors.html . (end of README) ================================================ FILE: README.llvm-lua ================================================ README for llvm-lua === Requires === * LLVM 2.8 * Clang or llvm-gcc 4.2.x from llvm.org === Compile === * mkdir build * cd build for Release build: * cmake .. -DLLVM_PATH= -DCMAKE_BUILD_TYPE=Release for Debug build: * cmake .. -DLLVM_PATH= -DCMAKE_BUILD_TYPE=Debug * make === Install === * make install === Patches to lua/src === * Emergency Garbage Collector: http://lua-users.org/wiki/EmergencyGarbageCollector * LuaCoco-1.1.6: http://luajit.org/coco.html + (x86_64 support added) * a few hooks where added to support JIT compiled functions. === Programs === * llvm-lua: This command can be used to run Lua script. It uses the LLVM backend to JIT Lua scripts to machine code for faster execution. * llvm-luac: This command compiles Lua scripts into LLVM bitcode. * lua-compiler: This is a bash script that wraps llvm-luac to compile Lua scripts into standalone executables or loadable modules. === Libraries === -- Lua core without LLVM JIT support, but compatible with compiled modules. Can be used as drop-in replacements of the normal Lua libraries. * liblua_static.a & liblua.so -- Static library with LLVM JIT support requires static linking with LLVM libraries. * libllvm-lua_static.a & libllvm-lua.so -- Used for compling Lua scripts to standalone executables. * liblua_main.a === Using llvm-lua === The JIT/interpreter command 'llvm-lua' can be used just like the normal 'lua'. There are a lot of extra command line options that expose some options from LLVM, they are not required for normal use. The JIT will compile Lua code with optimization level 3 by default. === Static compiling Lua scripts === 'llvm-luac' alone can only compile Lua scripts to Lua bytecode or LLVM bitcode. A wrapper script called 'lua-compiler' is provided that wraps 'llvm-luac', the LLVM tools (llc & opt), and gcc. Compile standalone Lua script: lua-compiler script.lua outputs: ./script Compile Lua script as a module: lua-compiler -lua-module script.lua outputs: ./script.so === Embedding 'llvm-lua' with JIT support === The Lua C API is unchanged and no extra API functions are exposed by llvm-lua. The only change is how host app. is linked with the 'liblua-llvm.a' library instead of the normal 'liblua.a' library. Use the following command to link your C app with llvm-lua: gcc -o embed.o -c etc/embed_jit.c g++ -o embed embed.o -lllvm-lua `llvm-config --ldflags --libs core jit native linker` -rdynamic -Wl,-E -lm -ldl Use the following command to link your C++ app with llvm-lua: g++ -o embed.o -c etc/embed_jit.cpp g++ -o embed embed.o -lllvm-lua `llvm-config --ldflags --libs core jit native linker` -rdynamic -Wl,-E -lm -ldl ================================================ FILE: TODO ================================================ -- TODO list misc: * Port lua-compiler bash script to a Lua script. * handle coroutine c-stack alignment issues on x86_64 when compiling in DEBUG mode. * Add option to compile liblua_main.a without lua parser, lundump/ldump code. * Update to latest EGC patch. module naming issues: * change how the compiler names modules. * give the compiler a search path + module name "A.B.C" and have it compile A/B/C.lua into A/B/C.so * remove output file extension when nameing the module, instead of just the last three letters. lua-compiler script: * fix linking bug reported by DigitalKiwi: #CFLAGS=" -ggdb -O3 -fomit-frame-pointer -pipe -Wall " CFLAGS=" -O3 -fomit-frame-pointer -pipe -Wl,-E " http://www.tecgraf.puc-rio.br/~lhf/ftp/lua/install.html ================================================ FILE: cmake/CustomMacros.cmake ================================================ macro(add_llvm_bc_library _target) set(_llvm_cflags) get_property(_idirs DIRECTORY PROPERTY INCLUDE_DIRECTORIES) foreach(_idir ${_idirs}) set(_llvm_cflags ${_llvm_cflags} -I${_idir}) endforeach(_idir) if(${ARGC} GREATER 2) set(_bc_files) foreach(_file ${ARGN}) set(_bc_file "${CMAKE_CURRENT_BINARY_DIR}/${_file}.bc") set(_bc_files ${_bc_files} ${_bc_file}) add_custom_command(OUTPUT ${_bc_file} COMMAND ${LLVM_CC} ARGS ${BC_CFLAGS} ${_llvm_cflags} -o ${_bc_file} ${_file} WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR} DEPENDS ${_file} ) endforeach(_file) add_custom_command(OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/${_target}.bc COMMAND ${LLVM_LD} ARGS -o ${CMAKE_CURRENT_BINARY_DIR}/${_target}.bc ${_bc_files} WORKING_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR} DEPENDS ${_bc_files} ) else(${ARGC} GREATER 2) add_custom_command(OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/${_target}.bc COMMAND ${LLVM_CC} ARGS ${BC_CFLAGS} ${_llvm_cflags} -o ${CMAKE_CURRENT_BINARY_DIR}/${_target}.bc ${ARGV1} WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR} DEPENDS ${ARGV1} ) endif(${ARGC} GREATER 2) endmacro(add_llvm_bc_library) macro(add_target_properties _target _name) set(_properties) foreach(_prop ${ARGN}) set(_properties "${_properties} ${_prop}") endforeach(_prop) get_target_property(_old_properties ${_target} ${_name}) if(NOT _old_properties) # in case it's NOTFOUND set(_old_properties) endif(NOT _old_properties) set_target_properties(${_target} PROPERTIES ${_name} "${_old_properties} ${_properties}") endmacro(add_target_properties) ================================================ FILE: cmake/FindLLVM.cmake ================================================ # - Find libev # Find the native LLVM includes and library # # LLVM_INCLUDE_DIR - where to find ev.h, etc. # LLVM_LIBRARIES - List of libraries when using libev. # LLVM_FOUND - True if libev found. find_program(LLVM_CONFIG_EXECUTABLE NAMES "${LLVM_PATH}/bin/llvm-config" DOC "llvm-config executable") execute_process( COMMAND ${LLVM_CONFIG_EXECUTABLE} --cppflags OUTPUT_VARIABLE LLVM_CFLAGS OUTPUT_STRIP_TRAILING_WHITESPACE ) execute_process( COMMAND ${LLVM_CONFIG_EXECUTABLE} --ldflags OUTPUT_VARIABLE LLVM_LFLAGS OUTPUT_STRIP_TRAILING_WHITESPACE ) execute_process( COMMAND ${LLVM_CONFIG_EXECUTABLE} --libs core jit native linker bitreader bitwriter ipo OUTPUT_VARIABLE LLVM_JIT_LIBS OUTPUT_STRIP_TRAILING_WHITESPACE ) execute_process( COMMAND ${LLVM_CONFIG_EXECUTABLE} --libs all OUTPUT_VARIABLE LLVM_ALL_LIBS OUTPUT_STRIP_TRAILING_WHITESPACE ) ================================================ FILE: cmake_uninstall.cmake.in ================================================ IF(NOT EXISTS "@CMAKE_BINARY_DIR@/install_manifest.txt") MESSAGE(FATAL_ERROR "Cannot find install manifest: \"@CMAKE_BINARY_DIR@/install_manifest.txt\"") ENDIF(NOT EXISTS "@CMAKE_BINARY_DIR@/install_manifest.txt") FILE(READ "@CMAKE_BINARY_DIR@/install_manifest.txt" files) STRING(REGEX REPLACE "\n" ";" files "${files}") FOREACH(file ${files}) MESSAGE(STATUS "Uninstalling \"$ENV{DESTDIR}${file}\"") EXEC_PROGRAM( "@CMAKE_COMMAND@" ARGS "-E remove \"$ENV{DESTDIR}${file}\"" OUTPUT_VARIABLE rm_out RETURN_VALUE rm_retval ) IF(NOT "${rm_retval}" STREQUAL 0) MESSAGE(FATAL_ERROR "Problem when removing \"$ENV{DESTDIR}${file}\"") ENDIF(NOT "${rm_retval}" STREQUAL 0) ENDFOREACH(file) ================================================ FILE: doc/contents.html ================================================ Lua 5.1 Reference Manual - contents

Lua 5.1 Reference Manual

This is an online version of
Lua 5.1 Reference Manual
by R. Ierusalimschy, L. H. de Figueiredo, W. Celes
Lua.org, August 2006
ISBN 85-903798-3-3
[Buy from Amazon]

Buy a copy of this book and help to support the Lua project.

The reference manual is the official definition of the Lua language. For a complete introduction to Lua programming, see the book Programming in Lua.

start · contents · index · portugus · espaol

Copyright © 2006-2008 Lua.org, PUC-Rio. Freely available under the terms of the Lua license.

Contents

Index

Lua functions

_G
_VERSION
assert
collectgarbage
dofile
error
getfenv
getmetatable
ipairs
load
loadfile
loadstring
module
next
pairs
pcall
print
rawequal
rawget
rawset
require
select
setfenv
setmetatable
tonumber
tostring
type
unpack
xpcall

coroutine.create
coroutine.resume
coroutine.running
coroutine.status
coroutine.wrap
coroutine.yield

debug.debug
debug.getfenv
debug.gethook
debug.getinfo
debug.getlocal
debug.getmetatable
debug.getregistry
debug.getupvalue
debug.setfenv
debug.sethook
debug.setlocal
debug.setmetatable
debug.setupvalue
debug.traceback

 

file:close
file:flush
file:lines
file:read
file:seek
file:setvbuf
file:write

io.close
io.flush
io.input
io.lines
io.open
io.output
io.popen
io.read
io.stderr
io.stdin
io.stdout
io.tmpfile
io.type
io.write

math.abs
math.acos
math.asin
math.atan
math.atan2
math.ceil
math.cos
math.cosh
math.deg
math.exp
math.floor
math.fmod
math.frexp
math.huge
math.ldexp
math.log
math.log10
math.max
math.min
math.modf
math.pi
math.pow
math.rad
math.random
math.randomseed
math.sin
math.sinh
math.sqrt
math.tan
math.tanh

os.clock
os.date
os.difftime
os.execute
os.exit
os.getenv
os.remove
os.rename
os.setlocale
os.time
os.tmpname

package.cpath
package.loaded
package.loaders
package.loadlib
package.path
package.preload
package.seeall

string.byte
string.char
string.dump
string.find
string.format
string.gmatch
string.gsub
string.len
string.lower
string.match
string.rep
string.reverse
string.sub
string.upper

table.concat
table.insert
table.maxn
table.remove
table.sort

C API

lua_Alloc
lua_CFunction
lua_Debug
lua_Hook
lua_Integer
lua_Number
lua_Reader
lua_State
lua_Writer

lua_atpanic
lua_call
lua_checkstack
lua_close
lua_concat
lua_cpcall
lua_createtable
lua_dump
lua_equal
lua_error
lua_gc
lua_getallocf
lua_getfenv
lua_getfield
lua_getglobal
lua_gethook
lua_gethookcount
lua_gethookmask
lua_getinfo
lua_getlocal
lua_getmetatable
lua_getstack
lua_gettable
lua_gettop
lua_getupvalue
lua_insert
lua_isboolean
lua_iscfunction
lua_isfunction
lua_islightuserdata
lua_isnil
lua_isnone
lua_isnoneornil
lua_isnumber
lua_isstring
lua_istable
lua_isthread
lua_isuserdata
lua_lessthan
lua_load
lua_newstate
lua_newtable
lua_newthread
lua_newuserdata
lua_next
lua_objlen
lua_pcall
lua_pop
lua_pushboolean
lua_pushcclosure
lua_pushcfunction
lua_pushfstring
lua_pushinteger
lua_pushlightuserdata
lua_pushliteral
lua_pushlstring
lua_pushnil
lua_pushnumber
lua_pushstring
lua_pushthread
lua_pushvalue
lua_pushvfstring
lua_rawequal
lua_rawget
lua_rawgeti
lua_rawset
lua_rawseti
lua_register
lua_remove
lua_replace
lua_resume
lua_setallocf
lua_setfenv
lua_setfield
lua_setglobal
lua_sethook
lua_setlocal
lua_setmetatable
lua_settable
lua_settop
lua_setupvalue
lua_status
lua_toboolean
lua_tocfunction
lua_tointeger
lua_tolstring
lua_tonumber
lua_topointer
lua_tostring
lua_tothread
lua_touserdata
lua_type
lua_typename
lua_upvalueindex
lua_xmove
lua_yield

auxiliary library

luaL_Buffer
luaL_Reg

luaL_addchar
luaL_addlstring
luaL_addsize
luaL_addstring
luaL_addvalue
luaL_argcheck
luaL_argerror
luaL_buffinit
luaL_callmeta
luaL_checkany
luaL_checkint
luaL_checkinteger
luaL_checklong
luaL_checklstring
luaL_checknumber
luaL_checkoption
luaL_checkstack
luaL_checkstring
luaL_checktype
luaL_checkudata
luaL_dofile
luaL_dostring
luaL_error
luaL_getmetafield
luaL_getmetatable
luaL_gsub
luaL_loadbuffer
luaL_loadfile
luaL_loadstring
luaL_newmetatable
luaL_newstate
luaL_openlibs
luaL_optint
luaL_optinteger
luaL_optlong
luaL_optlstring
luaL_optnumber
luaL_optstring
luaL_prepbuffer
luaL_pushresult
luaL_ref
luaL_register
luaL_typename
luaL_typerror
luaL_unref
luaL_where

Last update: Sat Jan 19 13:24:29 BRST 2008 ================================================ FILE: doc/lua.1 ================================================ .\" $Id: lua.man,v 1.11 2006/01/06 16:03:34 lhf Exp $ .TH LUA 1 "$Date: 2006/01/06 16:03:34 $" .SH NAME lua \- Lua interpreter .SH SYNOPSIS .B lua [ .I options ] [ .I script [ .I args ] ] .SH DESCRIPTION .B lua is the stand-alone Lua interpreter. It loads and executes Lua programs, either in textual source form or in precompiled binary form. (Precompiled binaries are output by .BR luac , the Lua compiler.) .B lua can be used as a batch interpreter and also interactively. .LP The given .I options (see below) are executed and then the Lua program in file .I script is loaded and executed. The given .I args are available to .I script as strings in a global table named .BR arg . If these arguments contain spaces or other characters special to the shell, then they should be quoted (but note that the quotes will be removed by the shell). The arguments in .B arg start at 0, which contains the string .RI ' script '. The index of the last argument is stored in .BR arg.n . The arguments given in the command line before .IR script , including the name of the interpreter, are available in negative indices in .BR arg . .LP At the very start, before even handling the command line, .B lua executes the contents of the environment variable .BR LUA_INIT , if it is defined. If the value of .B LUA_INIT is of the form .RI '@ filename ', then .I filename is executed. Otherwise, the string is assumed to be a Lua statement and is executed. .LP Options start with .B '\-' and are described below. You can use .B "'\--'" to signal the end of options. .LP If no arguments are given, then .B "\-v \-i" is assumed when the standard input is a terminal; otherwise, .B "\-" is assumed. .LP In interactive mode, .B lua prompts the user, reads lines from the standard input, and executes them as they are read. If a line does not contain a complete statement, then a secondary prompt is displayed and lines are read until a complete statement is formed or a syntax error is found. So, one way to interrupt the reading of an incomplete statement is to force a syntax error: adding a .B ';' in the middle of a statement is a sure way of forcing a syntax error (except inside multiline strings and comments; these must be closed explicitly). If a line starts with .BR '=' , then .B lua displays the values of all the expressions in the remainder of the line. The expressions must be separated by commas. The primary prompt is the value of the global variable .BR _PROMPT , if this value is a string; otherwise, the default prompt is used. Similarly, the secondary prompt is the value of the global variable .BR _PROMPT2 . So, to change the prompts, set the corresponding variable to a string of your choice. You can do that after calling the interpreter or on the command line (but in this case you have to be careful with quotes if the prompt string contains a space; otherwise you may confuse the shell.) The default prompts are "> " and ">> ". .SH OPTIONS .TP .B \- load and execute the standard input as a file, that is, not interactively, even when the standard input is a terminal. .TP .BI \-e " stat" execute statement .IR stat . You need to quote .I stat if it contains spaces, quotes, or other characters special to the shell. .TP .B \-i enter interactive mode after .I script is executed. .TP .BI \-l " name" call .BI require(' name ') before executing .IR script . Typically used to load libraries. .TP .B \-v show version information. .SH "SEE ALSO" .BR luac (1) .br http://www.lua.org/ .SH DIAGNOSTICS Error messages should be self explanatory. .SH AUTHORS R. Ierusalimschy, L. H. de Figueiredo, and W. Celes .\" EOF ================================================ FILE: doc/lua.css ================================================ body { color: #000000 ; background-color: #FFFFFF ; font-family: sans-serif ; text-align: justify ; margin-right: 20px ; margin-left: 20px ; } h1, h2, h3, h4 { font-weight: normal ; font-style: italic ; } a:link { color: #000080 ; background-color: inherit ; text-decoration: none ; } a:visited { background-color: inherit ; text-decoration: none ; } a:link:hover, a:visited:hover { color: #000080 ; background-color: #E0E0FF ; } a:link:active, a:visited:active { color: #FF0000 ; } hr { border: 0 ; height: 1px ; color: #a0a0a0 ; background-color: #a0a0a0 ; } ================================================ FILE: doc/lua.html ================================================ LUA man page

NAME

lua - Lua interpreter

SYNOPSIS

lua [ options ] [ script [ args ] ]

DESCRIPTION

lua is the stand-alone Lua interpreter. It loads and executes Lua programs, either in textual source form or in precompiled binary form. (Precompiled binaries are output by luac, the Lua compiler.) lua can be used as a batch interpreter and also interactively.

The given options (see below) are executed and then the Lua program in file script is loaded and executed. The given args are available to script as strings in a global table named arg. If these arguments contain spaces or other characters special to the shell, then they should be quoted (but note that the quotes will be removed by the shell). The arguments in arg start at 0, which contains the string 'script'. The index of the last argument is stored in arg.n. The arguments given in the command line before script, including the name of the interpreter, are available in negative indices in arg.

At the very start, before even handling the command line, lua executes the contents of the environment variable LUA_INIT, if it is defined. If the value of LUA_INIT is of the form '@filename', then filename is executed. Otherwise, the string is assumed to be a Lua statement and is executed.

Options start with '-' and are described below. You can use '--' to signal the end of options.

If no arguments are given, then "-v -i" is assumed when the standard input is a terminal; otherwise, "-" is assumed.

In interactive mode, lua prompts the user, reads lines from the standard input, and executes them as they are read. If a line does not contain a complete statement, then a secondary prompt is displayed and lines are read until a complete statement is formed or a syntax error is found. So, one way to interrupt the reading of an incomplete statement is to force a syntax error: adding a ';' in the middle of a statement is a sure way of forcing a syntax error (except inside multiline strings and comments; these must be closed explicitly). If a line starts with '=', then lua displays the values of all the expressions in the remainder of the line. The expressions must be separated by commas. The primary prompt is the value of the global variable _PROMPT, if this value is a string; otherwise, the default prompt is used. Similarly, the secondary prompt is the value of the global variable _PROMPT2. So, to change the prompts, set the corresponding variable to a string of your choice. You can do that after calling the interpreter or on the command line (but in this case you have to be careful with quotes if the prompt string contains a space; otherwise you may confuse the shell.) The default prompts are "> " and ">> ".

OPTIONS

- load and execute the standard input as a file, that is, not interactively, even when the standard input is a terminal.

-e stat execute statement stat. You need to quote stat if it contains spaces, quotes, or other characters special to the shell.

-i enter interactive mode after script is executed.

-l name call require('name') before executing script. Typically used to load libraries.

-v show version information.

SEE ALSO

luac(1)
http://www.lua.org/

DIAGNOSTICS

Error messages should be self explanatory.

AUTHORS

R. Ierusalimschy, L. H. de Figueiredo, and W. Celes ================================================ FILE: doc/luac.1 ================================================ .\" $Id: luac.man,v 1.28 2006/01/06 16:03:34 lhf Exp $ .TH LUAC 1 "$Date: 2006/01/06 16:03:34 $" .SH NAME luac \- Lua compiler .SH SYNOPSIS .B luac [ .I options ] [ .I filenames ] .SH DESCRIPTION .B luac is the Lua compiler. It translates programs written in the Lua programming language into binary files that can be later loaded and executed. .LP The main advantages of precompiling chunks are: faster loading, protecting source code from accidental user changes, and off-line syntax checking. .LP Pre-compiling does not imply faster execution because in Lua chunks are always compiled into bytecodes before being executed. .B luac simply allows those bytecodes to be saved in a file for later execution. .LP Pre-compiled chunks are not necessarily smaller than the corresponding source. The main goal in pre-compiling is faster loading. .LP The binary files created by .B luac are portable only among architectures with the same word size and byte order. .LP .B luac produces a single output file containing the bytecodes for all source files given. By default, the output file is named .BR luac.out , but you can change this with the .B \-o option. .LP In the command line, you can mix text files containing Lua source and binary files containing precompiled chunks. This is useful to combine several precompiled chunks, even from different (but compatible) platforms, into a single precompiled chunk. .LP You can use .B "'\-'" to indicate the standard input as a source file and .B "'\--'" to signal the end of options (that is, all remaining arguments will be treated as files even if they start with .BR "'\-'" ). .LP The internal format of the binary files produced by .B luac is likely to change when a new version of Lua is released. So, save the source files of all Lua programs that you precompile. .LP .SH OPTIONS Options must be separate. .TP .B \-l produce a listing of the compiled bytecode for Lua's virtual machine. Listing bytecodes is useful to learn about Lua's virtual machine. If no files are given, then .B luac loads .B luac.out and lists its contents. .TP .BI \-o " file" output to .IR file , instead of the default .BR luac.out . (You can use .B "'\-'" for standard output, but not on platforms that open standard output in text mode.) The output file may be a source file because all files are loaded before the output file is written. Be careful not to overwrite precious files. .TP .B \-p load files but do not generate any output file. Used mainly for syntax checking and for testing precompiled chunks: corrupted files will probably generate errors when loaded. Lua always performs a thorough integrity test on precompiled chunks. Bytecode that passes this test is completely safe, in the sense that it will not break the interpreter. However, there is no guarantee that such code does anything sensible. (None can be given, because the halting problem is unsolvable.) If no files are given, then .B luac loads .B luac.out and tests its contents. No messages are displayed if the file passes the integrity test. .TP .B \-s strip debug information before writing the output file. This saves some space in very large chunks, but if errors occur when running a stripped chunk, then the error messages may not contain the full information they usually do. For instance, line numbers and names of local variables are lost. .TP .B \-v show version information. .SH FILES .TP 15 .B luac.out default output file .SH "SEE ALSO" .BR lua (1) .br http://www.lua.org/ .SH DIAGNOSTICS Error messages should be self explanatory. .SH AUTHORS L. H. de Figueiredo, R. Ierusalimschy and W. Celes .\" EOF ================================================ FILE: doc/luac.html ================================================ LUAC man page

NAME

luac - Lua compiler

SYNOPSIS

luac [ options ] [ filenames ]

DESCRIPTION

luac is the Lua compiler. It translates programs written in the Lua programming language into binary files that can be later loaded and executed.

The main advantages of precompiling chunks are: faster loading, protecting source code from accidental user changes, and off-line syntax checking.

Precompiling does not imply faster execution because in Lua chunks are always compiled into bytecodes before being executed. luac simply allows those bytecodes to be saved in a file for later execution.

Precompiled chunks are not necessarily smaller than the corresponding source. The main goal in precompiling is faster loading.

The binary files created by luac are portable only among architectures with the same word size and byte order.

luac produces a single output file containing the bytecodes for all source files given. By default, the output file is named luac.out, but you can change this with the -o option.

In the command line, you can mix text files containing Lua source and binary files containing precompiled chunks. This is useful because several precompiled chunks, even from different (but compatible) platforms, can be combined into a single precompiled chunk.

You can use '-' to indicate the standard input as a source file and '--' to signal the end of options (that is, all remaining arguments will be treated as files even if they start with '-').

The internal format of the binary files produced by luac is likely to change when a new version of Lua is released. So, save the source files of all Lua programs that you precompile.

OPTIONS

Options must be separate.

-l produce a listing of the compiled bytecode for Lua's virtual machine. Listing bytecodes is useful to learn about Lua's virtual machine. If no files are given, then luac loads luac.out and lists its contents.

-o file output to file, instead of the default luac.out. (You can use '-' for standard output, but not on platforms that open standard output in text mode.) The output file may be a source file because all files are loaded before the output file is written. Be careful not to overwrite precious files.

-p load files but do not generate any output file. Used mainly for syntax checking and for testing precompiled chunks: corrupted files will probably generate errors when loaded. Lua always performs a thorough integrity test on precompiled chunks. Bytecode that passes this test is completely safe, in the sense that it will not break the interpreter. However, there is no guarantee that such code does anything sensible. (None can be given, because the halting problem is unsolvable.) If no files are given, then luac loads luac.out and tests its contents. No messages are displayed if the file passes the integrity test.

-s strip debug information before writing the output file. This saves some space in very large chunks, but if errors occur when running a stripped chunk, then the error messages may not contain the full information they usually do. For instance, line numbers and names of local variables are lost.

-v show version information.

FILES

luac.out default output file

SEE ALSO

lua(1)
http://www.lua.org/

DIAGNOSTICS

Error messages should be self explanatory.

AUTHORS

L. H. de Figueiredo, R. Ierusalimschy and W. Celes ================================================ FILE: doc/manual.css ================================================ h3 code { font-family: inherit ; } pre { font-size: 105% ; } span.apii { float: right ; font-family: inherit ; } ================================================ FILE: doc/manual.html ================================================ Lua 5.1 Reference Manual

Lua 5.1 Reference Manual

by Roberto Ierusalimschy, Luiz Henrique de Figueiredo, Waldemar Celes

Copyright © 2006-2008 Lua.org, PUC-Rio. Freely available under the terms of the Lua license.

contents · index

1 - Introduction

Lua is an extension programming language designed to support general procedural programming with data description facilities. It also offers good support for object-oriented programming, functional programming, and data-driven programming. Lua is intended to be used as a powerful, light-weight scripting language for any program that needs one. Lua is implemented as a library, written in clean C (that is, in the common subset of ANSI C and C++).

Being an extension language, Lua has no notion of a "main" program: it only works embedded in a host client, called the embedding program or simply the host. This host program can invoke functions to execute a piece of Lua code, can write and read Lua variables, and can register C functions to be called by Lua code. Through the use of C functions, Lua can be augmented to cope with a wide range of different domains, thus creating customized programming languages sharing a syntactical framework. The Lua distribution includes a sample host program called lua, which uses the Lua library to offer a complete, stand-alone Lua interpreter.

Lua is free software, and is provided as usual with no guarantees, as stated in its license. The implementation described in this manual is available at Lua's official web site, www.lua.org.

Like any other reference manual, this document is dry in places. For a discussion of the decisions behind the design of Lua, see the technical papers available at Lua's web site. For a detailed introduction to programming in Lua, see Roberto's book, Programming in Lua (Second Edition).

2 - The Language

This section describes the lexis, the syntax, and the semantics of Lua. In other words, this section describes which tokens are valid, how they can be combined, and what their combinations mean.

The language constructs will be explained using the usual extended BNF notation, in which {a} means 0 or more a's, and [a] means an optional a. Non-terminals are shown like non-terminal, keywords are shown like kword, and other terminal symbols are shown like `=´. The complete syntax of Lua can be found in §8 at the end of this manual.

2.1 - Lexical Conventions

Names (also called identifiers) in Lua can be any string of letters, digits, and underscores, not beginning with a digit. This coincides with the definition of names in most languages. (The definition of letter depends on the current locale: any character considered alphabetic by the current locale can be used in an identifier.) Identifiers are used to name variables and table fields.

The following keywords are reserved and cannot be used as names: 

     and       break     do        else      elseif
     end       false     for       function  if
     in        local     nil       not       or
     repeat    return    then      true      until     while

Lua is a case-sensitive language: and is a reserved word, but And and AND are two different, valid names. As a convention, names starting with an underscore followed by uppercase letters (such as _VERSION) are reserved for internal global variables used by Lua.

The following strings denote other tokens: 

     +     -     *     /     %     ^     #
     ==    ~=    <=    >=    <     >     =
     (     )     {     }     [     ]
     ;     :     ,     .     ..    ...

Literal strings can be delimited by matching single or double quotes, and can contain the following C-like escape sequences: '\a' (bell), '\b' (backspace), '\f' (form feed), '\n' (newline), '\r' (carriage return), '\t' (horizontal tab), '\v' (vertical tab), '\\' (backslash), '\"' (quotation mark [double quote]), and '\'' (apostrophe [single quote]). Moreover, a backslash followed by a real newline results in a newline in the string. A character in a string can also be specified by its numerical value using the escape sequence \ddd, where ddd is a sequence of up to three decimal digits. (Note that if a numerical escape is to be followed by a digit, it must be expressed using exactly three digits.) Strings in Lua can contain any 8-bit value, including embedded zeros, which can be specified as '\0'.

Literal strings can also be defined using a long format enclosed by long brackets. We define an opening long bracket of level n as an opening square bracket followed by n equal signs followed by another opening square bracket. So, an opening long bracket of level 0 is written as [[, an opening long bracket of level 1 is written as [=[, and so on. A closing long bracket is defined similarly; for instance, a closing long bracket of level 4 is written as ]====]. A long string starts with an opening long bracket of any level and ends at the first closing long bracket of the same level. Literals in this bracketed form can run for several lines, do not interpret any escape sequences, and ignore long brackets of any other level. They can contain anything except a closing bracket of the proper level.

For convenience, when the opening long bracket is immediately followed by a newline, the newline is not included in the string. As an example, in a system using ASCII (in which 'a' is coded as 97, newline is coded as 10, and '1' is coded as 49), the five literal strings below denote the same string: 

     a = 'alo\n123"'
     a = "alo\n123\""
     a = '\97lo\10\04923"'
     a = [[alo
     123"]]
     a = [==[
     alo
     123"]==]

A numerical constant can be written with an optional decimal part and an optional decimal exponent. Lua also accepts integer hexadecimal constants, by prefixing them with 0x. Examples of valid numerical constants are 

     3   3.0   3.1416   314.16e-2   0.31416E1   0xff   0x56

A comment starts with a double hyphen (--) anywhere outside a string. If the text immediately after -- is not an opening long bracket, the comment is a short comment, which runs until the end of the line. Otherwise, it is a long comment, which runs until the corresponding closing long bracket. Long comments are frequently used to disable code temporarily.

2.2 - Values and Types

Lua is a dynamically typed language. This means that variables do not have types; only values do. There are no type definitions in the language. All values carry their own type.

All values in Lua are first-class values. This means that all values can be stored in variables, passed as arguments to other functions, and returned as results.

There are eight basic types in Lua: nil, boolean, number, string, function, userdata, thread, and table. Nil is the type of the value nil, whose main property is to be different from any other value; it usually represents the absence of a useful value. Boolean is the type of the values false and true. Both nil and false make a condition false; any other value makes it true. Number represents real (double-precision floating-point) numbers. (It is easy to build Lua interpreters that use other internal representations for numbers, such as single-precision float or long integers; see file luaconf.h.) String represents arrays of characters. Lua is 8-bit clean: strings can contain any 8-bit character, including embedded zeros ('\0') (see §2.1).

Lua can call (and manipulate) functions written in Lua and functions written in C (see §2.5.8).

The type userdata is provided to allow arbitrary C data to be stored in Lua variables. This type corresponds to a block of raw memory and has no pre-defined operations in Lua, except assignment and identity test. However, by using metatables, the programmer can define operations for userdata values (see §2.8). Userdata values cannot be created or modified in Lua, only through the C API. This guarantees the integrity of data owned by the host program.

The type thread represents independent threads of execution and it is used to implement coroutines (see §2.11). Do not confuse Lua threads with operating-system threads. Lua supports coroutines on all systems, even those that do not support threads.

The type table implements associative arrays, that is, arrays that can be indexed not only with numbers, but with any value (except nil). Tables can be heterogeneous; that is, they can contain values of all types (except nil). Tables are the sole data structuring mechanism in Lua; they can be used to represent ordinary arrays, symbol tables, sets, records, graphs, trees, etc. To represent records, Lua uses the field name as an index. The language supports this representation by providing a.name as syntactic sugar for a["name"]. There are several convenient ways to create tables in Lua (see §2.5.7).

Like indices, the value of a table field can be of any type (except nil). In particular, because functions are first-class values, table fields can contain functions. Thus tables can also carry methods (see §2.5.9).

Tables, functions, threads, and (full) userdata values are objects: variables do not actually contain these values, only references to them. Assignment, parameter passing, and function returns always manipulate references to such values; these operations do not imply any kind of copy.

The library function type returns a string describing the type of a given value.

2.2.1 - Coercion

Lua provides automatic conversion between string and number values at run time. Any arithmetic operation applied to a string tries to convert this string to a number, following the usual conversion rules. Conversely, whenever a number is used where a string is expected, the number is converted to a string, in a reasonable format. For complete control over how numbers are converted to strings, use the format function from the string library (see string.format).

2.3 - Variables

Variables are places that store values. There are three kinds of variables in Lua: global variables, local variables, and table fields.

A single name can denote a global variable or a local variable (or a function's formal parameter, which is a particular kind of local variable): 

	var ::= Name

Name denotes identifiers, as defined in §2.1.

Any variable is assumed to be global unless explicitly declared as a local (see §2.4.7). Local variables are lexically scoped: local variables can be freely accessed by functions defined inside their scope (see §2.6).

Before the first assignment to a variable, its value is nil.

Square brackets are used to index a table: 

	var ::= prefixexp `[´ exp `]´

The meaning of accesses to global variables and table fields can be changed via metatables. An access to an indexed variable t[i] is equivalent to a call gettable_event(t,i). (See §2.8 for a complete description of the gettable_event function. This function is not defined or callable in Lua. We use it here only for explanatory purposes.)

The syntax var.Name is just syntactic sugar for var["Name"]: 

	var ::= prefixexp `.´ Name

All global variables live as fields in ordinary Lua tables, called environment tables or simply environments (see §2.9). Each function has its own reference to an environment, so that all global variables in this function will refer to this environment table. When a function is created, it inherits the environment from the function that created it. To get the environment table of a Lua function, you call getfenv. To replace it, you call setfenv. (You can only manipulate the environment of C functions through the debug library; (see §5.9).)

An access to a global variable x is equivalent to _env.x, which in turn is equivalent to 

     gettable_event(_env, "x")

where _env is the environment of the running function. (See §2.8 for a complete description of the gettable_event function. This function is not defined or callable in Lua. Similarly, the _env variable is not defined in Lua. We use them here only for explanatory purposes.)

2.4 - Statements

Lua supports an almost conventional set of statements, similar to those in Pascal or C. This set includes assignments, control structures, function calls, and variable declarations.

2.4.1 - Chunks

The unit of execution of Lua is called a chunk. A chunk is simply a sequence of statements, which are executed sequentially. Each statement can be optionally followed by a semicolon: 

	chunk ::= {stat [`;´]}

There are no empty statements and thus ';;' is not legal.

Lua handles a chunk as the body of an anonymous function with a variable number of arguments (see §2.5.9). As such, chunks can define local variables, receive arguments, and return values.

A chunk can be stored in a file or in a string inside the host program. To execute a chunk, Lua first pre-compiles the chunk into instructions for a virtual machine, and then it executes the compiled code with an interpreter for the virtual machine.

Chunks can also be pre-compiled into binary form; see program luac for details. Programs in source and compiled forms are interchangeable; Lua automatically detects the file type and acts accordingly.

2.4.2 - Blocks

A block is a list of statements; syntactically, a block is the same as a chunk: 

	block ::= chunk

A block can be explicitly delimited to produce a single statement: 

	stat ::= do block end

Explicit blocks are useful to control the scope of variable declarations. Explicit blocks are also sometimes used to add a return or break statement in the middle of another block (see §2.4.4).

2.4.3 - Assignment

Lua allows multiple assignments. Therefore, the syntax for assignment defines a list of variables on the left side and a list of expressions on the right side. The elements in both lists are separated by commas: 

	stat ::= varlist `=´ explist
	varlist ::= var {`,´ var}
	explist ::= exp {`,´ exp}

Expressions are discussed in §2.5.

Before the assignment, the list of values is adjusted to the length of the list of variables. If there are more values than needed, the excess values are thrown away. If there are fewer values than needed, the list is extended with as many nil's as needed. If the list of expressions ends with a function call, then all values returned by that call enter the list of values, before the adjustment (except when the call is enclosed in parentheses; see §2.5).

The assignment statement first evaluates all its expressions and only then are the assignments performed. Thus the code 

     i = 3
     i, a[i] = i+1, 20

sets a[3] to 20, without affecting a[4] because the i in a[i] is evaluated (to 3) before it is assigned 4. Similarly, the line 

     x, y = y, x

exchanges the values of x and y, and 

     x, y, z = y, z, x

cyclically permutes the values of x, y, and z.

The meaning of assignments to global variables and table fields can be changed via metatables. An assignment to an indexed variable t[i] = val is equivalent to settable_event(t,i,val). (See §2.8 for a complete description of the settable_event function. This function is not defined or callable in Lua. We use it here only for explanatory purposes.)

An assignment to a global variable x = val is equivalent to the assignment _env.x = val, which in turn is equivalent to 

     settable_event(_env, "x", val)

where _env is the environment of the running function. (The _env variable is not defined in Lua. We use it here only for explanatory purposes.)

2.4.4 - Control Structures

The control structures if, while, and repeat have the usual meaning and familiar syntax: 

	stat ::= while exp do block end
	stat ::= repeat block until exp
	stat ::= if exp then block {elseif exp then block} [else block] end

Lua also has a for statement, in two flavors (see §2.4.5).

The condition expression of a control structure can return any value. Both false and nil are considered false. All values different from nil and false are considered true (in particular, the number 0 and the empty string are also true).

In the repeat–until loop, the inner block does not end at the until keyword, but only after the condition. So, the condition can refer to local variables declared inside the loop block.

The return statement is used to return values from a function or a chunk (which is just a function). Functions and chunks can return more than one value, and so the syntax for the return statement is 

	stat ::= return [explist]

The break statement is used to terminate the execution of a while, repeat, or for loop, skipping to the next statement after the loop: 

	stat ::= break

A break ends the innermost enclosing loop.

The return and break statements can only be written as the last statement of a block. If it is really necessary to return or break in the middle of a block, then an explicit inner block can be used, as in the idioms do return end and do break end, because now return and break are the last statements in their (inner) blocks.

2.4.5 - For Statement

The for statement has two forms: one numeric and one generic.

The numeric for loop repeats a block of code while a control variable runs through an arithmetic progression. It has the following syntax: 

	stat ::= for Name `=´ exp `,´ exp [`,´ exp] do block end

The block is repeated for name starting at the value of the first exp, until it passes the second exp by steps of the third exp. More precisely, a for statement like 

     for v = e1, e2, e3 do block end

is equivalent to the code: 

     do
       local var, limit, step = tonumber(e1), tonumber(e2), tonumber(e3)
       if not (var and limit and step) then error() end
       while (step > 0 and var <= limit) or (step <= 0 and var >= limit) do
         local v = var
         block
         var = var + step
       end
     end

Note the following:

  • All three control expressions are evaluated only once, before the loop starts. They must all result in numbers.
  • var, limit, and step are invisible variables. The names shown here are for explanatory purposes only.
  • If the third expression (the step) is absent, then a step of 1 is used.
  • You can use break to exit a for loop.
  • The loop variable v is local to the loop; you cannot use its value after the for ends or is broken. If you need this value, assign it to another variable before breaking or exiting the loop.

The generic for statement works over functions, called iterators. On each iteration, the iterator function is called to produce a new value, stopping when this new value is nil. The generic for loop has the following syntax: 

	stat ::= for namelist in explist do block end
	namelist ::= Name {`,´ Name}

A for statement like 

     for var_1, ···, var_n in explist do block end

is equivalent to the code: 

     do
       local f, s, var = explist
       while true do
         local var_1, ···, var_n = f(s, var)
         var = var_1
         if var == nil then break end
         block
       end
     end

Note the following:

  • explist is evaluated only once. Its results are an iterator function, a state, and an initial value for the first iterator variable.
  • f, s, and var are invisible variables. The names are here for explanatory purposes only.
  • You can use break to exit a for loop.
  • The loop variables var_i are local to the loop; you cannot use their values after the for ends. If you need these values, then assign them to other variables before breaking or exiting the loop.

2.4.6 - Function Calls as Statements

To allow possible side-effects, function calls can be executed as statements: 

	stat ::= functioncall

In this case, all returned values are thrown away. Function calls are explained in §2.5.8.

2.4.7 - Local Declarations

Local variables can be declared anywhere inside a block. The declaration can include an initial assignment: 

	stat ::= local namelist [`=´ explist]

If present, an initial assignment has the same semantics of a multiple assignment (see §2.4.3). Otherwise, all variables are initialized with nil.

A chunk is also a block (see §2.4.1), and so local variables can be declared in a chunk outside any explicit block. The scope of such local variables extends until the end of the chunk.

The visibility rules for local variables are explained in §2.6.

2.5 - Expressions

The basic expressions in Lua are the following: 

	exp ::= prefixexp
	exp ::= nil | false | true
	exp ::= Number
	exp ::= String
	exp ::= function
	exp ::= tableconstructor
	exp ::= `...´
	exp ::= exp binop exp
	exp ::= unop exp
	prefixexp ::= var | functioncall | `(´ exp `)´

Numbers and literal strings are explained in §2.1; variables are explained in §2.3; function definitions are explained in §2.5.9; function calls are explained in §2.5.8; table constructors are explained in §2.5.7. Vararg expressions, denoted by three dots ('...'), can only be used when directly inside a vararg function; they are explained in §2.5.9.

Binary operators comprise arithmetic operators (see §2.5.1), relational operators (see §2.5.2), logical operators (see §2.5.3), and the concatenation operator (see §2.5.4). Unary operators comprise the unary minus (see §2.5.1), the unary not (see §2.5.3), and the unary length operator (see §2.5.5).

Both function calls and vararg expressions can result in multiple values. If an expression is used as a statement (only possible for function calls (see §2.4.6)), then its return list is adjusted to zero elements, thus discarding all returned values. If an expression is used as the last (or the only) element of a list of expressions, then no adjustment is made (unless the call is enclosed in parentheses). In all other contexts, Lua adjusts the result list to one element, discarding all values except the first one.

Here are some examples: 

     f()                -- adjusted to 0 results
     g(f(), x)          -- f() is adjusted to 1 result
     g(x, f())          -- g gets x plus all results from f()
     a,b,c = f(), x     -- f() is adjusted to 1 result (c gets nil)
     a,b = ...          -- a gets the first vararg parameter, b gets
                        -- the second (both a and b can get nil if there
                        -- is no corresponding vararg parameter)
     
     a,b,c = x, f()     -- f() is adjusted to 2 results
     a,b,c = f()        -- f() is adjusted to 3 results
     return f()         -- returns all results from f()
     return ...         -- returns all received vararg parameters
     return x,y,f()     -- returns x, y, and all results from f()
     {f()}              -- creates a list with all results from f()
     {...}              -- creates a list with all vararg parameters
     {f(), nil}         -- f() is adjusted to 1 result

Any expression enclosed in parentheses always results in only one value. Thus, (f(x,y,z)) is always a single value, even if f returns several values. (The value of (f(x,y,z)) is the first value returned by f or nil if f does not return any values.)

2.5.1 - Arithmetic Operators

Lua supports the usual arithmetic operators: the binary + (addition), - (subtraction), * (multiplication), / (division), % (modulo), and ^ (exponentiation); and unary - (negation). If the operands are numbers, or strings that can be converted to numbers (see §2.2.1), then all operations have the usual meaning. Exponentiation works for any exponent. For instance, x^(-0.5) computes the inverse of the square root of x. Modulo is defined as 

     a % b == a - math.floor(a/b)*b

That is, it is the remainder of a division that rounds the quotient towards minus infinity.

2.5.2 - Relational Operators

The relational operators in Lua are 

     ==    ~=    <     >     <=    >=

These operators always result in false or true.

Equality (==) first compares the type of its operands. If the types are different, then the result is false. Otherwise, the values of the operands are compared. Numbers and strings are compared in the usual way. Objects (tables, userdata, threads, and functions) are compared by reference: two objects are considered equal only if they are the same object. Every time you create a new object (a table, userdata, thread, or function), this new object is different from any previously existing object.

You can change the way that Lua compares tables and userdata by using the "eq" metamethod (see §2.8).

The conversion rules of §2.2.1 do not apply to equality comparisons. Thus, "0"==0 evaluates to false, and t[0] and t["0"] denote different entries in a table.

The operator ~= is exactly the negation of equality (==).

The order operators work as follows. If both arguments are numbers, then they are compared as such. Otherwise, if both arguments are strings, then their values are compared according to the current locale. Otherwise, Lua tries to call the "lt" or the "le" metamethod (see §2.8). A comparison a > b is translated to b < a and a >= b is translated to b <= a.

2.5.3 - Logical Operators

The logical operators in Lua are and, or, and not. Like the control structures (see §2.4.4), all logical operators consider both false and nil as false and anything else as true.

The negation operator not always returns false or true. The conjunction operator and returns its first argument if this value is false or nil; otherwise, and returns its second argument. The disjunction operator or returns its first argument if this value is different from nil and false; otherwise, or returns its second argument. Both and and or use short-cut evaluation; that is, the second operand is evaluated only if necessary. Here are some examples: 

     10 or 20            --> 10
     10 or error()       --> 10
     nil or "a"          --> "a"
     nil and 10          --> nil
     false and error()   --> false
     false and nil       --> false
     false or nil        --> nil
     10 and 20           --> 20

(In this manual, --> indicates the result of the preceding expression.)

2.5.4 - Concatenation

The string concatenation operator in Lua is denoted by two dots ('..'). If both operands are strings or numbers, then they are converted to strings according to the rules mentioned in §2.2.1. Otherwise, the "concat" metamethod is called (see §2.8).

2.5.5 - The Length Operator

The length operator is denoted by the unary operator #. The length of a string is its number of bytes (that is, the usual meaning of string length when each character is one byte).

The length of a table t is defined to be any integer index n such that t[n] is not nil and t[n+1] is nil; moreover, if t[1] is nil, n can be zero. For a regular array, with non-nil values from 1 to a given n, its length is exactly that n, the index of its last value. If the array has "holes" (that is, nil values between other non-nil values), then #t can be any of the indices that directly precedes a nil value (that is, it may consider any such nil value as the end of the array).

2.5.6 - Precedence

Operator precedence in Lua follows the table below, from lower to higher priority: 

     or
     and
     <     >     <=    >=    ~=    ==
     ..
     +     -
     *     /     %
     not   #     - (unary)
     ^

As usual, you can use parentheses to change the precedences of an expression. The concatenation ('..') and exponentiation ('^') operators are right associative. All other binary operators are left associative.

2.5.7 - Table Constructors

Table constructors are expressions that create tables. Every time a constructor is evaluated, a new table is created. A constructor can be used to create an empty table or to create a table and initialize some of its fields. The general syntax for constructors is 

	tableconstructor ::= `{´ [fieldlist] `}´
	fieldlist ::= field {fieldsep field} [fieldsep]
	field ::= `[´ exp `]´ `=´ exp | Name `=´ exp | exp
	fieldsep ::= `,´ | `;´

Each field of the form [exp1] = exp2 adds to the new table an entry with key exp1 and value exp2. A field of the form name = exp is equivalent to ["name"] = exp. Finally, fields of the form exp are equivalent to [i] = exp, where i are consecutive numerical integers, starting with 1. Fields in the other formats do not affect this counting. For example, 

     a = { [f(1)] = g; "x", "y"; x = 1, f(x), [30] = 23; 45 }

is equivalent to 

     do
       local t = {}
       t[f(1)] = g
       t[1] = "x"         -- 1st exp
       t[2] = "y"         -- 2nd exp
       t.x = 1            -- t["x"] = 1
       t[3] = f(x)        -- 3rd exp
       t[30] = 23
       t[4] = 45          -- 4th exp
       a = t
     end

If the last field in the list has the form exp and the expression is a function call or a vararg expression, then all values returned by this expression enter the list consecutively (see §2.5.8). To avoid this, enclose the function call or the vararg expression in parentheses (see §2.5).

The field list can have an optional trailing separator, as a convenience for machine-generated code.

2.5.8 - Function Calls

A function call in Lua has the following syntax: 

	functioncall ::= prefixexp args

In a function call, first prefixexp and args are evaluated. If the value of prefixexp has type function, then this function is called with the given arguments. Otherwise, the prefixexp "call" metamethod is called, having as first parameter the value of prefixexp, followed by the original call arguments (see §2.8).

The form 

	functioncall ::= prefixexp `:´ Name args

can be used to call "methods". A call v:name(args) is syntactic sugar for v.name(v,args), except that v is evaluated only once.

Arguments have the following syntax: 

	args ::= `(´ [explist] `)´
	args ::= tableconstructor
	args ::= String

All argument expressions are evaluated before the call. A call of the form f{fields} is syntactic sugar for f({fields}); that is, the argument list is a single new table. A call of the form f'string' (or f"string" or f[[string]]) is syntactic sugar for f('string'); that is, the argument list is a single literal string.

As an exception to the free-format syntax of Lua, you cannot put a line break before the '(' in a function call. This restriction avoids some ambiguities in the language. If you write 

     a = f
     (g).x(a)

Lua would see that as a single statement, a = f(g).x(a). So, if you want two statements, you must add a semi-colon between them. If you actually want to call f, you must remove the line break before (g).

A call of the form return functioncall is called a tail call. Lua implements proper tail calls (or proper tail recursion): in a tail call, the called function reuses the stack entry of the calling function. Therefore, there is no limit on the number of nested tail calls that a program can execute. However, a tail call erases any debug information about the calling function. Note that a tail call only happens with a particular syntax, where the return has one single function call as argument; this syntax makes the calling function return exactly the returns of the called function. So, none of the following examples are tail calls: 

     return (f(x))        -- results adjusted to 1
     return 2 * f(x)
     return x, f(x)       -- additional results
     f(x); return         -- results discarded
     return x or f(x)     -- results adjusted to 1

2.5.9 - Function Definitions

The syntax for function definition is 

	function ::= function funcbody
	funcbody ::= `(´ [parlist] `)´ block end

The following syntactic sugar simplifies function definitions: 

	stat ::= function funcname funcbody
	stat ::= local function Name funcbody
	funcname ::= Name {`.´ Name} [`:´ Name]

The statement 

     function f () body end

translates to 

     f = function () body end

The statement 

     function t.a.b.c.f () body end

translates to 

     t.a.b.c.f = function () body end

The statement 

     local function f () body end

translates to 

     local f; f = function () body end

not to 

     local f = function () body end

(This only makes a difference when the body of the function contains references to f.)

A function definition is an executable expression, whose value has type function. When Lua pre-compiles a chunk, all its function bodies are pre-compiled too. Then, whenever Lua executes the function definition, the function is instantiated (or closed). This function instance (or closure) is the final value of the expression. Different instances of the same function can refer to different external local variables and can have different environment tables.

Parameters act as local variables that are initialized with the argument values: 

	parlist ::= namelist [`,´ `...´] | `...´

When a function is called, the list of arguments is adjusted to the length of the list of parameters, unless the function is a variadic or vararg function, which is indicated by three dots ('...') at the end of its parameter list. A vararg function does not adjust its argument list; instead, it collects all extra arguments and supplies them to the function through a vararg expression, which is also written as three dots. The value of this expression is a list of all actual extra arguments, similar to a function with multiple results. If a vararg expression is used inside another expression or in the middle of a list of expressions, then its return list is adjusted to one element. If the expression is used as the last element of a list of expressions, then no adjustment is made (unless that last expression is enclosed in parentheses).

As an example, consider the following definitions: 

     function f(a, b) end
     function g(a, b, ...) end
     function r() return 1,2,3 end

Then, we have the following mapping from arguments to parameters and to the vararg expression: 

     CALL            PARAMETERS
     
     f(3)             a=3, b=nil
     f(3, 4)          a=3, b=4
     f(3, 4, 5)       a=3, b=4
     f(r(), 10)       a=1, b=10
     f(r())           a=1, b=2
     
     g(3)             a=3, b=nil, ... -->  (nothing)
     g(3, 4)          a=3, b=4,   ... -->  (nothing)
     g(3, 4, 5, 8)    a=3, b=4,   ... -->  5  8
     g(5, r())        a=5, b=1,   ... -->  2  3

Results are returned using the return statement (see §2.4.4). If control reaches the end of a function without encountering a return statement, then the function returns with no results.

The colon syntax is used for defining methods, that is, functions that have an implicit extra parameter self. Thus, the statement 

     function t.a.b.c:f (params) body end

is syntactic sugar for 

     t.a.b.c.f = function (self, params) body end

2.6 - Visibility Rules

Lua is a lexically scoped language. The scope of variables begins at the first statement after their declaration and lasts until the end of the innermost block that includes the declaration. Consider the following example: 

     x = 10                -- global variable
     do                    -- new block
       local x = x         -- new 'x', with value 10
       print(x)            --> 10
       x = x+1
       do                  -- another block
         local x = x+1     -- another 'x'
         print(x)          --> 12
       end
       print(x)            --> 11
     end
     print(x)              --> 10  (the global one)

Notice that, in a declaration like local x = x, the new x being declared is not in scope yet, and so the second x refers to the outside variable.

Because of the lexical scoping rules, local variables can be freely accessed by functions defined inside their scope. A local variable used by an inner function is called an upvalue, or external local variable, inside the inner function.

Notice that each execution of a local statement defines new local variables. Consider the following example: 

     a = {}
     local x = 20
     for i=1,10 do
       local y = 0
       a[i] = function () y=y+1; return x+y end
     end

The loop creates ten closures (that is, ten instances of the anonymous function). Each of these closures uses a different y variable, while all of them share the same x.

2.7 - Error Handling

Because Lua is an embedded extension language, all Lua actions start from C code in the host program calling a function from the Lua library (see lua_pcall). Whenever an error occurs during Lua compilation or execution, control returns to C, which can take appropriate measures (such as printing an error message).

Lua code can explicitly generate an error by calling the error function. If you need to catch errors in Lua, you can use the pcall function.

2.8 - Metatables

Every value in Lua can have a metatable. This metatable is an ordinary Lua table that defines the behavior of the original value under certain special operations. You can change several aspects of the behavior of operations over a value by setting specific fields in its metatable. For instance, when a non-numeric value is the operand of an addition, Lua checks for a function in the field "__add" in its metatable. If it finds one, Lua calls this function to perform the addition.

We call the keys in a metatable events and the values metamethods. In the previous example, the event is "add" and the metamethod is the function that performs the addition.

You can query the metatable of any value through the getmetatable function.

You can replace the metatable of tables through the setmetatable function. You cannot change the metatable of other types from Lua (except by using the debug library); you must use the C API for that.

Tables and full userdata have individual metatables (although multiple tables and userdata can share their metatables). Values of all other types share one single metatable per type; that is, there is one single metatable for all numbers, one for all strings, etc.

A metatable controls how an object behaves in arithmetic operations, order comparisons, concatenation, length operation, and indexing. A metatable also can define a function to be called when a userdata is garbage collected. For each of these operations Lua associates a specific key called an event. When Lua performs one of these operations over a value, it checks whether this value has a metatable with the corresponding event. If so, the value associated with that key (the metamethod) controls how Lua will perform the operation.

Metatables control the operations listed next. Each operation is identified by its corresponding name. The key for each operation is a string with its name prefixed by two underscores, '__'; for instance, the key for operation "add" is the string "__add". The semantics of these operations is better explained by a Lua function describing how the interpreter executes the operation.

The code shown here in Lua is only illustrative; the real behavior is hard coded in the interpreter and it is much more efficient than this simulation. All functions used in these descriptions (rawget, tonumber, etc.) are described in §5.1. In particular, to retrieve the metamethod of a given object, we use the expression 

     metatable(obj)[event]

This should be read as 

     rawget(getmetatable(obj) or {}, event)

That is, the access to a metamethod does not invoke other metamethods, and the access to objects with no metatables does not fail (it simply results in nil).

  • "add": the + operation.

    The function getbinhandler below defines how Lua chooses a handler for a binary operation. First, Lua tries the first operand. If its type does not define a handler for the operation, then Lua tries the second operand. 

         function getbinhandler (op1, op2, event)
       return metatable(op1)[event] or metatable(op2)[event]
     end

    By using this function, the behavior of the op1 + op2 is 

         function add_event (op1, op2)
       local o1, o2 = tonumber(op1), tonumber(op2)
       if o1 and o2 then  -- both operands are numeric?
         return o1 + o2   -- '+' here is the primitive 'add'
       else  -- at least one of the operands is not numeric
         local h = getbinhandler(op1, op2, "__add")
         if h then
           -- call the handler with both operands
           return (h(op1, op2))
         else  -- no handler available: default behavior
           error(···)
         end
       end
     end

  • "sub": the - operation. Behavior similar to the "add" operation.
  • "mul": the * operation. Behavior similar to the "add" operation.
  • "div": the / operation. Behavior similar to the "add" operation.
  • "mod": the % operation. Behavior similar to the "add" operation, with the operation o1 - floor(o1/o2)*o2 as the primitive operation.
  • "pow": the ^ (exponentiation) operation. Behavior similar to the "add" operation, with the function pow (from the C math library) as the primitive operation.
  • "unm": the unary - operation. 
         function unm_event (op)
       local o = tonumber(op)
       if o then  -- operand is numeric?
         return -o  -- '-' here is the primitive 'unm'
       else  -- the operand is not numeric.
         -- Try to get a handler from the operand
         local h = metatable(op).__unm
         if h then
           -- call the handler with the operand
           return (h(op))
         else  -- no handler available: default behavior
           error(···)
         end
       end
     end

  • "concat": the .. (concatenation) operation. 
         function concat_event (op1, op2)
       if (type(op1) == "string" or type(op1) == "number") and
          (type(op2) == "string" or type(op2) == "number") then
         return op1 .. op2  -- primitive string concatenation
       else
         local h = getbinhandler(op1, op2, "__concat")
         if h then
           return (h(op1, op2))
         else
           error(···)
         end
       end
     end

  • "len": the # operation. 
         function len_event (op)
       if type(op) == "string" then
         return strlen(op)         -- primitive string length
       elseif type(op) == "table" then
         return #op                -- primitive table length
       else
         local h = metatable(op).__len
         if h then
           -- call the handler with the operand
           return (h(op))
         else  -- no handler available: default behavior
           error(···)
         end
       end
     end

    See §2.5.5 for a description of the length of a table.

  • "eq": the == operation. The function getcomphandler defines how Lua chooses a metamethod for comparison operators. A metamethod only is selected when both objects being compared have the same type and the same metamethod for the selected operation. 
         function getcomphandler (op1, op2, event)
       if type(op1) ~= type(op2) then return nil end
       local mm1 = metatable(op1)[event]
       local mm2 = metatable(op2)[event]
       if mm1 == mm2 then return mm1 else return nil end
     end

    The "eq" event is defined as follows: 

         function eq_event (op1, op2)
       if type(op1) ~= type(op2) then  -- different types?
         return false   -- different objects
       end
       if op1 == op2 then   -- primitive equal?
         return true   -- objects are equal
       end
       -- try metamethod
       local h = getcomphandler(op1, op2, "__eq")
       if h then
         return (h(op1, op2))
       else
         return false
       end
     end

    a ~= b is equivalent to not (a == b).

  • "lt": the < operation. 
         function lt_event (op1, op2)
       if type(op1) == "number" and type(op2) == "number" then
         return op1 < op2   -- numeric comparison
       elseif type(op1) == "string" and type(op2) == "string" then
         return op1 < op2   -- lexicographic comparison
       else
         local h = getcomphandler(op1, op2, "__lt")
         if h then
           return (h(op1, op2))
         else
           error(···)
         end
       end
     end

    a > b is equivalent to b < a.

  • "le": the <= operation. 
         function le_event (op1, op2)
       if type(op1) == "number" and type(op2) == "number" then
         return op1 <= op2   -- numeric comparison
       elseif type(op1) == "string" and type(op2) == "string" then
         return op1 <= op2   -- lexicographic comparison
       else
         local h = getcomphandler(op1, op2, "__le")
         if h then
           return (h(op1, op2))
         else
           h = getcomphandler(op1, op2, "__lt")
           if h then
             return not h(op2, op1)
           else
             error(···)
           end
         end
       end
     end

    a >= b is equivalent to b <= a. Note that, in the absence of a "le" metamethod, Lua tries the "lt", assuming that a <= b is equivalent to not (b < a).

  • "index": The indexing access table[key]. 
         function gettable_event (table, key)
       local h
       if type(table) == "table" then
         local v = rawget(table, key)
         if v ~= nil then return v end
         h = metatable(table).__index
         if h == nil then return nil end
       else
         h = metatable(table).__index
         if h == nil then
           error(···)
         end
       end
       if type(h) == "function" then
         return (h(table, key))     -- call the handler
       else return h[key]           -- or repeat operation on it
       end
     end

  • "newindex": The indexing assignment table[key] = value. 
         function settable_event (table, key, value)
       local h
       if type(table) == "table" then
         local v = rawget(table, key)
         if v ~= nil then rawset(table, key, value); return end
         h = metatable(table).__newindex
         if h == nil then rawset(table, key, value); return end
       else
         h = metatable(table).__newindex
         if h == nil then
           error(···)
         end
       end
       if type(h) == "function" then
         h(table, key,value)           -- call the handler
       else h[key] = value             -- or repeat operation on it
       end
     end

  • "call": called when Lua calls a value. 
         function function_event (func, ...)
       if type(func) == "function" then
         return func(...)   -- primitive call
       else
         local h = metatable(func).__call
         if h then
           return h(func, ...)
         else
           error(···)
         end
       end
     end

2.9 - Environments

Besides metatables, objects of types thread, function, and userdata have another table associated with them, called their environment. Like metatables, environments are regular tables and multiple objects can share the same environment.

Threads are created sharing the environment of the creating thread. Userdata and C functions are created sharing the environment of the creating C function. Non-nested Lua functions (created by loadfile, loadstring or load) are created sharing the environment of the creating thread. Nested Lua functions are created sharing the environment of the creating Lua function.

Environments associated with userdata have no meaning for Lua. It is only a convenience feature for programmers to associate a table to a userdata.

Environments associated with threads are called global environments. They are used as the default environment for threads and non-nested Lua functions created by the thread and can be directly accessed by C code (see §3.3).

The environment associated with a C function can be directly accessed by C code (see §3.3). It is used as the default environment for other C functions and userdata created by the function.

Environments associated with Lua functions are used to resolve all accesses to global variables within the function (see §2.3). They are used as the default environment for nested Lua functions created by the function.

You can change the environment of a Lua function or the running thread by calling setfenv. You can get the environment of a Lua function or the running thread by calling getfenv. To manipulate the environment of other objects (userdata, C functions, other threads) you must use the C API.

2.10 - Garbage Collection

Lua performs automatic memory management. This means that you have to worry neither about allocating memory for new objects nor about freeing it when the objects are no longer needed. Lua manages memory automatically by running a garbage collector from time to time to collect all dead objects (that is, objects that are no longer accessible from Lua). All memory used by Lua is subject to automatic management: tables, userdata, functions, threads, strings, etc.

Lua implements an incremental mark-and-sweep collector. It uses two numbers to control its garbage-collection cycles: the garbage-collector pause and the garbage-collector step multiplier. Both use percentage points as units (so that a value of 100 means an internal value of 1).

The garbage-collector pause controls how long the collector waits before starting a new cycle. Larger values make the collector less aggressive. Values smaller than 100 mean the collector will not wait to start a new cycle. A value of 200 means that the collector waits for the total memory in use to double before starting a new cycle.

The step multiplier controls the relative speed of the collector relative to memory allocation. Larger values make the collector more aggressive but also increase the size of each incremental step. Values smaller than 100 make the collector too slow and can result in the collector never finishing a cycle. The default, 200, means that the collector runs at "twice" the speed of memory allocation.

You can change these numbers by calling lua_gc in C or collectgarbage in Lua. With these functions you can also control the collector directly (e.g., stop and restart it).

2.10.1 - Garbage-Collection Metamethods

Using the C API, you can set garbage-collector metamethods for userdata (see §2.8). These metamethods are also called finalizers. Finalizers allow you to coordinate Lua's garbage collection with external resource management (such as closing files, network or database connections, or freeing your own memory).

Garbage userdata with a field __gc in their metatables are not collected immediately by the garbage collector. Instead, Lua puts them in a list. After the collection, Lua does the equivalent of the following function for each userdata in that list: 

     function gc_event (udata)
       local h = metatable(udata).__gc
       if h then
         h(udata)
       end
     end

At the end of each garbage-collection cycle, the finalizers for userdata are called in reverse order of their creation, among those collected in that cycle. That is, the first finalizer to be called is the one associated with the userdata created last in the program. The userdata itself is freed only in the next garbage-collection cycle.

2.10.2 - Weak Tables

A weak table is a table whose elements are weak references. A weak reference is ignored by the garbage collector. In other words, if the only references to an object are weak references, then the garbage collector will collect this object.

A weak table can have weak keys, weak values, or both. A table with weak keys allows the collection of its keys, but prevents the collection of its values. A table with both weak keys and weak values allows the collection of both keys and values. In any case, if either the key or the value is collected, the whole pair is removed from the table. The weakness of a table is controlled by the __mode field of its metatable. If the __mode field is a string containing the character 'k', the keys in the table are weak. If __mode contains 'v', the values in the table are weak.

After you use a table as a metatable, you should not change the value of its __mode field. Otherwise, the weak behavior of the tables controlled by this metatable is undefined.

2.11 - Coroutines

Lua supports coroutines, also called collaborative multithreading. A coroutine in Lua represents an independent thread of execution. Unlike threads in multithread systems, however, a coroutine only suspends its execution by explicitly calling a yield function.

You create a coroutine with a call to coroutine.create. Its sole argument is a function that is the main function of the coroutine. The create function only creates a new coroutine and returns a handle to it (an object of type thread); it does not start the coroutine execution.

When you first call coroutine.resume, passing as its first argument a thread returned by coroutine.create, the coroutine starts its execution, at the first line of its main function. Extra arguments passed to coroutine.resume are passed on to the coroutine main function. After the coroutine starts running, it runs until it terminates or yields.

A coroutine can terminate its execution in two ways: normally, when its main function returns (explicitly or implicitly, after the last instruction); and abnormally, if there is an unprotected error. In the first case, coroutine.resume returns true, plus any values returned by the coroutine main function. In case of errors, coroutine.resume returns false plus an error message.

A coroutine yields by calling coroutine.yield. When a coroutine yields, the corresponding coroutine.resume returns immediately, even if the yield happens inside nested function calls (that is, not in the main function, but in a function directly or indirectly called by the main function). In the case of a yield, coroutine.resume also returns true, plus any values passed to coroutine.yield. The next time you resume the same coroutine, it continues its execution from the point where it yielded, with the call to coroutine.yield returning any extra arguments passed to coroutine.resume.

Like coroutine.create, the coroutine.wrap function also creates a coroutine, but instead of returning the coroutine itself, it returns a function that, when called, resumes the coroutine. Any arguments passed to this function go as extra arguments to coroutine.resume. coroutine.wrap returns all the values returned by coroutine.resume, except the first one (the boolean error code). Unlike coroutine.resume, coroutine.wrap does not catch errors; any error is propagated to the caller.

As an example, consider the following code: 

     function foo (a)
       print("foo", a)
       return coroutine.yield(2*a)
     end
     
     co = coroutine.create(function (a,b)
           print("co-body", a, b)
           local r = foo(a+1)
           print("co-body", r)
           local r, s = coroutine.yield(a+b, a-b)
           print("co-body", r, s)
           return b, "end"
     end)
            
     print("main", coroutine.resume(co, 1, 10))
     print("main", coroutine.resume(co, "r"))
     print("main", coroutine.resume(co, "x", "y"))
     print("main", coroutine.resume(co, "x", "y"))

When you run it, it produces the following output: 

     co-body 1       10
     foo     2
     
     main    true    4
     co-body r
     main    true    11      -9
     co-body x       y
     main    true    10      end
     main    false   cannot resume dead coroutine

3 - The Application Program Interface

This section describes the C API for Lua, that is, the set of C functions available to the host program to communicate with Lua. All API functions and related types and constants are declared in the header file lua.h.

Even when we use the term "function", any facility in the API may be provided as a macro instead. All such macros use each of their arguments exactly once (except for the first argument, which is always a Lua state), and so do not generate any hidden side-effects.

As in most C libraries, the Lua API functions do not check their arguments for validity or consistency. However, you can change this behavior by compiling Lua with a proper definition for the macro luai_apicheck, in file luaconf.h.

3.1 - The Stack

Lua uses a virtual stack to pass values to and from C. Each element in this stack represents a Lua value (nil, number, string, etc.).

Whenever Lua calls C, the called function gets a new stack, which is independent of previous stacks and of stacks of C functions that are still active. This stack initially contains any arguments to the C function and it is where the C function pushes its results to be returned to the caller (see lua_CFunction).

For convenience, most query operations in the API do not follow a strict stack discipline. Instead, they can refer to any element in the stack by using an index: A positive index represents an absolute stack position (starting at 1); a negative index represents an offset relative to the top of the stack. More specifically, if the stack has n elements, then index 1 represents the first element (that is, the element that was pushed onto the stack first) and index n represents the last element; index -1 also represents the last element (that is, the element at the top) and index -n represents the first element. We say that an index is valid if it lies between 1 and the stack top (that is, if 1 ≤ abs(index) ≤ top).

3.2 - Stack Size

When you interact with Lua API, you are responsible for ensuring consistency. In particular, you are responsible for controlling stack overflow. You can use the function lua_checkstack to grow the stack size.

Whenever Lua calls C, it ensures that at least LUA_MINSTACK stack positions are available. LUA_MINSTACK is defined as 20, so that usually you do not have to worry about stack space unless your code has loops pushing elements onto the stack.

Most query functions accept as indices any value inside the available stack space, that is, indices up to the maximum stack size you have set through lua_checkstack. Such indices are called acceptable indices. More formally, we define an acceptable index as follows: 

     (index < 0 && abs(index) <= top) ||
     (index > 0 && index <= stackspace)

Note that 0 is never an acceptable index.

3.3 - Pseudo-Indices

Unless otherwise noted, any function that accepts valid indices can also be called with pseudo-indices, which represent some Lua values that are accessible to C code but which are not in the stack. Pseudo-indices are used to access the thread environment, the function environment, the registry, and the upvalues of a C function (see §3.4).

The thread environment (where global variables live) is always at pseudo-index LUA_GLOBALSINDEX. The environment of the running C function is always at pseudo-index LUA_ENVIRONINDEX.

To access and change the value of global variables, you can use regular table operations over an environment table. For instance, to access the value of a global variable, do 

     lua_getfield(L, LUA_GLOBALSINDEX, varname);

3.4 - C Closures

When a C function is created, it is possible to associate some values with it, thus creating a C closure; these values are called upvalues and are accessible to the function whenever it is called (see lua_pushcclosure).

Whenever a C function is called, its upvalues are located at specific pseudo-indices. These pseudo-indices are produced by the macro lua_upvalueindex. The first value associated with a function is at position lua_upvalueindex(1), and so on. Any access to lua_upvalueindex(n), where n is greater than the number of upvalues of the current function (but not greater than 256), produces an acceptable (but invalid) index.

3.5 - Registry

Lua provides a registry, a pre-defined table that can be used by any C code to store whatever Lua value it needs to store. This table is always located at pseudo-index LUA_REGISTRYINDEX. Any C library can store data into this table, but it should take care to choose keys different from those used by other libraries, to avoid collisions. Typically, you should use as key a string containing your library name or a light userdata with the address of a C object in your code.

The integer keys in the registry are used by the reference mechanism, implemented by the auxiliary library, and therefore should not be used for other purposes.

3.6 - Error Handling in C

Internally, Lua uses the C longjmp facility to handle errors. (You can also choose to use exceptions if you use C++; see file luaconf.h.) When Lua faces any error (such as memory allocation errors, type errors, syntax errors, and runtime errors) it raises an error; that is, it does a long jump. A protected environment uses setjmp to set a recover point; any error jumps to the most recent active recover point.

Most functions in the API can throw an error, for instance due to a memory allocation error. The documentation for each function indicates whether it can throw errors.

Inside a C function you can throw an error by calling lua_error.

3.7 - Functions and Types

Here we list all functions and types from the C API in alphabetical order. Each function has an indicator like this: [-o, +p, x]

The first field, o, is how many elements the function pops from the stack. The second field, p, is how many elements the function pushes onto the stack. (Any function always pushes its results after popping its arguments.) A field in the form x|y means the function can push (or pop) x or y elements, depending on the situation; an interrogation mark '?' means that we cannot know how many elements the function pops/pushes by looking only at its arguments (e.g., they may depend on what is on the stack). The third field, x, tells whether the function may throw errors: '-' means the function never throws any error; 'm' means the function may throw an error only due to not enough memory; 'e' means the function may throw other kinds of errors; 'v' means the function may throw an error on purpose.

lua_Alloc

typedef void * (*lua_Alloc) (void *ud,
                             void *ptr,
                             size_t osize,
                             size_t nsize);

The type of the memory-allocation function used by Lua states. The allocator function must provide a functionality similar to realloc, but not exactly the same. Its arguments are ud, an opaque pointer passed to lua_newstate; ptr, a pointer to the block being allocated/reallocated/freed; osize, the original size of the block; nsize, the new size of the block. ptr is NULL if and only if osize is zero. When nsize is zero, the allocator must return NULL; if osize is not zero, it should free the block pointed to by ptr. When nsize is not zero, the allocator returns NULL if and only if it cannot fill the request. When nsize is not zero and osize is zero, the allocator should behave like malloc. When nsize and osize are not zero, the allocator behaves like realloc. Lua assumes that the allocator never fails when osize >= nsize.

Here is a simple implementation for the allocator function. It is used in the auxiliary library by luaL_newstate. 

     static void *l_alloc (void *ud, void *ptr, size_t osize,
                                                size_t nsize) {
       (void)ud;  (void)osize;  /* not used */
       if (nsize == 0) {
         free(ptr);
         return NULL;
       }
       else
         return realloc(ptr, nsize);
     }

This code assumes that free(NULL) has no effect and that realloc(NULL, size) is equivalent to malloc(size). ANSI C ensures both behaviors.

lua_atpanic

[-0, +0, -] 

lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf);

Sets a new panic function and returns the old one.

If an error happens outside any protected environment, Lua calls a panic function and then calls exit(EXIT_FAILURE), thus exiting the host application. Your panic function can avoid this exit by never returning (e.g., doing a long jump).

The panic function can access the error message at the top of the stack.

lua_call

[-(nargs + 1), +nresults, e] 

void lua_call (lua_State *L, int nargs, int nresults);

Calls a function.

To call a function you must use the following protocol: first, the function to be called is pushed onto the stack; then, the arguments to the function are pushed in direct order; that is, the first argument is pushed first. Finally you call lua_call; nargs is the number of arguments that you pushed onto the stack. All arguments and the function value are popped from the stack when the function is called. The function results are pushed onto the stack when the function returns. The number of results is adjusted to nresults, unless nresults is LUA_MULTRET. In this case, all results from the function are pushed. Lua takes care that the returned values fit into the stack space. The function results are pushed onto the stack in direct order (the first result is pushed first), so that after the call the last result is on the top of the stack.

Any error inside the called function is propagated upwards (with a longjmp).

The following example shows how the host program can do the equivalent to this Lua code: 

     a = f("how", t.x, 14)

Here it is in C: 

     lua_getfield(L, LUA_GLOBALSINDEX, "f"); /* function to be called */
     lua_pushstring(L, "how");                        /* 1st argument */
     lua_getfield(L, LUA_GLOBALSINDEX, "t");   /* table to be indexed */
     lua_getfield(L, -1, "x");        /* push result of t.x (2nd arg) */
     lua_remove(L, -2);                  /* remove 't' from the stack */
     lua_pushinteger(L, 14);                          /* 3rd argument */
     lua_call(L, 3, 1);     /* call 'f' with 3 arguments and 1 result */
     lua_setfield(L, LUA_GLOBALSINDEX, "a");        /* set global 'a' */

Note that the code above is "balanced": at its end, the stack is back to its original configuration. This is considered good programming practice.

lua_CFunction

typedef int (*lua_CFunction) (lua_State *L);

Type for C functions.

In order to communicate properly with Lua, a C function must use the following protocol, which defines the way parameters and results are passed: a C function receives its arguments from Lua in its stack in direct order (the first argument is pushed first). So, when the function starts, lua_gettop(L) returns the number of arguments received by the function. The first argument (if any) is at index 1 and its last argument is at index lua_gettop(L). To return values to Lua, a C function just pushes them onto the stack, in direct order (the first result is pushed first), and returns the number of results. Any other value in the stack below the results will be properly discarded by Lua. Like a Lua function, a C function called by Lua can also return many results.

As an example, the following function receives a variable number of numerical arguments and returns their average and sum: 

     static int foo (lua_State *L) {
       int n = lua_gettop(L);    /* number of arguments */
       lua_Number sum = 0;
       int i;
       for (i = 1; i <= n; i++) {
         if (!lua_isnumber(L, i)) {
           lua_pushstring(L, "incorrect argument");
           lua_error(L);
         }
         sum += lua_tonumber(L, i);
       }
       lua_pushnumber(L, sum/n);        /* first result */
       lua_pushnumber(L, sum);         /* second result */
       return 2;                   /* number of results */
     }

lua_checkstack

[-0, +0, m] 

int lua_checkstack (lua_State *L, int extra);

Ensures that there are at least extra free stack slots in the stack. It returns false if it cannot grow the stack to that size. This function never shrinks the stack; if the stack is already larger than the new size, it is left unchanged.

lua_close

[-0, +0, -] 

void lua_close (lua_State *L);

Destroys all objects in the given Lua state (calling the corresponding garbage-collection metamethods, if any) and frees all dynamic memory used by this state. On several platforms, you may not need to call this function, because all resources are naturally released when the host program ends. On the other hand, long-running programs, such as a daemon or a web server, might need to release states as soon as they are not needed, to avoid growing too large.

lua_concat

[-n, +1, e] 

void lua_concat (lua_State *L, int n);

Concatenates the n values at the top of the stack, pops them, and leaves the result at the top. If n is 1, the result is the single value on the stack (that is, the function does nothing); if n is 0, the result is the empty string. Concatenation is performed following the usual semantics of Lua (see §2.5.4).

lua_cpcall

[-0, +(0|1), -] 

int lua_cpcall (lua_State *L, lua_CFunction func, void *ud);

Calls the C function func in protected mode. func starts with only one element in its stack, a light userdata containing ud. In case of errors, lua_cpcall returns the same error codes as lua_pcall, plus the error object on the top of the stack; otherwise, it returns zero, and does not change the stack. All values returned by func are discarded.

lua_createtable

[-0, +1, m] 

void lua_createtable (lua_State *L, int narr, int nrec);

Creates a new empty table and pushes it onto the stack. The new table has space pre-allocated for narr array elements and nrec non-array elements. This pre-allocation is useful when you know exactly how many elements the table will have. Otherwise you can use the function lua_newtable.

lua_dump

[-0, +0, m] 

int lua_dump (lua_State *L, lua_Writer writer, void *data);

Dumps a function as a binary chunk. Receives a Lua function on the top of the stack and produces a binary chunk that, if loaded again, results in a function equivalent to the one dumped. As it produces parts of the chunk, lua_dump calls function writer (see lua_Writer) with the given data to write them.

The value returned is the error code returned by the last call to the writer; 0 means no errors.

This function does not pop the Lua function from the stack.

lua_equal

[-0, +0, e] 

int lua_equal (lua_State *L, int index1, int index2);

Returns 1 if the two values in acceptable indices index1 and index2 are equal, following the semantics of the Lua == operator (that is, may call metamethods). Otherwise returns 0. Also returns 0 if any of the indices is non valid.

lua_error

[-1, +0, v] 

int lua_error (lua_State *L);

Generates a Lua error. The error message (which can actually be a Lua value of any type) must be on the stack top. This function does a long jump, and therefore never returns. (see luaL_error).

lua_gc

[-0, +0, e] 

int lua_gc (lua_State *L, int what, int data);

Controls the garbage collector.

This function performs several tasks, according to the value of the parameter what:

  • LUA_GCSTOP: stops the garbage collector.
  • LUA_GCRESTART: restarts the garbage collector.
  • LUA_GCCOLLECT: performs a full garbage-collection cycle.
  • LUA_GCCOUNT: returns the current amount of memory (in Kbytes) in use by Lua.
  • LUA_GCCOUNTB: returns the remainder of dividing the current amount of bytes of memory in use by Lua by 1024.
  • LUA_GCSTEP: performs an incremental step of garbage collection. The step "size" is controlled by data (larger values mean more steps) in a non-specified way. If you want to control the step size you must experimentally tune the value of data. The function returns 1 if the step finished a garbage-collection cycle.
  • LUA_GCSETPAUSE: sets data as the new value for the pause of the collector (see §2.10). The function returns the previous value of the pause.
  • LUA_GCSETSTEPMUL: sets data as the new value for the step multiplier of the collector (see §2.10). The function returns the previous value of the step multiplier.

lua_getallocf

[-0, +0, -] 

lua_Alloc lua_getallocf (lua_State *L, void **ud);

Returns the memory-allocation function of a given state. If ud is not NULL, Lua stores in *ud the opaque pointer passed to lua_newstate.

lua_getfenv

[-0, +1, -] 

void lua_getfenv (lua_State *L, int index);

Pushes onto the stack the environment table of the value at the given index.

lua_getfield

[-0, +1, e] 

void lua_getfield (lua_State *L, int index, const char *k);

Pushes onto the stack the value t[k], where t is the value at the given valid index. As in Lua, this function may trigger a metamethod for the "index" event (see §2.8).

lua_getglobal

[-0, +1, e] 

void lua_getglobal (lua_State *L, const char *name);

Pushes onto the stack the value of the global name. It is defined as a macro: 

     #define lua_getglobal(L,s)  lua_getfield(L, LUA_GLOBALSINDEX, s)

lua_getmetatable

[-0, +(0|1), -] 

int lua_getmetatable (lua_State *L, int index);

Pushes onto the stack the metatable of the value at the given acceptable index. If the index is not valid, or if the value does not have a metatable, the function returns 0 and pushes nothing on the stack.

lua_gettable

[-1, +1, e] 

void lua_gettable (lua_State *L, int index);

Pushes onto the stack the value t[k], where t is the value at the given valid index and k is the value at the top of the stack.

This function pops the key from the stack (putting the resulting value in its place). As in Lua, this function may trigger a metamethod for the "index" event (see §2.8).

lua_gettop

[-0, +0, -] 

int lua_gettop (lua_State *L);

Returns the index of the top element in the stack. Because indices start at 1, this result is equal to the number of elements in the stack (and so 0 means an empty stack).

lua_insert

[-1, +1, -] 

void lua_insert (lua_State *L, int index);

Moves the top element into the given valid index, shifting up the elements above this index to open space. Cannot be called with a pseudo-index, because a pseudo-index is not an actual stack position.

lua_Integer

typedef ptrdiff_t lua_Integer;

The type used by the Lua API to represent integral values.

By default it is a ptrdiff_t, which is usually the largest signed integral type the machine handles "comfortably".

lua_isboolean

[-0, +0, -] 

int lua_isboolean (lua_State *L, int index);

Returns 1 if the value at the given acceptable index has type boolean, and 0 otherwise.

lua_iscfunction

[-0, +0, -] 

int lua_iscfunction (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is a C function, and 0 otherwise.

lua_isfunction

[-0, +0, -] 

int lua_isfunction (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is a function (either C or Lua), and 0 otherwise.

lua_islightuserdata

[-0, +0, -] 

int lua_islightuserdata (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is a light userdata, and 0 otherwise.

lua_isnil

[-0, +0, -] 

int lua_isnil (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is nil, and 0 otherwise.

lua_isnone

[-0, +0, -] 

int lua_isnone (lua_State *L, int index);

Returns 1 if the given acceptable index is not valid (that is, it refers to an element outside the current stack), and 0 otherwise.

lua_isnoneornil

[-0, +0, -] 

int lua_isnoneornil (lua_State *L, int index);

Returns 1 if the given acceptable index is not valid (that is, it refers to an element outside the current stack) or if the value at this index is nil, and 0 otherwise.

lua_isnumber

[-0, +0, -] 

int lua_isnumber (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is a number or a string convertible to a number, and 0 otherwise.

lua_isstring

[-0, +0, -] 

int lua_isstring (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is a string or a number (which is always convertible to a string), and 0 otherwise.

lua_istable

[-0, +0, -] 

int lua_istable (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is a table, and 0 otherwise.

lua_isthread

[-0, +0, -] 

int lua_isthread (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is a thread, and 0 otherwise.

lua_isuserdata

[-0, +0, -] 

int lua_isuserdata (lua_State *L, int index);

Returns 1 if the value at the given acceptable index is a userdata (either full or light), and 0 otherwise.

lua_lessthan

[-0, +0, e] 

int lua_lessthan (lua_State *L, int index1, int index2);

Returns 1 if the value at acceptable index index1 is smaller than the value at acceptable index index2, following the semantics of the Lua < operator (that is, may call metamethods). Otherwise returns 0. Also returns 0 if any of the indices is non valid.

lua_load

[-0, +1, -] 

int lua_load (lua_State *L,
              lua_Reader reader,
              void *data,
              const char *chunkname);

Loads a Lua chunk. If there are no errors, lua_load pushes the compiled chunk as a Lua function on top of the stack. Otherwise, it pushes an error message. The return values of lua_load are:

This function only loads a chunk; it does not run it.

lua_load automatically detects whether the chunk is text or binary, and loads it accordingly (see program luac).

The lua_load function uses a user-supplied reader function to read the chunk (see lua_Reader). The data argument is an opaque value passed to the reader function.

The chunkname argument gives a name to the chunk, which is used for error messages and in debug information (see §3.8).

lua_newstate

[-0, +0, -] 

lua_State *lua_newstate (lua_Alloc f, void *ud);

Creates a new, independent state. Returns NULL if cannot create the state (due to lack of memory). The argument f is the allocator function; Lua does all memory allocation for this state through this function. The second argument, ud, is an opaque pointer that Lua simply passes to the allocator in every call.

lua_newtable

[-0, +1, m] 

void lua_newtable (lua_State *L);

Creates a new empty table and pushes it onto the stack. It is equivalent to lua_createtable(L, 0, 0).

lua_newthread

[-0, +1, m] 

lua_State *lua_newthread (lua_State *L);

Creates a new thread, pushes it on the stack, and returns a pointer to a lua_State that represents this new thread. The new state returned by this function shares with the original state all global objects (such as tables), but has an independent execution stack.

There is no explicit function to close or to destroy a thread. Threads are subject to garbage collection, like any Lua object.

lua_newuserdata

[-0, +1, m] 

void *lua_newuserdata (lua_State *L, size_t size);

This function allocates a new block of memory with the given size, pushes onto the stack a new full userdata with the block address, and returns this address.

Userdata represent C values in Lua. A full userdata represents a block of memory. It is an object (like a table): you must create it, it can have its own metatable, and you can detect when it is being collected. A full userdata is only equal to itself (under raw equality).

When Lua collects a full userdata with a gc metamethod, Lua calls the metamethod and marks the userdata as finalized. When this userdata is collected again then Lua frees its corresponding memory.

lua_next

[-1, +(2|0), e] 

int lua_next (lua_State *L, int index);

Pops a key from the stack, and pushes a key-value pair from the table at the given index (the "next" pair after the given key). If there are no more elements in the table, then lua_next returns 0 (and pushes nothing).

A typical traversal looks like this: 

     /* table is in the stack at index 't' */
     lua_pushnil(L);  /* first key */
     while (lua_next(L, t) != 0) {
       /* uses 'key' (at index -2) and 'value' (at index -1) */
       printf("%s - %s\n",
              lua_typename(L, lua_type(L, -2)),
              lua_typename(L, lua_type(L, -1)));
       /* removes 'value'; keeps 'key' for next iteration */
       lua_pop(L, 1);
     }

While traversing a table, do not call lua_tolstring directly on a key, unless you know that the key is actually a string. Recall that lua_tolstring changes the value at the given index; this confuses the next call to lua_next.

lua_Number

typedef double lua_Number;

The type of numbers in Lua. By default, it is double, but that can be changed in luaconf.h.

Through the configuration file you can change Lua to operate with another type for numbers (e.g., float or long).

lua_objlen

[-0, +0, -] 

size_t lua_objlen (lua_State *L, int index);

Returns the "length" of the value at the given acceptable index: for strings, this is the string length; for tables, this is the result of the length operator ('#'); for userdata, this is the size of the block of memory allocated for the userdata; for other values, it is 0.

lua_pcall

[-(nargs + 1), +(nresults|1), -] 

int lua_pcall (lua_State *L, int nargs, int nresults, int errfunc);

Calls a function in protected mode.

Both nargs and nresults have the same meaning as in lua_call. If there are no errors during the call, lua_pcall behaves exactly like lua_call. However, if there is any error, lua_pcall catches it, pushes a single value on the stack (the error message), and returns an error code. Like lua_call, lua_pcall always removes the function and its arguments from the stack.

If errfunc is 0, then the error message returned on the stack is exactly the original error message. Otherwise, errfunc is the stack index of an error handler function. (In the current implementation, this index cannot be a pseudo-index.) In case of runtime errors, this function will be called with the error message and its return value will be the message returned on the stack by lua_pcall.

Typically, the error handler function is used to add more debug information to the error message, such as a stack traceback. Such information cannot be gathered after the return of lua_pcall, since by then the stack has unwound.

The lua_pcall function returns 0 in case of success or one of the following error codes (defined in lua.h):

  • LUA_ERRRUN: a runtime error.
  • LUA_ERRMEM: memory allocation error. For such errors, Lua does not call the error handler function.
  • LUA_ERRERR: error while running the error handler function.

lua_pop

[-n, +0, -] 

void lua_pop (lua_State *L, int n);

Pops n elements from the stack.

lua_pushboolean

[-0, +1, -] 

void lua_pushboolean (lua_State *L, int b);

Pushes a boolean value with value b onto the stack.

lua_pushcclosure

[-n, +1, m] 

void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n);

Pushes a new C closure onto the stack.

When a C function is created, it is possible to associate some values with it, thus creating a C closure (see §3.4); these values are then accessible to the function whenever it is called. To associate values with a C function, first these values should be pushed onto the stack (when there are multiple values, the first value is pushed first). Then lua_pushcclosure is called to create and push the C function onto the stack, with the argument n telling how many values should be associated with the function. lua_pushcclosure also pops these values from the stack.

The maximum value for n is 255.

lua_pushcfunction

[-0, +1, m] 

void lua_pushcfunction (lua_State *L, lua_CFunction f);

Pushes a C function onto the stack. This function receives a pointer to a C function and pushes onto the stack a Lua value of type function that, when called, invokes the corresponding C function.

Any function to be registered in Lua must follow the correct protocol to receive its parameters and return its results (see lua_CFunction).

lua_pushcfunction is defined as a macro: 

     #define lua_pushcfunction(L,f)  lua_pushcclosure(L,f,0)

lua_pushfstring

[-0, +1, m] 

const char *lua_pushfstring (lua_State *L, const char *fmt, ...);

Pushes onto the stack a formatted string and returns a pointer to this string. It is similar to the C function sprintf, but has some important differences:

  • You do not have to allocate space for the result: the result is a Lua string and Lua takes care of memory allocation (and deallocation, through garbage collection).
  • The conversion specifiers are quite restricted. There are no flags, widths, or precisions. The conversion specifiers can only be '%%' (inserts a '%' in the string), '%s' (inserts a zero-terminated string, with no size restrictions), '%f' (inserts a lua_Number), '%p' (inserts a pointer as a hexadecimal numeral), '%d' (inserts an int), and '%c' (inserts an int as a character).

lua_pushinteger

[-0, +1, -] 

void lua_pushinteger (lua_State *L, lua_Integer n);

Pushes a number with value n onto the stack.

lua_pushlightuserdata

[-0, +1, -] 

void lua_pushlightuserdata (lua_State *L, void *p);

Pushes a light userdata onto the stack.

Userdata represent C values in Lua. A light userdata represents a pointer. It is a value (like a number): you do not create it, it has no individual metatable, and it is not collected (as it was never created). A light userdata is equal to "any" light userdata with the same C address.

lua_pushliteral

[-0, +1, m] 

void lua_pushliteral (lua_State *L, const char *s);

This macro is equivalent to lua_pushlstring, but can be used only when s is a literal string. In these cases, it automatically provides the string length.

lua_pushlstring

[-0, +1, m] 

void lua_pushlstring (lua_State *L, const char *s, size_t len);

Pushes the string pointed to by s with size len onto the stack. Lua makes (or reuses) an internal copy of the given string, so the memory at s can be freed or reused immediately after the function returns. The string can contain embedded zeros.

lua_pushnil

[-0, +1, -] 

void lua_pushnil (lua_State *L);

Pushes a nil value onto the stack.

lua_pushnumber

[-0, +1, -] 

void lua_pushnumber (lua_State *L, lua_Number n);

Pushes a number with value n onto the stack.

lua_pushstring

[-0, +1, m] 

void lua_pushstring (lua_State *L, const char *s);

Pushes the zero-terminated string pointed to by s onto the stack. Lua makes (or reuses) an internal copy of the given string, so the memory at s can be freed or reused immediately after the function returns. The string cannot contain embedded zeros; it is assumed to end at the first zero.

lua_pushthread

[-0, +1, -] 

int lua_pushthread (lua_State *L);

Pushes the thread represented by L onto the stack. Returns 1 if this thread is the main thread of its state.

lua_pushvalue

[-0, +1, -] 

void lua_pushvalue (lua_State *L, int index);

Pushes a copy of the element at the given valid index onto the stack.

lua_pushvfstring

[-0, +1, m] 

const char *lua_pushvfstring (lua_State *L,
                              const char *fmt,
                              va_list argp);

Equivalent to lua_pushfstring, except that it receives a va_list instead of a variable number of arguments.

lua_rawequal

[-0, +0, -] 

int lua_rawequal (lua_State *L, int index1, int index2);

Returns 1 if the two values in acceptable indices index1 and index2 are primitively equal (that is, without calling metamethods). Otherwise returns 0. Also returns 0 if any of the indices are non valid.

lua_rawget

[-1, +1, -] 

void lua_rawget (lua_State *L, int index);

Similar to lua_gettable, but does a raw access (i.e., without metamethods).

lua_rawgeti

[-0, +1, -] 

void lua_rawgeti (lua_State *L, int index, int n);

Pushes onto the stack the value t[n], where t is the value at the given valid index. The access is raw; that is, it does not invoke metamethods.

lua_rawset

[-2, +0, m] 

void lua_rawset (lua_State *L, int index);

Similar to lua_settable, but does a raw assignment (i.e., without metamethods).

lua_rawseti

[-1, +0, m] 

void lua_rawseti (lua_State *L, int index, int n);

Does the equivalent of t[n] = v, where t is the value at the given valid index and v is the value at the top of the stack.

This function pops the value from the stack. The assignment is raw; that is, it does not invoke metamethods.

lua_Reader

typedef const char * (*lua_Reader) (lua_State *L,
                                    void *data,
                                    size_t *size);

The reader function used by lua_load. Every time it needs another piece of the chunk, lua_load calls the reader, passing along its data parameter. The reader must return a pointer to a block of memory with a new piece of the chunk and set size to the block size. The block must exist until the reader function is called again. To signal the end of the chunk, the reader must return NULL or set size to zero. The reader function may return pieces of any size greater than zero.

lua_register

[-0, +0, e] 

void lua_register (lua_State *L,
                   const char *name,
                   lua_CFunction f);

Sets the C function f as the new value of global name. It is defined as a macro: 

     #define lua_register(L,n,f) \
            (lua_pushcfunction(L, f), lua_setglobal(L, n))

lua_remove

[-1, +0, -] 

void lua_remove (lua_State *L, int index);

Removes the element at the given valid index, shifting down the elements above this index to fill the gap. Cannot be called with a pseudo-index, because a pseudo-index is not an actual stack position.

lua_replace

[-1, +0, -] 

void lua_replace (lua_State *L, int index);

Moves the top element into the given position (and pops it), without shifting any element (therefore replacing the value at the given position).

lua_resume

[-?, +?, -] 

int lua_resume (lua_State *L, int narg);

Starts and resumes a coroutine in a given thread.

To start a coroutine, you first create a new thread (see lua_newthread); then you push onto its stack the main function plus any arguments; then you call lua_resume, with narg being the number of arguments. This call returns when the coroutine suspends or finishes its execution. When it returns, the stack contains all values passed to lua_yield, or all values returned by the body function. lua_resume returns LUA_YIELD if the coroutine yields, 0 if the coroutine finishes its execution without errors, or an error code in case of errors (see lua_pcall). In case of errors, the stack is not unwound, so you can use the debug API over it. The error message is on the top of the stack. To restart a coroutine, you put on its stack only the values to be passed as results from yield, and then call lua_resume.

lua_setallocf

[-0, +0, -] 

void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);

Changes the allocator function of a given state to f with user data ud.

lua_setfenv

[-1, +0, -] 

int lua_setfenv (lua_State *L, int index);

Pops a table from the stack and sets it as the new environment for the value at the given index. If the value at the given index is neither a function nor a thread nor a userdata, lua_setfenv returns 0. Otherwise it returns 1.

lua_setfield

[-1, +0, e] 

void lua_setfield (lua_State *L, int index, const char *k);

Does the equivalent to t[k] = v, where t is the value at the given valid index and v is the value at the top of the stack.

This function pops the value from the stack. As in Lua, this function may trigger a metamethod for the "newindex" event (see §2.8).

lua_setglobal

[-1, +0, e] 

void lua_setglobal (lua_State *L, const char *name);

Pops a value from the stack and sets it as the new value of global name. It is defined as a macro: 

     #define lua_setglobal(L,s)   lua_setfield(L, LUA_GLOBALSINDEX, s)

lua_setmetatable

[-1, +0, -] 

int lua_setmetatable (lua_State *L, int index);

Pops a table from the stack and sets it as the new metatable for the value at the given acceptable index.

lua_settable

[-2, +0, e] 

void lua_settable (lua_State *L, int index);

Does the equivalent to t[k] = v, where t is the value at the given valid index, v is the value at the top of the stack, and k is the value just below the top.

This function pops both the key and the value from the stack. As in Lua, this function may trigger a metamethod for the "newindex" event (see §2.8).

lua_settop

[-?, +?, -] 

void lua_settop (lua_State *L, int index);

Accepts any acceptable index, or 0, and sets the stack top to this index. If the new top is larger than the old one, then the new elements are filled with nil. If index is 0, then all stack elements are removed.

lua_State

typedef struct lua_State lua_State;

Opaque structure that keeps the whole state of a Lua interpreter. The Lua library is fully reentrant: it has no global variables. All information about a state is kept in this structure.

A pointer to this state must be passed as the first argument to every function in the library, except to lua_newstate, which creates a Lua state from scratch.

lua_status

[-0, +0, -] 

int lua_status (lua_State *L);

Returns the status of the thread L.

The status can be 0 for a normal thread, an error code if the thread finished its execution with an error, or LUA_YIELD if the thread is suspended.

lua_toboolean

[-0, +0, -] 

int lua_toboolean (lua_State *L, int index);

Converts the Lua value at the given acceptable index to a C boolean value (0 or 1). Like all tests in Lua, lua_toboolean returns 1 for any Lua value different from false and nil; otherwise it returns 0. It also returns 0 when called with a non-valid index. (If you want to accept only actual boolean values, use lua_isboolean to test the value's type.)

lua_tocfunction

[-0, +0, -] 

lua_CFunction lua_tocfunction (lua_State *L, int index);

Converts a value at the given acceptable index to a C function. That value must be a C function; otherwise, returns NULL.

lua_tointeger

[-0, +0, -] 

lua_Integer lua_tointeger (lua_State *L, int index);

Converts the Lua value at the given acceptable index to the signed integral type lua_Integer. The Lua value must be a number or a string convertible to a number (see §2.2.1); otherwise, lua_tointeger returns 0.

If the number is not an integer, it is truncated in some non-specified way.

lua_tolstring

[-0, +0, m] 

const char *lua_tolstring (lua_State *L, int index, size_t *len);

Converts the Lua value at the given acceptable index to a C string. If len is not NULL, it also sets *len with the string length. The Lua value must be a string or a number; otherwise, the function returns NULL. If the value is a number, then lua_tolstring also changes the actual value in the stack to a string. (This change confuses lua_next when lua_tolstring is applied to keys during a table traversal.)

lua_tolstring returns a fully aligned pointer to a string inside the Lua state. This string always has a zero ('\0') after its last character (as in C), but can contain other zeros in its body. Because Lua has garbage collection, there is no guarantee that the pointer returned by lua_tolstring will be valid after the corresponding value is removed from the stack.

lua_tonumber

[-0, +0, -] 

lua_Number lua_tonumber (lua_State *L, int index);

Converts the Lua value at the given acceptable index to the C type lua_Number (see lua_Number). The Lua value must be a number or a string convertible to a number (see §2.2.1); otherwise, lua_tonumber returns 0.

lua_topointer

[-0, +0, -] 

const void *lua_topointer (lua_State *L, int index);

Converts the value at the given acceptable index to a generic C pointer (void*). The value can be a userdata, a table, a thread, or a function; otherwise, lua_topointer returns NULL. Different objects will give different pointers. There is no way to convert the pointer back to its original value.

Typically this function is used only for debug information.

lua_tostring

[-0, +0, m] 

const char *lua_tostring (lua_State *L, int index);

Equivalent to lua_tolstring with len equal to NULL.

lua_tothread

[-0, +0, -] 

lua_State *lua_tothread (lua_State *L, int index);

Converts the value at the given acceptable index to a Lua thread (represented as lua_State*). This value must be a thread; otherwise, the function returns NULL.

lua_touserdata

[-0, +0, -] 

void *lua_touserdata (lua_State *L, int index);

If the value at the given acceptable index is a full userdata, returns its block address. If the value is a light userdata, returns its pointer. Otherwise, returns NULL.

lua_type

[-0, +0, -] 

int lua_type (lua_State *L, int index);

Returns the type of the value in the given acceptable index, or LUA_TNONE for a non-valid index (that is, an index to an "empty" stack position). The types returned by lua_type are coded by the following constants defined in lua.h: LUA_TNIL, LUA_TNUMBER, LUA_TBOOLEAN, LUA_TSTRING, LUA_TTABLE, LUA_TFUNCTION, LUA_TUSERDATA, LUA_TTHREAD, and LUA_TLIGHTUSERDATA.

lua_typename

[-0, +0, -] 

const char *lua_typename  (lua_State *L, int tp);

Returns the name of the type encoded by the value tp, which must be one the values returned by lua_type.

lua_Writer

typedef int (*lua_Writer) (lua_State *L,
                           const void* p,
                           size_t sz,
                           void* ud);

The type of the writer function used by lua_dump. Every time it produces another piece of chunk, lua_dump calls the writer, passing along the buffer to be written (p), its size (sz), and the data parameter supplied to lua_dump.

The writer returns an error code: 0 means no errors; any other value means an error and stops lua_dump from calling the writer again.

lua_xmove

[-?, +?, -] 

void lua_xmove (lua_State *from, lua_State *to, int n);

Exchange values between different threads of the same global state.

This function pops n values from the stack from, and pushes them onto the stack to.

lua_yield

[-?, +?, -] 

int lua_yield  (lua_State *L, int nresults);

Yields a coroutine.

This function should only be called as the return expression of a C function, as follows: 

     return lua_yield (L, nresults);

When a C function calls lua_yield in that way, the running coroutine suspends its execution, and the call to lua_resume that started this coroutine returns. The parameter nresults is the number of values from the stack that are passed as results to lua_resume.

3.8 - The Debug Interface

Lua has no built-in debugging facilities. Instead, it offers a special interface by means of functions and hooks. This interface allows the construction of different kinds of debuggers, profilers, and other tools that need "inside information" from the interpreter.

lua_Debug

typedef struct lua_Debug {
  int event;
  const char *name;           /* (n) */
  const char *namewhat;       /* (n) */
  const char *what;           /* (S) */
  const char *source;         /* (S) */
  int currentline;            /* (l) */
  int nups;                   /* (u) number of upvalues */
  int linedefined;            /* (S) */
  int lastlinedefined;        /* (S) */
  char short_src[LUA_IDSIZE]; /* (S) */
  /* private part */
  other fields
} lua_Debug;

A structure used to carry different pieces of information about an active function. lua_getstack fills only the private part of this structure, for later use. To fill the other fields of lua_Debug with useful information, call lua_getinfo.

The fields of lua_Debug have the following meaning:

  • source: If the function was defined in a string, then source is that string. If the function was defined in a file, then source starts with a '@' followed by the file name.
  • short_src: a "printable" version of source, to be used in error messages.
  • linedefined: the line number where the definition of the function starts.
  • lastlinedefined: the line number where the definition of the function ends.
  • what: the string "Lua" if the function is a Lua function, "C" if it is a C function, "main" if it is the main part of a chunk, and "tail" if it was a function that did a tail call. In the latter case, Lua has no other information about the function.
  • currentline: the current line where the given function is executing. When no line information is available, currentline is set to -1.
  • name: a reasonable name for the given function. Because functions in Lua are first-class values, they do not have a fixed name: some functions can be the value of multiple global variables, while others can be stored only in a table field. The lua_getinfo function checks how the function was called to find a suitable name. If it cannot find a name, then name is set to NULL.
  • namewhat: explains the name field. The value of namewhat can be "global", "local", "method", "field", "upvalue", or "" (the empty string), according to how the function was called. (Lua uses the empty string when no other option seems to apply.)
  • nups: the number of upvalues of the function.

lua_gethook

[-0, +0, -] 

lua_Hook lua_gethook (lua_State *L);

Returns the current hook function.

lua_gethookcount

[-0, +0, -] 

int lua_gethookcount (lua_State *L);

Returns the current hook count.

lua_gethookmask

[-0, +0, -] 

int lua_gethookmask (lua_State *L);

Returns the current hook mask.

lua_getinfo

[-(0|1), +(0|1|2), m] 

int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar);

Returns information about a specific function or function invocation.

To get information about a function invocation, the parameter ar must be a valid activation record that was filled by a previous call to lua_getstack or given as argument to a hook (see lua_Hook).

To get information about a function you push it onto the stack and start the what string with the character '>'. (In that case, lua_getinfo pops the function in the top of the stack.) For instance, to know in which line a function f was defined, you can write the following code: 

     lua_Debug ar;
     lua_getfield(L, LUA_GLOBALSINDEX, "f");  /* get global 'f' */
     lua_getinfo(L, ">S", &ar);
     printf("%d\n", ar.linedefined);

Each character in the string what selects some fields of the structure ar to be filled or a value to be pushed on the stack:

  • 'n': fills in the field name and namewhat;
  • 'S': fills in the fields source, short_src, linedefined, lastlinedefined, and what;
  • 'l': fills in the field currentline;
  • 'u': fills in the field nups;
  • 'f': pushes onto the stack the function that is running at the given level;
  • 'L': pushes onto the stack a table whose indices are the numbers of the lines that are valid on the function. (A valid line is a line with some associated code, that is, a line where you can put a break point. Non-valid lines include empty lines and comments.)

This function returns 0 on error (for instance, an invalid option in what).

lua_getlocal

[-0, +(0|1), -] 

const char *lua_getlocal (lua_State *L, lua_Debug *ar, int n);

Gets information about a local variable of a given activation record. The parameter ar must be a valid activation record that was filled by a previous call to lua_getstack or given as argument to a hook (see lua_Hook). The index n selects which local variable to inspect (1 is the first parameter or active local variable, and so on, until the last active local variable). lua_getlocal pushes the variable's value onto the stack and returns its name.

Variable names starting with '(' (open parentheses) represent internal variables (loop control variables, temporaries, and C function locals).

Returns NULL (and pushes nothing) when the index is greater than the number of active local variables.

lua_getstack

[-0, +0, -] 

int lua_getstack (lua_State *L, int level, lua_Debug *ar);

Get information about the interpreter runtime stack.

This function fills parts of a lua_Debug structure with an identification of the activation record of the function executing at a given level. Level 0 is the current running function, whereas level n+1 is the function that has called level n. When there are no errors, lua_getstack returns 1; when called with a level greater than the stack depth, it returns 0.

lua_getupvalue

[-0, +(0|1), -] 

const char *lua_getupvalue (lua_State *L, int funcindex, int n);

Gets information about a closure's upvalue. (For Lua functions, upvalues are the external local variables that the function uses, and that are consequently included in its closure.) lua_getupvalue gets the index n of an upvalue, pushes the upvalue's value onto the stack, and returns its name. funcindex points to the closure in the stack. (Upvalues have no particular order, as they are active through the whole function. So, they are numbered in an arbitrary order.)

Returns NULL (and pushes nothing) when the index is greater than the number of upvalues. For C functions, this function uses the empty string "" as a name for all upvalues.

lua_Hook

typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);

Type for debugging hook functions.

Whenever a hook is called, its ar argument has its field event set to the specific event that triggered the hook. Lua identifies these events with the following constants: LUA_HOOKCALL, LUA_HOOKRET, LUA_HOOKTAILRET, LUA_HOOKLINE, and LUA_HOOKCOUNT. Moreover, for line events, the field currentline is also set. To get the value of any other field in ar, the hook must call lua_getinfo. For return events, event can be LUA_HOOKRET, the normal value, or LUA_HOOKTAILRET. In the latter case, Lua is simulating a return from a function that did a tail call; in this case, it is useless to call lua_getinfo.

While Lua is running a hook, it disables other calls to hooks. Therefore, if a hook calls back Lua to execute a function or a chunk, this execution occurs without any calls to hooks.

lua_sethook

[-0, +0, -] 

int lua_sethook (lua_State *L, lua_Hook f, int mask, int count);

Sets the debugging hook function.

Argument f is the hook function. mask specifies on which events the hook will be called: it is formed by a bitwise or of the constants LUA_MASKCALL, LUA_MASKRET, LUA_MASKLINE, and LUA_MASKCOUNT. The count argument is only meaningful when the mask includes LUA_MASKCOUNT. For each event, the hook is called as explained below:

  • The call hook: is called when the interpreter calls a function. The hook is called just after Lua enters the new function, before the function gets its arguments.
  • The return hook: is called when the interpreter returns from a function. The hook is called just before Lua leaves the function. You have no access to the values to be returned by the function.
  • The line hook: is called when the interpreter is about to start the execution of a new line of code, or when it jumps back in the code (even to the same line). (This event only happens while Lua is executing a Lua function.)
  • The count hook: is called after the interpreter executes every count instructions. (This event only happens while Lua is executing a Lua function.)

A hook is disabled by setting mask to zero.

lua_setlocal

[-(0|1), +0, -] 

const char *lua_setlocal (lua_State *L, lua_Debug *ar, int n);

Sets the value of a local variable of a given activation record. Parameters ar and n are as in lua_getlocal (see lua_getlocal). lua_setlocal assigns the value at the top of the stack to the variable and returns its name. It also pops the value from the stack.

Returns NULL (and pops nothing) when the index is greater than the number of active local variables.

lua_setupvalue

[-(0|1), +0, -] 

const char *lua_setupvalue (lua_State *L, int funcindex, int n);

Sets the value of a closure's upvalue. It assigns the value at the top of the stack to the upvalue and returns its name. It also pops the value from the stack. Parameters funcindex and n are as in the lua_getupvalue (see lua_getupvalue).

Returns NULL (and pops nothing) when the index is greater than the number of upvalues.

4 - The Auxiliary Library

The auxiliary library provides several convenient functions to interface C with Lua. While the basic API provides the primitive functions for all interactions between C and Lua, the auxiliary library provides higher-level functions for some common tasks.

All functions from the auxiliary library are defined in header file lauxlib.h and have a prefix luaL_.

All functions in the auxiliary library are built on top of the basic API, and so they provide nothing that cannot be done with this API.

Several functions in the auxiliary library are used to check C function arguments. Their names are always luaL_check* or luaL_opt*. All of these functions throw an error if the check is not satisfied. Because the error message is formatted for arguments (e.g., "bad argument #1"), you should not use these functions for other stack values.

4.1 - Functions and Types

Here we list all functions and types from the auxiliary library in alphabetical order.

luaL_addchar

[-0, +0, m] 

void luaL_addchar (luaL_Buffer *B, char c);

Adds the character c to the buffer B (see luaL_Buffer).

luaL_addlstring

[-0, +0, m] 

void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l);

Adds the string pointed to by s with length l to the buffer B (see luaL_Buffer). The string may contain embedded zeros.

luaL_addsize

[-0, +0, m] 

void luaL_addsize (luaL_Buffer *B, size_t n);

Adds to the buffer B (see luaL_Buffer) a string of length n previously copied to the buffer area (see luaL_prepbuffer).

luaL_addstring

[-0, +0, m] 

void luaL_addstring (luaL_Buffer *B, const char *s);

Adds the zero-terminated string pointed to by s to the buffer B (see luaL_Buffer). The string may not contain embedded zeros.

luaL_addvalue

[-1, +0, m] 

void luaL_addvalue (luaL_Buffer *B);

Adds the value at the top of the stack to the buffer B (see luaL_Buffer). Pops the value.

This is the only function on string buffers that can (and must) be called with an extra element on the stack, which is the value to be added to the buffer.

luaL_argcheck

[-0, +0, v] 

void luaL_argcheck (lua_State *L,
                    int cond,
                    int narg,
                    const char *extramsg);

Checks whether cond is true. If not, raises an error with the following message, where func is retrieved from the call stack: 

     bad argument #<narg> to <func> (<extramsg>)

luaL_argerror

[-0, +0, v] 

int luaL_argerror (lua_State *L, int narg, const char *extramsg);

Raises an error with the following message, where func is retrieved from the call stack: 

     bad argument #<narg> to <func> (<extramsg>)

This function never returns, but it is an idiom to use it in C functions as return luaL_argerror(args).

luaL_Buffer

typedef struct luaL_Buffer luaL_Buffer;

Type for a string buffer.

A string buffer allows C code to build Lua strings piecemeal. Its pattern of use is as follows:

  • First you declare a variable b of type luaL_Buffer.
  • Then you initialize it with a call luaL_buffinit(L, &b).
  • Then you add string pieces to the buffer calling any of the luaL_add* functions.
  • You finish by calling luaL_pushresult(&b). This call leaves the final string on the top of the stack.

During its normal operation, a string buffer uses a variable number of stack slots. So, while using a buffer, you cannot assume that you know where the top of the stack is. You can use the stack between successive calls to buffer operations as long as that use is balanced; that is, when you call a buffer operation, the stack is at the same level it was immediately after the previous buffer operation. (The only exception to this rule is luaL_addvalue.) After calling luaL_pushresult the stack is back to its level when the buffer was initialized, plus the final string on its top.

luaL_buffinit

[-0, +0, -] 

void luaL_buffinit (lua_State *L, luaL_Buffer *B);

Initializes a buffer B. This function does not allocate any space; the buffer must be declared as a variable (see luaL_Buffer).

luaL_callmeta

[-0, +(0|1), e] 

int luaL_callmeta (lua_State *L, int obj, const char *e);

Calls a metamethod.

If the object at index obj has a metatable and this metatable has a field e, this function calls this field and passes the object as its only argument. In this case this function returns 1 and pushes onto the stack the value returned by the call. If there is no metatable or no metamethod, this function returns 0 (without pushing any value on the stack).

luaL_checkany

[-0, +0, v] 

void luaL_checkany (lua_State *L, int narg);

Checks whether the function has an argument of any type (including nil) at position narg.

luaL_checkint

[-0, +0, v] 

int luaL_checkint (lua_State *L, int narg);

Checks whether the function argument narg is a number and returns this number cast to an int.

luaL_checkinteger

[-0, +0, v] 

lua_Integer luaL_checkinteger (lua_State *L, int narg);

Checks whether the function argument narg is a number and returns this number cast to a lua_Integer.

luaL_checklong

[-0, +0, v] 

long luaL_checklong (lua_State *L, int narg);

Checks whether the function argument narg is a number and returns this number cast to a long.

luaL_checklstring

[-0, +0, v] 

const char *luaL_checklstring (lua_State *L, int narg, size_t *l);

Checks whether the function argument narg is a string and returns this string; if l is not NULL fills *l with the string's length.

This function uses lua_tolstring to get its result, so all conversions and caveats of that function apply here.

luaL_checknumber

[-0, +0, v] 

lua_Number luaL_checknumber (lua_State *L, int narg);

Checks whether the function argument narg is a number and returns this number.

luaL_checkoption

[-0, +0, v] 

int luaL_checkoption (lua_State *L,
                      int narg,
                      const char *def,
                      const char *const lst[]);

Checks whether the function argument narg is a string and searches for this string in the array lst (which must be NULL-terminated). Returns the index in the array where the string was found. Raises an error if the argument is not a string or if the string cannot be found.

If def is not NULL, the function uses def as a default value when there is no argument narg or if this argument is nil.

This is a useful function for mapping strings to C enums. (The usual convention in Lua libraries is to use strings instead of numbers to select options.)

luaL_checkstack

[-0, +0, v] 

void luaL_checkstack (lua_State *L, int sz, const char *msg);

Grows the stack size to top + sz elements, raising an error if the stack cannot grow to that size. msg is an additional text to go into the error message.

luaL_checkstring

[-0, +0, v] 

const char *luaL_checkstring (lua_State *L, int narg);

Checks whether the function argument narg is a string and returns this string.

This function uses lua_tolstring to get its result, so all conversions and caveats of that function apply here.

luaL_checktype

[-0, +0, v] 

void luaL_checktype (lua_State *L, int narg, int t);

Checks whether the function argument narg has type t. See lua_type for the encoding of types for t.

luaL_checkudata

[-0, +0, v] 

void *luaL_checkudata (lua_State *L, int narg, const char *tname);

Checks whether the function argument narg is a userdata of the type tname (see luaL_newmetatable).

luaL_dofile

[-0, +?, m] 

int luaL_dofile (lua_State *L, const char *filename);

Loads and runs the given file. It is defined as the following macro: 

     (luaL_loadfile(L, filename) || lua_pcall(L, 0, LUA_MULTRET, 0))

It returns 0 if there are no errors or 1 in case of errors.

luaL_dostring

[-0, +?, m] 

int luaL_dostring (lua_State *L, const char *str);

Loads and runs the given string. It is defined as the following macro: 

     (luaL_loadstring(L, str) || lua_pcall(L, 0, LUA_MULTRET, 0))

It returns 0 if there are no errors or 1 in case of errors.

luaL_error

[-0, +0, v] 

int luaL_error (lua_State *L, const char *fmt, ...);

Raises an error. The error message format is given by fmt plus any extra arguments, following the same rules of lua_pushfstring. It also adds at the beginning of the message the file name and the line number where the error occurred, if this information is available.

This function never returns, but it is an idiom to use it in C functions as return luaL_error(args).

luaL_getmetafield

[-0, +(0|1), m] 

int luaL_getmetafield (lua_State *L, int obj, const char *e);

Pushes onto the stack the field e from the metatable of the object at index obj. If the object does not have a metatable, or if the metatable does not have this field, returns 0 and pushes nothing.

luaL_getmetatable

[-0, +1, -] 

void luaL_getmetatable (lua_State *L, const char *tname);

Pushes onto the stack the metatable associated with name tname in the registry (see luaL_newmetatable).

luaL_gsub

[-0, +1, m] 

const char *luaL_gsub (lua_State *L,
                       const char *s,
                       const char *p,
                       const char *r);

Creates a copy of string s by replacing any occurrence of the string p with the string r. Pushes the resulting string on the stack and returns it.

luaL_loadbuffer

[-0, +1, m] 

int luaL_loadbuffer (lua_State *L,
                     const char *buff,
                     size_t sz,
                     const char *name);

Loads a buffer as a Lua chunk. This function uses lua_load to load the chunk in the buffer pointed to by buff with size sz.

This function returns the same results as lua_load. name is the chunk name, used for debug information and error messages.

luaL_loadfile

[-0, +1, m] 

int luaL_loadfile (lua_State *L, const char *filename);

Loads a file as a Lua chunk. This function uses lua_load to load the chunk in the file named filename. If filename is NULL, then it loads from the standard input. The first line in the file is ignored if it starts with a #.

This function returns the same results as lua_load, but it has an extra error code LUA_ERRFILE if it cannot open/read the file.

As lua_load, this function only loads the chunk; it does not run it.

luaL_loadstring

[-0, +1, m] 

int luaL_loadstring (lua_State *L, const char *s);

Loads a string as a Lua chunk. This function uses lua_load to load the chunk in the zero-terminated string s.

This function returns the same results as lua_load.

Also as lua_load, this function only loads the chunk; it does not run it.

luaL_newmetatable

[-0, +1, m] 

int luaL_newmetatable (lua_State *L, const char *tname);

If the registry already has the key tname, returns 0. Otherwise, creates a new table to be used as a metatable for userdata, adds it to the registry with key tname, and returns 1.

In both cases pushes onto the stack the final value associated with tname in the registry.

luaL_newstate

[-0, +0, -] 

lua_State *luaL_newstate (void);

Creates a new Lua state. It calls lua_newstate with an allocator based on the standard C realloc function and then sets a panic function (see lua_atpanic) that prints an error message to the standard error output in case of fatal errors.

Returns the new state, or NULL if there is a memory allocation error.

luaL_openlibs

[-0, +0, m] 

void luaL_openlibs (lua_State *L);

Opens all standard Lua libraries into the given state.

luaL_optint

[-0, +0, v] 

int luaL_optint (lua_State *L, int narg, int d);

If the function argument narg is a number, returns this number cast to an int. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optinteger

[-0, +0, v] 

lua_Integer luaL_optinteger (lua_State *L,
                             int narg,
                             lua_Integer d);

If the function argument narg is a number, returns this number cast to a lua_Integer. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optlong

[-0, +0, v] 

long luaL_optlong (lua_State *L, int narg, long d);

If the function argument narg is a number, returns this number cast to a long. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optlstring

[-0, +0, v] 

const char *luaL_optlstring (lua_State *L,
                             int narg,
                             const char *d,
                             size_t *l);

If the function argument narg is a string, returns this string. If this argument is absent or is nil, returns d. Otherwise, raises an error.

If l is not NULL, fills the position *l with the results's length.

luaL_optnumber

[-0, +0, v] 

lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number d);

If the function argument narg is a number, returns this number. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optstring

[-0, +0, v] 

const char *luaL_optstring (lua_State *L,
                            int narg,
                            const char *d);

If the function argument narg is a string, returns this string. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_prepbuffer

[-0, +0, -] 

char *luaL_prepbuffer (luaL_Buffer *B);

Returns an address to a space of size LUAL_BUFFERSIZE where you can copy a string to be added to buffer B (see luaL_Buffer). After copying the string into this space you must call luaL_addsize with the size of the string to actually add it to the buffer.

luaL_pushresult

[-?, +1, m] 

void luaL_pushresult (luaL_Buffer *B);

Finishes the use of buffer B leaving the final string on the top of the stack.

luaL_ref

[-1, +0, m] 

int luaL_ref (lua_State *L, int t);

Creates and returns a reference, in the table at index t, for the object at the top of the stack (and pops the object).

A reference is a unique integer key. As long as you do not manually add integer keys into table t, luaL_ref ensures the uniqueness of the key it returns. You can retrieve an object referred by reference r by calling lua_rawgeti(L, t, r). Function luaL_unref frees a reference and its associated object.

If the object at the top of the stack is nil, luaL_ref returns the constant LUA_REFNIL. The constant LUA_NOREF is guaranteed to be different from any reference returned by luaL_ref.

luaL_Reg

typedef struct luaL_Reg {
  const char *name;
  lua_CFunction func;
} luaL_Reg;

Type for arrays of functions to be registered by luaL_register. name is the function name and func is a pointer to the function. Any array of luaL_Reg must end with an sentinel entry in which both name and func are NULL.

luaL_register

[-(0|1), +1, m] 

void luaL_register (lua_State *L,
                    const char *libname,
                    const luaL_Reg *l);

Opens a library.

When called with libname equal to NULL, it simply registers all functions in the list l (see luaL_Reg) into the table on the top of the stack.

When called with a non-null libname, luaL_register creates a new table t, sets it as the value of the global variable libname, sets it as the value of package.loaded[libname], and registers on it all functions in the list l. If there is a table in package.loaded[libname] or in variable libname, reuses this table instead of creating a new one.

In any case the function leaves the table on the top of the stack.

luaL_typename

[-0, +0, -] 

const char *luaL_typename (lua_State *L, int index);

Returns the name of the type of the value at the given index.

luaL_typerror

[-0, +0, v] 

int luaL_typerror (lua_State *L, int narg, const char *tname);

Generates an error with a message like the following: 

     location: bad argument narg to 'func' (tname expected, got rt)

where location is produced by luaL_where, func is the name of the current function, and rt is the type name of the actual argument.

luaL_unref

[-0, +0, -] 

void luaL_unref (lua_State *L, int t, int ref);

Releases reference ref from the table at index t (see luaL_ref). The entry is removed from the table, so that the referred object can be collected. The reference ref is also freed to be used again.

If ref is LUA_NOREF or LUA_REFNIL, luaL_unref does nothing.

luaL_where

[-0, +1, m] 

void luaL_where (lua_State *L, int lvl);

Pushes onto the stack a string identifying the current position of the control at level lvl in the call stack. Typically this string has the following format: 

     chunkname:currentline:

Level 0 is the running function, level 1 is the function that called the running function, etc.

This function is used to build a prefix for error messages.

5 - Standard Libraries

The standard Lua libraries provide useful functions that are implemented directly through the C API. Some of these functions provide essential services to the language (e.g., type and getmetatable); others provide access to "outside" services (e.g., I/O); and others could be implemented in Lua itself, but are quite useful or have critical performance requirements that deserve an implementation in C (e.g., table.sort).

All libraries are implemented through the official C API and are provided as separate C modules. Currently, Lua has the following standard libraries:

  • basic library,
    • which includes the coroutine sub-library;
  • package library;
  • string manipulation;
  • table manipulation;
  • mathematical functions (sin, log, etc.);
  • input and output;
  • operating system facilities;
  • debug facilities.

Except for the basic and package libraries, each library provides all its functions as fields of a global table or as methods of its objects.

To have access to these libraries, the C host program should call the luaL_openlibs function, which opens all standard libraries. Alternatively, it can open them individually by calling luaopen_base (for the basic library), luaopen_package (for the package library), luaopen_string (for the string library), luaopen_table (for the table library), luaopen_math (for the mathematical library), luaopen_io (for the I/O library), luaopen_os (for the Operating System library), and luaopen_debug (for the debug library). These functions are declared in lualib.h and should not be called directly: you must call them like any other Lua C function, e.g., by using lua_call.

5.1 - Basic Functions

The basic library provides some core functions to Lua. If you do not include this library in your application, you should check carefully whether you need to provide implementations for some of its facilities.

assert (v [, message])

Issues an error when the value of its argument v is false (i.e., nil or false); otherwise, returns all its arguments. message is an error message; when absent, it defaults to "assertion failed!"

collectgarbage (opt [, arg])

This function is a generic interface to the garbage collector. It performs different functions according to its first argument, opt:

  • "stop": stops the garbage collector.
  • "restart": restarts the garbage collector.
  • "collect": performs a full garbage-collection cycle.
  • "count": returns the total memory in use by Lua (in Kbytes).
  • "step": performs a garbage-collection step. The step "size" is controlled by arg (larger values mean more steps) in a non-specified way. If you want to control the step size you must experimentally tune the value of arg. Returns true if the step finished a collection cycle.
  • "setpause": sets arg as the new value for the pause of the collector (see §2.10). Returns the previous value for pause.
  • "setstepmul": sets arg as the new value for the step multiplier of the collector (see §2.10). Returns the previous value for step.

dofile (filename)

Opens the named file and executes its contents as a Lua chunk. When called without arguments, dofile executes the contents of the standard input (stdin). Returns all values returned by the chunk. In case of errors, dofile propagates the error to its caller (that is, dofile does not run in protected mode).

error (message [, level])

Terminates the last protected function called and returns message as the error message. Function error never returns.

Usually, error adds some information about the error position at the beginning of the message. The level argument specifies how to get the error position. With level 1 (the default), the error position is where the error function was called. Level 2 points the error to where the function that called error was called; and so on. Passing a level 0 avoids the addition of error position information to the message.

_G

A global variable (not a function) that holds the global environment (that is, _G._G = _G). Lua itself does not use this variable; changing its value does not affect any environment, nor vice-versa. (Use setfenv to change environments.)

getfenv ([f])

Returns the current environment in use by the function. f can be a Lua function or a number that specifies the function at that stack level: Level 1 is the function calling getfenv. If the given function is not a Lua function, or if f is 0, getfenv returns the global environment. The default for f is 1.

getmetatable (object)

If object does not have a metatable, returns nil. Otherwise, if the object's metatable has a "__metatable" field, returns the associated value. Otherwise, returns the metatable of the given object.

ipairs (t)

Returns three values: an iterator function, the table t, and 0, so that the construction 

     for i,v in ipairs(t) do body end

will iterate over the pairs (1,t[1]), (2,t[2]), ···, up to the first integer key absent from the table.

load (func [, chunkname])

Loads a chunk using function func to get its pieces. Each call to func must return a string that concatenates with previous results. A return of an empty string, nil, or no value signals the end of the chunk.

If there are no errors, returns the compiled chunk as a function; otherwise, returns nil plus the error message. The environment of the returned function is the global environment.

chunkname is used as the chunk name for error messages and debug information. When absent, it defaults to "=(load)".

loadfile ([filename])

Similar to load, but gets the chunk from file filename or from the standard input, if no file name is given.

loadstring (string [, chunkname])

Similar to load, but gets the chunk from the given string.

To load and run a given string, use the idiom 

     assert(loadstring(s))()

When absent, chunkname defaults to the given string.

next (table [, index])

Allows a program to traverse all fields of a table. Its first argument is a table and its second argument is an index in this table. next returns the next index of the table and its associated value. When called with nil as its second argument, next returns an initial index and its associated value. When called with the last index, or with nil in an empty table, next returns nil. If the second argument is absent, then it is interpreted as nil. In particular, you can use next(t) to check whether a table is empty.

The order in which the indices are enumerated is not specified, even for numeric indices. (To traverse a table in numeric order, use a numerical for or the ipairs function.)

The behavior of next is undefined if, during the traversal, you assign any value to a non-existent field in the table. You may however modify existing fields. In particular, you may clear existing fields.

pairs (t)

Returns three values: the next function, the table t, and nil, so that the construction 

     for k,v in pairs(t) do body end

will iterate over all key–value pairs of table t.

See function next for the caveats of modifying the table during its traversal.

pcall (f, arg1, ···)

Calls function f with the given arguments in protected mode. This means that any error inside f is not propagated; instead, pcall catches the error and returns a status code. Its first result is the status code (a boolean), which is true if the call succeeds without errors. In such case, pcall also returns all results from the call, after this first result. In case of any error, pcall returns false plus the error message.

print (···)

Receives any number of arguments, and prints their values to stdout, using the tostring function to convert them to strings. print is not intended for formatted output, but only as a quick way to show a value, typically for debugging. For formatted output, use string.format.

rawequal (v1, v2)

Checks whether v1 is equal to v2, without invoking any metamethod. Returns a boolean.

rawget (table, index)

Gets the real value of table[index], without invoking any metamethod. table must be a table; index may be any value.

rawset (table, index, value)

Sets the real value of table[index] to value, without invoking any metamethod. table must be a table, index any value different from nil, and value any Lua value.

This function returns table.

select (index, ···)

If index is a number, returns all arguments after argument number index. Otherwise, index must be the string "#", and select returns the total number of extra arguments it received.

setfenv (f, table)

Sets the environment to be used by the given function. f can be a Lua function or a number that specifies the function at that stack level: Level 1 is the function calling setfenv. setfenv returns the given function.

As a special case, when f is 0 setfenv changes the environment of the running thread. In this case, setfenv returns no values.

setmetatable (table, metatable)

Sets the metatable for the given table. (You cannot change the metatable of other types from Lua, only from C.) If metatable is nil, removes the metatable of the given table. If the original metatable has a "__metatable" field, raises an error.

This function returns table.

tonumber (e [, base])

Tries to convert its argument to a number. If the argument is already a number or a string convertible to a number, then tonumber returns this number; otherwise, it returns nil.

An optional argument specifies the base to interpret the numeral. The base may be any integer between 2 and 36, inclusive. In bases above 10, the letter 'A' (in either upper or lower case) represents 10, 'B' represents 11, and so forth, with 'Z' representing 35. In base 10 (the default), the number can have a decimal part, as well as an optional exponent part (see §2.1). In other bases, only unsigned integers are accepted.

tostring (e)

Receives an argument of any type and converts it to a string in a reasonable format. For complete control of how numbers are converted, use string.format.

If the metatable of e has a "__tostring" field, then tostring calls the corresponding value with e as argument, and uses the result of the call as its result.

type (v)

Returns the type of its only argument, coded as a string. The possible results of this function are "nil" (a string, not the value nil), "number", "string", "boolean", "table", "function", "thread", and "userdata".

unpack (list [, i [, j]])

Returns the elements from the given table. This function is equivalent to 
     return list[i], list[i+1], ···, list[j]

except that the above code can be written only for a fixed number of elements. By default, i is 1 and j is the length of the list, as defined by the length operator (see §2.5.5).

_VERSION

A global variable (not a function) that holds a string containing the current interpreter version. The current contents of this variable is "Lua 5.1".

xpcall (f, err)

This function is similar to pcall, except that you can set a new error handler.

xpcall calls function f in protected mode, using err as the error handler. Any error inside f is not propagated; instead, xpcall catches the error, calls the err function with the original error object, and returns a status code. Its first result is the status code (a boolean), which is true if the call succeeds without errors. In this case, xpcall also returns all results from the call, after this first result. In case of any error, xpcall returns false plus the result from err.

5.2 - Coroutine Manipulation

The operations related to coroutines comprise a sub-library of the basic library and come inside the table coroutine. See §2.11 for a general description of coroutines.

coroutine.create (f)

Creates a new coroutine, with body f. f must be a Lua function. Returns this new coroutine, an object with type "thread".

coroutine.resume (co [, val1, ···])

Starts or continues the execution of coroutine co. The first time you resume a coroutine, it starts running its body. The values val1, ··· are passed as the arguments to the body function. If the coroutine has yielded, resume restarts it; the values val1, ··· are passed as the results from the yield.

If the coroutine runs without any errors, resume returns true plus any values passed to yield (if the coroutine yields) or any values returned by the body function (if the coroutine terminates). If there is any error, resume returns false plus the error message.

coroutine.running ()

Returns the running coroutine, or nil when called by the main thread.

coroutine.status (co)

Returns the status of coroutine co, as a string: "running", if the coroutine is running (that is, it called status); "suspended", if the coroutine is suspended in a call to yield, or if it has not started running yet; "normal" if the coroutine is active but not running (that is, it has resumed another coroutine); and "dead" if the coroutine has finished its body function, or if it has stopped with an error.

coroutine.wrap (f)

Creates a new coroutine, with body f. f must be a Lua function. Returns a function that resumes the coroutine each time it is called. Any arguments passed to the function behave as the extra arguments to resume. Returns the same values returned by resume, except the first boolean. In case of error, propagates the error.

coroutine.yield (···)

Suspends the execution of the calling coroutine. The coroutine cannot be running a C function, a metamethod, or an iterator. Any arguments to yield are passed as extra results to resume.

5.3 - Modules

The package library provides basic facilities for loading and building modules in Lua. It exports two of its functions directly in the global environment: require and module. Everything else is exported in a table package.

module (name [, ···])

Creates a module. If there is a table in package.loaded[name], this table is the module. Otherwise, if there is a global table t with the given name, this table is the module. Otherwise creates a new table t and sets it as the value of the global name and the value of package.loaded[name]. This function also initializes t._NAME with the given name, t._M with the module (t itself), and t._PACKAGE with the package name (the full module name minus last component; see below). Finally, module sets t as the new environment of the current function and the new value of package.loaded[name], so that require returns t.

If name is a compound name (that is, one with components separated by dots), module creates (or reuses, if they already exist) tables for each component. For instance, if name is a.b.c, then module stores the module table in field c of field b of global a.

This function can receive optional options after the module name, where each option is a function to be applied over the module.

require (modname)

Loads the given module. The function starts by looking into the package.loaded table to determine whether modname is already loaded. If it is, then require returns the value stored at package.loaded[modname]. Otherwise, it tries to find a loader for the module.

To find a loader, require is guided by the package.loaders array. By changing this array, we can change how require looks for a module. The following explanation is based on the default configuration for package.loaders.

First require queries package.preload[modname]. If it has a value, this value (which should be a function) is the loader. Otherwise require searches for a Lua loader using the path stored in package.path. If that also fails, it searches for a C loader using the path stored in package.cpath. If that also fails, it tries an all-in-one loader (see package.loaders).

Once a loader is found, require calls the loader with a single argument, modname. If the loader returns any value, require assigns the returned value to package.loaded[modname]. If the loader returns no value and has not assigned any value to package.loaded[modname], then require assigns true to this entry. In any case, require returns the final value of package.loaded[modname].

If there is any error loading or running the module, or if it cannot find any loader for the module, then require signals an error.

package.cpath

The path used by require to search for a C loader.

Lua initializes the C path package.cpath in the same way it initializes the Lua path package.path, using the environment variable LUA_CPATH or a default path defined in luaconf.h.

package.loaded

A table used by require to control which modules are already loaded. When you require a module modname and package.loaded[modname] is not false, require simply returns the value stored there.

package.loaders

A table used by require to control how to load modules.

Each entry in this table is a searcher function. When looking for a module, require calls each of these searchers in ascending order, with the module name (the argument given to require) as its sole parameter. The function can return another function (the module loader) or a string explaining why it did not find that module (or nil if it has nothing to say). Lua initializes this table with four functions.

The first searcher simply looks for a loader in the package.preload table.

The second searcher looks for a loader as a Lua library, using the path stored at package.path. A path is a sequence of templates separated by semicolons. For each template, the searcher will change each interrogation mark in the template by filename, which is the module name with each dot replaced by a "directory separator" (such as "/" in Unix); then it will try to open the resulting file name. So, for instance, if the Lua path is the string 

     "./?.lua;./?.lc;/usr/local/?/init.lua"

the search for a Lua file for module foo will try to open the files ./foo.lua, ./foo.lc, and /usr/local/foo/init.lua, in that order.

The third searcher looks for a loader as a C library, using the path given by the variable package.cpath. For instance, if the C path is the string 

     "./?.so;./?.dll;/usr/local/?/init.so"

the searcher for module foo will try to open the files ./foo.so, ./foo.dll, and /usr/local/foo/init.so, in that order. Once it finds a C library, this searcher first uses a dynamic link facility to link the application with the library. Then it tries to find a C function inside the library to be used as the loader. The name of this C function is the string "luaopen_" concatenated with a copy of the module name where each dot is replaced by an underscore. Moreover, if the module name has a hyphen, its prefix up to (and including) the first hyphen is removed. For instance, if the module name is a.v1-b.c, the function name will be luaopen_b_c.

The fourth searcher tries an all-in-one loader. It searches the C path for a library for the root name of the given module. For instance, when requiring a.b.c, it will search for a C library for a. If found, it looks into it for an open function for the submodule; in our example, that would be luaopen_a_b_c. With this facility, a package can pack several C submodules into one single library, with each submodule keeping its original open function.

package.loadlib (libname, funcname)

Dynamically links the host program with the C library libname. Inside this library, looks for a function funcname and returns this function as a C function. (So, funcname must follow the protocol (see lua_CFunction)).

This is a low-level function. It completely bypasses the package and module system. Unlike require, it does not perform any path searching and does not automatically adds extensions. libname must be the complete file name of the C library, including if necessary a path and extension. funcname must be the exact name exported by the C library (which may depend on the C compiler and linker used).

This function is not supported by ANSI C. As such, it is only available on some platforms (Windows, Linux, Mac OS X, Solaris, BSD, plus other Unix systems that support the dlfcn standard).

package.path

The path used by require to search for a Lua loader.

At start-up, Lua initializes this variable with the value of the environment variable LUA_PATH or with a default path defined in luaconf.h, if the environment variable is not defined. Any ";;" in the value of the environment variable is replaced by the default path.

package.preload

A table to store loaders for specific modules (see require).

package.seeall (module)

Sets a metatable for module with its __index field referring to the global environment, so that this module inherits values from the global environment. To be used as an option to function module.

5.4 - String Manipulation

This library provides generic functions for string manipulation, such as finding and extracting substrings, and pattern matching. When indexing a string in Lua, the first character is at position 1 (not at 0, as in C). Indices are allowed to be negative and are interpreted as indexing backwards, from the end of the string. Thus, the last character is at position -1, and so on.

The string library provides all its functions inside the table string. It also sets a metatable for strings where the __index field points to the string table. Therefore, you can use the string functions in object-oriented style. For instance, string.byte(s, i) can be written as s:byte(i).

The string library assumes one-byte character encodings.

string.byte (s [, i [, j]])

Returns the internal numerical codes of the characters s[i], s[i+1], ···, s[j]. The default value for i is 1; the default value for j is i.

Note that numerical codes are not necessarily portable across platforms.

string.char (···)

Receives zero or more integers. Returns a string with length equal to the number of arguments, in which each character has the internal numerical code equal to its corresponding argument.

Note that numerical codes are not necessarily portable across platforms.

string.dump (function)

Returns a string containing a binary representation of the given function, so that a later loadstring on this string returns a copy of the function. function must be a Lua function without upvalues.

string.find (s, pattern [, init [, plain]])

Looks for the first match of pattern in the string s. If it finds a match, then find returns the indices of s where this occurrence starts and ends; otherwise, it returns nil. A third, optional numerical argument init specifies where to start the search; its default value is 1 and can be negative. A value of true as a fourth, optional argument plain turns off the pattern matching facilities, so the function does a plain "find substring" operation, with no characters in pattern being considered "magic". Note that if plain is given, then init must be given as well.

If the pattern has captures, then in a successful match the captured values are also returned, after the two indices.

string.format (formatstring, ···)

Returns a formatted version of its variable number of arguments following the description given in its first argument (which must be a string). The format string follows the same rules as the printf family of standard C functions. The only differences are that the options/modifiers *, l, L, n, p, and h are not supported and that there is an extra option, q. The q option formats a string in a form suitable to be safely read back by the Lua interpreter: the string is written between double quotes, and all double quotes, newlines, embedded zeros, and backslashes in the string are correctly escaped when written. For instance, the call 
     string.format('%q', 'a string with "quotes" and \n new line')

will produce the string: 

     "a string with \"quotes\" and \
      new line"

The options c, d, E, e, f, g, G, i, o, u, X, and x all expect a number as argument, whereas q and s expect a string.

This function does not accept string values containing embedded zeros, except as arguments to the q option.

string.gmatch (s, pattern)

Returns an iterator function that, each time it is called, returns the next captures from pattern over string s. If pattern specifies no captures, then the whole match is produced in each call.

As an example, the following loop 

     s = "hello world from Lua"
     for w in string.gmatch(s, "%a+") do
       print(w)
     end

will iterate over all the words from string s, printing one per line. The next example collects all pairs key=value from the given string into a table: 

     t = {}
     s = "from=world, to=Lua"
     for k, v in string.gmatch(s, "(%w+)=(%w+)") do
       t[k] = v
     end

For this function, a '^' at the start of a pattern does not work as an anchor, as this would prevent the iteration.

string.gsub (s, pattern, repl [, n])

Returns a copy of s in which all (or the first n, if given) occurrences of the pattern have been replaced by a replacement string specified by repl, which can be a string, a table, or a function. gsub also returns, as its second value, the total number of matches that occurred.

If repl is a string, then its value is used for replacement. The character % works as an escape character: any sequence in repl of the form %n, with n between 1 and 9, stands for the value of the n-th captured substring (see below). The sequence %0 stands for the whole match. The sequence %% stands for a single %.

If repl is a table, then the table is queried for every match, using the first capture as the key; if the pattern specifies no captures, then the whole match is used as the key.

If repl is a function, then this function is called every time a match occurs, with all captured substrings passed as arguments, in order; if the pattern specifies no captures, then the whole match is passed as a sole argument.

If the value returned by the table query or by the function call is a string or a number, then it is used as the replacement string; otherwise, if it is false or nil, then there is no replacement (that is, the original match is kept in the string).

Here are some examples: 

     x = string.gsub("hello world", "(%w+)", "%1 %1")
     --> x="hello hello world world"
     
     x = string.gsub("hello world", "%w+", "%0 %0", 1)
     --> x="hello hello world"
     
     x = string.gsub("hello world from Lua", "(%w+)%s*(%w+)", "%2 %1")
     --> x="world hello Lua from"
     
     x = string.gsub("home = $HOME, user = $USER", "%$(%w+)", os.getenv)
     --> x="home = /home/roberto, user = roberto"
     
     x = string.gsub("4+5 = $return 4+5$", "%$(.-)%$", function (s)
           return loadstring(s)()
         end)
     --> x="4+5 = 9"
     
     local t = {name="lua", version="5.1"}
     x = string.gsub("$name-$version.tar.gz", "%$(%w+)", t)
     --> x="lua-5.1.tar.gz"

string.len (s)

Receives a string and returns its length. The empty string "" has length 0. Embedded zeros are counted, so "a\000bc\000" has length 5.

string.lower (s)

Receives a string and returns a copy of this string with all uppercase letters changed to lowercase. All other characters are left unchanged. The definition of what an uppercase letter is depends on the current locale.

string.match (s, pattern [, init])

Looks for the first match of pattern in the string s. If it finds one, then match returns the captures from the pattern; otherwise it returns nil. If pattern specifies no captures, then the whole match is returned. A third, optional numerical argument init specifies where to start the search; its default value is 1 and can be negative.

string.rep (s, n)

Returns a string that is the concatenation of n copies of the string s.

string.reverse (s)

Returns a string that is the string s reversed.

string.sub (s, i [, j])

Returns the substring of s that starts at i and continues until j; i and j can be negative. If j is absent, then it is assumed to be equal to -1 (which is the same as the string length). In particular, the call string.sub(s,1,j) returns a prefix of s with length j, and string.sub(s, -i) returns a suffix of s with length i.

string.upper (s)

Receives a string and returns a copy of this string with all lowercase letters changed to uppercase. All other characters are left unchanged. The definition of what a lowercase letter is depends on the current locale.

5.4.1 - Patterns

Character Class:

A character class is used to represent a set of characters. The following combinations are allowed in describing a character class:

  • x: (where x is not one of the magic characters ^$()%.[]*+-?) represents the character x itself.
  • .: (a dot) represents all characters.
  • %a: represents all letters.
  • %c: represents all control characters.
  • %d: represents all digits.
  • %l: represents all lowercase letters.
  • %p: represents all punctuation characters.
  • %s: represents all space characters.
  • %u: represents all uppercase letters.
  • %w: represents all alphanumeric characters.
  • %x: represents all hexadecimal digits.
  • %z: represents the character with representation 0.
  • %x: (where x is any non-alphanumeric character) represents the character x. This is the standard way to escape the magic characters. Any punctuation character (even the non magic) can be preceded by a '%' when used to represent itself in a pattern.
  • [set]: represents the class which is the union of all characters in set. A range of characters can be specified by separating the end characters of the range with a '-'. All classes %x described above can also be used as components in set. All other characters in set represent themselves. For example, [%w_] (or [_%w]) represents all alphanumeric characters plus the underscore, [0-7] represents the octal digits, and [0-7%l%-] represents the octal digits plus the lowercase letters plus the '-' character.

    The interaction between ranges and classes is not defined. Therefore, patterns like [%a-z] or [a-%%] have no meaning.

  • [^set]: represents the complement of set, where set is interpreted as above.

For all classes represented by single letters (%a, %c, etc.), the corresponding uppercase letter represents the complement of the class. For instance, %S represents all non-space characters.

The definitions of letter, space, and other character groups depend on the current locale. In particular, the class [a-z] may not be equivalent to %l.

Pattern Item:

A pattern item can be

  • a single character class, which matches any single character in the class;
  • a single character class followed by '*', which matches 0 or more repetitions of characters in the class. These repetition items will always match the longest possible sequence;
  • a single character class followed by '+', which matches 1 or more repetitions of characters in the class. These repetition items will always match the longest possible sequence;
  • a single character class followed by '-', which also matches 0 or more repetitions of characters in the class. Unlike '*', these repetition items will always match the shortest possible sequence;
  • a single character class followed by '?', which matches 0 or 1 occurrence of a character in the class;
  • %n, for n between 1 and 9; such item matches a substring equal to the n-th captured string (see below);
  • %bxy, where x and y are two distinct characters; such item matches strings that start with x, end with y, and where the x and y are balanced. This means that, if one reads the string from left to right, counting +1 for an x and -1 for a y, the ending y is the first y where the count reaches 0. For instance, the item %b() matches expressions with balanced parentheses.

Pattern:

A pattern is a sequence of pattern items. A '^' at the beginning of a pattern anchors the match at the beginning of the subject string. A '$' at the end of a pattern anchors the match at the end of the subject string. At other positions, '^' and '$' have no special meaning and represent themselves.

Captures:

A pattern can contain sub-patterns enclosed in parentheses; they describe captures. When a match succeeds, the substrings of the subject string that match captures are stored (captured) for future use. Captures are numbered according to their left parentheses. For instance, in the pattern "(a*(.)%w(%s*))", the part of the string matching "a*(.)%w(%s*)" is stored as the first capture (and therefore has number 1); the character matching "." is captured with number 2, and the part matching "%s*" has number 3.

As a special case, the empty capture () captures the current string position (a number). For instance, if we apply the pattern "()aa()" on the string "flaaap", there will be two captures: 3 and 5.

A pattern cannot contain embedded zeros. Use %z instead.

5.5 - Table Manipulation

This library provides generic functions for table manipulation. It provides all its functions inside the table table.

Most functions in the table library assume that the table represents an array or a list. For these functions, when we talk about the "length" of a table we mean the result of the length operator.

table.concat (table [, sep [, i [, j]]])

Given an array where all elements are strings or numbers, returns table[i]..sep..table[i+1] ··· sep..table[j]. The default value for sep is the empty string, the default for i is 1, and the default for j is the length of the table. If i is greater than j, returns the empty string.

table.insert (table, [pos,] value)

Inserts element value at position pos in table, shifting up other elements to open space, if necessary. The default value for pos is n+1, where n is the length of the table (see §2.5.5), so that a call table.insert(t,x) inserts x at the end of table t.

table.maxn (table)

Returns the largest positive numerical index of the given table, or zero if the table has no positive numerical indices. (To do its job this function does a linear traversal of the whole table.)

table.remove (table [, pos])

Removes from table the element at position pos, shifting down other elements to close the space, if necessary. Returns the value of the removed element. The default value for pos is n, where n is the length of the table, so that a call table.remove(t) removes the last element of table t.

table.sort (table [, comp])

Sorts table elements in a given order, in-place, from table[1] to table[n], where n is the length of the table. If comp is given, then it must be a function that receives two table elements, and returns true when the first is less than the second (so that not comp(a[i+1],a[i]) will be true after the sort). If comp is not given, then the standard Lua operator < is used instead.

The sort algorithm is not stable; that is, elements considered equal by the given order may have their relative positions changed by the sort.

5.6 - Mathematical Functions

This library is an interface to the standard C math library. It provides all its functions inside the table math.

math.abs (x)

Returns the absolute value of x.

math.acos (x)

Returns the arc cosine of x (in radians).

math.asin (x)

Returns the arc sine of x (in radians).

math.atan (x)

Returns the arc tangent of x (in radians).

math.atan2 (y, x)

Returns the arc tangent of y/x (in radians), but uses the signs of both parameters to find the quadrant of the result. (It also handles correctly the case of x being zero.)

math.ceil (x)

Returns the smallest integer larger than or equal to x.

math.cos (x)

Returns the cosine of x (assumed to be in radians).

math.cosh (x)

Returns the hyperbolic cosine of x.

math.deg (x)

Returns the angle x (given in radians) in degrees.

math.exp (x)

Returns the value ex.

math.floor (x)

Returns the largest integer smaller than or equal to x.

math.fmod (x, y)

Returns the remainder of the division of x by y that rounds the quotient towards zero.

math.frexp (x)

Returns m and e such that x = m2e, e is an integer and the absolute value of m is in the range [0.5, 1) (or zero when x is zero).

math.huge

The value HUGE_VAL, a value larger than or equal to any other numerical value.

math.ldexp (m, e)

Returns m2e (e should be an integer).

math.log (x)

Returns the natural logarithm of x.

math.log10 (x)

Returns the base-10 logarithm of x.

math.max (x, ···)

Returns the maximum value among its arguments.

math.min (x, ···)

Returns the minimum value among its arguments.

math.modf (x)

Returns two numbers, the integral part of x and the fractional part of x.

math.pi

The value of pi.

math.pow (x, y)

Returns xy. (You can also use the expression x^y to compute this value.)

math.rad (x)

Returns the angle x (given in degrees) in radians.

math.random ([m [, n]])

This function is an interface to the simple pseudo-random generator function rand provided by ANSI C. (No guarantees can be given for its statistical properties.)

When called without arguments, returns a uniform pseudo-random real number in the range [0,1). When called with an integer number m, math.random returns a uniform pseudo-random integer in the range [1, m]. When called with two integer numbers m and n, math.random returns a uniform pseudo-random integer in the range [m, n].

math.randomseed (x)

Sets x as the "seed" for the pseudo-random generator: equal seeds produce equal sequences of numbers.

math.sin (x)

Returns the sine of x (assumed to be in radians).

math.sinh (x)

Returns the hyperbolic sine of x.

math.sqrt (x)

Returns the square root of x. (You can also use the expression x^0.5 to compute this value.)

math.tan (x)

Returns the tangent of x (assumed to be in radians).

math.tanh (x)

Returns the hyperbolic tangent of x.

5.7 - Input and Output Facilities

The I/O library provides two different styles for file manipulation. The first one uses implicit file descriptors; that is, there are operations to set a default input file and a default output file, and all input/output operations are over these default files. The second style uses explicit file descriptors.

When using implicit file descriptors, all operations are supplied by table io. When using explicit file descriptors, the operation io.open returns a file descriptor and then all operations are supplied as methods of the file descriptor.

The table io also provides three predefined file descriptors with their usual meanings from C: io.stdin, io.stdout, and io.stderr. The I/O library never closes these files.

Unless otherwise stated, all I/O functions return nil on failure (plus an error message as a second result and a system-dependent error code as a third result) and some value different from nil on success.

io.close ([file])

Equivalent to file:close(). Without a file, closes the default output file.

io.flush ()

Equivalent to file:flush over the default output file.

io.input ([file])

When called with a file name, it opens the named file (in text mode), and sets its handle as the default input file. When called with a file handle, it simply sets this file handle as the default input file. When called without parameters, it returns the current default input file.

In case of errors this function raises the error, instead of returning an error code.

io.lines ([filename])

Opens the given file name in read mode and returns an iterator function that, each time it is called, returns a new line from the file. Therefore, the construction 

     for line in io.lines(filename) do body end

will iterate over all lines of the file. When the iterator function detects the end of file, it returns nil (to finish the loop) and automatically closes the file.

The call io.lines() (with no file name) is equivalent to io.input():lines(); that is, it iterates over the lines of the default input file. In this case it does not close the file when the loop ends.

io.open (filename [, mode])

This function opens a file, in the mode specified in the string mode. It returns a new file handle, or, in case of errors, nil plus an error message.

The mode string can be any of the following:

  • "r": read mode (the default);
  • "w": write mode;
  • "a": append mode;
  • "r+": update mode, all previous data is preserved;
  • "w+": update mode, all previous data is erased;
  • "a+": append update mode, previous data is preserved, writing is only allowed at the end of file.

The mode string can also have a 'b' at the end, which is needed in some systems to open the file in binary mode. This string is exactly what is used in the standard C function fopen.

io.output ([file])

Similar to io.input, but operates over the default output file.

io.popen (prog [, mode])

Starts program prog in a separated process and returns a file handle that you can use to read data from this program (if mode is "r", the default) or to write data to this program (if mode is "w").

This function is system dependent and is not available on all platforms.

io.read (···)

Equivalent to io.input():read.

io.tmpfile ()

Returns a handle for a temporary file. This file is opened in update mode and it is automatically removed when the program ends.

io.type (obj)

Checks whether obj is a valid file handle. Returns the string "file" if obj is an open file handle, "closed file" if obj is a closed file handle, or nil if obj is not a file handle.

io.write (···)

Equivalent to io.output():write.

file:close ()

Closes file. Note that files are automatically closed when their handles are garbage collected, but that takes an unpredictable amount of time to happen.

file:flush ()

Saves any written data to file.

file:lines ()

Returns an iterator function that, each time it is called, returns a new line from the file. Therefore, the construction 

     for line in file:lines() do body end

will iterate over all lines of the file. (Unlike io.lines, this function does not close the file when the loop ends.)

file:read (···)

Reads the file file, according to the given formats, which specify what to read. For each format, the function returns a string (or a number) with the characters read, or nil if it cannot read data with the specified format. When called without formats, it uses a default format that reads the entire next line (see below).

The available formats are

  • "*n": reads a number; this is the only format that returns a number instead of a string.
  • "*a": reads the whole file, starting at the current position. On end of file, it returns the empty string.
  • "*l": reads the next line (skipping the end of line), returning nil on end of file. This is the default format.
  • number: reads a string with up to this number of characters, returning nil on end of file. If number is zero, it reads nothing and returns an empty string, or nil on end of file.

file:seek ([whence] [, offset])

Sets and gets the file position, measured from the beginning of the file, to the position given by offset plus a base specified by the string whence, as follows:

  • "set": base is position 0 (beginning of the file);
  • "cur": base is current position;
  • "end": base is end of file;

In case of success, function seek returns the final file position, measured in bytes from the beginning of the file. If this function fails, it returns nil, plus a string describing the error.

The default value for whence is "cur", and for offset is 0. Therefore, the call file:seek() returns the current file position, without changing it; the call file:seek("set") sets the position to the beginning of the file (and returns 0); and the call file:seek("end") sets the position to the end of the file, and returns its size.

file:setvbuf (mode [, size])

Sets the buffering mode for an output file. There are three available modes:

  • "no": no buffering; the result of any output operation appears immediately.
  • "full": full buffering; output operation is performed only when the buffer is full (or when you explicitly flush the file (see io.flush)).
  • "line": line buffering; output is buffered until a newline is output or there is any input from some special files (such as a terminal device).

For the last two cases, size specifies the size of the buffer, in bytes. The default is an appropriate size.

file:write (···)

Writes the value of each of its arguments to the file. The arguments must be strings or numbers. To write other values, use tostring or string.format before write.

5.8 - Operating System Facilities

This library is implemented through table os.

os.clock ()

Returns an approximation of the amount in seconds of CPU time used by the program.

os.date ([format [, time]])

Returns a string or a table containing date and time, formatted according to the given string format.

If the time argument is present, this is the time to be formatted (see the os.time function for a description of this value). Otherwise, date formats the current time.

If format starts with '!', then the date is formatted in Coordinated Universal Time. After this optional character, if format is the string "*t", then date returns a table with the following fields: year (four digits), month (1--12), day (1--31), hour (0--23), min (0--59), sec (0--61), wday (weekday, Sunday is 1), yday (day of the year), and isdst (daylight saving flag, a boolean).

If format is not "*t", then date returns the date as a string, formatted according to the same rules as the C function strftime.

When called without arguments, date returns a reasonable date and time representation that depends on the host system and on the current locale (that is, os.date() is equivalent to os.date("%c")).

os.difftime (t2, t1)

Returns the number of seconds from time t1 to time t2. In POSIX, Windows, and some other systems, this value is exactly t2-t1.

os.execute ([command])

This function is equivalent to the C function system. It passes command to be executed by an operating system shell. It returns a status code, which is system-dependent. If command is absent, then it returns nonzero if a shell is available and zero otherwise.

os.exit ([code])

Calls the C function exit, with an optional code, to terminate the host program. The default value for code is the success code.

os.getenv (varname)

Returns the value of the process environment variable varname, or nil if the variable is not defined.

os.remove (filename)

Deletes the file or directory with the given name. Directories must be empty to be removed. If this function fails, it returns nil, plus a string describing the error.

os.rename (oldname, newname)

Renames file or directory named oldname to newname. If this function fails, it returns nil, plus a string describing the error.

os.setlocale (locale [, category])

Sets the current locale of the program. locale is a string specifying a locale; category is an optional string describing which category to change: "all", "collate", "ctype", "monetary", "numeric", or "time"; the default category is "all". The function returns the name of the new locale, or nil if the request cannot be honored.

If locale is the empty string, the current locale is set to an implementation-defined native locale. If locale is the string "C", the current locale is set to the standard C locale.

When called with nil as the first argument, this function only returns the name of the current locale for the given category.

os.time ([table])

Returns the current time when called without arguments, or a time representing the date and time specified by the given table. This table must have fields year, month, and day, and may have fields hour, min, sec, and isdst (for a description of these fields, see the os.date function).

The returned value is a number, whose meaning depends on your system. In POSIX, Windows, and some other systems, this number counts the number of seconds since some given start time (the "epoch"). In other systems, the meaning is not specified, and the number returned by time can be used only as an argument to date and difftime.

os.tmpname ()

Returns a string with a file name that can be used for a temporary file. The file must be explicitly opened before its use and explicitly removed when no longer needed.

On some systems (POSIX), this function also creates a file with that name, to avoid security risks. (Someone else might create the file with wrong permissions in the time between getting the name and creating the file.) You still have to open the file to use it and to remove it (even if you do not use it).

When possible, you may prefer to use io.tmpfile, which automatically removes the file when the program ends.

5.9 - The Debug Library

This library provides the functionality of the debug interface to Lua programs. You should exert care when using this library. The functions provided here should be used exclusively for debugging and similar tasks, such as profiling. Please resist the temptation to use them as a usual programming tool: they can be very slow. Moreover, several of these functions violate some assumptions about Lua code (e.g., that variables local to a function cannot be accessed from outside or that userdata metatables cannot be changed by Lua code) and therefore can compromise otherwise secure code.

All functions in this library are provided inside the debug table. All functions that operate over a thread have an optional first argument which is the thread to operate over. The default is always the current thread.

debug.debug ()

Enters an interactive mode with the user, running each string that the user enters. Using simple commands and other debug facilities, the user can inspect global and local variables, change their values, evaluate expressions, and so on. A line containing only the word cont finishes this function, so that the caller continues its execution.

Note that commands for debug.debug are not lexically nested within any function, and so have no direct access to local variables.

debug.getfenv (o)

Returns the environment of object o.

debug.gethook ([thread])

Returns the current hook settings of the thread, as three values: the current hook function, the current hook mask, and the current hook count (as set by the debug.sethook function).

debug.getinfo ([thread,] function [, what])

Returns a table with information about a function. You can give the function directly, or you can give a number as the value of function, which means the function running at level function of the call stack of the given thread: level 0 is the current function (getinfo itself); level 1 is the function that called getinfo; and so on. If function is a number larger than the number of active functions, then getinfo returns nil.

The returned table can contain all the fields returned by lua_getinfo, with the string what describing which fields to fill in. The default for what is to get all information available, except the table of valid lines. If present, the option 'f' adds a field named func with the function itself. If present, the option 'L' adds a field named activelines with the table of valid lines.

For instance, the expression debug.getinfo(1,"n").name returns a table with a name for the current function, if a reasonable name can be found, and the expression debug.getinfo(print) returns a table with all available information about the print function.

debug.getlocal ([thread,] level, local)

This function returns the name and the value of the local variable with index local of the function at level level of the stack. (The first parameter or local variable has index 1, and so on, until the last active local variable.) The function returns nil if there is no local variable with the given index, and raises an error when called with a level out of range. (You can call debug.getinfo to check whether the level is valid.)

Variable names starting with '(' (open parentheses) represent internal variables (loop control variables, temporaries, and C function locals).

debug.getmetatable (object)

Returns the metatable of the given object or nil if it does not have a metatable.

debug.getregistry ()

Returns the registry table (see §3.5).

debug.getupvalue (func, up)

This function returns the name and the value of the upvalue with index up of the function func. The function returns nil if there is no upvalue with the given index.

debug.setfenv (object, table)

Sets the environment of the given object to the given table. Returns object.

debug.sethook ([thread,] hook, mask [, count])

Sets the given function as a hook. The string mask and the number count describe when the hook will be called. The string mask may have the following characters, with the given meaning:

  • "c": the hook is called every time Lua calls a function;
  • "r": the hook is called every time Lua returns from a function;
  • "l": the hook is called every time Lua enters a new line of code.

With a count different from zero, the hook is called after every count instructions.

When called without arguments, debug.sethook turns off the hook.

When the hook is called, its first parameter is a string describing the event that has triggered its call: "call", "return" (or "tail return", when simulating a return from a tail call), "line", and "count". For line events, the hook also gets the new line number as its second parameter. Inside a hook, you can call getinfo with level 2 to get more information about the running function (level 0 is the getinfo function, and level 1 is the hook function), unless the event is "tail return". In this case, Lua is only simulating the return, and a call to getinfo will return invalid data.

debug.setlocal ([thread,] level, local, value)

This function assigns the value value to the local variable with index local of the function at level level of the stack. The function returns nil if there is no local variable with the given index, and raises an error when called with a level out of range. (You can call getinfo to check whether the level is valid.) Otherwise, it returns the name of the local variable.

debug.setmetatable (object, table)

Sets the metatable for the given object to the given table (which can be nil).

debug.setupvalue (func, up, value)

This function assigns the value value to the upvalue with index up of the function func. The function returns nil if there is no upvalue with the given index. Otherwise, it returns the name of the upvalue.

debug.traceback ([thread,] [message] [, level])

Returns a string with a traceback of the call stack. An optional message string is appended at the beginning of the traceback. An optional level number tells at which level to start the traceback (default is 1, the function calling traceback).

6 - Lua Stand-alone

Although Lua has been designed as an extension language, to be embedded in a host C program, it is also frequently used as a stand-alone language. An interpreter for Lua as a stand-alone language, called simply lua, is provided with the standard distribution. The stand-alone interpreter includes all standard libraries, including the debug library. Its usage is: 

     lua [options] [script [args]]

The options are:

  • -e stat: executes string stat;
  • -l mod: "requires" mod;
  • -i: enters interactive mode after running script;
  • -v: prints version information;
  • --: stops handling options;
  • -: executes stdin as a file and stops handling options.

After handling its options, lua runs the given script, passing to it the given args as string arguments. When called without arguments, lua behaves as lua -v -i when the standard input (stdin) is a terminal, and as lua - otherwise.

Before running any argument, the interpreter checks for an environment variable LUA_INIT. If its format is @filename, then lua executes the file. Otherwise, lua executes the string itself.

All options are handled in order, except -i. For instance, an invocation like 

     $ lua -e'a=1' -e 'print(a)' script.lua

will first set a to 1, then print the value of a (which is '1'), and finally run the file script.lua with no arguments. (Here $ is the shell prompt. Your prompt may be different.)

Before starting to run the script, lua collects all arguments in the command line in a global table called arg. The script name is stored at index 0, the first argument after the script name goes to index 1, and so on. Any arguments before the script name (that is, the interpreter name plus the options) go to negative indices. For instance, in the call 

     $ lua -la b.lua t1 t2

the interpreter first runs the file a.lua, then creates a table 

     arg = { [-2] = "lua", [-1] = "-la",
             [0] = "b.lua",
             [1] = "t1", [2] = "t2" }

and finally runs the file b.lua. The script is called with arg[1], arg[2], ··· as arguments; it can also access these arguments with the vararg expression '...'.

In interactive mode, if you write an incomplete statement, the interpreter waits for its completion by issuing a different prompt.

If the global variable _PROMPT contains a string, then its value is used as the prompt. Similarly, if the global variable _PROMPT2 contains a string, its value is used as the secondary prompt (issued during incomplete statements). Therefore, both prompts can be changed directly on the command line or in any Lua programs by assigning to _PROMPT. See the next example: 

     $ lua -e"_PROMPT='myprompt> '" -i

(The outer pair of quotes is for the shell, the inner pair is for Lua.) Note the use of -i to enter interactive mode; otherwise, the program would just end silently right after the assignment to _PROMPT.

To allow the use of Lua as a script interpreter in Unix systems, the stand-alone interpreter skips the first line of a chunk if it starts with #. Therefore, Lua scripts can be made into executable programs by using chmod +x and the #! form, as in 

     #!/usr/local/bin/lua

(Of course, the location of the Lua interpreter may be different in your machine. If lua is in your PATH, then 

     #!/usr/bin/env lua

is a more portable solution.)

7 - Incompatibilities with the Previous Version

Here we list the incompatibilities that you may find when moving a program from Lua 5.0 to Lua 5.1. You can avoid most of the incompatibilities compiling Lua with appropriate options (see file luaconf.h). However, all these compatibility options will be removed in the next version of Lua.

7.1 - Changes in the Language

  • The vararg system changed from the pseudo-argument arg with a table with the extra arguments to the vararg expression. (See compile-time option LUA_COMPAT_VARARG in luaconf.h.)
  • There was a subtle change in the scope of the implicit variables of the for statement and for the repeat statement.
  • The long string/long comment syntax ([[string]]) does not allow nesting. You can use the new syntax ([=[string]=]) in these cases. (See compile-time option LUA_COMPAT_LSTR in luaconf.h.)

7.2 - Changes in the Libraries

  • Function string.gfind was renamed string.gmatch. (See compile-time option LUA_COMPAT_GFIND in luaconf.h.)
  • When string.gsub is called with a function as its third argument, whenever this function returns nil or false the replacement string is the whole match, instead of the empty string.
  • Function table.setn was deprecated. Function table.getn corresponds to the new length operator (#); use the operator instead of the function. (See compile-time option LUA_COMPAT_GETN in luaconf.h.)
  • Function loadlib was renamed package.loadlib. (See compile-time option LUA_COMPAT_LOADLIB in luaconf.h.)
  • Function math.mod was renamed math.fmod. (See compile-time option LUA_COMPAT_MOD in luaconf.h.)
  • Functions table.foreach and table.foreachi are deprecated. You can use a for loop with pairs or ipairs instead.
  • There were substantial changes in function require due to the new module system. However, the new behavior is mostly compatible with the old, but require gets the path from package.path instead of from LUA_PATH.
  • Function collectgarbage has different arguments. Function gcinfo is deprecated; use collectgarbage("count") instead.

7.3 - Changes in the API

  • The luaopen_* functions (to open libraries) cannot be called directly, like a regular C function. They must be called through Lua, like a Lua function.
  • Function lua_open was replaced by lua_newstate to allow the user to set a memory-allocation function. You can use luaL_newstate from the standard library to create a state with a standard allocation function (based on realloc).
  • Functions luaL_getn and luaL_setn (from the auxiliary library) are deprecated. Use lua_objlen instead of luaL_getn and nothing instead of luaL_setn.
  • Function luaL_openlib was replaced by luaL_register.
  • Function luaL_checkudata now throws an error when the given value is not a userdata of the expected type. (In Lua 5.0 it returned NULL.)

8 - The Complete Syntax of Lua

Here is the complete syntax of Lua in extended BNF. (It does not describe operator precedences.) 


	chunk ::= {stat [`;´]} [laststat [`;´]]

	block ::= chunk

	stat ::=  varlist `=´ explist | 
		 functioncall | 
		 do block end | 
		 while exp do block end | 
		 repeat block until exp | 
		 if exp then block {elseif exp then block} [else block] end | 
		 for Name `=´ exp `,´ exp [`,´ exp] do block end | 
		 for namelist in explist do block end | 
		 function funcname funcbody | 
		 local function Name funcbody | 
		 local namelist [`=´ explist] 

	laststat ::= return [explist] | break

	funcname ::= Name {`.´ Name} [`:´ Name]

	varlist ::= var {`,´ var}

	var ::=  Name | prefixexp `[´ exp `]´ | prefixexp `.´ Name 

	namelist ::= Name {`,´ Name}

	explist ::= {exp `,´} exp

	exp ::=  nil | false | true | Number | String | `...´ | function | 
		 prefixexp | tableconstructor | exp binop exp | unop exp 

	prefixexp ::= var | functioncall | `(´ exp `)´

	functioncall ::=  prefixexp args | prefixexp `:´ Name args 

	args ::=  `(´ [explist] `)´ | tableconstructor | String 

	function ::= function funcbody

	funcbody ::= `(´ [parlist] `)´ block end

	parlist ::= namelist [`,´ `...´] | `...´

	tableconstructor ::= `{´ [fieldlist] `}´

	fieldlist ::= field {fieldsep field} [fieldsep]

	field ::= `[´ exp `]´ `=´ exp | Name `=´ exp | exp

	fieldsep ::= `,´ | `;´

	binop ::= `+´ | `-´ | `*´ | `/´ | `^´ | `%´ | `..´ | 
		 `<´ | `<=´ | `>´ | `>=´ | `==´ | `~=´ | 
		 and | or

	unop ::= `-´ | not | `#´

Last update: Mon Aug 18 13:25:46 BRT 2008 ================================================ FILE: doc/readme.html ================================================ Lua documentation

Lua Documentation

This is the documentation included in the source distribution of Lua 5.1.4. Lua's official web site contains updated documentation, especially the reference manual.

Last update: Tue Aug 12 14:46:07 BRT 2008 ================================================ FILE: etc/README ================================================ This directory contains some useful files and code. Unlike the code in ../src, everything here is in the public domain. If any of the makes fail, you're probably not using the same libraries used to build Lua. Set MYLIBS in Makefile accordingly. all.c Full Lua interpreter in a single file. Do "make one" for a demo. lua.hpp Lua header files for C++ using 'extern "C"'. lua.ico A Lua icon for Windows (and web sites: save as favicon.ico). Drawn by hand by Markus Gritsch . lua.pc pkg-config data for Lua luavs.bat Script to build Lua under "Visual Studio .NET Command Prompt". Run it from the toplevel as etc\luavs.bat. min.c A minimal Lua interpreter. Good for learning and for starting your own. Do "make min" for a demo. noparser.c Linking with noparser.o avoids loading the parsing modules in lualib.a. Do "make noparser" for a demo. strict.lua Traps uses of undeclared global variables. Do "make strict" for a demo. ================================================ FILE: etc/all.c ================================================ /* * all.c -- Lua core, libraries and interpreter in a single file */ #define luaall_c #include "lapi.c" #include "lcode.c" #include "ldebug.c" #include "ldo.c" #include "ldump.c" #include "lfunc.c" #include "lgc.c" #include "llex.c" #include "lmem.c" #include "lobject.c" #include "lopcodes.c" #include "lparser.c" #include "lstate.c" #include "lstring.c" #include "ltable.c" #include "ltm.c" #include "lundump.c" #include "lvm.c" #include "lzio.c" #include "lauxlib.c" #include "lbaselib.c" #include "ldblib.c" #include "liolib.c" #include "linit.c" #include "lmathlib.c" #include "loadlib.c" #include "loslib.c" #include "lstrlib.c" #include "ltablib.c" #include "lua.c" ================================================ FILE: etc/embed_jit.c ================================================ /* * min.c -- a minimal Lua interpreter * loads stdin only with minimal error handling. * no interaction, and no standard library, only a "print" function. */ #include #include "lua.h" #include "lauxlib.h" static int print(lua_State *L) { int n=lua_gettop(L); int i; for (i=1; i<=n; i++) { if (i>1) printf("\t"); if (lua_isstring(L,i)) printf("%s",lua_tostring(L,i)); else if (lua_isnil(L,i)) printf("%s","nil"); else if (lua_isboolean(L,i)) printf("%s",lua_toboolean(L,i) ? "true" : "false"); else printf("%s:%p",luaL_typename(L,i),lua_topointer(L,i)); } printf("\n"); return 0; } int main(int argc, char **argv) { lua_State *L=lua_open(); char *file=NULL; lua_register(L,"print",print); if (argc > 1) { file = argv[1]; } if (luaL_dofile(L,file)!=0) fprintf(stderr,"%s\n",lua_tostring(L,-1)); lua_close(L); return 0; } ================================================ FILE: etc/embed_jit.cpp ================================================ /* * min.c -- a minimal Lua interpreter * loads stdin only with minimal error handling. * no interaction, and no standard library, only a "print" function. */ #include extern "C" { #include "lua.h" #include "lauxlib.h" } static int print(lua_State *L) { int n=lua_gettop(L); int i; for (i=1; i<=n; i++) { if (i>1) printf("\t"); if (lua_isstring(L,i)) printf("%s",lua_tostring(L,i)); else if (lua_isnil(L,i)) printf("%s","nil"); else if (lua_isboolean(L,i)) printf("%s",lua_toboolean(L,i) ? "true" : "false"); else printf("%s:%p",luaL_typename(L,i),lua_topointer(L,i)); } printf("\n"); return 0; } int main(int argc, char **argv) { lua_State *L=lua_open(); char *file=NULL; lua_register(L,"print",print); if (argc > 1) { file = argv[1]; } if (luaL_dofile(L,file)!=0) fprintf(stderr,"%s\n",lua_tostring(L,-1)); lua_close(L); return 0; } ================================================ FILE: etc/lua.hpp ================================================ // lua.hpp // Lua header files for C++ // <> not supplied automatically because Lua also compiles as C++ extern "C" { #include "lua.h" #include "lualib.h" #include "lauxlib.h" } ================================================ FILE: etc/lua.pc ================================================ # lua.pc -- pkg-config data for Lua # vars from install Makefile # grep '^V=' ../Makefile V= 5.1 # grep '^R=' ../Makefile R= 5.1.4 # grep '^INSTALL_.*=' ../Makefile | sed 's/INSTALL_TOP/prefix/' prefix= /usr INSTALL_BIN= ${prefix}/bin INSTALL_INC= ${prefix}/include INSTALL_LIB= ${prefix}/lib INSTALL_MAN= ${prefix}/man/man1 INSTALL_LMOD= ${prefix}/share/lua/${V} INSTALL_CMOD= ${prefix}/lib/lua/${V} # canonical vars exec_prefix=${prefix} libdir=${exec_prefix}/lib includedir=${prefix}/include Name: LLVM-Lua Description: An Extensible Extension Language with JIT support from LLVM Version: ${R} Requires: Libs: -L${libdir} -llua -lm `llvm-config --ldflags --libs core jit native bitreader bitwriter ipo` Cflags: -I${includedir} # (end of lua.pc) ================================================ FILE: etc/luavs.bat ================================================ @rem Script to build Lua under "Visual Studio .NET Command Prompt". @rem Do not run from this directory; run it from the toplevel: etc\luavs.bat . @rem It creates lua51.dll, lua51.lib, lua.exe, and luac.exe in src. @rem (contributed by David Manura and Mike Pall) @setlocal @set MYCOMPILE=cl /nologo /MD /O2 /W3 /c /D_CRT_SECURE_NO_DEPRECATE @set MYLINK=link /nologo @set MYMT=mt /nologo cd src %MYCOMPILE% /DLUA_BUILD_AS_DLL l*.c del lua.obj luac.obj %MYLINK% /DLL /out:lua51.dll l*.obj if exist lua51.dll.manifest^ %MYMT% -manifest lua51.dll.manifest -outputresource:lua51.dll;2 %MYCOMPILE% /DLUA_BUILD_AS_DLL lua.c %MYLINK% /out:lua.exe lua.obj lua51.lib if exist lua.exe.manifest^ %MYMT% -manifest lua.exe.manifest -outputresource:lua.exe %MYCOMPILE% l*.c print.c del lua.obj linit.obj lbaselib.obj ldblib.obj liolib.obj lmathlib.obj^ loslib.obj ltablib.obj lstrlib.obj loadlib.obj %MYLINK% /out:luac.exe *.obj if exist luac.exe.manifest^ %MYMT% -manifest luac.exe.manifest -outputresource:luac.exe del *.obj *.manifest cd .. ================================================ FILE: etc/min.c ================================================ /* * min.c -- a minimal Lua interpreter * loads stdin only with minimal error handling. * no interaction, and no standard library, only a "print" function. */ #include #include "lua.h" #include "lauxlib.h" static int print(lua_State *L) { int n=lua_gettop(L); int i; for (i=1; i<=n; i++) { if (i>1) printf("\t"); if (lua_isstring(L,i)) printf("%s",lua_tostring(L,i)); else if (lua_isnil(L,i)) printf("%s","nil"); else if (lua_isboolean(L,i)) printf("%s",lua_toboolean(L,i) ? "true" : "false"); else printf("%s:%p",luaL_typename(L,i),lua_topointer(L,i)); } printf("\n"); return 0; } int main(void) { lua_State *L=lua_open(); lua_register(L,"print",print); if (luaL_dofile(L,NULL)!=0) fprintf(stderr,"%s\n",lua_tostring(L,-1)); lua_close(L); return 0; } ================================================ FILE: etc/noparser.c ================================================ /* * The code below can be used to make a Lua core that does not contain the * parsing modules (lcode, llex, lparser), which represent 35% of the total core. * You'll only be able to load binary files and strings, precompiled with luac. * (Of course, you'll have to build luac with the original parsing modules!) * * To use this module, simply compile it ("make noparser" does that) and list * its object file before the Lua libraries. The linker should then not load * the parsing modules. To try it, do "make luab". * * If you also want to avoid the dump module (ldump.o), define NODUMP. * #define NODUMP */ #define LUA_CORE #include "llex.h" #include "lparser.h" #include "lzio.h" LUAI_FUNC void luaX_init (lua_State *L) { UNUSED(L); } LUAI_FUNC Proto *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, const char *name) { UNUSED(z); UNUSED(buff); UNUSED(name); lua_pushliteral(L,"parser not loaded"); lua_error(L); return NULL; } #ifdef NODUMP #include "lundump.h" LUAI_FUNC int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip) { UNUSED(f); UNUSED(w); UNUSED(data); UNUSED(strip); #if 1 UNUSED(L); return 0; #else lua_pushliteral(L,"dumper not loaded"); lua_error(L); #endif } #endif ================================================ FILE: etc/strict.lua ================================================ -- -- strict.lua -- checks uses of undeclared global variables -- All global variables must be 'declared' through a regular assignment -- (even assigning nil will do) in a main chunk before being used -- anywhere or assigned to inside a function. -- local getinfo, error, rawset, rawget = debug.getinfo, error, rawset, rawget local mt = getmetatable(_G) if mt == nil then mt = {} setmetatable(_G, mt) end mt.__declared = {} local function what () local d = getinfo(3, "S") return d and d.what or "C" end mt.__newindex = function (t, n, v) if not mt.__declared[n] then local w = what() if w ~= "main" and w ~= "C" then error("assign to undeclared variable '"..n.."'", 2) end mt.__declared[n] = true end rawset(t, n, v) end mt.__index = function (t, n) if not mt.__declared[n] and what() ~= "C" then error("variable '"..n.."' is not declared", 2) end return rawget(t, n) end ================================================ FILE: gen_changelog.sh ================================================ #!/bin/sh # svn2cl --authors=AUTHORS --break-before-msg --group-by-day -o ChangeLog ================================================ FILE: llvm-lua/CMakeLists.txt ================================================ # # llvm-lua source # set(NON_LLVM_SRC lua_core.c lua_vm_ops_static.c load_jit_proto.c ) set(LLVM_COMMON_SRC LLVMCompiler.cpp llvm_compiler.cpp load_embedded_bc.cpp load_vm_ops.cpp lua_vm_ops_bc.h ${NON_LLVM_SRC} ) set(NO_JIT_SRC no_jit.c ${NON_LLVM_SRC} ) set(EMB_BCS lua_vm_ops_bc.h liblua_main_bc.h ) set(LLVM_LUA_SRC llvm-lua.cpp lua_interpreter.c ) set(LLVM_LUAC_SRC llvm-luac.cpp lua_compiler.c LLVMDumper.cpp llvm_dumper.cpp load_liblua_main.cpp liblua_main_bc.h ) set(LLVM_LUA_LIB_SRC lua_interpreter.c ${LLVM_COMMON_SRC} ) set(LLVM_LUA_BINS) set(LUA_COMPILER) include_directories(${CMAKE_CURRENT_SOURCE_DIR} ${PROJECT_SOURCE_DIR}/src ${CMAKE_CURRENT_BINARY_DIR}) configure_file( "${CMAKE_CURRENT_SOURCE_DIR}/llvm_lua_config.h.in" "${CMAKE_CURRENT_BINARY_DIR}/llvm_lua_config.h" @ONLY ) add_executable(bin2c bin2c.c) # cflags for LLVM bitcode files. if(CMAKE_BUILD_TYPE STREQUAL "Release") set(BC_CFLAGS "${COMMON_CFLAGS} ${CMAKE_C_FLAGS} ${CMAKE_C_FLAGS_RELEASE}") else() set(BC_CFLAGS "${COMMON_CFLAGS} ${CMAKE_C_FLAGS} ${CMAKE_C_FLAGS_DEBUG}") endif() string(REGEX REPLACE "[ \t\n]+" ";" BC_CFLAGS ${BC_CFLAGS}) # setup cross-compiler flags. if(CROSS_COMPILE) if(NOT CROSS_ISYSTEM STREQUAL "") set(BC_CFLAGS ${BC_CFLAGS} -nostdinc) string(REGEX REPLACE ":([^:]+)" ";-isystem;\\1" ISYSTEM_FLAGS "${CROSS_ISYSTEM}") set(BC_CFLAGS ${BC_CFLAGS} -Wno-gnu-designator -isystem ${ISYSTEM_FLAGS}) endif() set(BC_CFLAGS ${BC_CFLAGS} -ccc-host-triple ${CROSS_TRIPLE}) if(NOT CROSS_CPU STREQUAL "") set(BC_CFLAGS ${BC_CFLAGS} -mcpu=${CROSS_CPU}) endif() # don't need shared library support for cross-compiler set(WANT_SHARED_LIBRARY FALSE) endif(CROSS_COMPILE) # ignore unused parameters in lua_vm_ops* files. set(BC_CFLAGS ${BC_CFLAGS} -Wno-unused-parameter) set(BC_CFLAGS ${BC_CFLAGS} -c -emit-llvm -I../src) # # Embedded LLVM bitcode files # add_llvm_bc_library(lua_vm_ops lua_vm_ops.c) add_custom_command(OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/lua_vm_ops_bc.h COMMAND bin2c -z -c ${CMAKE_CURRENT_BINARY_DIR}/lua_vm_ops.bc ${CMAKE_CURRENT_BINARY_DIR}/lua_vm_ops_bc.h WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR} DEPENDS bin2c ${CMAKE_CURRENT_BINARY_DIR}/lua_vm_ops.bc ) add_llvm_bc_library(liblua_main lua_main.c ${NO_JIT_SRC}) add_custom_command(OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/liblua_main_bc.h COMMAND bin2c -z -c ${CMAKE_CURRENT_BINARY_DIR}/liblua_main.bc ${CMAKE_CURRENT_BINARY_DIR}/liblua_main_bc.h WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR} DEPENDS bin2c ${CMAKE_CURRENT_BINARY_DIR}/liblua_main.bc ) # # Lua library. # set(LLVM_LUA_LIBS) if(WANT_STATIC_LIBRARY) # llvm-lua static library. add_library(llvm-lua_static STATIC ${LLVM_LUA_LIB_SRC}) add_target_properties(llvm-lua_static COMPILE_FLAGS "${COMMON_CFLAGS} ${LLVM_CFLAGS}") add_target_properties(llvm-lua_static LINK_FLAGS "${LD_FLAGS} ${COMMON_LDFLAGS} ${LLVM_LFLAGS}") target_link_libraries(llvm-lua_static ${LIBS} ${LLVM_ALL_LIBS}) # link lua interpreter with static library set(LLVM_LUA_MAIN_LIB llvm-lua_static) set(LLVM_LUA_LIBS ${LLVM_LUA_LIBS} llvm-lua_static) if (WANT_NOJIT_LIBRARIES) # lua static library without LLVM JIT support. add_library(llvm-lua_nojit_static STATIC ${NO_JIT_SRC}) add_target_properties(llvm-lua_nojit_static COMPILE_FLAGS "${COMMON_CFLAGS}") add_target_properties(llvm-lua_nojit_static LINK_FLAGS "${LD_FLAGS} ${COMMON_LDFLAGS}") target_link_libraries(llvm-lua_nojit_static ${LIBS}) set(LLVM_LUA_LIBS ${LLVM_LUA_LIBS} llvm-lua_nojit_static) endif (WANT_NOJIT_LIBRARIES) endif(WANT_STATIC_LIBRARY) if(WANT_SHARED_LIBRARY) # llvm-lua dynamic library add_library(llvm-lua_dynamic SHARED ${LLVM_LUA_LIB_SRC}) add_target_properties(llvm-lua_dynamic COMPILE_FLAGS "${COMMON_CFLAGS} ${LLVM_CFLAGS}") add_target_properties(llvm-lua_dynamic LINK_FLAGS "${LD_FLAGS} ${COMMON_LDFLAGS} ${LLVM_LFLAGS}") target_link_libraries(llvm-lua_dynamic ${LIBS} ${LLVM_ALL_LIBS}) set_target_properties(llvm-lua_dynamic PROPERTIES OUTPUT_NAME llvm-lua) # link lua interpreter with dynamic library set(LLVM_LUA_MAIN_LIB llvm-lua_dynamic) set(LLVM_LUA_LIBS ${LLVM_LUA_LIBS} llvm-lua_dynamic) if (WANT_NOJIT_LIBRARIES) # lua dynamic library without LLVM JIT support. add_library(llvm-lua_nojit_dynamic SHARED ${NO_JIT_SRC}) add_target_properties(llvm-lua_nojit_dynamic COMPILE_FLAGS "${COMMON_CFLAGS}") add_target_properties(llvm-lua_nojit_dynamic LINK_FLAGS "${LD_FLAGS} ${COMMON_LDFLAGS}") target_link_libraries(llvm-lua_nojit_dynamic ${LIBS}) set_target_properties(llvm-lua_nojit_dynamic PROPERTIES OUTPUT_NAME llvm-lua_nojit) set(LLVM_LUA_LIBS ${LLVM_LUA_LIBS} llvm-lua_nojit_dynamic) endif (WANT_NOJIT_LIBRARIES) endif(WANT_SHARED_LIBRARY) # # static library liblua_main.a # if(NOT CROSS_COMPILE) add_library(llvm-lua_main STATIC lua_main.c ${NO_JIT_SRC}) add_target_properties(llvm-lua_main COMPILE_FLAGS "${COMMON_CFLAGS}") add_target_properties(llvm-lua_main LINK_FLAGS "${LD_FLAGS} ${COMMON_LDFLAGS}") set(LLVM_LUA_LIBS ${LLVM_LUA_LIBS} llvm-lua_main) endif(NOT CROSS_COMPILE) # set library version & soversion if(LLVM_LUA_LIBS) set_target_properties(${LLVM_LUA_LIBS} PROPERTIES VERSION ${LLVM_LUA_VERSION} SOVERSION ${LLVM_LUA_SOVERSION} CLEAN_DIRECT_OUTPUT 1 ) endif(LLVM_LUA_LIBS) # set rpath & handle framework if(APPLE) set(INSTALL_NAME_DIR) # Set Dynamic Library and Framework properties if(WANT_FRAMEWORK) set_target_properties(llvm-lua_dynamic PROPERTIES FRAMEWORK TRUE FRAMEWORK_VERSION "${LUA_FRAMEWORK_VERSION_NUMBER}" PUBLIC_HEADER "${LUA_LIB_HEADERS}" RESOURCE "${RESOURCE_FILES}" ) set(INSTALL_NAME_DIR ${CMAKE_FRAMEWORK_INSTALL_NAME_DIR}) # Short Version is the "marketing version". It is the version # the user sees in an information panel. set(MACOSX_FRAMEWORK_SHORT_VERSION_STRING "${LLVM_LUA_VERSION_MAJOR}.${LLVM_LUA_VERSION_MINOR}.${LLVM_LUA_VERSION_PATCH}") # Bundle version is the version the OS looks at. set(MACOSX_FRAMEWORK_BUNDLE_VERSION "${LLVM_LUA_VERSION_MAJOR}.${LLVM_LUA_VERSION_MINOR}.${LLVM_LUA_VERSION_PATCH}") set(MACOSX_FRAMEWORK_IDENTIFIER "org.lua.llvm-lua") elseif(WANT_SHARED_LIBRARY) set_target_properties(llvm-lua_dynamic PROPERTIES FRAMEWORK FALSE ) set(INSTALL_NAME_DIR ${CMAKE_DYLIB_INSTALL_NAME_DIR}) endif(WANT_FRAMEWORK) if(INSTALL_NAME_DIR) set_target_properties(llvm-lua_dynamic PROPERTIES INSTALL_NAME_DIR ${INSTALL_NAME_DIR} BUILD_WITH_INSTALL_RPATH ${CMAKE_BUILD_WITH_INSTALL_RPATH} ) else(INSTALL_NAME_DIR) # no install_name folder force BUILD_WITH_INSTALL_RPATH to OFF set_property(TARGET llvm-lua_dynamic PROPERTY BUILD_WITH_INSTALL_RPATH OFF) endif(INSTALL_NAME_DIR) set(CMAKE_OSX_ARCHITECTURES ${OSX_ARCHITECTURES}) elseif(WANT_SHARED_LIBRARY) set_target_properties(llvm-lua_dynamic PROPERTIES INSTALL_RPATH ${CMAKE_INSTALL_RPATH} BUILD_WITH_INSTALL_RPATH ${CMAKE_BUILD_WITH_INSTALL_RPATH} ) endif(APPLE) # # Lua compiler # add_executable(llvm-luac ${LLVM_LUAC_SRC}) add_target_properties(llvm-luac COMPILE_FLAGS "${COMMON_CFLAGS} ${LLVM_CFLAGS}") add_target_properties(llvm-luac LINK_FLAGS "${LD_FLAGS} ${COMMON_LDFLAGS} ${LLVM_LFLAGS}") target_link_libraries(llvm-luac ${LLVM_LUA_MAIN_LIB} ${LLVM_ALL_LIBS}) set(LLVM_LUA_BINS llvm-luac) # # build as a cross-compiler # if(CROSS_COMPILE) set(LUA_COMPILER "${CMAKE_CURRENT_BINARY_DIR}/lua-cross-compiler") set_target_properties(llvm-luac PROPERTIES OUTPUT_NAME ${CROSS_TRIPLE}-llvm-luac) configure_file("${CMAKE_CURRENT_SOURCE_DIR}/lua-cross-compiler.in" "${LUA_COMPILER}" @ONLY) else(CROSS_COMPILE) set(LUA_COMPILER "${CMAKE_CURRENT_BINARY_DIR}/lua-compiler") configure_file("${CMAKE_CURRENT_SOURCE_DIR}/lua-compiler.in" "${LUA_COMPILER}" @ONLY) endif(CROSS_COMPILE) # # Lua stand-alone interpreter # if(NOT CROSS_COMPILE) add_executable(llvm-lua_binary ${LLVM_LUA_SRC}) add_target_properties(llvm-lua_binary COMPILE_FLAGS "${COMMON_CFLAGS} ${LLVM_CFLAGS}") add_target_properties(llvm-lua_binary LINK_FLAGS "${LD_FLAGS} ${COMMON_LDFLAGS} ${LLVM_LFLAGS}") target_link_libraries(llvm-lua_binary ${LLVM_LUA_MAIN_LIB} ${LLVM_JIT_LIBS}) # rename llvm-lua.bin to llvm-lua set_target_properties(llvm-lua_binary PROPERTIES OUTPUT_NAME llvm-lua) set(LLVM_LUA_BINS ${LLVM_LUA_BINS} llvm-lua_binary) endif(NOT CROSS_COMPILE) # # install llvm-lua/llvm-luac & library. # if(APPLE AND WANT_SHARED_LIBRARY AND WANT_FRAMEWORK) # Make directory: llvm-lua.framework/Versions/5.1/MacOS add_custom_command( TARGET llvm-lua_dynamic POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E make_directory "${llvm_lua_BINARY_DIR}/${LUA_FRAMEWORK_NAME}/${LUA_FRAMEWORK_VERSIONED_EXECUTABLE_DIR}" COMMENT "Command line tools") # Make directory: llvm-lua.framework/Versions/5.1/lib add_custom_command( TARGET llvm-lua_dynamic POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E make_directory "${llvm_lua_BINARY_DIR}/${LUA_FRAMEWORK_NAME}/${LUA_FRAMEWORK_VERSIONED_LIB_DIR}" COMMENT "Static lib") # Copy llvm-lua to: llvm-lua.framework/Versions/5.1/MacOS/llvm-lua add_custom_command( TARGET llvm-lua_dynamic llvm-lua_binary POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy "${llvm_lua_BINARY_DIR}/llvm-lua" "${llvm_lua_BINARY_DIR}/${LUA_FRAMEWORK_NAME}/${LUA_FRAMEWORK_VERSIONED_EXECUTABLE_DIR}/llvm-lua" COMMENT "Command line tools") # Copy llvm-luac to: llvm-lua.framework/Versions/5.1/MacOS/llvm-luac add_custom_command( TARGET llvm-lua_dynamic llvm-luac POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy ${llvm_lua_BINARY_DIR}/llvm-luac ${llvm_lua_BINARY_DIR}/${LUA_FRAMEWORK_NAME}/${LUA_FRAMEWORK_VERSIONED_EXECUTABLE_DIR}/llvm-luac COMMENT "Command line tools") # Copy liblua.a to: llvm-lua.framework/Versions/5.1/lib/liblua.a add_custom_command( TARGET llvm-lua_dynamic llvm-lua_static POST_BUILD COMMAND ${CMAKE_COMMAND} ARGS -E copy "${llvm_lua_BINARY_DIR}/liblua.a" "${llvm_lua_BINARY_DIR}/${LUA_FRAMEWORK_NAME}/${LUA_FRAMEWORK_VERSIONED_LIB_DIR}/liblua.a" COMMENT "Static lib") # Will install framework to /Library/Frameworks directory or user specified install(TARGETS llvm-lua_dynamic FRAMEWORK DESTINATION ${CMAKE_FRAMEWORK_INSTALL_DIR} ) if(LUA_FRAMEWORK_SYMLINKS) install(CODE "EXEC_PROGRAM(${CMAKE_COMMAND} ARGS -E make_directory \"$ENV{DESTDIR}${CMAKE_INSTALL_PREFIX}/bin\")") # create a symbolic link for llvm-lua # and add it to the install manifest install(CODE "EXEC_PROGRAM(${CMAKE_COMMAND} ARGS -E create_symlink \"${CMAKE_FRAMEWORK_INSTALL_DIR}/${LUA_FRAMEWORK_NAME}/${LUA_FRAMEWORK_CURRENT_EXECUTABLE_DIR}/llvm-lua\" \"$ENV{DESTDIR}${CMAKE_INSTALL_PREFIX}/bin/lua\") list(APPEND CMAKE_INSTALL_MANIFEST_FILES \"${CMAKE_INSTALL_PREFIX}/bin/llvm-lua\") ") # create a symbolic link for llvm-luac # and add it to the install manifest install(CODE "EXEC_PROGRAM(${CMAKE_COMMAND} ARGS -E create_symlink \"${CMAKE_FRAMEWORK_INSTALL_DIR}/${LUA_FRAMEWORK_NAME}/${LUA_FRAMEWORK_CURRENT_EXECUTABLE_DIR}/llvm-luac\" \"$ENV{DESTDIR}${CMAKE_INSTALL_PREFIX}/bin/luac\") list(APPEND CMAKE_INSTALL_MANIFEST_FILES \"${CMAKE_INSTALL_PREFIX}/bin/llvm-luac\") ") endif(LUA_FRAMEWORK_SYMLINKS) else(APPLE AND WANT_SHARED_LIBRARY AND WANT_FRAMEWORK) install(TARGETS ${LLVM_LUA_BINS} RUNTIME DESTINATION bin ) install(FILES ${LUA_COMPILER} DESTINATION bin PERMISSIONS OWNER_READ OWNER_WRITE OWNER_EXECUTE GROUP_READ GROUP_EXECUTE WORLD_READ WORLD_EXECUTE ) if(LLVM_LUA_LIBS) install(TARGETS ${LLVM_LUA_LIBS} LIBRARY DESTINATION lib ARCHIVE DESTINATION lib ) endif(LLVM_LUA_LIBS) endif(APPLE AND WANT_SHARED_LIBRARY AND WANT_FRAMEWORK) ================================================ FILE: llvm-lua/COPYRIGHT.llvm-lua ================================================ Copyright (c) 2008 Robert G. Jakabosky Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. MIT License: http://www.opensource.org/licenses/mit-license.php ================================================ FILE: llvm-lua/LLVMCompiler.cpp ================================================ /* Copyright (c) 2009 Robert G. Jakabosky Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. MIT License: http://www.opensource.org/licenses/mit-license.php */ #include "llvm/LLVMContext.h" #include "llvm/DerivedTypes.h" #include "llvm/ExecutionEngine/ExecutionEngine.h" #include "llvm/Module.h" #include "llvm/PassManager.h" #include "llvm/Analysis/Verifier.h" #include "llvm/Target/TargetData.h" #include "llvm/Target/TargetMachine.h" #include "llvm/Target/TargetOptions.h" #include "llvm/Transforms/Scalar.h" #include "llvm/Transforms/IPO.h" #include "llvm/Transforms/Utils/Cloning.h" #include "llvm/Support/IRBuilder.h" #include "llvm/Support/Timer.h" #include "llvm/Support/CommandLine.h" #include #include #include #include #include "LLVMCompiler.h" #ifdef __cplusplus extern "C" { #endif #include "lopcodes.h" #include "lobject.h" #include "lstate.h" #include "ldo.h" #include "lmem.h" #include "lcoco.h" #ifdef __cplusplus } #endif #include "load_vm_ops.h" /* * Using lazing compilation requires large 512K c-stacks for each coroutine. */ static bool NoLazyCompilation = true; static unsigned int OptLevel = 3; static llvm::cl::opt Fast("fast", llvm::cl::desc("Generate code quickly, " "potentially sacrificing code quality"), llvm::cl::init(false)); static llvm::cl::opt OpCodeStats("opcode-stats", llvm::cl::desc("Generate stats on compiled Lua opcodes."), llvm::cl::init(false)); static llvm::cl::opt RunOpCodeStats("runtime-opcode-stats", llvm::cl::desc("Generate stats on executed Lua opcodes."), llvm::cl::init(false)); static llvm::cl::opt PrintRunOpCodes("print-runtime-opcodes", llvm::cl::desc("Print each opcode before executing it."), llvm::cl::init(false)); static llvm::cl::opt CompileLargeFunctions("compile-large-functions", llvm::cl::desc("Compile all Lua functions even really large functions."), llvm::cl::init(false)); static llvm::cl::opt MaxFunctionSize("max-func-size", llvm::cl::desc("Functions larger then this will not be compiled."), llvm::cl::value_desc("int"), llvm::cl::init(200)); static llvm::cl::opt DontInlineOpcodes("do-not-inline-opcodes", llvm::cl::desc("Turn off inlining of opcode functions."), llvm::cl::init(false)); static llvm::cl::opt VerifyFunctions("verify-functions", llvm::cl::desc("Verify each compiled function."), llvm::cl::init(false)); static llvm::cl::opt DumpFunctions("dump-functions", llvm::cl::desc("Dump LLVM IR for each function."), llvm::cl::init(false)); static llvm::cl::opt DebugOpCodes("g", llvm::cl::desc("Allow debugging of Lua code."), llvm::cl::init(false)); static llvm::cl::opt DisableOpt("O0", llvm::cl::desc("Disable optimizations."), llvm::cl::init(false)); static llvm::cl::opt OptLevelO1("O1", llvm::cl::desc("Optimization level 1."), llvm::cl::init(false)); static llvm::cl::opt OptLevelO2("O2", llvm::cl::desc("Optimization level 2."), llvm::cl::init(false)); static llvm::cl::opt OptLevelO3("O3", llvm::cl::desc("Optimization level 3."), llvm::cl::init(false)); #define BRANCH_COND -1 #define BRANCH_NONE -2 //===----------------------------------------------------------------------===// // Lua bytecode to LLVM IR compiler //===----------------------------------------------------------------------===// llvm::Type *LLVMCompiler::get_var_type(val_t type, hint_t hints) { switch(type) { case VAR_T_VOID: return llvm::Type::getVoidTy(getCtx()); case VAR_T_INT: case VAR_T_ARG_A: case VAR_T_ARG_B: case VAR_T_ARG_BK: case VAR_T_ARG_Bx: case VAR_T_ARG_Bx_NUM_CONSTANT: case VAR_T_ARG_B_FB2INT: case VAR_T_ARG_sBx: case VAR_T_ARG_C: case VAR_T_ARG_CK: case VAR_T_ARG_C_NUM_CONSTANT: case VAR_T_ARG_C_NEXT_INSTRUCTION: case VAR_T_ARG_C_FB2INT: case VAR_T_PC_OFFSET: case VAR_T_INSTRUCTION: case VAR_T_NEXT_INSTRUCTION: return llvm::Type::getInt32Ty(getCtx()); case VAR_T_LUA_STATE_PTR: return Ty_lua_State_ptr; case VAR_T_K: return Ty_TValue_ptr; case VAR_T_CL: return Ty_LClosure_ptr; case VAR_T_OP_VALUE_0: case VAR_T_OP_VALUE_1: case VAR_T_OP_VALUE_2: if(hints & HINT_USE_LONG) { return llvm::Type::getInt64Ty(getCtx()); } return llvm::Type::getDoubleTy(getCtx()); default: fprintf(stderr, "Error: missing var_type=%d\n", type); exit(1); break; } return NULL; } llvm::Value *LLVMCompiler::get_proto_constant(TValue *constant) { llvm::Value *val = NULL; switch(ttype(constant)) { case LUA_TBOOLEAN: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(sizeof(LUA_NUMBER), !l_isfalse(constant))); break; case LUA_TNUMBER: val = llvm::ConstantFP::get(getCtx(), llvm::APFloat(nvalue(constant))); break; case LUA_TSTRING: break; case LUA_TNIL: default: break; } return val; } LLVMCompiler::LLVMCompiler(int useJIT) { std::string error; llvm::Timer load_ops("load_ops"); llvm::Timer load_jit("load_jit"); llvm::FunctionType *func_type; llvm::Function *func; std::vector func_args; const vm_func_info *func_info; int opcode; // set OptLevel if(OptLevelO1) OptLevel = 1; if(OptLevelO2) OptLevel = 2; if(OptLevelO3) OptLevel = 3; if(DisableOpt) OptLevel = 0; // create timers. lua_to_llvm = new llvm::Timer("lua_to_llvm"); codegen = new llvm::Timer("codegen"); strip_code = false; // initialize opcode data arrays. opcode_data_len = 0; op_hints = NULL; op_values = NULL; op_blocks = NULL; need_op_block = NULL; resize_opcode_data(MaxFunctionSize); if(llvm::TimePassesIsEnabled) load_ops.startTimer(); if(OpCodeStats) { opcode_stats = new int[NUM_OPCODES]; for(int i = 0; i < NUM_OPCODES; i++) { opcode_stats[i] = 0; } } if(!useJIT) { // running as static compiler, so don't use Lazy loading. NoLazyCompilation = true; } // load vm op functions M = load_vm_ops(getCtx(), NoLazyCompilation); // get important struct types. Ty_TValue = M->getTypeByName("struct.lua_TValue"); if(Ty_TValue == NULL) { Ty_TValue = M->getTypeByName("struct.TValue"); } Ty_TValue_ptr = llvm::PointerType::getUnqual(Ty_TValue); Ty_LClosure = M->getTypeByName("struct.LClosure"); Ty_LClosure_ptr = llvm::PointerType::getUnqual(Ty_LClosure); Ty_lua_State = M->getTypeByName("struct.lua_State"); Ty_lua_State_ptr = llvm::PointerType::getUnqual(Ty_lua_State); // setup argument lists. func_args.clear(); func_args.push_back(Ty_lua_State_ptr); lua_func_type = llvm::FunctionType::get(llvm::Type::getInt32Ty(getCtx()), func_args, false); // define extern vm_next_OP vm_next_OP = M->getFunction("vm_next_OP"); if(vm_next_OP == NULL) { func_args.clear(); func_args.push_back(Ty_lua_State_ptr); func_args.push_back(Ty_LClosure_ptr); func_args.push_back(llvm::Type::getInt32Ty(getCtx())); func_type = llvm::FunctionType::get(llvm::Type::getVoidTy(getCtx()), func_args, false); vm_next_OP = llvm::Function::Create(func_type, llvm::Function::ExternalLinkage, "vm_next_OP", M); } // define extern vm_print_OP vm_print_OP = M->getFunction("vm_print_OP"); if(vm_print_OP == NULL) { func_args.clear(); func_args.push_back(Ty_lua_State_ptr); func_args.push_back(Ty_LClosure_ptr); func_args.push_back(llvm::Type::getInt32Ty(getCtx())); func_args.push_back(llvm::Type::getInt32Ty(getCtx())); func_type = llvm::FunctionType::get(llvm::Type::getVoidTy(getCtx()), func_args, false); vm_print_OP = llvm::Function::Create(func_type, llvm::Function::ExternalLinkage, "vm_print_OP", M); } // function for counting each executed op. if(RunOpCodeStats) { vm_count_OP = M->getFunction("vm_count_OP"); if(vm_count_OP == NULL) { func_args.clear(); func_args.push_back(llvm::Type::getInt32Ty(getCtx())); func_type = llvm::FunctionType::get(llvm::Type::getVoidTy(getCtx()), func_args, false); vm_count_OP = llvm::Function::Create(func_type, llvm::Function::ExternalLinkage, "vm_count_OP", M); } for(int i = 0; i < NUM_OPCODES; i++) { vm_op_run_count[i] = 0; } } // define extern vm_mini_vm vm_mini_vm = M->getFunction("vm_mini_vm"); if(vm_mini_vm == NULL) { func_args.clear(); func_args.push_back(Ty_lua_State_ptr); func_args.push_back(Ty_LClosure_ptr); func_args.push_back(llvm::Type::getInt32Ty(getCtx())); func_args.push_back(llvm::Type::getInt32Ty(getCtx())); func_type = llvm::FunctionType::get(llvm::Type::getVoidTy(getCtx()), func_args, false); vm_mini_vm = llvm::Function::Create(func_type, llvm::Function::ExternalLinkage, "vm_mini_vm", M); } // define extern vm_get_current_closure vm_get_current_closure = M->getFunction("vm_get_current_closure"); // define extern vm_get_current_constants vm_get_current_constants = M->getFunction("vm_get_current_constants"); // define extern vm_get_number vm_get_number = M->getFunction("vm_get_number"); // define extern vm_get_long vm_get_long = M->getFunction("vm_get_long"); // define extern vm_set_number vm_set_number = M->getFunction("vm_set_number"); // define extern vm_set_long vm_set_long = M->getFunction("vm_set_long"); // create prototype for vm_* functions. vm_op_funcs = new OPFunc *[NUM_OPCODES]; for(int i = 0; i < NUM_OPCODES; i++) vm_op_funcs[i] = NULL; // clear list. for(int i = 0; true; i++) { func_info = &vm_op_functions[i]; opcode = func_info->opcode; if(opcode < 0) break; vm_op_funcs[opcode] = new OPFunc(func_info, vm_op_funcs[opcode]); func = M->getFunction(func_info->name); if(func != NULL) { vm_op_funcs[opcode]->func = func; vm_op_funcs[opcode]->compiled = !useJIT; // lazy compile ops when JIT is enabled. continue; } func_args.clear(); for(int x = 0; func_info->params[x] != VAR_T_VOID; x++) { func_args.push_back(get_var_type(func_info->params[x], func_info->hint)); } func_type = llvm::FunctionType::get( get_var_type(func_info->ret_type, func_info->hint), func_args, false); func = llvm::Function::Create(func_type, llvm::Function::ExternalLinkage, func_info->name, M); vm_op_funcs[opcode]->func = func; vm_op_funcs[opcode]->compiled = true; // built-in op function. } if(llvm::TimePassesIsEnabled) load_ops.stopTimer(); if(llvm::TimePassesIsEnabled) load_jit.startTimer(); // Create the JIT. if(useJIT) { llvm::EngineBuilder engine(M); llvm::TargetOptions options; options.GuaranteedTailCallOpt = true; options.JITEmitDebugInfo = false; options.JITExceptionHandling = false; engine.setTargetOptions(options); llvm::CodeGenOpt::Level optLevel = llvm::CodeGenOpt::Aggressive; if(Fast) { optLevel = llvm::CodeGenOpt::Default; } #ifdef LUA_CPP_SUPPORT llvm::ExceptionHandling = true; #endif engine.setErrorStr(&error); engine.setOptLevel(optLevel); TheExecutionEngine = engine.create(); if(!TheExecutionEngine) { printf("Error creating JIT engine: %s\n", error.c_str()); } if (NoLazyCompilation) TheExecutionEngine->DisableLazyCompilation(); TheExecutionEngine->runStaticConstructorsDestructors(false); if (NoLazyCompilation) { TheExecutionEngine->getPointerToFunction(vm_get_current_closure); TheExecutionEngine->getPointerToFunction(vm_get_current_constants); TheExecutionEngine->getPointerToFunction(vm_get_number); TheExecutionEngine->getPointerToFunction(vm_get_long); TheExecutionEngine->getPointerToFunction(vm_set_number); TheExecutionEngine->getPointerToFunction(vm_set_long); } } else { TheExecutionEngine = NULL; } if(OptLevel > 1) { TheFPM = new llvm::FunctionPassManager(M); /* * Function Pass Manager. */ // Set up the optimizer pipeline. Start with registering info about how the // target lays out data structures. if(useJIT) { TheFPM->add(new llvm::TargetData(*TheExecutionEngine->getTargetData())); } else { TheFPM->add(new llvm::TargetData(M)); } // mem2reg TheFPM->add(llvm::createPromoteMemoryToRegisterPass()); // Do simple "peephole" optimizations and bit-twiddling optzns. TheFPM->add(llvm::createInstructionCombiningPass()); // Dead code Elimination TheFPM->add(llvm::createDeadCodeEliminationPass()); if(OptLevel > 2) { // BlockPlacement TheFPM->add(llvm::createBlockPlacementPass()); // Reassociate expressions. TheFPM->add(llvm::createReassociatePass()); // Simplify the control flow graph (deleting unreachable blocks, etc). TheFPM->add(llvm::createCFGSimplificationPass()); } } else { TheFPM = NULL; } if(llvm::TimePassesIsEnabled) load_jit.stopTimer(); } void print_opcode_stats(int *stats, const char *stats_name) { int order[NUM_OPCODES]; int max=0; int width=1; for(int opcode = 0; opcode < NUM_OPCODES; opcode++) { order[opcode] = opcode; if(max < stats[opcode]) max = stats[opcode]; for(int n = 0; n < opcode; n++) { if(stats[opcode] >= stats[order[n]]) { // insert here. memmove(&order[n + 1], &order[n], (opcode - n) * sizeof(int)); order[n] = opcode; break; } } } // calc width. while(max >= 10) { width++; max /= 10; } // sort by count. fprintf(stderr, "===================== %s =======================\n", stats_name); int opcode; for(int i = 0; i < NUM_OPCODES; i++) { opcode = order[i]; if(stats[opcode] == 0) continue; fprintf(stderr, "%*d: %s(%d)\n", width, stats[opcode], luaP_opnames[opcode], opcode); } } LLVMCompiler::~LLVMCompiler() { std::string error; // print opcode stats. if(OpCodeStats) { print_opcode_stats(opcode_stats, "Compiled OpCode counts"); delete opcode_stats; } if(RunOpCodeStats) { print_opcode_stats(vm_op_run_count, "Compiled OpCode counts"); } resize_opcode_data(0); delete lua_to_llvm; delete codegen; if(TheFPM) delete TheFPM; TheFPM = NULL; for(int i = 0; i < NUM_OPCODES; i++) { if(vm_op_funcs[i]) delete vm_op_funcs[i]; } delete[] vm_op_funcs; // Print out all of the generated code. //M->dump(); if(TheExecutionEngine) { TheExecutionEngine->freeMachineCodeForFunction(vm_get_current_closure); TheExecutionEngine->freeMachineCodeForFunction(vm_get_current_constants); TheExecutionEngine->freeMachineCodeForFunction(vm_get_number); TheExecutionEngine->freeMachineCodeForFunction(vm_get_long); TheExecutionEngine->freeMachineCodeForFunction(vm_set_number); TheExecutionEngine->freeMachineCodeForFunction(vm_set_long); TheExecutionEngine->runStaticConstructorsDestructors(true); if(!TheExecutionEngine->removeModule(M)) { printf("Failed find Module in execution engine.\n"); exit(1); } delete TheExecutionEngine; } if(M) { delete M; M = NULL; } } void LLVMCompiler::resize_opcode_data(int code_len) { // free old arrays. if(opcode_data_len > 0) { // free old data. clear_opcode_data(opcode_data_len); if(op_hints) delete[] op_hints; if(op_values) delete[] op_values; if(op_blocks) delete[] op_blocks; if(need_op_block) delete[] need_op_block; } // allocate new arrays opcode_data_len = code_len; if(code_len == 0) return; op_hints = new hint_t[code_len]; op_values = new OPValues *[code_len]; op_blocks = new llvm::BasicBlock *[code_len]; need_op_block = new bool[code_len]; for(int i = 0; i < code_len; i++) { op_hints[i] = HINT_NONE; op_values[i] = NULL; op_blocks[i] = NULL; need_op_block[i] = false; } } void LLVMCompiler::clear_opcode_data(int code_len) { if(code_len > opcode_data_len) { resize_opcode_data(code_len); return; } for(int i = 0; i < code_len; i++) { op_hints[i] = HINT_NONE; if(op_values[i]) { delete op_values[i]; op_values[i] = NULL; } op_blocks[i] = NULL; need_op_block[i] = false; } } /* * Pre-Compile all loaded functions. */ void LLVMCompiler::compileAll(lua_State *L, Proto *parent) { int i; /* pre-compile parent */ compile(L, parent); /* pre-compile all children */ for(i = 0; i < parent->sizep; i++) { compileAll(L, parent->p[i]); } } void LLVMCompiler::compile(lua_State *L, Proto *p) { Instruction *code=p->code; TValue *k=p->k; int code_len=p->sizecode; OPFunc *opfunc; llvm::Function *func; llvm::BasicBlock *true_block=NULL; llvm::BasicBlock *false_block=NULL; llvm::BasicBlock *current_block=NULL; llvm::BasicBlock *entry_block=NULL; llvm::Value *brcond=NULL; llvm::Value *func_L; llvm::Value *func_cl; llvm::Value *func_k; const vm_func_info *func_info; std::vector args; llvm::CallInst *call=NULL; std::vector inlineList; std::string name; char name_buf[128]; //char locals[LUAI_MAXVARS]; bool inline_call=false; int strip_ops=0; int branch; Instruction op_intr; int opcode; int mini_op_repeat=0; int i; llvm::IRBuilder<> Builder(getCtx()); #ifndef COCO_DISABLE // Don't run the JIT from a coroutine. if(!luaCOCO_mainthread(L)) { return; } #endif if(code_len >= MaxFunctionSize) { if(TheExecutionEngine != NULL && !CompileLargeFunctions) { // don't JIT large functions. return; } else { // make sure there is room to compile large functions. if(code_len > opcode_data_len) { resize_opcode_data(code_len); } } } if(llvm::TimePassesIsEnabled) lua_to_llvm->startTimer(); // create function. name = getstr(p->source); if(name.size() > 32) { name = name.substr(0,32); } // replace non-alphanum characters with '_' for(size_t n = 0; n < name.size(); n++) { char c = name[n]; if((c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || (c >= '0' && c <= '9')) { continue; } if(c == '\n' || c == '\r') { name = name.substr(0,n); break; } name[n] = '_'; } snprintf(name_buf,128,"_%d_%d",p->linedefined, p->lastlinedefined); name += name_buf; func = llvm::Function::Create(lua_func_type, llvm::Function::ExternalLinkage, name, M); // name arg1 = "L" func_L = func->arg_begin(); func_L->setName("L"); // entry block entry_block = llvm::BasicBlock::Create(getCtx(),"entry", func); Builder.SetInsertPoint(entry_block); // get LClosure & constants. call=Builder.CreateCall(vm_get_current_closure, func_L); inlineList.push_back(call); func_cl=call; call=Builder.CreateCall(vm_get_current_constants, func_cl); inlineList.push_back(call); func_k=call; // find all jump/branch destinations and create a new basic block at that opcode. // also build hints for some opcodes. for(i = 0; i < code_len; i++) { op_intr=code[i]; opcode = GET_OPCODE(op_intr); // combind simple ops into one function call. if(is_mini_vm_op(opcode)) { mini_op_repeat++; } else { if(mini_op_repeat >= 3 && OptLevel > 1) { op_hints[i - mini_op_repeat] |= HINT_MINI_VM; } mini_op_repeat = 0; } switch (opcode) { case OP_LOADBOOL: branch = i+1; // check C operand if C!=0 then skip over the next op_block. if(GETARG_C(op_intr) != 0) ++branch; need_op_block[branch] = true; break; case OP_LOADK: { // check if arg Bx is a number constant. TValue *rb = k + INDEXK(GETARG_Bx(op_intr)); if(ttisnumber(rb)) op_hints[i] |= HINT_Bx_NUM_CONSTANT; break; } case OP_JMP: // always branch to the offset stored in operand sBx branch = i + 1 + GETARG_sBx(op_intr); need_op_block[branch] = true; break; case OP_TAILCALL: branch = i+1; need_op_block[0] = true; /* branch to start of function if this is a recursive tail-call. */ need_op_block[branch] = true; /* branch to return instruction if not recursive. */ break; case OP_EQ: case OP_LT: case OP_LE: // check if arg C is a number constant. if(ISK(GETARG_C(op_intr))) { TValue *rc = k + INDEXK(GETARG_C(op_intr)); if(ttisnumber(rc)) op_hints[i] |= HINT_C_NUM_CONSTANT; } if(GETARG_A(op_intr) == 1) { op_hints[i] |= HINT_NOT; } // fall-through case OP_TEST: case OP_TESTSET: case OP_TFORLOOP: branch = ++i + 1; op_intr=code[i]; need_op_block[branch + GETARG_sBx(op_intr)] = true; /* inline JMP op. */ need_op_block[branch] = true; break; case OP_FORLOOP: branch = i+1; need_op_block[branch] = true; branch += GETARG_sBx(op_intr); need_op_block[branch] = true; break; case OP_FORPREP: branch = i + 1 + GETARG_sBx(op_intr); need_op_block[branch] = true; need_op_block[branch + 1] = true; // test if init/plimit/pstep are number constants. if(OptLevel > 1 && i >= 3) { lua_Number nums[3]; bool found_val[3] = { false, false , false }; bool is_const_num[3] = { false, false, false }; bool all_longs=true; int found=0; OPValues *vals = new OPValues(4); int forprep_ra = GETARG_A(op_intr); bool no_jmp_end_point = true; // don't process ops after finding a jmp end point. // find & load constants for init/plimit/pstep for(int x = 1; x < 6 && found < 3 && no_jmp_end_point; ++x) { const TValue *tmp; Instruction op_intr2; int ra; if((i - x) < 0) break; op_intr2 = code[i - x]; // get 'a' register. ra = GETARG_A(op_intr2); ra -= forprep_ra; // check for jmp end-point. no_jmp_end_point = !(need_op_block[i - x]); // check that the 'a' register is for one of the value we are interested in. if(ra < 0 || ra > 2) continue; // only process this opcode if we haven't seen this value before. if(found_val[ra]) continue; found_val[ra] = true; found++; if(GET_OPCODE(op_intr2) == OP_LOADK) { tmp = k + GETARG_Bx(op_intr2); if(ttisnumber(tmp)) { lua_Number num=nvalue(tmp); nums[ra] = num; // test if number is a whole number all_longs &= (floor(num) == num); vals->set(ra,llvm::ConstantFP::get(getCtx(), llvm::APFloat(num))); is_const_num[ra] = true; op_hints[i - x] |= HINT_SKIP_OP; continue; } } all_longs = false; } all_longs &= (found == 3); // create for_idx OP_FORPREP will inialize it. op_hints[branch] = HINT_FOR_N_N_N; if(all_longs) { vals->set(3, Builder.CreateAlloca(llvm::Type::getInt64Ty(getCtx()), 0, "for_idx")); op_hints[branch] |= HINT_USE_LONG; } else { vals->set(3, Builder.CreateAlloca(llvm::Type::getDoubleTy(getCtx()), 0, "for_idx")); } op_values[branch] = vals; // check if step, init, limit are constants if(is_const_num[2]) { // step is a constant if(is_const_num[0]) { // init & step are constants. if(is_const_num[1]) { // all are constants. op_hints[i] = HINT_FOR_N_N_N; } else { // limit is variable. op_hints[i] = HINT_FOR_N_M_N; } op_values[i] = new OPValues(3); op_values[i]->set(0, vals->get(0)); op_values[i]->set(2, vals->get(2)); } else if(is_const_num[1]) { // init is variable, limit & step are constants. op_hints[i] = HINT_FOR_M_N_N; op_values[i] = new OPValues(3); op_values[i]->set(1, vals->get(1)); op_values[i]->set(2, vals->get(2)); } // check the direct of step. if(nums[2] > 0) { op_hints[branch] |= HINT_UP; } else { op_hints[branch] |= HINT_DOWN; } } if(op_hints[i] == HINT_NONE) { // don't skip LOADK ops, since we are not inlining them. for(int x=i-3; x < i; x++) { if(op_hints[x] & HINT_SKIP_OP) op_hints[x] &= ~(HINT_SKIP_OP); } } if(all_longs) { for(int x = 0; x < 3; ++x) { vals->set(x,llvm::ConstantInt::get(getCtx(), llvm::APInt(64,(lua_Long)nums[x]))); } } // make sure OP_FORPREP doesn't subtract 'step' from 'init' op_hints[i] |= HINT_NO_SUB; } break; case OP_SETLIST: // if C == 0, then next code value is count value. if(GETARG_C(op_intr) == 0) { i++; } break; case OP_ADD: case OP_SUB: case OP_MUL: case OP_DIV: case OP_MOD: case OP_POW: // check if arg C is a number constant. if(ISK(GETARG_C(op_intr))) { TValue *rc = k + INDEXK(GETARG_C(op_intr)); if(ttisnumber(rc)) op_hints[i] |= HINT_C_NUM_CONSTANT; } break; default: break; } // update local variable type hints. //vm_op_hint_locals(locals, p->maxstacksize, k, op_intr); } // pre-create basic blocks. for(i = 0; i < code_len; i++) { if(need_op_block[i]) { op_intr=code[i]; opcode = GET_OPCODE(op_intr); snprintf(name_buf,128,"op_block_%s_%d",luaP_opnames[opcode],i); op_blocks[i] = llvm::BasicBlock::Create(getCtx(),name_buf, func); } else { op_blocks[i] = NULL; } } // branch "entry" to first block. if(need_op_block[0]) { Builder.CreateBr(op_blocks[0]); } else { current_block = entry_block; } // gen op calls. for(i = 0; i < code_len; i++) { if(op_blocks[i] != NULL) { if(current_block) { // add branch to new block. Builder.CreateBr(op_blocks[i]); } Builder.SetInsertPoint(op_blocks[i]); current_block = op_blocks[i]; } // skip dead unreachable code. if(current_block == NULL) { if(strip_code) strip_ops++; continue; } branch = i+1; op_intr=code[i]; opcode = GET_OPCODE(op_intr); opfunc = vm_op_funcs[opcode]; // combind multiple simple ops into one call. if(op_hints[i] & HINT_MINI_VM) { int op_count = 1; // count mini ops and check for any branch end-points. while(is_mini_vm_op(GET_OPCODE(code[i + op_count])) && (op_hints[i + op_count] & HINT_SKIP_OP) == 0) { // branch end-point in middle of mini ops block. if(need_op_block[i + op_count]) { op_hints[i + op_count] |= HINT_MINI_VM; // mark start of new mini vm ops. break; } op_count++; } if(op_count >= 3) { // large block of mini ops add function call to vm_mini_vm() Builder.CreateCall4(vm_mini_vm, func_L, func_cl, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,op_count)), llvm::ConstantInt::get(getCtx(), llvm::APInt(32,i - strip_ops))); if(strip_code && strip_ops > 0) { while(op_count > 0) { code[i - strip_ops] = code[i]; i++; op_count--; } } else { i += op_count; } i--; continue; } else { // mini ops block too small. op_hints[i] &= ~(HINT_MINI_VM); } } // find op function with matching hint. while(opfunc->next != NULL && (opfunc->info->hint & op_hints[i]) != opfunc->info->hint) { opfunc = opfunc->next; } if(OpCodeStats) { opcode_stats[opcode]++; } //fprintf(stderr, "%d: '%s' (%d) = 0x%08X, hint=0x%X\n", i, luaP_opnames[opcode], opcode, op_intr, op_hints[i]); //fprintf(stderr, "%d: func: '%s', func hints=0x%X\n", i, opfunc->info->name,opfunc->info->hint); if(PrintRunOpCodes) { Builder.CreateCall4(vm_print_OP, func_L, func_cl, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,op_intr)), llvm::ConstantInt::get(getCtx(), llvm::APInt(32,i))); } if(RunOpCodeStats) { Builder.CreateCall(vm_count_OP, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,op_intr))); } if(DebugOpCodes) { /* vm_next_OP function is used to call count/line debug hooks. */ Builder.CreateCall3(vm_next_OP, func_L, func_cl, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,i))); } if(op_hints[i] & HINT_SKIP_OP) { if(strip_code) strip_ops++; continue; } if(strip_code) { // strip all opcodes. strip_ops++; if(strip_ops > 0 && strip_ops < (i+1)) { // move opcodes we want to keep to new position. code[(i+1) - strip_ops] = op_intr; } } // setup arguments for opcode function. func_info = opfunc->info; if(func_info == NULL) { fprintf(stderr, "Error missing vm_OP_* function for opcode: %d\n", opcode); return; } // special handling of OP_FORLOOP if(opcode == OP_FORLOOP) { llvm::BasicBlock *loop_test; llvm::BasicBlock *prep_block; llvm::BasicBlock *incr_block; llvm::Value *init,*step,*idx_var,*cur_idx,*next_idx; llvm::PHINode *PN; OPValues *vals; vals=op_values[i]; if(vals != NULL) { // get init value from forprep block init = vals->get(0); // get for loop 'idx' variable. step = vals->get(2); idx_var = vals->get(3); assert(idx_var != NULL); incr_block = current_block; cur_idx = Builder.CreateLoad(idx_var); if(op_hints[i] & HINT_USE_LONG) { next_idx = Builder.CreateAdd(cur_idx, step, "next_idx"); } else { next_idx = Builder.CreateFAdd(cur_idx, step, "next_idx"); } Builder.CreateStore(next_idx, idx_var); // store 'for_init' value. // create extra BasicBlock for vm_OP_FORLOOP_* snprintf(name_buf,128,"op_block_%s_%d_loop_test",luaP_opnames[opcode],i); loop_test = llvm::BasicBlock::Create(getCtx(),name_buf, func); // create unconditional jmp from current block to loop test block Builder.CreateBr(loop_test); // create unconditional jmp from forprep block to loop test block prep_block = op_blocks[branch + GETARG_sBx(op_intr) - 1]; Builder.SetInsertPoint(prep_block); Builder.CreateBr(loop_test); // set current_block to loop_test block current_block = loop_test; Builder.SetInsertPoint(current_block); // Emit merge block if(op_hints[i] & HINT_USE_LONG) { PN = Builder.CreatePHI(llvm::Type::getInt64Ty(getCtx()), 2, "idx"); } else { PN = Builder.CreatePHI(llvm::Type::getDoubleTy(getCtx()), 2, "idx"); } PN->addIncoming(init, prep_block); PN->addIncoming(next_idx, incr_block); vals->set(0, PN); } } args.clear(); for(int x = 0; func_info->params[x] != VAR_T_VOID ; x++) { llvm::Value *val=NULL; switch(func_info->params[x]) { case VAR_T_ARG_A: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,GETARG_A(op_intr))); break; case VAR_T_ARG_C: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,GETARG_C(op_intr))); break; case VAR_T_ARG_C_FB2INT: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,luaO_fb2int(GETARG_C(op_intr)))); break; case VAR_T_ARG_Bx_NUM_CONSTANT: val = get_proto_constant(k + INDEXK(GETARG_Bx(op_intr))); break; case VAR_T_ARG_C_NUM_CONSTANT: val = get_proto_constant(k + INDEXK(GETARG_C(op_intr))); break; case VAR_T_ARG_C_NEXT_INSTRUCTION: { int c = GETARG_C(op_intr); // if C == 0, then next code value is used as ARG_C. if(c == 0) { if((i+1) < code_len) { c = code[i+1]; if(strip_code) strip_ops++; } } val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,c)); break; } case VAR_T_ARG_B: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,GETARG_B(op_intr))); break; case VAR_T_ARG_B_FB2INT: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,luaO_fb2int(GETARG_B(op_intr)))); break; case VAR_T_ARG_Bx: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,GETARG_Bx(op_intr))); break; case VAR_T_ARG_sBx: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,GETARG_sBx(op_intr))); break; case VAR_T_PC_OFFSET: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,i + 1 - strip_ops)); break; case VAR_T_INSTRUCTION: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,op_intr)); break; case VAR_T_NEXT_INSTRUCTION: val = llvm::ConstantInt::get(getCtx(), llvm::APInt(32,code[i+1])); break; case VAR_T_LUA_STATE_PTR: val = func_L; break; case VAR_T_K: val = func_k; break; case VAR_T_CL: val = func_cl; break; case VAR_T_OP_VALUE_0: if(op_values[i] != NULL) val = op_values[i]->get(0); break; case VAR_T_OP_VALUE_1: if(op_values[i] != NULL) val = op_values[i]->get(1); break; case VAR_T_OP_VALUE_2: if(op_values[i] != NULL) val = op_values[i]->get(2); break; default: fprintf(stderr, "Error: not implemented!\n"); return; case VAR_T_VOID: fprintf(stderr, "Error: invalid value type!\n"); return; } if(val == NULL) { fprintf(stderr, "Error: Missing parameter '%d' for this opcode(%d) function=%s!\n", x, opcode, func_info->name); exit(1); } args.push_back(val); } // create call to opcode function. if(func_info->ret_type != VAR_T_VOID) { call=Builder.CreateCall(opfunc->func, args, "retval"); } else { call=Builder.CreateCall(opfunc->func, args); } inline_call = false; // handle retval from opcode function. switch (opcode) { case OP_LOADBOOL: // check C operand if C!=0 then skip over the next op_block. if(GETARG_C(op_intr) != 0) branch += 1; else branch = BRANCH_NONE; inline_call = true; break; case OP_LOADK: case OP_LOADNIL: case OP_GETGLOBAL: case OP_GETTABLE: case OP_SETGLOBAL: case OP_SETTABLE: case OP_NEWTABLE: case OP_SELF: case OP_ADD: case OP_SUB: case OP_MUL: case OP_DIV: case OP_MOD: case OP_POW: case OP_UNM: case OP_NOT: case OP_LEN: case OP_CONCAT: case OP_GETUPVAL: case OP_MOVE: inline_call = true; branch = BRANCH_NONE; break; case OP_CLOSE: case OP_SETUPVAL: inline_call = false; branch = BRANCH_NONE; break; case OP_VARARG: case OP_CALL: branch = BRANCH_NONE; break; case OP_TAILCALL: //call->setTailCall(true); brcond=call; brcond=Builder.CreateICmpNE(brcond, llvm::ConstantInt::get(getCtx(), llvm::APInt(32, PCRTAILRECUR)), "brcond"); i++; // skip return opcode. false_block = op_blocks[0]; // branch to start of function if this is a recursive tail-call. true_block = op_blocks[i]; // branch to return instruction if not recursive. Builder.CreateCondBr(brcond, true_block, false_block); Builder.SetInsertPoint(op_blocks[i]); Builder.CreateRet(call); current_block = NULL; // have terminator branch = BRANCH_NONE; break; case OP_JMP: // always branch to the offset stored in operand sBx branch += GETARG_sBx(op_intr); // call vm_OP_JMP just in case luai_threadyield is defined. inline_call = true; break; case OP_EQ: case OP_LT: case OP_LE: case OP_TEST: case OP_TESTSET: inline_call = true; case OP_TFORLOOP: brcond=call; brcond=Builder.CreateICmpNE(brcond, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,0)), "brcond"); false_block=op_blocks[branch+1]; /* inlined JMP op. */ branch = ++i + 1; if(strip_code) { strip_ops++; if(strip_ops > 0 && strip_ops < (i+1)) { // move opcodes we want to keep to new position. code[(i+1) - strip_ops] = code[i]; } } op_intr=code[i]; branch += GETARG_sBx(op_intr); true_block=op_blocks[branch]; branch = BRANCH_COND; // do conditional branch break; case OP_FORLOOP: { llvm::Function *set_func=vm_set_number; llvm::CallInst *call2; OPValues *vals; inline_call = true; brcond=call; brcond=Builder.CreateICmpNE(brcond, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,0)), "brcond"); true_block=op_blocks[branch + GETARG_sBx(op_intr)]; false_block=op_blocks[branch]; branch = BRANCH_COND; // do conditional branch // update external index if needed. vals=op_values[i]; if(vals != NULL) { llvm::BasicBlock *idx_block; if(op_hints[i] & HINT_USE_LONG) { set_func = vm_set_long; } // create extra BasicBlock snprintf(name_buf,128,"op_block_%s_%d_set_for_idx",luaP_opnames[opcode],i); idx_block = llvm::BasicBlock::Create(getCtx(),name_buf, func); Builder.SetInsertPoint(idx_block); // copy idx value to Lua-stack. call2=Builder.CreateCall3(set_func,func_L, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,(GETARG_A(op_intr) + 3))), vals->get(0)); inlineList.push_back(call2); // create jmp to true_block Builder.CreateBr(true_block); true_block = idx_block; Builder.SetInsertPoint(current_block); } break; } case OP_FORPREP: { llvm::Function *get_func=vm_get_number; llvm::Value *idx_var,*init; llvm::CallInst *call2; OPValues *vals; //inline_call = true; op_blocks[i] = current_block; branch += GETARG_sBx(op_intr); vals=op_values[branch]; // if no saved value, then use slow method. if(vals == NULL) break; if(op_hints[branch] & HINT_USE_LONG) { get_func = vm_get_long; } // get non-constant init from Lua stack. if(vals->get(0) == NULL) { call2=Builder.CreateCall2(get_func,func_L, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,(GETARG_A(op_intr) + 0))), "for_init"); inlineList.push_back(call2); vals->set(0, call2); } init = vals->get(0); // get non-constant limit from Lua stack. if(vals->get(1) == NULL) { call2=Builder.CreateCall2(get_func,func_L, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,(GETARG_A(op_intr) + 1))), "for_limit"); inlineList.push_back(call2); vals->set(1, call2); } // get non-constant step from Lua stack. if(vals->get(2) == NULL) { call2=Builder.CreateCall2(get_func,func_L, llvm::ConstantInt::get(getCtx(), llvm::APInt(32,(GETARG_A(op_intr) + 2))), "for_step"); inlineList.push_back(call2); vals->set(2, call2); } // get for loop 'idx' variable. assert(vals->get(3) != NULL); idx_var = vals->get(3); Builder.CreateStore(init, idx_var); // store 'for_init' value. vals->set(0, init); current_block = NULL; // have terminator branch = BRANCH_NONE; break; } case OP_SETLIST: // if C == 0, then next code value is used as ARG_C. if(GETARG_C(op_intr) == 0) { i++; } branch = BRANCH_NONE; break; case OP_CLOSURE: { Proto *p2 = p->p[GETARG_Bx(op_intr)]; int nups = p2->nups; if(strip_code && strip_ops > 0) { while(nups > 0) { i++; code[i - strip_ops] = code[i]; nups--; } } else { i += nups; } branch = BRANCH_NONE; break; } case OP_RETURN: { call->setTailCall(true); Builder.CreateRet(call); branch = BRANCH_NONE; current_block = NULL; // have terminator break; } default: fprintf(stderr, "Bad opcode: opcode=%d\n", opcode); break; } if(OptLevel > 0 && inline_call && !DontInlineOpcodes) { inlineList.push_back(call); } else if(!opfunc->compiled) { // only compile opcode functions that are not inlined. opfunc->compiled = true; TheExecutionEngine->getPointerToFunction(opfunc->func); } // branch to next block. if(branch >= 0 && branch < code_len) { Builder.CreateBr(op_blocks[branch]); current_block = NULL; // have terminator } else if(branch == BRANCH_COND) { Builder.CreateCondBr(brcond, true_block, false_block); current_block = NULL; // have terminator } } // free opcode values and clear hints. clear_opcode_data(code_len); // strip Lua bytecode and debug info. if(strip_code && strip_ops > 0) { code_len -= strip_ops; luaM_reallocvector(L, p->code, p->sizecode, code_len, Instruction); p->sizecode = code_len; luaM_reallocvector(L, p->lineinfo, p->sizelineinfo, 0, int); p->sizelineinfo = 0; luaM_reallocvector(L, p->locvars, p->sizelocvars, 0, LocVar); p->sizelocvars = 0; luaM_reallocvector(L, p->upvalues, p->sizeupvalues, 0, TString *); p->sizeupvalues = 0; } if(DumpFunctions) func->dump(); // only run function inliner & optimization passes on same functions. if(OptLevel > 0 && !DontInlineOpcodes) { llvm::InlineFunctionInfo IFI; for(std::vector::iterator I=inlineList.begin(); I != inlineList.end() ; I++) { InlineFunction(*I, IFI); } // Validate the generated code, checking for consistency. if(VerifyFunctions) verifyFunction(*func); // Optimize the function. if(TheFPM) TheFPM->run(*func); } if(llvm::TimePassesIsEnabled) lua_to_llvm->stopTimer(); if(llvm::TimePassesIsEnabled) codegen->startTimer(); // finished. if(TheExecutionEngine != NULL) { union { void *ptr; lua_CFunction func; } jit_func; jit_func.ptr = TheExecutionEngine->getPointerToFunction(func); p->jit_func = jit_func.func; } else { p->jit_func = NULL; } p->func_ref = func; if(llvm::TimePassesIsEnabled) codegen->stopTimer(); } void LLVMCompiler::free(lua_State *L, Proto *p) { llvm::Function *func; union { void *ptr; lua_CFunction func; } jit_func; (void)L; if(TheExecutionEngine == NULL) return; jit_func.func = p->jit_func; func=(llvm::Function *)TheExecutionEngine->getGlobalValueAtAddress(jit_func.ptr); if(func != NULL) { TheExecutionEngine->freeMachineCodeForFunction(func); func->removeFromParent(); delete func; } } ================================================ FILE: llvm-lua/LLVMCompiler.h ================================================ /* Copyright (c) 2009 Robert G. Jakabosky Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. MIT License: http://www.opensource.org/licenses/mit-license.php */ #ifndef LLVMCOMPILER_h #define LLVMCOMPILER_h #include "llvm/Support/IRBuilder.h" #include "llvm/Module.h" #include "llvm/LLVMContext.h" #include "lua_core.h" #ifdef __cplusplus extern "C" { #endif #include "lobject.h" #include "lua_vm_ops.h" #ifdef __cplusplus } #endif namespace llvm { class FunctionPassManager; class ExecutionEngine; class Timer; } class LLVMCompiler { private: class OPFunc { public: const vm_func_info *info; bool compiled; llvm::Function *func; OPFunc *next; OPFunc(const vm_func_info *info_, OPFunc *next_) : info(info_), compiled(false), func(NULL), next(next_) {} ~OPFunc() { if(next) delete next; } }; class OPValues { private: int len; llvm::Value **values; public: OPValues(int len_) : len(len_), values(new llvm::Value *[len_]) { for(int i = 0; i < len; ++i) { values[i] = NULL; } } ~OPValues() { delete[] values; } void set(int idx, llvm::Value *val) { assert(idx >= 0 && idx < len); values[idx] = val; } llvm::Value *get(int idx) { assert(idx >= 0 && idx < len); return values[idx]; } }; private: llvm::LLVMContext Context; llvm::Module *M; llvm::FunctionPassManager *TheFPM; llvm::ExecutionEngine *TheExecutionEngine; bool strip_code; // struct types. llvm::Type *Ty_TValue; llvm::Type *Ty_TValue_ptr; llvm::Type *Ty_LClosure; llvm::Type *Ty_LClosure_ptr; llvm::Type *Ty_lua_State; llvm::Type *Ty_lua_State_ptr; // common function types. llvm::FunctionType *lua_func_type; // functions to get LClosure & constants pointer. llvm::Function *vm_get_current_closure; llvm::Function *vm_get_current_constants; llvm::Function *vm_get_number; llvm::Function *vm_get_long; llvm::Function *vm_set_number; llvm::Function *vm_set_long; // function for counting each executed op. llvm::Function *vm_count_OP; // function for print each executed op. llvm::Function *vm_print_OP; // function for handling count/line debug hooks. llvm::Function *vm_next_OP; // function for handling a block of simple opcodes. llvm::Function *vm_mini_vm; // available op function for each opcode. OPFunc **vm_op_funcs; // count compiled opcodes. int *opcode_stats; // timers llvm::Timer *lua_to_llvm; llvm::Timer *codegen; // opcode hints/values/blocks/need_block arrays used in compile() method. int opcode_data_len; // length of opcode arrays. hint_t *op_hints; OPValues **op_values; llvm::BasicBlock **op_blocks; bool *need_op_block; // resize the opcode hint data arrays. void resize_opcode_data(int code_len); // reset/clear the opcode hint data arrays. void clear_opcode_data(int code_len); public: LLVMCompiler(int useJIT); ~LLVMCompiler(); /* * set code stripping mode. */ void setStripCode(bool strip) { strip_code = strip; } /* * return the module. */ llvm::Module *getModule() { return M; } llvm::LLVMContext& getCtx() { return Context; } llvm::FunctionType *get_lua_func_type() { return lua_func_type; } llvm::Type *get_var_type(val_t type, hint_t hints); llvm::Value *get_proto_constant(TValue *constant); /* * Pre-Compile all loaded functions. */ void compileAll(lua_State *L, Proto *parent); void compile(lua_State *L, Proto *p); void free(lua_State *L, Proto *p); }; #endif ================================================ FILE: llvm-lua/LLVMDumper.cpp ================================================ /* Copyright (c) 2009 Robert G. Jakabosky Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. MIT License: http://www.opensource.org/licenses/mit-license.php */ #include "llvm/DerivedTypes.h" #include "llvm/Module.h" #include "llvm/Target/TargetData.h" #include "llvm/Linker.h" #include "llvm/Analysis/Verifier.h" #include "llvm/Bitcode/ReaderWriter.h" #include "llvm/Support/CommandLine.h" #include "llvm/Support/raw_ostream.h" #include #include #include #include #include "LLVMCompiler.h" #include "LLVMDumper.h" #include "lstate.h" #include "load_jit_proto.h" #include "load_liblua_main.h" static llvm::cl::opt LuaModule("lua-module", llvm::cl::desc("Generate a Lua Module instead of a standalone exe."), llvm::cl::init(false)); static llvm::cl::opt NoMain("no-main", llvm::cl::desc("Don't link in liblua_main.bc."), llvm::cl::init(false)); //===----------------------------------------------------------------------===// // Dump a compilable bitcode module. //===----------------------------------------------------------------------===// LLVMDumper::LLVMDumper(LLVMCompiler *compiler_) : compiler(compiler_) { std::vector fields; llvm::TargetData *type_info; llvm::Type *value_type; llvm::ArrayType *pad_type; int num_size; int ptr_size; int max_size=0; int pad_size=0; M = compiler->getModule(); // get target size of pointer & double type_info = new llvm::TargetData(M); num_size = type_info->getTypeStoreSize(llvm::Type::getDoubleTy(getCtx())); max_size = num_size; ptr_size = type_info->getPointerSize(); if(ptr_size > max_size) max_size = ptr_size; delete type_info; lua_func_type = compiler->get_lua_func_type(); lua_func_type_ptr = llvm::PointerType::get(lua_func_type, 0); Ty_str_ptr=llvm::PointerType::get(llvm::IntegerType::get(getCtx(), 8), 0); // // create constant_type structure type. // // union.constant_value // TODO: handle LUA_NUMBER types other then 'double'. fields.push_back(llvm::Type::getDoubleTy(getCtx())); Ty_constant_value = llvm::StructType::create(getCtx(), fields, "union.constant_value", false); // struct.constant_type fields.clear(); fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // type fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // length fields.push_back(Ty_constant_value); // val Ty_constant_type = llvm::StructType::create(getCtx(), fields, "struct.constant_type", false); Ty_constant_type_ptr = llvm::PointerType::get(Ty_constant_type, 0); // struct.constant_num_type fields.clear(); fields.push_back(llvm::Type::getDoubleTy(getCtx())); // double value_type = llvm::StructType::get(getCtx(), fields, false); fields.clear(); fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // type fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // length fields.push_back(value_type); // val (double) Ty_constant_num_type = llvm::StructType::create(getCtx(), fields, "struct.constant_num_type", false); num_padding = NULL; // struct.constant_bool_type fields.clear(); fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // boolean pad_size = max_size - 4; if(pad_size > 0) { pad_type = llvm::ArrayType::get(llvm::IntegerType::get(getCtx(), 8), pad_size); bool_padding = llvm::Constant::getNullValue(pad_type); fields.push_back(pad_type); // padding } else { bool_padding = NULL; } value_type = llvm::StructType::get(getCtx(), fields, false); fields.clear(); fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // type fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // length fields.push_back(value_type); // val (boolean) Ty_constant_bool_type = llvm::StructType::create(getCtx(), fields, "struct.constant_bool_type", false); // struct.constant_str_type fields.clear(); fields.push_back(Ty_str_ptr); // char * pad_size = max_size - ptr_size; if(pad_size > 0) { pad_type = llvm::ArrayType::get(llvm::IntegerType::get(getCtx(), 8), pad_size); str_padding = llvm::Constant::getNullValue(pad_type); fields.push_back(pad_type); // padding } else { str_padding = NULL; } value_type = llvm::StructType::get(getCtx(), fields, false); fields.clear(); fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // type fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // length fields.push_back(value_type); // val (char *) Ty_constant_str_type = llvm::StructType::create(getCtx(), fields, "struct.constant_str_type", false); // // create jit_LocVar structure type. // fields.clear(); fields.push_back(Ty_str_ptr); // varname fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // startpc fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // endpc Ty_jit_LocVar = llvm::StructType::create(getCtx(), fields, "struct.jit_LocVar", false); Ty_jit_LocVar_ptr = llvm::PointerType::get(Ty_jit_LocVar, 0); // // create jit_proto structure type. // fields.clear(); Ty_jit_proto = llvm::StructType::create(getCtx(), "struct.jit_proto"); fields.push_back(Ty_str_ptr); // name fields.push_back(lua_func_type_ptr); // jit_func fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // linedefined fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // lastlinedefined fields.push_back(llvm::IntegerType::get(getCtx(), 8)); // nups fields.push_back(llvm::IntegerType::get(getCtx(), 8)); // numparams fields.push_back(llvm::IntegerType::get(getCtx(), 8)); // is_vararg fields.push_back(llvm::IntegerType::get(getCtx(), 8)); // maxstacksize fields.push_back(llvm::IntegerType::get(getCtx(), 16)); // sizek fields.push_back(llvm::IntegerType::get(getCtx(), 16)); // sizelocvars fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // sizeupvalues fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // sizep fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // sizecode fields.push_back(llvm::IntegerType::get(getCtx(), 32)); // sizelineinfo fields.push_back(Ty_constant_type_ptr); // k fields.push_back(Ty_jit_LocVar_ptr); // locvars fields.push_back(llvm::PointerType::get(Ty_str_ptr, 0)); // upvalues fields.push_back(llvm::PointerType::get(Ty_jit_proto, 0)); // p fields.push_back(llvm::PointerType::get(llvm::IntegerType::get(getCtx(), 32), 0)); // code fields.push_back(llvm::PointerType::get(llvm::IntegerType::get(getCtx(), 32), 0)); // lineinfo Ty_jit_proto->setBody(fields, false); Ty_jit_proto_ptr = llvm::PointerType::get(Ty_jit_proto, 0); } void LLVMDumper::dump(const char *output, lua_State *L, Proto *p, int stripping) { llvm::raw_fd_ostream *out; std::string error; llvm::Module *liblua_main = NULL; out = new llvm::raw_fd_ostream(output, error, llvm::raw_fd_ostream::F_Binary); if(error.empty()) { compiler->setStripCode(stripping); // Internalize all opcode functions. for (llvm::Module::iterator I = M->begin(), E = M->end(); I != E; ++I) { llvm::Function *Fn = &*I; if (!Fn->isDeclaration()) Fn->setLinkage(llvm::GlobalValue::getLinkOnceLinkage(true)); } // Compile all Lua prototypes to LLVM IR compiler->compileAll(L, p); if(LuaModule) { // Dump proto info to static variable and create 'luaopen_' function. dump_lua_module(p, output); } else { // Dump proto info to global for standalone exe. dump_standalone(p); // link with liblua_main.bc if(!NoMain) { liblua_main = load_liblua_main(getCtx(), true); if(llvm::Linker::LinkModules(M, liblua_main, llvm::Linker::DestroySource, &error)) { fprintf(stderr, "Failed to link compiled Lua script with embedded 'liblua_main.bc': %s", error.c_str()); exit(1); } } } llvm::verifyModule(*M); llvm::WriteBitcodeToFile(M, *out); delete out; } else { delete out; fprintf(stderr, "Failed to open output file: %s", error.c_str()); exit(1); } } llvm::Constant *LLVMDumper::get_ptr(llvm::Constant *val) { std::vector idxList; idxList.push_back(llvm::Constant::getNullValue(llvm::IntegerType::get(getCtx(), 32))); idxList.push_back(llvm::Constant::getNullValue(llvm::IntegerType::get(getCtx(), 32))); return llvm::ConstantExpr::getGetElementPtr(val, idxList); } llvm::Constant *LLVMDumper::get_global_str(const char *str) { llvm::Constant *str_const = llvm::ConstantDataArray::getString(getCtx(), str, true); llvm::GlobalVariable *var_str = new llvm::GlobalVariable(*M, str_const->getType(), true, llvm::GlobalValue::InternalLinkage, str_const, ".str"); return get_ptr(var_str); } llvm::GlobalVariable *LLVMDumper::dump_constants(Proto *p) { llvm::GlobalVariable *constant; llvm::Constant *array_struct; std::vector array_struct_fields; for(int i = 0; i < p->sizek; i++) { int const_type = 0; int const_length = 0; llvm::StructType *type; std::vector tmp_struct; llvm::Constant *value; TValue *tval = &(p->k[i]); const_length = 0; switch(ttype(tval)) { case LUA_TSTRING: const_type = TYPE_STRING; const_length = tsvalue(tval)->len; type = Ty_constant_str_type; tmp_struct.push_back(get_global_str(svalue(tval))); if(str_padding != NULL) { tmp_struct.push_back(str_padding); } value = llvm::ConstantStruct::getAnon(getCtx(), tmp_struct, false); break; case LUA_TBOOLEAN: const_type = TYPE_BOOLEAN; type = Ty_constant_bool_type; tmp_struct.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32, !l_isfalse(tval)))); if(bool_padding != NULL) { tmp_struct.push_back(bool_padding); } value = llvm::ConstantStruct::getAnon(getCtx(), tmp_struct, false); break; case LUA_TNUMBER: const_type = TYPE_NUMBER; type = Ty_constant_num_type; tmp_struct.push_back(llvm::ConstantFP::get(getCtx(), llvm::APFloat(nvalue(tval)))); if(num_padding != NULL) { tmp_struct.push_back(num_padding); } value = llvm::ConstantStruct::getAnon(getCtx(), tmp_struct, false); break; case LUA_TNIL: default: const_type = TYPE_NIL; type = Ty_constant_bool_type; tmp_struct.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32, 0))); if(bool_padding != NULL) { tmp_struct.push_back(bool_padding); } value = llvm::ConstantStruct::getAnon(getCtx(), tmp_struct, false); break; } tmp_struct.clear(); tmp_struct.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32, const_type))); tmp_struct.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32, const_length))); tmp_struct.push_back(value); array_struct_fields.push_back(llvm::ConstantStruct::get(type, tmp_struct)); } array_struct = llvm::ConstantStruct::getAnon(getCtx(), array_struct_fields, false); constant = new llvm::GlobalVariable(*M, array_struct->getType(), true, llvm::GlobalValue::InternalLinkage, array_struct, ".constants"); //constant->setAlignment(32); return constant; } llvm::GlobalVariable *LLVMDumper::dump_locvars(Proto *p) { llvm::GlobalVariable *constant; llvm::Constant *array_struct; std::vector array_struct_fields; std::vector tmp_struct; for(int i = 0; i < p->sizelocvars; i++) { LocVar *locvar = &(p->locvars[i]); tmp_struct.clear(); tmp_struct.push_back(get_global_str(getstr(locvar->varname))); tmp_struct.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32, locvar->startpc))); tmp_struct.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32, locvar->endpc))); array_struct_fields.push_back(llvm::ConstantStruct::get(Ty_jit_LocVar, tmp_struct)); } array_struct = llvm::ConstantStruct::getAnon(getCtx(), array_struct_fields, false); constant = new llvm::GlobalVariable(*M, array_struct->getType(), true, llvm::GlobalValue::InternalLinkage, array_struct, ".locvars"); //constant->setAlignment(32); return constant; } llvm::GlobalVariable *LLVMDumper::dump_upvalues(Proto *p) { llvm::GlobalVariable *constant; llvm::Constant *array_struct; std::vector array_struct_fields; for(int i = 0; i < p->sizeupvalues; i++) { array_struct_fields.push_back(get_global_str(getstr(p->upvalues[i]))); } array_struct = llvm::ConstantStruct::getAnon(getCtx(), array_struct_fields, false); constant = new llvm::GlobalVariable(*M, array_struct->getType(), true, llvm::GlobalValue::InternalLinkage, array_struct, ".upvalues"); //constant->setAlignment(32); return constant; } llvm::Constant *LLVMDumper::dump_proto(Proto *p) { std::vector jit_proto_fields; std::vector tmp_array; llvm::Function *func = (llvm::Function *)p->func_ref; llvm::GlobalVariable *tmp_global; llvm::Constant *tmp_constant; // name jit_proto_fields.push_back(get_global_str(getstr(p->source))); // jit_func if(func) { jit_proto_fields.push_back(func); } else { jit_proto_fields.push_back(llvm::Constant::getNullValue(lua_func_type_ptr)); } // linedefined jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32,p->linedefined))); // lastlinedefined jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32,p->lastlinedefined))); // nups jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(8,p->nups))); // numparams jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(8,p->numparams))); // is_vararg jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(8,p->is_vararg))); // maxstacksize jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(8,p->maxstacksize))); // sizek jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(16,p->sizek))); // sizelocvars jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(16,p->sizelocvars))); // sizeupvalues jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32,p->sizeupvalues))); // sizep jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32,p->sizep))); // sizecode jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32,p->sizecode))); // sizelineinfo jit_proto_fields.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32,p->sizelineinfo))); // k jit_proto_fields.push_back( llvm::ConstantExpr::getCast(llvm::Instruction::BitCast, dump_constants(p), Ty_constant_type_ptr)); // locvars jit_proto_fields.push_back( llvm::ConstantExpr::getCast(llvm::Instruction::BitCast, dump_locvars(p), Ty_jit_LocVar_ptr)); // upvalues jit_proto_fields.push_back( llvm::ConstantExpr::getCast(llvm::Instruction::BitCast, dump_upvalues(p), llvm::PointerType::get(Ty_str_ptr, 0))); // p if(p->sizep > 0) { tmp_array.clear(); for(int i = 0; i < p->sizep; i++) { tmp_array.push_back(dump_proto(p->p[i])); } tmp_constant = llvm::ConstantArray::get(llvm::ArrayType::get(Ty_jit_proto,p->sizep),tmp_array); tmp_global = new llvm::GlobalVariable(*M, tmp_constant->getType(), false, llvm::GlobalValue::InternalLinkage, tmp_constant, ".sub_protos"); jit_proto_fields.push_back(get_ptr(tmp_global)); } else { jit_proto_fields.push_back(llvm::Constant::getNullValue(Ty_jit_proto_ptr)); } // code if(p->sizecode > 0) { tmp_array.clear(); for(int i = 0; i < p->sizecode; i++) { tmp_array.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32,p->code[i]))); } tmp_constant = llvm::ConstantArray::get(llvm::ArrayType::get(llvm::IntegerType::get(getCtx(), 32),p->sizecode),tmp_array); tmp_global = new llvm::GlobalVariable(*M, tmp_constant->getType(), false, llvm::GlobalValue::InternalLinkage, tmp_constant, ".proto_code"); jit_proto_fields.push_back(get_ptr(tmp_global)); } else { jit_proto_fields.push_back(llvm::Constant::getNullValue(llvm::PointerType::get(llvm::IntegerType::get(getCtx(), 32), 0))); } // lineinfo if(p->sizelineinfo > 0) { tmp_array.clear(); for(int i = 0; i < p->sizelineinfo; i++) { tmp_array.push_back(llvm::ConstantInt::get(getCtx(), llvm::APInt(32,p->lineinfo[i]))); } tmp_constant = llvm::ConstantArray::get(llvm::ArrayType::get(llvm::IntegerType::get(getCtx(), 32),p->sizelineinfo),tmp_array); tmp_global = new llvm::GlobalVariable(*M, tmp_constant->getType(), false, llvm::GlobalValue::InternalLinkage, tmp_constant, ".proto_lineinfo"); jit_proto_fields.push_back(get_ptr(tmp_global)); } else { jit_proto_fields.push_back(llvm::Constant::getNullValue(llvm::PointerType::get(llvm::IntegerType::get(getCtx(), 32), 0))); } return llvm::ConstantStruct::get(Ty_jit_proto, jit_proto_fields); } void LLVMDumper::dump_standalone(Proto *p) { // // dump protos to a global variable for re-loading. // llvm::Constant *jit_proto = dump_proto(p); //llvm::GlobalVariable *gjit_proto_init = new llvm::GlobalVariable(*M, Ty_jit_proto, false, llvm::GlobalValue::ExternalLinkage, jit_proto, "jit_proto_init"); //gjit_proto_init->setAlignment(32); } void LLVMDumper::dump_lua_module(Proto *p, std::string mod_name) { llvm::IRBuilder<> Builder(getCtx()); llvm::Function *func; llvm::Function *load_compiled_module_func; llvm::BasicBlock *block=NULL; llvm::Value *func_L; llvm::CallInst *call=NULL; std::vector func_args; llvm::FunctionType *func_type; std::string name = "luaopen_"; std::string tmp; size_t n; // // normalize mod_name. // // remove '.bc' from end of mod_name. n = mod_name.size()-3; if(n > 0) { tmp = mod_name.substr(n, 3); if(tmp[0] == '.') { if(tmp[1] == 'b' || tmp[1] == 'B') { if(tmp[2] == 'c' || tmp[2] == 'C') { mod_name = mod_name.substr(0, n); } } } } // convert non-alphanum chars to '_' for(n = 0; n < mod_name.size(); n++) { char c = mod_name[n]; if((c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || (c >= '0' && c <= '9')) continue; if(c == '\n' || c == '\r') { mod_name = mod_name.substr(0,n); break; } mod_name[n] = '_'; } // // dump protos to a static variable for re-loading. // llvm::Constant *jit_proto = dump_proto(p); llvm::GlobalVariable *gjit_proto_init = new llvm::GlobalVariable(*M, Ty_jit_proto, false, llvm::GlobalValue::InternalLinkage, jit_proto, "jit_proto_init"); //gjit_proto_init->setAlignment(32); // // dump 'luaopen_' for loading the module. // name.append(mod_name); func = llvm::Function::Create(lua_func_type, llvm::Function::ExternalLinkage, name, M); // name arg1 = "L" func_L = func->arg_begin(); func_L->setName("L"); // entry block block = llvm::BasicBlock::Create(getCtx(), "entry", func); Builder.SetInsertPoint(block); // call 'load_compiled_module' load_compiled_module_func = M->getFunction("load_compiled_module"); if(load_compiled_module_func == NULL) { func_args.clear(); func_args.push_back(func_L->getType()); func_args.push_back(Ty_jit_proto_ptr); func_type = llvm::FunctionType::get(llvm::IntegerType::get(getCtx(), 32), func_args, false); load_compiled_module_func = llvm::Function::Create(func_type, llvm::Function::ExternalLinkage, "load_compiled_module", M); } call=Builder.CreateCall2(load_compiled_module_func, func_L, gjit_proto_init); call->setTailCall(true); Builder.CreateRet(call); //func->dump(); } ================================================ FILE: llvm-lua/LLVMDumper.h ================================================ /* Copyright (c) 2009 Robert G. Jakabosky Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. MIT License: http://www.opensource.org/licenses/mit-license.php */ #ifndef LLVMDUMPER_h #define LLVMDUMPER_h #include "llvm/Module.h" #include "lua_core.h" #ifdef __cplusplus extern "C" { #endif #include "lobject.h" #ifdef __cplusplus } #endif namespace llvm { class Module; class Type; class StructType; class FunctionType; class Constant; class GlobalVariable; } class LLVMCompiler; class LLVMDumper { private: LLVMCompiler *compiler; llvm::Module *M; // types. llvm::Type *Ty_str_ptr; llvm::StructType *Ty_constant_value; llvm::StructType *Ty_constant_type; llvm::Type *Ty_constant_type_ptr; llvm::StructType *Ty_constant_num_type; llvm::Constant *num_padding; llvm::StructType *Ty_constant_bool_type; llvm::Constant *bool_padding; llvm::StructType *Ty_constant_str_type; llvm::Constant *str_padding; llvm::StructType *Ty_jit_LocVar; llvm::Type *Ty_jit_LocVar_ptr; llvm::StructType *Ty_jit_proto; llvm::Type *Ty_jit_proto_ptr; llvm::FunctionType *lua_func_type; llvm::Type *lua_func_type_ptr; public: LLVMDumper(LLVMCompiler *compiler); void dump(const char *output, lua_State *L, Proto *p, int stripping); llvm::LLVMContext& getCtx() const { return compiler->getCtx(); } private: llvm::Constant *get_ptr(llvm::Constant *val); llvm::Constant *get_global_str(const char *str); llvm::GlobalVariable *dump_constants(Proto *p); llvm::GlobalVariable *dump_locvars(Proto *p); llvm::GlobalVariable *dump_upvalues(Proto *p); llvm::Constant *dump_proto(Proto *p); void dump_standalone(Proto *p); void dump_lua_module(Proto *p, std::string mod_name); }; #endif ================================================ FILE: llvm-lua/TODO ================================================ optimizations: * When the internal index/limit/step variable of a OP_FORLOOP get moved to the C-Stack the space on the Lua-stack is unused. We should be able to decrease the maxstacksize by re-using those stack slots. * Try to inline some table/global lookups if they have a constant key. ================================================ FILE: llvm-lua/bin2c.c ================================================ /* * bin2c.c * * convert a binary file into a C source vector * * THE "BEER-WARE LICENSE" (Revision 3.1415): * sandro AT sigala DOT it wrote this file. As long as you retain this notice you can do * whatever you want with this stuff. If we meet some day, and you think this stuff is * worth it, you can buy me a beer in return. Sandro Sigala * * syntax: bin2c [-c] [-z] * * -c add the "const" keyword to definition * -z terminate the array with a zero (useful for embedded C strings) * * examples: * bin2c -c myimage.png myimage_png.cpp * bin2c -z sometext.txt sometext_txt.cpp */ #include #include #include #include #ifndef PATH_MAX #define PATH_MAX 1024 #endif int useconst = 0; int zeroterminated = 0; int myfgetc(FILE *f) { int c = fgetc(f); if (c == EOF && zeroterminated) { zeroterminated = 0; return 0; } return c; } void process(const char *ifname, const char *ofname) { FILE *ifile, *ofile; ifile = fopen(ifname, "rb"); if (ifile == NULL) { fprintf(stderr, "cannot open %s for reading\n", ifname); exit(1); } ofile = fopen(ofname, "wb"); if (ofile == NULL) { fprintf(stderr, "cannot open %s for writing\n", ofname); exit(1); } char buf[PATH_MAX], *p; const char *cp; if ((cp = strrchr(ifname, '/')) != NULL) { ++cp; } else { if ((cp = strrchr(ifname, '\\')) != NULL) ++cp; else cp = ifname; } strcpy(buf, cp); for (p = buf; *p != '\0'; ++p) { if (!isalnum(*p)) *p = '_'; } fprintf(ofile, "static %sunsigned char %s[] = {\n", useconst ? "const " : "", buf); int c, col = 1; while ((c = myfgetc(ifile)) != EOF) { if (col >= 78 - 6) { fputc('\n', ofile); col = 1; } fprintf(ofile, "0x%.2x,", c); col += 6; } fprintf(ofile, "\n};\n"); fclose(ifile); fclose(ofile); } void usage(void) { fprintf(stderr, "usage: bin2c [-cz] \n"); exit(1); } int main(int argc, char **argv) { while (argc > 3) { if (!strcmp(argv[1], "-c")) { useconst = 1; --argc; ++argv; } else if (!strcmp(argv[1], "-z")) { zeroterminated = 1; --argc; ++argv; } else { usage(); } } if (argc != 3) { usage(); } process(argv[1], argv[2]); return 0; } ================================================ FILE: llvm-lua/compile_all.sh ================================================ #!/usr/bin/env bash # OPTS="" FILES="" # parse command line parameters. for arg in "$@" ; do case "$arg" in -*) OPTS="$OPTS $arg" ;; *) FILES="$FILES $arg" ;; esac done for script in $FILES; do echo "Compiling script: $script" lua-compiler $OPTS $script #./lua-compiler $OPTS $script done ================================================ FILE: llvm-lua/hook_parser.c ================================================ /* ** See Copyright Notice in lua.h */ /* * hook_parser.c - Add a hook to the parser in ldo.c * * Most of this code is from ldo.c */ #ifdef __cplusplus extern "C" { #endif #if !ENABLE_PARSER_HOOK #include "ldo.c" int llvm_precall_lua (lua_State *L, StkId func, int nresults) { return luaD_precall_lua(L, func, nresults); } #else #include "llvm_compiler.h" #define luaD_protectedparser luaD_protectedparser_old #include "ldo.c" #undef luaD_protectedparser static void llvm_f_parser (lua_State *L, void *ud) { int i; Proto *tf; Closure *cl; struct SParser *p = cast(struct SParser *, ud); int c = luaZ_lookahead(p->z); luaC_checkGC(L); set_block_gc(L); /* stop collector during parsing */ tf = ((c == LUA_SIGNATURE[0]) ? luaU_undump : luaY_parser)(L, p->z, &p->buff, p->name); llvm_compiler_compile_all(L, tf); cl = luaF_newLclosure(L, tf->nups, hvalue(gt(L))); cl->l.p = tf; for (i = 0; i < tf->nups; i++) /* initialize eventual upvalues */ cl->l.upvals[i] = luaF_newupval(L); setclvalue(L, L->top, cl); incr_top(L); unset_block_gc(L); } int luaD_protectedparser (lua_State *L, ZIO *z, const char *name) { struct SParser p; int status; p.z = z; p.name = name; luaZ_initbuffer(L, &p.buff); status = luaD_pcall(L, llvm_f_parser, &p, savestack(L, L->top), L->errfunc); luaZ_freebuffer(L, &p.buff); return status; } int llvm_precall_jit (lua_State *L, StkId func, int nresults) { Closure *cl; ptrdiff_t funcr; CallInfo *ci; StkId st, base; Proto *p; funcr = savestack(L, func); cl = clvalue(func); p = cl->l.p; luaD_checkstack(L, p->maxstacksize); func = restorestack(L, funcr); base = func + 1; if (L->top > base + p->numparams) L->top = base + p->numparams; ci = L->ci; /* now `enter' new function */ ci->func = func; L->base = ci->base = base; ci->top = L->base + p->maxstacksize; lua_assert(ci->top <= L->stack_last); L->savedpc = p->code; /* starting point */ ci->nresults = nresults; for (st = L->top; st < ci->top; st++) setnilvalue(st); L->top = ci->top; if (L->hookmask & LUA_MASKCALL) { L->savedpc++; /* hooks assume 'pc' is already incremented */ luaD_callhook(L, LUA_HOOKCALL, -1); L->savedpc--; /* correct 'pc' */ } return (p->jit_func)(L); /* do the actual call */ } int llvm_precall_jit_vararg (lua_State *L, StkId func, int nresults) { Closure *cl; ptrdiff_t funcr; CallInfo *ci; StkId st, base; Proto *p; int nargs; funcr = savestack(L, func); cl = clvalue(func); p = cl->l.p; luaD_checkstack(L, p->maxstacksize); func = restorestack(L, funcr); nargs = cast_int(L->top - func) - 1; base = adjust_varargs(L, p, nargs); func = restorestack(L, funcr); /* previous call may change the stack */ ci = L->ci; /* now `enter' new function */ ci->func = func; L->base = ci->base = base; ci->top = L->base + p->maxstacksize; lua_assert(ci->top <= L->stack_last); L->savedpc = p->code; /* starting point */ ci->nresults = nresults; for (st = L->top; st < ci->top; st++) setnilvalue(st); L->top = ci->top; if (L->hookmask & LUA_MASKCALL) { L->savedpc++; /* hooks assume 'pc' is already incremented */ luaD_callhook(L, LUA_HOOKCALL, -1); L->savedpc--; /* correct 'pc' */ } return (p->jit_func)(L); /* do the actual call */ } int llvm_precall_lua (lua_State *L, StkId func, int nresults) { Closure *cl; Proto *p; cl = clvalue(func); p = cl->l.p; /* check if Function needs to be compiled. */ if(p->jit_func == NULL) { llvm_compiler_compile(L, p); } if(p->jit_func != NULL) { if (!p->is_vararg) { /* no varargs? */ cl->l.precall = llvm_precall_jit; return llvm_precall_jit(L, func, nresults); } else { cl->l.precall = llvm_precall_jit_vararg; return llvm_precall_jit_vararg(L, func, nresults); } } /* function didn't compile, fall-back to lua interpreter */ cl->l.precall = luaD_precall_lua; return luaD_precall_lua(L, func, nresults); } #endif #ifdef __cplusplus } #endif ================================================ FILE: llvm-lua/llvm-lua.cpp ================================================ /* Copyright (c) 2009 Robert G. Jakabosky Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. MIT License: http://www.opensource.org/licenses/mit-license.php */ #include #include "llvm_compiler.h" #include "lua_interpreter.h" #include "llvm/Support/CommandLine.h" #include "llvm/Support/ManagedStatic.h" namespace { llvm::cl::opt InputFile(llvm::cl::Positional, llvm::cl::desc("