Merge branch 'master'

.clang-format

@@ -0,0 +1,42 @@
+BasedOnStyle: LLVM
+
+# Include sorting and grouping
+SortIncludes: CaseSensitive
+IncludeBlocks: Preserve
+IncludeCategories:
+  - Regex: '<Windows\.h>'
+    Priority: 1
+  - Regex: '<Psapi\.h>'
+    Priority: 2
+  - Regex: '"BlHooks\\.hpp"'
+    Priority: 3
+  - Regex: '"BlFuncs\\.hpp"'
+    Priority: 4
+  - Regex: ".*"
+    Priority: 5
+
+# Indentation settings
+IndentWidth: 2
+UseTab: Never
+IndentAccessModifiers: false
+AccessModifierOffset: 0
+NamespaceIndentation: All
+
+# Line breaking and wrapping
+ColumnLimit: 120
+BreakBeforeTernaryOperators: false
+BreakBeforeBinaryOperators: None
+AlwaysBreakAfterReturnType: None
+AlwaysBreakAfterDefinitionReturnType: None
+
+# Alignment
+AlignOperands: DontAlign
+AlignAfterOpenBracket: AlwaysBreak
+PointerAlignment: Left
+
+# Parameter formatting
+BinPackParameters: false
+AllowAllParametersOfDeclarationOnNextLine: false
+
+# Code organization
+SeparateDefinitionBlocks: Always

.editorconfig

@@ -0,0 +1,9 @@
+root = true
+
+[*]
+indent_style = space
+indent_size = 2
+end_of_line = lf
+charset = utf-8
+trim_trailing_whitespace = true
+insert_final_newline = true

.gitignore

@@ -1,3 +1,2 @@
-.*
-!.gitignore
 build/
+.cache/

.vscode/settings.json

@@ -0,0 +1,11 @@
+{
+  "Lua.diagnostics.globals": [
+    "_bllua_ts",
+    "_bllua_requiresecure",
+    "_bllua_on_unload"
+  ],
+  "Lua.runtime.version": "Lua 5.1",
+  "Lua.diagnostics.disable": ["lowercase-global", "undefined-global"],
+  "C_Cpp.default.compileCommands": "${workspaceFolder}/build/compile_commands.json",
+  "C_Cpp.default.compilerPath": "C:/msys64/mingw32/bin/g++.exe"
+}

CMakeLists.txt

@@ -0,0 +1,56 @@
+cmake_minimum_required(VERSION 3.10)
+
+project(BlockLua CXX)
+
+# Export compile_commands.json for VSCode IntelliSense
+set(CMAKE_EXPORT_COMPILE_COMMANDS ON)
+
+# Output directories to mirror build.bat's build folder
+set(OUTPUT_DIR ${CMAKE_SOURCE_DIR}/build)
+set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${OUTPUT_DIR})
+set(CMAKE_LIBRARY_OUTPUT_DIRECTORY ${OUTPUT_DIR})
+set(CMAKE_ARCHIVE_OUTPUT_DIRECTORY ${OUTPUT_DIR})
+
+# Global build options to mirror build.bat
+add_compile_options(
+  -Wall
+  -Werror
+  -m32
+  -static-libgcc
+  -static-libstdc++
+)
+
+# Include paths
+include_directories(
+  ${CMAKE_SOURCE_DIR}/src
+  ${CMAKE_SOURCE_DIR}/inc/tsfuncs
+  ${CMAKE_SOURCE_DIR}/inc/lua
+)
+
+# Link directories (for -L.) and libraries from build.bat
+link_directories(
+  ${CMAKE_SOURCE_DIR}
+)
+
+# Safe DLL
+add_library(BlockLua SHARED src/bllua4.cpp)
+# Ensure output name matches build.bat
+set_target_properties(BlockLua PROPERTIES OUTPUT_NAME "BlockLua")
+# Linker flags and libraries
+if(MSVC)
+  # Not expected with mingw, but keep placeholder
+else()
+  target_link_libraries(BlockLua PRIVATE psapi lua5.1)
+endif()
+
+# Unsafe DLL (with BLLUA_UNSAFE definition)
+add_library(BlockLuaUnsafe SHARED src/bllua4.cpp)
+set_target_properties(BlockLuaUnsafe PROPERTIES OUTPUT_NAME "BlockLua-Unsafe")
+
+target_compile_definitions(BlockLuaUnsafe PRIVATE BLLUA_UNSAFE)
+
+if(MSVC)
+  # Not expected with mingw, but keep placeholder
+else()
+  target_link_libraries(BlockLuaUnsafe PRIVATE psapi lua5.1)
+endif()

build.bat

@@ -0,0 +1,27 @@
+@echo off
+cd /d %~dp0
+
+REM Ensure MinGW32 toolchain is first in PATH
+set "PATH=C:\msys64\mingw32\bin;%PATH%"
+
+REM Configure CMake (generate into build/)
+cmake -S . -B build -G "MinGW Makefiles"
+if errorlevel 1 goto :error
+
+REM Build (Release by default)
+cmake --build build --config Release -j
+if errorlevel 1 goto :error
+
+echo.
+echo Build completed.
+echo Outputs in .\build :
+echo   - BlockLua.dll
+
+echo   - BlockLua-Unsafe.dll
+
+exit /b 0
+
+:error
+echo.
+echo Build failed. See errors above.
+exit /b 1

compile.bat

@@ -1,19 +0,0 @@
-@echo off
-cd /d %~dp0
-
-rem ensure build directory exists
-if not exist build mkdir build
-
-set buildargs=-Wall -Werror -m32 -shared -Isrc -Iinc/tsfuncs -Iinc/lua -lpsapi -L. -llua5.1 -static-libgcc -static-libstdc++
-
-echo on
-
-g++ src/bllua4.cpp %buildargs% -o build\BlockLua.dll
-@rem g++ -DBLLUA_UNSAFE src/bllua4.cpp %buildargs% -o BlockLua-Unsafe.dll
-
-@echo off
-
-rem objdump -d build\BlockLua.dll > build\BlockLua.dll.dump.txt
-rem objdump -d build\BlockLua-Unsafe.dll > build\BlockLua-Unsafe.dll.dump.txt
-
-pause

compiling.md

@@ -27,7 +27,7 @@ What these packages are for:
 - Run the script:
 
 ```powershell
-msys_compile.bat
+build.bat
 ```
 
 What the script does:
@@ -48,5 +48,5 @@ You should see `architecture: i386` in the output.
 
 ### Notes
 
-- Ensure you installed the i686 (32-bit) variants of the packages; x86_64 packages won’t work for a 32-bit build.
+- Ensure you installed the i686 (32-bit) variants of the packages; x86_64 packages won't work for a 32-bit build.
 - If the linker cannot find `-llua5.1`, confirm `mingw-w64-i686-lua51` is installed and you are using the `mingw32` toolchain (not `x86_64`).

inc/lua/lauxlib.h

@@ -4,93 +4,75 @@
 ** See Copyright Notice in lua.h
 */
 
-
 #ifndef lauxlib_h
 #define lauxlib_h
 
-
 #include <stddef.h>
 #include <stdio.h>
 
 #include "lua.h"
 
-
 /* extra error code for `luaL_load' */
-#define LUA_ERRFILE     (LUA_ERRERR+1)
+#define LUA_ERRFILE (LUA_ERRERR + 1)
 
 typedef struct luaL_Reg {
-  const char *name;
+  const char* name;
   lua_CFunction func;
 } luaL_Reg;
 
-LUALIB_API void (luaL_openlib) (lua_State *L, const char *libname,
-                                const luaL_Reg *l, int nup);
-LUALIB_API void (luaL_register) (lua_State *L, const char *libname,
-                                const luaL_Reg *l);
-LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e);
-LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e);
-LUALIB_API int (luaL_typerror) (lua_State *L, int narg, const char *tname);
-LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg);
-LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg,
-                                                          size_t *l);
-LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg,
-                                          const char *def, size_t *l);
-LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg);
-LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def);
+LUALIB_API void(luaL_openlib)(lua_State* L, const char* libname, const luaL_Reg* l, int nup);
+LUALIB_API void(luaL_register)(lua_State* L, const char* libname, const luaL_Reg* l);
+LUALIB_API int(luaL_getmetafield)(lua_State* L, int obj, const char* e);
+LUALIB_API int(luaL_callmeta)(lua_State* L, int obj, const char* e);
+LUALIB_API int(luaL_typerror)(lua_State* L, int narg, const char* tname);
+LUALIB_API int(luaL_argerror)(lua_State* L, int numarg, const char* extramsg);
+LUALIB_API const char*(luaL_checklstring)(lua_State * L, int numArg, size_t* l);
+LUALIB_API const char*(luaL_optlstring)(lua_State * L, int numArg, const char* def, size_t* l);
+LUALIB_API lua_Number(luaL_checknumber)(lua_State* L, int numArg);
+LUALIB_API lua_Number(luaL_optnumber)(lua_State* L, int nArg, lua_Number def);
 
-LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg);
-LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg,
-                                          lua_Integer def);
+LUALIB_API lua_Integer(luaL_checkinteger)(lua_State* L, int numArg);
+LUALIB_API lua_Integer(luaL_optinteger)(lua_State* L, int nArg, lua_Integer def);
 
-LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg);
-LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t);
-LUALIB_API void (luaL_checkany) (lua_State *L, int narg);
+LUALIB_API void(luaL_checkstack)(lua_State* L, int sz, const char* msg);
+LUALIB_API void(luaL_checktype)(lua_State* L, int narg, int t);
+LUALIB_API void(luaL_checkany)(lua_State* L, int narg);
 
-LUALIB_API int   (luaL_newmetatable) (lua_State *L, const char *tname);
-LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname);
+LUALIB_API int(luaL_newmetatable)(lua_State* L, const char* tname);
+LUALIB_API void*(luaL_checkudata)(lua_State * L, int ud, const char* tname);
 
-LUALIB_API void (luaL_where) (lua_State *L, int lvl);
-LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...);
+LUALIB_API void(luaL_where)(lua_State* L, int lvl);
+LUALIB_API int(luaL_error)(lua_State* L, const char* fmt, ...);
 
-LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def,
-                                   const char *const lst[]);
+LUALIB_API int(luaL_checkoption)(lua_State* L, int narg, const char* def, const char* const lst[]);
 
 /* pre-defined references */
 #define LUA_NOREF (-2)
 #define LUA_REFNIL (-1)
 
-LUALIB_API int (luaL_ref) (lua_State *L, int t);
-LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref);
+LUALIB_API int(luaL_ref)(lua_State* L, int t);
+LUALIB_API void(luaL_unref)(lua_State* L, int t, int ref);
 
-LUALIB_API int (luaL_loadfile) (lua_State *L, const char *filename);
-LUALIB_API int (luaL_loadbuffer) (lua_State *L, const char *buff, size_t sz,
-                                  const char *name);
-LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s);
+LUALIB_API int(luaL_loadfile)(lua_State* L, const char* filename);
+LUALIB_API int(luaL_loadbuffer)(lua_State* L, const char* buff, size_t sz, const char* name);
+LUALIB_API int(luaL_loadstring)(lua_State* L, const char* s);
 
-LUALIB_API lua_State *(luaL_newstate) (void);
+LUALIB_API lua_State*(luaL_newstate)(void);
 
+LUALIB_API const char*(luaL_gsub)(lua_State * L, const char* s, const char* p, const char* r);
 
-LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p,
-                                                  const char *r);
-
-LUALIB_API const char *(luaL_findtable) (lua_State *L, int idx,
-                                         const char *fname, int szhint);
+LUALIB_API const char*(luaL_findtable)(lua_State * L, int idx, const char* fname, int szhint);
 
 /* From Lua 5.2. */
-LUALIB_API int luaL_fileresult(lua_State *L, int stat, const char *fname);
-LUALIB_API int luaL_execresult(lua_State *L, int stat);
-LUALIB_API int (luaL_loadfilex) (lua_State *L, const char *filename,
-				 const char *mode);
-LUALIB_API int (luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz,
-				   const char *name, const char *mode);
-LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, const char *msg,
-				int level);
-LUALIB_API void (luaL_setfuncs) (lua_State *L, const luaL_Reg *l, int nup);
-LUALIB_API void (luaL_pushmodule) (lua_State *L, const char *modname,
-				   int sizehint);
-LUALIB_API void *(luaL_testudata) (lua_State *L, int ud, const char *tname);
-LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname);
-
+LUALIB_API int luaL_fileresult(lua_State* L, int stat, const char* fname);
+LUALIB_API int luaL_execresult(lua_State* L, int stat);
+LUALIB_API int(luaL_loadfilex)(lua_State* L, const char* filename, const char* mode);
+LUALIB_API int(luaL_loadbufferx)(lua_State* L, const char* buff, size_t sz, const char* name, const char* mode);
+LUALIB_API void luaL_traceback(lua_State* L, lua_State* L1, const char* msg, int level);
+LUALIB_API void(luaL_setfuncs)(lua_State* L, const luaL_Reg* l, int nup);
+LUALIB_API void(luaL_pushmodule)(lua_State* L, const char* modname, int sizehint);
+LUALIB_API void*(luaL_testudata)(lua_State * L, int ud, const char* tname);
+LUALIB_API void(luaL_setmetatable)(lua_State* L, const char* tname);
 
 /*
 ** ===============================================================
@@ -98,30 +80,26 @@ LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname);
 ** ===============================================================
 */
 
-#define luaL_argcheck(L, cond,numarg,extramsg)	\
-		((void)((cond) || luaL_argerror(L, (numarg), (extramsg))))
-#define luaL_checkstring(L,n)	(luaL_checklstring(L, (n), NULL))
-#define luaL_optstring(L,n,d)	(luaL_optlstring(L, (n), (d), NULL))
-#define luaL_checkint(L,n)	((int)luaL_checkinteger(L, (n)))
-#define luaL_optint(L,n,d)	((int)luaL_optinteger(L, (n), (d)))
-#define luaL_checklong(L,n)	((long)luaL_checkinteger(L, (n)))
-#define luaL_optlong(L,n,d)	((long)luaL_optinteger(L, (n), (d)))
+#define luaL_argcheck(L, cond, numarg, extramsg) ((void)((cond) || luaL_argerror(L, (numarg), (extramsg))))
+#define luaL_checkstring(L, n) (luaL_checklstring(L, (n), NULL))
+#define luaL_optstring(L, n, d) (luaL_optlstring(L, (n), (d), NULL))
+#define luaL_checkint(L, n) ((int)luaL_checkinteger(L, (n)))
+#define luaL_optint(L, n, d) ((int)luaL_optinteger(L, (n), (d)))
+#define luaL_checklong(L, n) ((long)luaL_checkinteger(L, (n)))
+#define luaL_optlong(L, n, d) ((long)luaL_optinteger(L, (n), (d)))
 
-#define luaL_typename(L,i)	lua_typename(L, lua_type(L,(i)))
+#define luaL_typename(L, i) lua_typename(L, lua_type(L, (i)))
 
-#define luaL_dofile(L, fn) \
-	(luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0))
+#define luaL_dofile(L, fn) (luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0))
 
-#define luaL_dostring(L, s) \
-	(luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0))
+#define luaL_dostring(L, s) (luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0))
 
-#define luaL_getmetatable(L,n)	(lua_getfield(L, LUA_REGISTRYINDEX, (n)))
+#define luaL_getmetatable(L, n) (lua_getfield(L, LUA_REGISTRYINDEX, (n)))
 
-#define luaL_opt(L,f,n,d)	(lua_isnoneornil(L,(n)) ? (d) : f(L,(n)))
+#define luaL_opt(L, f, n, d) (lua_isnoneornil(L, (n)) ? (d) : f(L, (n)))
 
 /* From Lua 5.2. */
-#define luaL_newlibtable(L, l) \
-	lua_createtable(L, 0, sizeof(l)/sizeof((l)[0]) - 1)
+#define luaL_newlibtable(L, l) lua_createtable(L, 0, sizeof(l) / sizeof((l)[0]) - 1)
 #define luaL_newlib(L, l) (luaL_newlibtable(L, l), luaL_setfuncs(L, l, 0))
 
 /*
@@ -130,31 +108,27 @@ LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname);
 ** =======================================================
 */
 
-
-
 typedef struct luaL_Buffer {
-  char *p;			/* current position in buffer */
+  char* p; /* current position in buffer */
   int lvl; /* number of strings in the stack (level) */
-  lua_State *L;
+  lua_State* L;
   char buffer[LUAL_BUFFERSIZE];
 } luaL_Buffer;
 
-#define luaL_addchar(B,c) \
-  ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \
-   (*(B)->p++ = (char)(c)))
+#define luaL_addchar(B, c)                                                                                             \
+  ((void)((B)->p < ((B)->buffer + LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), (*(B)->p++ = (char)(c)))
 
 /* compatibility only */
-#define luaL_putchar(B,c)	luaL_addchar(B,c)
+#define luaL_putchar(B, c) luaL_addchar(B, c)
 
-#define luaL_addsize(B,n)	((B)->p += (n))
-
-LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B);
-LUALIB_API char *(luaL_prepbuffer) (luaL_Buffer *B);
-LUALIB_API void (luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l);
-LUALIB_API void (luaL_addstring) (luaL_Buffer *B, const char *s);
-LUALIB_API void (luaL_addvalue) (luaL_Buffer *B);
-LUALIB_API void (luaL_pushresult) (luaL_Buffer *B);
+#define luaL_addsize(B, n) ((B)->p += (n))
 
+LUALIB_API void(luaL_buffinit)(lua_State* L, luaL_Buffer* B);
+LUALIB_API char*(luaL_prepbuffer)(luaL_Buffer * B);
+LUALIB_API void(luaL_addlstring)(luaL_Buffer* B, const char* s, size_t l);
+LUALIB_API void(luaL_addstring)(luaL_Buffer* B, const char* s);
+LUALIB_API void(luaL_addvalue)(luaL_Buffer* B);
+LUALIB_API void(luaL_pushresult)(luaL_Buffer* B);
 
 /* }====================================================== */
 

inc/lua/lua.h

@@ -5,39 +5,33 @@
 ** See Copyright Notice at the end of this file
 */
 
-
 #ifndef lua_h
 #define lua_h
 
 #include <stdarg.h>
 #include <stddef.h>
 
-
 #include "luaconf.h"
 
-
 #define LUA_VERSION "Lua 5.1"
 #define LUA_RELEASE "Lua 5.1.4"
 #define LUA_VERSION_NUM 501
 #define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio"
 #define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
 
-
 /* mark for precompiled code (`<esc>Lua') */
 #define LUA_SIGNATURE "\033Lua"
 
 /* option for multiple returns in `lua_pcall' and `lua_call' */
 #define LUA_MULTRET (-1)
 
-
 /*
 ** pseudo-indices
 */
 #define LUA_REGISTRYINDEX (-10000)
 #define LUA_ENVIRONINDEX (-10001)
 #define LUA_GLOBALSINDEX (-10002)
-#define lua_upvalueindex(i)	(LUA_GLOBALSINDEX-(i))
-
+#define lua_upvalueindex(i) (LUA_GLOBALSINDEX - (i))
 
 /* thread status */
 #define LUA_OK 0
@@ -47,25 +41,21 @@
 #define LUA_ERRMEM 4
 #define LUA_ERRERR 5
 
-
 typedef struct lua_State lua_State;
 
-typedef int (*lua_CFunction) (lua_State *L);
-
+typedef int (*lua_CFunction)(lua_State* L);
 
 /*
 ** functions that read/write blocks when loading/dumping Lua chunks
 */
-typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz);
-
-typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud);
+typedef const char* (*lua_Reader)(lua_State* L, void* ud, size_t* sz);
 
+typedef int (*lua_Writer)(lua_State* L, const void* p, size_t sz, void* ud);
 
 /*
 ** prototype for memory-allocation functions
 */
-typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize);
-
+typedef void* (*lua_Alloc)(void* ud, void* ptr, size_t osize, size_t nsize);
 
 /*
 ** basic types
@@ -82,12 +72,9 @@ typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize);
 #define LUA_TUSERDATA 7
 #define LUA_TTHREAD 8
 
-
-
 /* minimum Lua stack available to a C function */
 #define LUA_MINSTACK 20
 
-
 /*
 ** generic extra include file
 */
@@ -95,125 +82,112 @@ typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize);
 #include LUA_USER_H
 #endif
 
-
 /* type of numbers in Lua */
 typedef LUA_NUMBER lua_Number;
 
-
 /* type for integer functions */
 typedef LUA_INTEGER lua_Integer;
 
-
-
 /*
 ** state manipulation
 */
-LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud);
-LUA_API void       (lua_close) (lua_State *L);
-LUA_API lua_State *(lua_newthread) (lua_State *L);
-
-LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf);
+LUA_API lua_State*(lua_newstate)(lua_Alloc f, void* ud);
+LUA_API void(lua_close)(lua_State* L);
+LUA_API lua_State*(lua_newthread)(lua_State * L);
 
+LUA_API lua_CFunction(lua_atpanic)(lua_State* L, lua_CFunction panicf);
 
 /*
 ** basic stack manipulation
 */
-LUA_API int   (lua_gettop) (lua_State *L);
-LUA_API void  (lua_settop) (lua_State *L, int idx);
-LUA_API void  (lua_pushvalue) (lua_State *L, int idx);
-LUA_API void  (lua_remove) (lua_State *L, int idx);
-LUA_API void  (lua_insert) (lua_State *L, int idx);
-LUA_API void  (lua_replace) (lua_State *L, int idx);
-LUA_API int   (lua_checkstack) (lua_State *L, int sz);
-
-LUA_API void  (lua_xmove) (lua_State *from, lua_State *to, int n);
+LUA_API int(lua_gettop)(lua_State* L);
+LUA_API void(lua_settop)(lua_State* L, int idx);
+LUA_API void(lua_pushvalue)(lua_State* L, int idx);
+LUA_API void(lua_remove)(lua_State* L, int idx);
+LUA_API void(lua_insert)(lua_State* L, int idx);
+LUA_API void(lua_replace)(lua_State* L, int idx);
+LUA_API int(lua_checkstack)(lua_State* L, int sz);
 
+LUA_API void(lua_xmove)(lua_State* from, lua_State* to, int n);
 
 /*
 ** access functions (stack -> C)
 */
 
-LUA_API int             (lua_isnumber) (lua_State *L, int idx);
-LUA_API int             (lua_isstring) (lua_State *L, int idx);
-LUA_API int             (lua_iscfunction) (lua_State *L, int idx);
-LUA_API int             (lua_isuserdata) (lua_State *L, int idx);
-LUA_API int             (lua_type) (lua_State *L, int idx);
-LUA_API const char     *(lua_typename) (lua_State *L, int tp);
+LUA_API int(lua_isnumber)(lua_State* L, int idx);
+LUA_API int(lua_isstring)(lua_State* L, int idx);
+LUA_API int(lua_iscfunction)(lua_State* L, int idx);
+LUA_API int(lua_isuserdata)(lua_State* L, int idx);
+LUA_API int(lua_type)(lua_State* L, int idx);
+LUA_API const char*(lua_typename)(lua_State * L, int tp);
 
-LUA_API int            (lua_equal) (lua_State *L, int idx1, int idx2);
-LUA_API int            (lua_rawequal) (lua_State *L, int idx1, int idx2);
-LUA_API int            (lua_lessthan) (lua_State *L, int idx1, int idx2);
-
-LUA_API lua_Number      (lua_tonumber) (lua_State *L, int idx);
-LUA_API lua_Integer     (lua_tointeger) (lua_State *L, int idx);
-LUA_API int             (lua_toboolean) (lua_State *L, int idx);
-LUA_API const char     *(lua_tolstring) (lua_State *L, int idx, size_t *len);
-LUA_API size_t          (lua_objlen) (lua_State *L, int idx);
-LUA_API lua_CFunction   (lua_tocfunction) (lua_State *L, int idx);
-LUA_API void	       *(lua_touserdata) (lua_State *L, int idx);
-LUA_API lua_State      *(lua_tothread) (lua_State *L, int idx);
-LUA_API const void     *(lua_topointer) (lua_State *L, int idx);
+LUA_API int(lua_equal)(lua_State* L, int idx1, int idx2);
+LUA_API int(lua_rawequal)(lua_State* L, int idx1, int idx2);
+LUA_API int(lua_lessthan)(lua_State* L, int idx1, int idx2);
 
+LUA_API lua_Number(lua_tonumber)(lua_State* L, int idx);
+LUA_API lua_Integer(lua_tointeger)(lua_State* L, int idx);
+LUA_API int(lua_toboolean)(lua_State* L, int idx);
+LUA_API const char*(lua_tolstring)(lua_State * L, int idx, size_t* len);
+LUA_API size_t(lua_objlen)(lua_State* L, int idx);
+LUA_API lua_CFunction(lua_tocfunction)(lua_State* L, int idx);
+LUA_API void*(lua_touserdata)(lua_State * L, int idx);
+LUA_API lua_State*(lua_tothread)(lua_State * L, int idx);
+LUA_API const void*(lua_topointer)(lua_State * L, int idx);
 
 /*
 ** push functions (C -> stack)
 */
-LUA_API void  (lua_pushnil) (lua_State *L);
-LUA_API void  (lua_pushnumber) (lua_State *L, lua_Number n);
-LUA_API void  (lua_pushinteger) (lua_State *L, lua_Integer n);
-LUA_API void  (lua_pushlstring) (lua_State *L, const char *s, size_t l);
-LUA_API void  (lua_pushstring) (lua_State *L, const char *s);
-LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt,
-                                                      va_list argp);
-LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...);
-LUA_API void  (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n);
-LUA_API void  (lua_pushboolean) (lua_State *L, int b);
-LUA_API void  (lua_pushlightuserdata) (lua_State *L, void *p);
-LUA_API int   (lua_pushthread) (lua_State *L);
-
+LUA_API void(lua_pushnil)(lua_State* L);
+LUA_API void(lua_pushnumber)(lua_State* L, lua_Number n);
+LUA_API void(lua_pushinteger)(lua_State* L, lua_Integer n);
+LUA_API void(lua_pushlstring)(lua_State* L, const char* s, size_t l);
+LUA_API void(lua_pushstring)(lua_State* L, const char* s);
+LUA_API const char*(lua_pushvfstring)(lua_State * L, const char* fmt, va_list argp);
+LUA_API const char*(lua_pushfstring)(lua_State * L, const char* fmt, ...);
+LUA_API void(lua_pushcclosure)(lua_State* L, lua_CFunction fn, int n);
+LUA_API void(lua_pushboolean)(lua_State* L, int b);
+LUA_API void(lua_pushlightuserdata)(lua_State* L, void* p);
+LUA_API int(lua_pushthread)(lua_State* L);
 
 /*
 ** get functions (Lua -> stack)
 */
-LUA_API void  (lua_gettable) (lua_State *L, int idx);
-LUA_API void  (lua_getfield) (lua_State *L, int idx, const char *k);
-LUA_API void  (lua_rawget) (lua_State *L, int idx);
-LUA_API void  (lua_rawgeti) (lua_State *L, int idx, int n);
-LUA_API void  (lua_createtable) (lua_State *L, int narr, int nrec);
-LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz);
-LUA_API int   (lua_getmetatable) (lua_State *L, int objindex);
-LUA_API void  (lua_getfenv) (lua_State *L, int idx);
-
+LUA_API void(lua_gettable)(lua_State* L, int idx);
+LUA_API void(lua_getfield)(lua_State* L, int idx, const char* k);
+LUA_API void(lua_rawget)(lua_State* L, int idx);
+LUA_API void(lua_rawgeti)(lua_State* L, int idx, int n);
+LUA_API void(lua_createtable)(lua_State* L, int narr, int nrec);
+LUA_API void*(lua_newuserdata)(lua_State * L, size_t sz);
+LUA_API int(lua_getmetatable)(lua_State* L, int objindex);
+LUA_API void(lua_getfenv)(lua_State* L, int idx);
 
 /*
 ** set functions (stack -> Lua)
 */
-LUA_API void  (lua_settable) (lua_State *L, int idx);
-LUA_API void  (lua_setfield) (lua_State *L, int idx, const char *k);
-LUA_API void  (lua_rawset) (lua_State *L, int idx);
-LUA_API void  (lua_rawseti) (lua_State *L, int idx, int n);
-LUA_API int   (lua_setmetatable) (lua_State *L, int objindex);
-LUA_API int   (lua_setfenv) (lua_State *L, int idx);
-
+LUA_API void(lua_settable)(lua_State* L, int idx);
+LUA_API void(lua_setfield)(lua_State* L, int idx, const char* k);
+LUA_API void(lua_rawset)(lua_State* L, int idx);
+LUA_API void(lua_rawseti)(lua_State* L, int idx, int n);
+LUA_API int(lua_setmetatable)(lua_State* L, int objindex);
+LUA_API int(lua_setfenv)(lua_State* L, int idx);
 
 /*
 ** `load' and `call' functions (load and run Lua code)
 */
-LUA_API void  (lua_call) (lua_State *L, int nargs, int nresults);
-LUA_API int   (lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc);
-LUA_API int   (lua_cpcall) (lua_State *L, lua_CFunction func, void *ud);
-LUA_API int   (lua_load) (lua_State *L, lua_Reader reader, void *dt,
-                                        const char *chunkname);
-
-LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data);
+LUA_API void(lua_call)(lua_State* L, int nargs, int nresults);
+LUA_API int(lua_pcall)(lua_State* L, int nargs, int nresults, int errfunc);
+LUA_API int(lua_cpcall)(lua_State* L, lua_CFunction func, void* ud);
+LUA_API int(lua_load)(lua_State* L, lua_Reader reader, void* dt, const char* chunkname);
 
+LUA_API int(lua_dump)(lua_State* L, lua_Writer writer, void* data);
 
 /*
 ** coroutine functions
 */
-LUA_API int  (lua_yield) (lua_State *L, int nresults);
-LUA_API int  (lua_resume) (lua_State *L, int narg);
-LUA_API int  (lua_status) (lua_State *L);
+LUA_API int(lua_yield)(lua_State* L, int nresults);
+LUA_API int(lua_resume)(lua_State* L, int narg);
+LUA_API int(lua_status)(lua_State* L);
 
 /*
 ** garbage-collection function and options
@@ -229,23 +203,20 @@ LUA_API int  (lua_status) (lua_State *L);
 #define LUA_GCSETSTEPMUL 7
 #define LUA_GCISRUNNING 9
 
-LUA_API int (lua_gc) (lua_State *L, int what, int data);
-
+LUA_API int(lua_gc)(lua_State* L, int what, int data);
 
 /*
 ** miscellaneous functions
 */
 
-LUA_API int   (lua_error) (lua_State *L);
+LUA_API int(lua_error)(lua_State* L);
 
-LUA_API int   (lua_next) (lua_State *L, int idx);
-
-LUA_API void  (lua_concat) (lua_State *L, int n);
-
-LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud);
-LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
+LUA_API int(lua_next)(lua_State* L, int idx);
 
+LUA_API void(lua_concat)(lua_State* L, int n);
 
+LUA_API lua_Alloc(lua_getallocf)(lua_State* L, void** ud);
+LUA_API void lua_setallocf(lua_State* L, lua_Alloc f, void* ud);
 
 /*
 ** ===============================================================
@@ -253,34 +224,31 @@ LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
 ** ===============================================================
 */
 
-#define lua_pop(L,n)		lua_settop(L, -(n)-1)
+#define lua_pop(L, n) lua_settop(L, -(n) - 1)
 
 #define lua_newtable(L) lua_createtable(L, 0, 0)
 
-#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))
+#define lua_register(L, n, f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))
 
-#define lua_pushcfunction(L,f)	lua_pushcclosure(L, (f), 0)
+#define lua_pushcfunction(L, f) lua_pushcclosure(L, (f), 0)
 
-#define lua_strlen(L,i)		lua_objlen(L, (i))
+#define lua_strlen(L, i) lua_objlen(L, (i))
 
-#define lua_isfunction(L,n)	(lua_type(L, (n)) == LUA_TFUNCTION)
-#define lua_istable(L,n)	(lua_type(L, (n)) == LUA_TTABLE)
-#define lua_islightuserdata(L,n)	(lua_type(L, (n)) == LUA_TLIGHTUSERDATA)
-#define lua_isnil(L,n)		(lua_type(L, (n)) == LUA_TNIL)
-#define lua_isboolean(L,n)	(lua_type(L, (n)) == LUA_TBOOLEAN)
-#define lua_isthread(L,n)	(lua_type(L, (n)) == LUA_TTHREAD)
-#define lua_isnone(L,n)		(lua_type(L, (n)) == LUA_TNONE)
+#define lua_isfunction(L, n) (lua_type(L, (n)) == LUA_TFUNCTION)
+#define lua_istable(L, n) (lua_type(L, (n)) == LUA_TTABLE)
+#define lua_islightuserdata(L, n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA)
+#define lua_isnil(L, n) (lua_type(L, (n)) == LUA_TNIL)
+#define lua_isboolean(L, n) (lua_type(L, (n)) == LUA_TBOOLEAN)
+#define lua_isthread(L, n) (lua_type(L, (n)) == LUA_TTHREAD)
+#define lua_isnone(L, n) (lua_type(L, (n)) == LUA_TNONE)
 #define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0)
 
-#define lua_pushliteral(L, s)	\
-	lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)
-
-#define lua_setglobal(L,s)	lua_setfield(L, LUA_GLOBALSINDEX, (s))
-#define lua_getglobal(L,s)	lua_getfield(L, LUA_GLOBALSINDEX, (s))
-
-#define lua_tostring(L,i)	lua_tolstring(L, (i), NULL)
+#define lua_pushliteral(L, s) lua_pushlstring(L, "" s, (sizeof(s) / sizeof(char)) - 1)
 
+#define lua_setglobal(L, s) lua_setfield(L, LUA_GLOBALSINDEX, (s))
+#define lua_getglobal(L, s) lua_getfield(L, LUA_GLOBALSINDEX, (s))
 
+#define lua_tostring(L, i) lua_tolstring(L, (i), NULL)
 
 /*
 ** compatibility macros and functions
@@ -295,10 +263,8 @@ LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
 #define lua_Chunkreader lua_Reader
 #define lua_Chunkwriter lua_Writer
 
-
 /* hack */
-LUA_API void lua_setlevel	(lua_State *from, lua_State *to);
-
+LUA_API void lua_setlevel(lua_State* from, lua_State* to);
 
 /*
 ** {======================================================================
@@ -306,7 +272,6 @@ LUA_API void lua_setlevel	(lua_State *from, lua_State *to);
 ** =======================================================================
 */
 
-
 /*
 ** Event codes
 */
@@ -316,7 +281,6 @@ LUA_API void lua_setlevel	(lua_State *from, lua_State *to);
 #define LUA_HOOKCOUNT 3
 #define LUA_HOOKTAILRET 4
 
-
 /*
 ** Event masks
 */
@@ -327,42 +291,38 @@ LUA_API void lua_setlevel	(lua_State *from, lua_State *to);
 
 typedef struct lua_Debug lua_Debug; /* activation record */
 
-
 /* Functions to be called by the debuger in specific events */
-typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);
+typedef void (*lua_Hook)(lua_State* L, lua_Debug* ar);
 
-
-LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar);
-LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar);
-LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n);
-LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n);
-LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n);
-LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n);
-LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count);
-LUA_API lua_Hook lua_gethook (lua_State *L);
-LUA_API int lua_gethookmask (lua_State *L);
-LUA_API int lua_gethookcount (lua_State *L);
+LUA_API int lua_getstack(lua_State* L, int level, lua_Debug* ar);
+LUA_API int lua_getinfo(lua_State* L, const char* what, lua_Debug* ar);
+LUA_API const char* lua_getlocal(lua_State* L, const lua_Debug* ar, int n);
+LUA_API const char* lua_setlocal(lua_State* L, const lua_Debug* ar, int n);
+LUA_API const char* lua_getupvalue(lua_State* L, int funcindex, int n);
+LUA_API const char* lua_setupvalue(lua_State* L, int funcindex, int n);
+LUA_API int lua_sethook(lua_State* L, lua_Hook func, int mask, int count);
+LUA_API lua_Hook lua_gethook(lua_State* L);
+LUA_API int lua_gethookmask(lua_State* L);
+LUA_API int lua_gethookcount(lua_State* L);
 
 /* From Lua 5.2. */
-LUA_API void *lua_upvalueid (lua_State *L, int idx, int n);
-LUA_API void lua_upvaluejoin (lua_State *L, int idx1, int n1, int idx2, int n2);
-LUA_API int lua_loadx (lua_State *L, lua_Reader reader, void *dt,
-		       const char *chunkname, const char *mode);
-LUA_API const lua_Number *lua_version (lua_State *L);
-LUA_API void lua_copy (lua_State *L, int fromidx, int toidx);
-LUA_API lua_Number lua_tonumberx (lua_State *L, int idx, int *isnum);
-LUA_API lua_Integer lua_tointegerx (lua_State *L, int idx, int *isnum);
+LUA_API void* lua_upvalueid(lua_State* L, int idx, int n);
+LUA_API void lua_upvaluejoin(lua_State* L, int idx1, int n1, int idx2, int n2);
+LUA_API int lua_loadx(lua_State* L, lua_Reader reader, void* dt, const char* chunkname, const char* mode);
+LUA_API const lua_Number* lua_version(lua_State* L);
+LUA_API void lua_copy(lua_State* L, int fromidx, int toidx);
+LUA_API lua_Number lua_tonumberx(lua_State* L, int idx, int* isnum);
+LUA_API lua_Integer lua_tointegerx(lua_State* L, int idx, int* isnum);
 
 /* From Lua 5.3. */
-LUA_API int lua_isyieldable (lua_State *L);
-
+LUA_API int lua_isyieldable(lua_State* L);
 
 struct lua_Debug {
   int event;
-  const char *name;	/* (n) */
-  const char *namewhat;	/* (n) `global', `local', `field', `method' */
-  const char *what;	/* (S) `Lua', `C', `main', `tail' */
-  const char *source;	/* (S) */
+  const char* name;           /* (n) */
+  const char* namewhat;       /* (n) `global', `local', `field', `method' */
+  const char* what;           /* (S) `Lua', `C', `main', `tail' */
+  const char* source;         /* (S) */
   int currentline;            /* (l) */
   int nups;                   /* (u) number of upvalues */
   int linedefined;            /* (S) */
@@ -374,29 +334,27 @@ struct lua_Debug {
 
 /* }====================================================================== */
 
-
 /******************************************************************************
-* Copyright (C) 1994-2008 Lua.org, PUC-Rio.  All rights reserved.
-*
-* 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.
-******************************************************************************/
-
+ * Copyright (C) 1994-2008 Lua.org, PUC-Rio.  All rights reserved.
+ *
+ * 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.
+ ******************************************************************************/
 
 #endif

inc/lua/lua.hpp

@@ -1,9 +1,8 @@
 // C++ wrapper for LuaJIT header files.
 
 extern "C" {
-#include "lua.h"
 #include "lauxlib.h"
-#include "lualib.h"
+#include "lua.h"
 #include "luajit.h"
+#include "lualib.h"
 }
-

inc/lua/luaconf.h

@@ -9,6 +9,7 @@
 #ifndef WINVER
 #define WINVER 0x0501
 #endif
+
 #include <limits.h>
 #include <stddef.h>
 
@@ -20,10 +21,8 @@
 */
 #define LUA_LDIR "!\\lua\\"
 #define LUA_CDIR "!\\"
-#define LUA_PATH_DEFAULT \
-  ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;"
-#define LUA_CPATH_DEFAULT \
-  ".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll"
+#define LUA_PATH_DEFAULT ".\\?.lua;" LUA_LDIR "?.lua;" LUA_LDIR "?\\init.lua;"
+#define LUA_CPATH_DEFAULT ".\\?.dll;" LUA_CDIR "?.dll;" LUA_CDIR "loadall.dll"
 #else
 /*
 ** Note to distribution maintainers: do NOT patch the following lines!
@@ -77,9 +76,7 @@
 #define LUA_PATH_MARK "?"
 #define LUA_EXECDIR "!"
 #define LUA_IGMARK "-"
-#define LUA_PATH_CONFIG \
-  LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n" \
-  LUA_EXECDIR "\n" LUA_IGMARK "\n"
+#define LUA_PATH_CONFIG LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n" LUA_EXECDIR "\n" LUA_IGMARK "\n"
 
 /* Quoting in error messages. */
 #define LUA_QL(x) "'" x "'"
@@ -144,9 +141,16 @@
 #define lua_assert(x) assert(x)
 #endif
 #ifdef LUA_USE_APICHECK
-#define luai_apicheck(L, o)	{ (void)L; assert(o); }
+#define luai_apicheck(L, o)                                                                                            \
+  {                                                                                                                    \
+    (void)L;                                                                                                           \
+    assert(o);                                                                                                         \
+  }
 #else
-#define luai_apicheck(L, o)	{ (void)L; }
+#define luai_apicheck(L, o)                                                                                            \
+  {                                                                                                                    \
+    (void)L;                                                                                                           \
+  }
 #endif
 
 #endif

inc/lua/luajit.h

@@ -62,16 +62,13 @@ enum {
 /* LuaJIT public C API. */
 
 /* Control the JIT engine. */
-LUA_API int luaJIT_setmode(lua_State *L, int idx, int mode);
+LUA_API int luaJIT_setmode(lua_State* L, int idx, int mode);
 
 /* Low-overhead profiling API. */
-typedef void (*luaJIT_profile_callback)(void *data, lua_State *L,
-					int samples, int vmstate);
-LUA_API void luaJIT_profile_start(lua_State *L, const char *mode,
-				  luaJIT_profile_callback cb, void *data);
-LUA_API void luaJIT_profile_stop(lua_State *L);
-LUA_API const char *luaJIT_profile_dumpstack(lua_State *L, const char *fmt,
-					     int depth, size_t *len);
+typedef void (*luaJIT_profile_callback)(void* data, lua_State* L, int samples, int vmstate);
+LUA_API void luaJIT_profile_start(lua_State* L, const char* mode, luaJIT_profile_callback cb, void* data);
+LUA_API void luaJIT_profile_stop(lua_State* L);
+LUA_API const char* luaJIT_profile_dumpstack(lua_State* L, const char* fmt, int depth, size_t* len);
 
 /* Enforce (dynamic) linker error for version mismatches. Call from main. */
 LUA_API void LUAJIT_VERSION_SYM(void);

inc/lua/lualib.h

@@ -22,19 +22,19 @@
 #define LUA_JITLIBNAME "jit"
 #define LUA_FFILIBNAME "ffi"
 
-LUALIB_API int luaopen_base(lua_State *L);
-LUALIB_API int luaopen_math(lua_State *L);
-LUALIB_API int luaopen_string(lua_State *L);
-LUALIB_API int luaopen_table(lua_State *L);
-LUALIB_API int luaopen_io(lua_State *L);
-LUALIB_API int luaopen_os(lua_State *L);
-LUALIB_API int luaopen_package(lua_State *L);
-LUALIB_API int luaopen_debug(lua_State *L);
-LUALIB_API int luaopen_bit(lua_State *L);
-LUALIB_API int luaopen_jit(lua_State *L);
-LUALIB_API int luaopen_ffi(lua_State *L);
+LUALIB_API int luaopen_base(lua_State* L);
+LUALIB_API int luaopen_math(lua_State* L);
+LUALIB_API int luaopen_string(lua_State* L);
+LUALIB_API int luaopen_table(lua_State* L);
+LUALIB_API int luaopen_io(lua_State* L);
+LUALIB_API int luaopen_os(lua_State* L);
+LUALIB_API int luaopen_package(lua_State* L);
+LUALIB_API int luaopen_debug(lua_State* L);
+LUALIB_API int luaopen_bit(lua_State* L);
+LUALIB_API int luaopen_jit(lua_State* L);
+LUALIB_API int luaopen_ffi(lua_State* L);
 
-LUALIB_API void luaL_openlibs(lua_State *L);
+LUALIB_API void luaL_openlibs(lua_State* L);
 
 #ifndef lua_assert
 #define lua_assert(x) ((void)0)

inc/tsfuncs/BlFuncs.cpp

@@ -2,15 +2,18 @@
 //////////////////////////////////////////////////
 // BlFuncs Version 1.0
 
-
 // Includes
-
-#include "BlHooks.hpp"
+#ifndef WIN32_LEAN_AND_MEAN
+#define WIN32_LEAN_AND_MEAN
+#endif
 #include "BlFuncs.hpp"
+#include <Windows.h>
+#include "BlHooks.hpp"
 
+#include <cstdarg>
+#include <cstring>
 #include <stdio.h>
 
-
 // Scanned structures
 
 ADDR tsf_mCacheSequence;
@@ -18,21 +21,20 @@ ADDR tsf_mCacheAllocator;
 ADDR tsf_gIdDictionary;
 ADDR tsf_gEvalState_globalVars;
 
-BlFunctionDefIntern(tsf_BlStringTable__insert        );
-BlFunctionDefIntern(tsf_BlNamespace__find            );
+BlFunctionDefIntern(tsf_BlStringTable__insert);
+BlFunctionDefIntern(tsf_BlNamespace__find);
 BlFunctionDefIntern(tsf_BlNamespace__createLocalEntry);
-BlFunctionDefIntern(tsf_BlDataChunker__freeBlocks    );
-BlFunctionDefIntern(tsf_BlCon__evaluate              );
-BlFunctionDefIntern(tsf_BlCon__executef              );
-BlFunctionDefIntern(tsf_BlCon__executefSimObj        );
-BlFunctionDefIntern(tsf_BlCon__getVariable           );
-BlFunctionDefIntern(tsf_BlDictionary__addVariable    );
-BlFunctionDefIntern(tsf_BlSim__findObject_name       );
-BlFunctionDefIntern(tsf_BlStringStack__getArgBuffer  );
-BlFunctionDefIntern(tsf_BlSimObject__getDataField    );
-BlFunctionDefIntern(tsf_BlSimObject__setDataField    );
-BlFunctionDefIntern(tsf_BlCon__getReturnBuffer       );
-
+BlFunctionDefIntern(tsf_BlDataChunker__freeBlocks);
+BlFunctionDefIntern(tsf_BlCon__evaluate);
+BlFunctionDefIntern(tsf_BlCon__executef);
+BlFunctionDefIntern(tsf_BlCon__executefSimObj);
+BlFunctionDefIntern(tsf_BlCon__getVariable);
+BlFunctionDefIntern(tsf_BlDictionary__addVariable);
+BlFunctionDefIntern(tsf_BlSim__findObject_name);
+BlFunctionDefIntern(tsf_BlStringStack__getArgBuffer);
+BlFunctionDefIntern(tsf_BlSimObject__getDataField);
+BlFunctionDefIntern(tsf_BlSimObject__setDataField);
+BlFunctionDefIntern(tsf_BlCon__getReturnBuffer);
 
 // C->TS Args
 
@@ -41,30 +43,30 @@ char* tsf_GetIntArg(signed int value) {
   snprintf(ret, 16, "%d", value);
   return ret;
 }
+
 char* tsf_GetFloatArg(float value) {
   char* ret = tsf_BlStringStack__getArgBuffer(32);
   snprintf(ret, 32, "%g", value);
   return ret;
 }
+
 char* tsf_GetStringArg(char* value) {
-	int len = strlen(value)+1;
+  int len = strlen(value) + 1;
   char* ret = tsf_BlStringStack__getArgBuffer(len);
   memcpy(ret, value, len);
   return ret;
 }
-char* tsf_GetThisArg(ADDR obj) {
-	return tsf_GetIntArg(*(signed int *)(obj + 32));
-}
 
+char* tsf_GetThisArg(ADDR obj) { return tsf_GetIntArg(*(signed int*)(obj + 32)); }
 
 // Eval
 
-const char* tsf_Eval(const char *code) {
-	const char *argv[] = {nullptr, code};
+const char* tsf_Eval(const char* code) {
+  const char* argv[] = {nullptr, code};
   return tsf_BlCon__evaluate(0, 2, argv);
 }
 
-const char* tsf_Evalf(const char *fmt, ...) {
+const char* tsf_Evalf(const char* fmt, ...) {
   va_list args;
   char code[4096];
   va_start(args, fmt);
@@ -74,50 +76,47 @@ const char* tsf_Evalf(const char *fmt, ...) {
   return tsf_Eval((const char*)code);
 }
 
-
 // Objects
 
 ADDR tsf_FindObject(unsigned int id) {
-	ADDR obj = *(ADDR*)(*(ADDR*)(tsf_gIdDictionary) + 4*(id & 0xFFF));
-	if(!obj) return 0;
+  ADDR obj = *(ADDR*)(*(ADDR*)(tsf_gIdDictionary) + 4 * (id & 0xFFF));
+  if (!obj)
+    return 0;
 
-	while(obj && *(unsigned int *)(obj + 32) != id) {
+  while (obj && *(unsigned int*)(obj + 32) != id) {
     obj = *(ADDR*)(obj + 16);
-		if(!obj) return 0;
+    if (!obj)
+      return 0;
   }
 
   return obj;
 }
 
-ADDR tsf_FindObject(const char* name) {
-	return (ADDR)tsf_BlSim__findObject_name(name);
-}
+ADDR tsf_FindObject(const char* name) { return (ADDR)tsf_BlSim__findObject_name(name); }
 
 ADDR tsf_LookupNamespace(const char* ns, const char* package) {
   const char* ste_package;
-	if(package) {
+  if (package) {
     ste_package = tsf_BlStringTable__insert(package, 0);
   } else {
     ste_package = nullptr;
   }
 
-	if(ns) {
+  if (ns) {
     const char* ste_namespace = tsf_BlStringTable__insert(ns, 0);
     return tsf_BlNamespace__find(ste_namespace, ste_package);
   } else {
     return tsf_BlNamespace__find(nullptr, ste_package);
   }
 }
-ADDR tsf_LookupNamespace(const char* ns) {
-	return tsf_LookupNamespace(ns, nullptr);
-}
 
+ADDR tsf_LookupNamespace(const char* ns) { return tsf_LookupNamespace(ns, nullptr); }
 
 // Object Fields
 
 const char* tsf_GetDataField(ADDR simObject, const char* slotName, const char* array) {
-	const char *ste_slotName;
-	if(slotName) {
+  const char* ste_slotName;
+  if (slotName) {
     ste_slotName = tsf_BlStringTable__insert(slotName, 0);
   } else {
     ste_slotName = nullptr;
@@ -128,7 +127,7 @@ const char* tsf_GetDataField(ADDR simObject, const char* slotName, const char* a
 
 void tsf_SetDataField(ADDR simObject, const char* slotName, const char* array, const char* value) {
   const char* ste_slotName;
-	if(slotName) {
+  if (slotName) {
     ste_slotName = tsf_BlStringTable__insert(slotName, 0);
   } else {
     ste_slotName = nullptr;
@@ -137,93 +136,162 @@ void tsf_SetDataField(ADDR simObject, const char* slotName, const char* array, c
   tsf_BlSimObject__setDataField(simObject, ste_slotName, array, value);
 }
 
-
 // TS Global Variables
 
-const char *tsf_GetVar(const char* name) {
-	return tsf_BlCon__getVariable(name);
-}
+const char* tsf_GetVar(const char* name) { return tsf_BlCon__getVariable(name); }
 
 void tsf_AddVarInternal(const char* name, signed int varType, void* data) {
-	tsf_BlDictionary__addVariable((ADDR *)tsf_gEvalState_globalVars, name, varType, data);
+  tsf_BlDictionary__addVariable((ADDR*)tsf_gEvalState_globalVars, name, varType, data);
 }
 
-void tsf_AddVar(const char* name, const char** data) {
-	tsf_AddVarInternal(name, 10, data);
-}
-void tsf_AddVar(const char* name, signed int* data) {
-	tsf_AddVarInternal(name,  4, data);
-}
-void tsf_AddVar(const char* name, float* data) {
-	tsf_AddVarInternal(name,  8, data);
-}
-void tsf_AddVar(const char* name, bool* data) {
-	tsf_AddVarInternal(name,  6, data);
-}
+void tsf_AddVar(const char* name, const char** data) { tsf_AddVarInternal(name, 10, data); }
 
+void tsf_AddVar(const char* name, signed int* data) { tsf_AddVarInternal(name, 4, data); }
+
+void tsf_AddVar(const char* name, float* data) { tsf_AddVarInternal(name, 8, data); }
+
+void tsf_AddVar(const char* name, bool* data) { tsf_AddVarInternal(name, 6, data); }
 
 // TS->C Functions
 
-ADDR tsf_AddConsoleFuncInternal(const char* pname, const char* cname, const char* fname, signed int cbtype, const char* usage, signed int mina, signed int maxa) {
-	const char *ste_fname = tsf_BlStringTable__insert(fname, 0);
+ADDR tsf_AddConsoleFuncInternal(
+    const char* pname,
+    const char* cname,
+    const char* fname,
+    signed int cbtype,
+    const char* usage,
+    signed int mina,
+    signed int maxa) {
+  const char* ste_fname = tsf_BlStringTable__insert(fname, 0);
   ADDR ns = tsf_LookupNamespace(cname, pname);
   ADDR ent = tsf_BlNamespace__createLocalEntry(ns, ste_fname);
 
-	*(signed int *)tsf_mCacheSequence += 1;
-	tsf_BlDataChunker__freeBlocks(*(ADDR *)tsf_mCacheAllocator);
+  *(signed int*)tsf_mCacheSequence += 1;
+  tsf_BlDataChunker__freeBlocks(*(ADDR*)tsf_mCacheAllocator);
 
-	*(const char**)(ent + 24) = usage ;
-	*(signed int* )(ent + 16) = mina  ;
-	*(signed int* )(ent + 20) = maxa  ;
-	*(signed int* )(ent + 12) = cbtype;
+  *(const char**)(ent + 24) = usage;
+  *(signed int*)(ent + 16) = mina;
+  *(signed int*)(ent + 20) = maxa;
+  *(signed int*)(ent + 12) = cbtype;
 
   return ent;
 }
 
-void tsf_AddConsoleFunc(const char* pname, const char* cname, const char* fname, tsf_StringCallback sc, const char* usage, signed int mina, signed int maxa) {
+void tsf_AddConsoleFunc(
+    const char* pname,
+    const char* cname,
+    const char* fname,
+    tsf_StringCallback sc,
+    const char* usage,
+    signed int mina,
+    signed int maxa) {
   ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 1, usage, mina, maxa);
-	*(tsf_StringCallback *)(ent + 40) = sc;
-}
-void tsf_AddConsoleFunc(const char* pname, const char* cname, const char* fname, tsf_IntCallback    ic, const char*  usage, signed int mina, signed int maxa) {
-	ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 2, usage, mina, maxa);
-	*(tsf_IntCallback    *)(ent + 40) = ic;
-}
-void tsf_AddConsoleFunc(const char* pname, const char* cname, const char* fname, tsf_FloatCallback  fc, const char*  usage, signed int mina, signed int maxa) {
-	ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 3, usage, mina, maxa);
-	*(tsf_FloatCallback  *)(ent + 40) = fc;
-}
-void tsf_AddConsoleFunc(const char* pname, const char* cname, const char* fname, tsf_VoidCallback   vc, const char*  usage, signed int mina, signed int maxa) {
-	ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 4, usage, mina, maxa);
-	*(tsf_VoidCallback   *)(ent + 40) = vc;
-}
-void tsf_AddConsoleFunc(const char* pname, const char* cname, const char* fname, tsf_BoolCallback   bc, const char*  usage, signed int mina, signed int maxa) {
-	ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 5, usage, mina, maxa);
-	*(tsf_BoolCallback   *)(ent + 40) = bc;
+  *(tsf_StringCallback*)(ent + 40) = sc;
 }
 
+void tsf_AddConsoleFunc(
+    const char* pname,
+    const char* cname,
+    const char* fname,
+    tsf_IntCallback ic,
+    const char* usage,
+    signed int mina,
+    signed int maxa) {
+  ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 2, usage, mina, maxa);
+  *(tsf_IntCallback*)(ent + 40) = ic;
+}
+
+void tsf_AddConsoleFunc(
+    const char* pname,
+    const char* cname,
+    const char* fname,
+    tsf_FloatCallback fc,
+    const char* usage,
+    signed int mina,
+    signed int maxa) {
+  ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 3, usage, mina, maxa);
+  *(tsf_FloatCallback*)(ent + 40) = fc;
+}
+
+void tsf_AddConsoleFunc(
+    const char* pname,
+    const char* cname,
+    const char* fname,
+    tsf_VoidCallback vc,
+    const char* usage,
+    signed int mina,
+    signed int maxa) {
+  ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 4, usage, mina, maxa);
+  *(tsf_VoidCallback*)(ent + 40) = vc;
+}
+
+void tsf_AddConsoleFunc(
+    const char* pname,
+    const char* cname,
+    const char* fname,
+    tsf_BoolCallback bc,
+    const char* usage,
+    signed int mina,
+    signed int maxa) {
+  ADDR ent = tsf_AddConsoleFuncInternal(pname, cname, fname, 5, usage, mina, maxa);
+  *(tsf_BoolCallback*)(ent + 40) = bc;
+}
 
 // Initialization
 
 bool tsf_InitInternal() {
-	BlScanFunctionText(tsf_BlStringTable__insert        , "83 EC 0C 80 3D ? ? ? ? ?"                                                                                                         );
-	BlScanFunctionText(tsf_BlNamespace__find            , "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 83 EC 0C 53 56 57 A1 ? ? ? ? 33 C5 50 8D 45 F4 64 A3 ? ? ? ? 8B DA 8B D1"              );
-	BlScanFunctionText(tsf_BlNamespace__createLocalEntry, "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 83 EC 08 53 56 57 A1 ? ? ? ? 33 C5 50 8D 45 F4 64 A3 ? ? ? ? 89 4D F0"                 );
-	BlScanFunctionText(tsf_BlDataChunker__freeBlocks    , "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 51 53 56 57 A1 ? ? ? ? 33 C5 50 8D 45 F4 64 A3 ? ? ? ? 8B D9 8B 33"                    );
-	BlScanFunctionText(tsf_BlCon__evaluate              , "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 56 57 A1 ? ? ? ? 33 C5 50 8D 45 F4 64 A3 ? ? ? ? 8B 75 10"                             );
-	BlScanFunctionText(tsf_BlCon__executef              , "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 53 55 56 8B B4 24 ? ? ? ? 33 C9"                                                  );
-	BlScanFunctionText(tsf_BlCon__executefSimObj        , "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 53 56 8B B4 24 ? ? ? ? 33 C9"                                                     );
-	BlScanFunctionText(tsf_BlCon__getVariable           , "53 56 8B F1 57 85 F6 0F 84 ? ? ? ?"                                                                                               );
-	BlScanFunctionText(tsf_BlDictionary__addVariable    , "8B 44 24 04 56 57 8B F9"                                                                                                          );
-	BlScanFunctionText(tsf_BlSim__findObject_name       , "57 8B F9 8A 17"                                                                                                                   );
-	BlScanFunctionText(tsf_BlStringStack__getArgBuffer  , "55 8B EC 83 E4 F8 8B 0D ? ? ? ? A1 ? ? ? ? 56 57 8B 7D 08 8D 14 01 03 D7 3B 15 ? ? ? ? 72 2C 8B 0D"                               );
-	BlScanFunctionText(tsf_BlSimObject__getDataField    , "51 53 8B D9 55 56 8B 74 24 14"                                                                                                    );
-	BlScanFunctionText(tsf_BlSimObject__setDataField    , "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 8B 84 24 ? ? ? ? 53 8B D9 89 44 24 04"                                            );
-	BlScanFunctionText(tsf_BlCon__getReturnBuffer       , "81 F9 ? ? ? ? 76 2B"                                                                                                              );
+  BlScanFunctionText(tsf_BlStringTable__insert, "83 EC 0C 80 3D ? ? ? ? ?");
+  BlScanFunctionText(
+      tsf_BlNamespace__find,
+      "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 83 EC 0C 53 56 57 A1 ? ? ? ? "
+      "33 C5 50 8D 45 F4 64 A3 ? ? ? ? 8B DA 8B D1");
+  BlScanFunctionText(
+      tsf_BlNamespace__createLocalEntry,
+      "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 83 EC 08 53 56 57 A1 ? ? ? ? "
+      "33 C5 50 8D 45 F4 64 A3 ? ? ? ? 89 4D F0");
+  BlScanFunctionText(
+      tsf_BlDataChunker__freeBlocks,
+      "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 51 53 56 57 "
+      "A1 ? ? ? ? 33 C5 50 8D 45 F4 64 A3 ? ? ? ? 8B D9 8B 33");
+  BlScanFunctionText(
+      tsf_BlCon__evaluate,
+      "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 56 57 A1 ? ? "
+      "? ? 33 C5 50 8D 45 F4 64 A3 ? ? ? ? 8B 75 10");
+  BlScanFunctionText(
+      tsf_BlCon__executef,
+      "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 53 55 56 "
+      "8B B4 24 ? ? ? ? 33 C9");
+  BlScanFunctionText(
+      tsf_BlCon__executefSimObj,
+      "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 53 56 8B "
+      "B4 24 ? ? ? ? 33 C9");
+  BlScanFunctionText(tsf_BlCon__getVariable, "53 56 8B F1 57 85 F6 0F 84 ? ? ? ?");
+  BlScanFunctionText(tsf_BlDictionary__addVariable, "8B 44 24 04 56 57 8B F9");
+  BlScanFunctionText(tsf_BlSim__findObject_name, "57 8B F9 8A 17");
+  BlScanFunctionText(
+      tsf_BlStringStack__getArgBuffer,
+      "55 8B EC 83 E4 F8 8B 0D ? ? ? ? A1 ? ? ? ? 56 57 8B 7D "
+      "08 8D 14 01 03 D7 3B 15 ? ? ? ? 72 2C 8B 0D");
+  BlScanFunctionText(tsf_BlSimObject__getDataField, "51 53 8B D9 55 56 8B 74 24 14");
+  BlScanFunctionText(
+      tsf_BlSimObject__setDataField,
+      "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 8B 84 24 "
+      "? ? ? ? 53 8B D9 89 44 24 04");
+  BlScanFunctionText(tsf_BlCon__getReturnBuffer, "81 F9 ? ? ? ? 76 2B");
 
-	ADDR BlScanText   (tsf_mCacheSequenceLoc            , "FF 05 ? ? ? ? B9 ? ? ? ? 8B F8 E8 ? ? ? ? 8B 44 24 1C 89 47 18 8B 44 24 14"                                                       );
-	ADDR BlScanText   (tsf_mCacheAllocatorLoc           , "89 35 ? ? ? ? C7 06 ? ? ? ? A1 ? ? ? ? 68 ? ? ? ? C7 40 ? ? ? ? ? E8 ? ? ? ? 83 C4 04 8B 4D F4 64 89 0D ? ? ? ? 59 5E 8B E5 5D C3");
-	ADDR BlScanText   (tsf_gIdDictionaryLoc             , "89 15 ? ? ? ? E8 ? ? ? ? 8B F0 89 75 F0"                                                                                          );
-	ADDR BlScanText   (tsf_gEvalState_globalVarsLoc     , "B9 ? ? ? ? E8 ? ? ? ? 68 ? ? ? ? 6A 0A 68 ? ? ? ? B9 ? ? ? ? E8 ? ? ? ? E8 ? ? ? ?"                                               );
+  ADDR BlScanText(
+      tsf_mCacheSequenceLoc,
+      "FF 05 ? ? ? ? B9 ? ? ? ? 8B F8 E8 ? ? ? ? 8B 44 24 1C 89 47 "
+      "18 8B 44 24 14");
+  ADDR BlScanText(
+      tsf_mCacheAllocatorLoc,
+      "89 35 ? ? ? ? C7 06 ? ? ? ? A1 ? ? ? ? 68 ? ? ? ? C7 40 ? ? ? ? ? E8 ? "
+      "? ? ? 83 C4 04 8B 4D F4 64 89 0D ? ? ? ? 59 5E 8B E5 5D C3");
+  ADDR BlScanText(tsf_gIdDictionaryLoc, "89 15 ? ? ? ? E8 ? ? ? ? 8B F0 89 75 F0");
+  ADDR BlScanText(
+      tsf_gEvalState_globalVarsLoc,
+      "B9 ? ? ? ? E8 ? ? ? ? 68 ? ? ? ? 6A 0A 68 ? ? ? ? B9 ? ? ? "
+      "? E8 ? ? ? ? E8 ? ? ? ?");
 
   tsf_mCacheSequence = *(ADDR*)(tsf_mCacheSequenceLoc + 2);
   tsf_mCacheAllocator = *(ADDR*)(tsf_mCacheAllocatorLoc + 2);
@@ -233,6 +301,4 @@ bool tsf_InitInternal() {
   return true;
 }
 
-bool tsf_DeinitInternal() {
-	return true;
-}
+bool tsf_DeinitInternal() { return true; }

inc/tsfuncs/BlFuncs.hpp

@@ -5,49 +5,49 @@
 #ifndef _H_BLFUNCS
 #define _H_BLFUNCS
 
-// Require BlHooks to be included before this header
+// Ensure BlHooks is available (include it if not already included)
 #ifndef _H_BLHOOKS
-	#error "BlFuncs.hpp: You must include BlHooks.hpp first"
-#else
+#include "BlHooks.hpp"
+#endif
 
-typedef const char * (*tsf_StringCallback)(ADDR, signed int, const char *[]);
-typedef signed int   (*tsf_IntCallback   )(ADDR, signed int, const char *[]);
-typedef float        (*tsf_FloatCallback )(ADDR, signed int, const char *[]);
-typedef void         (*tsf_VoidCallback  )(ADDR, signed int, const char *[]);
-typedef bool         (*tsf_BoolCallback  )(ADDR, signed int, const char *[]);
+typedef const char* (*tsf_StringCallback)(ADDR, signed int, const char*[]);
+typedef signed int (*tsf_IntCallback)(ADDR, signed int, const char*[]);
+typedef float (*tsf_FloatCallback)(ADDR, signed int, const char*[]);
+typedef void (*tsf_VoidCallback)(ADDR, signed int, const char*[]);
+typedef bool (*tsf_BoolCallback)(ADDR, signed int, const char*[]);
 
 /* These functions are used for tsf_BlCon__executefSimObj.
    They refer to a special buffer for the argument stack.
    For tsf_BlCon__executef, you need to use your own buffers. */
-char *tsf_GetIntArg(int);
-char *tsf_GetFloatArg(float);
-char *tsf_ScriptThis(ADDR);
+char* tsf_GetIntArg(int);
+char* tsf_GetFloatArg(float);
+char* tsf_ScriptThis(ADDR);
 
-const char *tsf_Eval(const char *);
-const char *tsf_Evalf(const char *, ...);
+const char* tsf_Eval(const char*);
+const char* tsf_Evalf(const char*, ...);
 
 ADDR tsf_FindObject(unsigned int);
-ADDR tsf_FindObject(const char *);
+ADDR tsf_FindObject(const char*);
 
-ADDR tsf_LookupNamespace(const char *, const char *);
+ADDR tsf_LookupNamespace(const char*, const char*);
 
-const char *tsf_GetDataField(ADDR, const char *, const char *);
-void tsf_SetDataField(ADDR, const char *, const char *, const char *);
+const char* tsf_GetDataField(ADDR, const char*, const char*);
+void tsf_SetDataField(ADDR, const char*, const char*, const char*);
 
-const char *tsf_GetVar(const char *);
+const char* tsf_GetVar(const char*);
 
-void tsf_AddVarInternal(const char *, signed int, void *);
-void tsf_AddVar(const char *, const char **);
-void tsf_AddVar(const char *, signed int *);
-void tsf_AddVar(const char *, float *);
-void tsf_AddVar(const char *, bool *);
+void tsf_AddVarInternal(const char*, signed int, void*);
+void tsf_AddVar(const char*, const char**);
+void tsf_AddVar(const char*, signed int*);
+void tsf_AddVar(const char*, float*);
+void tsf_AddVar(const char*, bool*);
 
-ADDR tsf_AddConsoleFuncInternal(const char *, const char *, const char *, signed int, const char *, signed int, signed int);
-void tsf_AddConsoleFunc(const char *, const char *, const char *, tsf_StringCallback, const char *, signed int, signed int);
-void tsf_AddConsoleFunc(const char *, const char *, const char *, tsf_IntCallback, const char *, signed int, signed int);
-void tsf_AddConsoleFunc(const char *, const char *, const char *, tsf_FloatCallback, const char *, signed int, signed int);
-void tsf_AddConsoleFunc(const char *, const char *, const char *, tsf_VoidCallback, const char *, signed int, signed int);
-void tsf_AddConsoleFunc(const char *, const char *, const char *, tsf_BoolCallback, const char *, signed int, signed int);
+ADDR tsf_AddConsoleFuncInternal(const char*, const char*, const char*, signed int, const char*, signed int, signed int);
+void tsf_AddConsoleFunc(const char*, const char*, const char*, tsf_StringCallback, const char*, signed int, signed int);
+void tsf_AddConsoleFunc(const char*, const char*, const char*, tsf_IntCallback, const char*, signed int, signed int);
+void tsf_AddConsoleFunc(const char*, const char*, const char*, tsf_FloatCallback, const char*, signed int, signed int);
+void tsf_AddConsoleFunc(const char*, const char*, const char*, tsf_VoidCallback, const char*, signed int, signed int);
+void tsf_AddConsoleFunc(const char*, const char*, const char*, tsf_BoolCallback, const char*, signed int, signed int);
 
 bool tsf_InitInternal();
 
@@ -56,21 +56,20 @@ extern ADDR tsf_mCacheAllocator;
 extern ADDR tsf_gIdDictionary;
 extern ADDR tsf_gEvalState_globalVars;
 
-BlFunctionDefExtern(const char *, __stdcall, tsf_BlStringTable__insert, const char *, bool);
-BlFunctionDefExtern(ADDR, __fastcall, tsf_BlNamespace__find, const char *, const char *);
-BlFunctionDefExtern(ADDR, __thiscall, tsf_BlNamespace__createLocalEntry, ADDR, const char *);
+BlFunctionDefExtern(const char*, __stdcall, tsf_BlStringTable__insert, const char*, bool);
+BlFunctionDefExtern(ADDR, __fastcall, tsf_BlNamespace__find, const char*, const char*);
+BlFunctionDefExtern(ADDR, __thiscall, tsf_BlNamespace__createLocalEntry, ADDR, const char*);
 BlFunctionDefExtern(void, __thiscall, tsf_BlDataChunker__freeBlocks, ADDR);
-BlFunctionDefExtern(const char *, , tsf_BlCon__evaluate, ADDR, signed int, const char **);
-BlFunctionDefExtern(const char *, , tsf_BlCon__executef, signed int, ...);
-BlFunctionDefExtern(const char *, , tsf_BlCon__executefSimObj, ADDR *, signed int, ...);
-BlFunctionDefExtern(const char *, __thiscall, tsf_BlCon__getVariable, const char *);
-BlFunctionDefExtern(void, __thiscall, tsf_BlDictionary__addVariable, ADDR *, const char *, signed int, void *);
-BlFunctionDefExtern(ADDR *, __thiscall, tsf_BlSim__findObject_name, const char *);
-BlFunctionDefExtern(char *, __stdcall, tsf_BlStringStack__getArgBuffer, unsigned int);
-BlFunctionDefExtern(const char *, __thiscall, tsf_BlSimObject__getDataField, ADDR, const char *, const char *);
-BlFunctionDefExtern(void, __thiscall, tsf_BlSimObject__setDataField, ADDR, const char *, const char *, const char *);
-BlFunctionDefExtern(char *, __fastcall, tsf_BlCon__getReturnBuffer, unsigned int);
-
+BlFunctionDefExtern(const char*, , tsf_BlCon__evaluate, ADDR, signed int, const char**);
+BlFunctionDefExtern(const char*, , tsf_BlCon__executef, signed int, ...);
+BlFunctionDefExtern(const char*, , tsf_BlCon__executefSimObj, ADDR*, signed int, ...);
+BlFunctionDefExtern(const char*, __thiscall, tsf_BlCon__getVariable, const char*);
+BlFunctionDefExtern(void, __thiscall, tsf_BlDictionary__addVariable, ADDR*, const char*, signed int, void*);
+BlFunctionDefExtern(ADDR*, __thiscall, tsf_BlSim__findObject_name, const char*);
+BlFunctionDefExtern(char*, __stdcall, tsf_BlStringStack__getArgBuffer, unsigned int);
+BlFunctionDefExtern(const char*, __thiscall, tsf_BlSimObject__getDataField, ADDR, const char*, const char*);
+BlFunctionDefExtern(void, __thiscall, tsf_BlSimObject__setDataField, ADDR, const char*, const char*, const char*);
+BlFunctionDefExtern(char*, __fastcall, tsf_BlCon__getReturnBuffer, unsigned int);
 
 // Function short names
 
@@ -94,16 +93,21 @@ BlFunctionDefExtern(char *, __fastcall, tsf_BlCon__getReturnBuffer, unsigned int
 
 #define BlAddFunction tsf_AddConsoleFunc
 
-#define __22ND_ARGUMENT(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, ...) a22
-#define __NUM_LIST(...) __22ND_ARGUMENT(dummy, ##__VA_ARGS__, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0)
-#define BlCall(...) \
-	tsf_BlCon__executef(__NUM_LIST(__VA_ARGS__), __VA_ARGS__)
-#define BlCallObj(obj, ...) \
-	tsf_BlCon__executefSimObj((ADDR*)obj, __NUM_LIST(__VA_ARGS__), __VA_ARGS__)
-
-#define BlFuncsInit() if(!tsf_InitInternal()) { return false; }
-#define BlFuncsDeinit() if(!tsf_DeinitInternal()) { return false; }
+#define __22ND_ARGUMENT(                                                                                               \
+    a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, ...)          \
+  a22
+#define __NUM_LIST(...)                                                                                                \
+  __22ND_ARGUMENT(dummy, ##__VA_ARGS__, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0)
+#define BlCall(...) tsf_BlCon__executef(__NUM_LIST(__VA_ARGS__), __VA_ARGS__)
+#define BlCallObj(obj, ...) tsf_BlCon__executefSimObj((ADDR*)obj, __NUM_LIST(__VA_ARGS__), __VA_ARGS__)
 
+#define BlFuncsInit()                                                                                                  \
+  if (!tsf_InitInternal()) {                                                                                           \
+    return false;                                                                                                      \
+  }
+#define BlFuncsDeinit()                                                                                                \
+  if (!tsf_DeinitInternal()) {                                                                                         \
+    return false;                                                                                                      \
+  }
 
 #endif
-#endif

inc/tsfuncs/BlHooks.cpp

@@ -2,29 +2,30 @@
 //////////////////////////////////////////////////
 // RedoBlHooks Version 3.0
 
-
 // Includes
 
+#ifndef WIN32_LEAN_AND_MEAN
+#define WIN32_LEAN_AND_MEAN
+#include <cstdlib>
+#endif
 #include <Windows.h>
 #include <Psapi.h>
-//#include <map>
+// #include <map>
 
 #include "BlHooks.hpp"
 
-
 // Scanned structures
 
 BlFunctionDefIntern(tsh_BlPrintf);
 
-
 // Sig Scanning
 
 ADDR ImageBase;
 ADDR ImageSize;
 
-void tsh_i_InitScanner(){
+void tsh_i_InitScanner() {
   HMODULE module = GetModuleHandle(NULL);
-	if(module) {
+  if (module) {
     MODULEINFO info;
     GetModuleInformation(GetCurrentProcess(), module, &info, sizeof(MODULEINFO));
     ImageBase = (ADDR)info.lpBaseOfDll;
@@ -32,17 +33,17 @@ void tsh_i_InitScanner(){
   }
 }
 
-bool tsh_i_CompareData(BYTE *data, BYTE *pattern, char* mask){
-	for (; *mask; ++data, ++pattern, ++mask){
-		if (*mask=='x' && *data!=*pattern)
+bool tsh_i_CompareData(BYTE* data, BYTE* pattern, char* mask) {
+  for (; *mask; ++data, ++pattern, ++mask) {
+    if (*mask == 'x' && *data != *pattern)
       return false;
   }
-	return (*mask)==0;
+  return (*mask) == 0;
 }
 
-ADDR tsh_i_FindPattern(ADDR imageBase, ADDR imageSize, BYTE *pattern, char *mask){
-	for (ADDR i=imageBase; i < imageBase+imageSize; i++){
-		if(tsh_i_CompareData((PBYTE)i, pattern, mask)){
+ADDR tsh_i_FindPattern(ADDR imageBase, ADDR imageSize, BYTE* pattern, char* mask) {
+  for (ADDR i = imageBase; i < imageBase + imageSize; i++) {
+    if (tsh_i_CompareData((PBYTE)i, pattern, mask)) {
       return i;
     }
   }
@@ -58,17 +59,17 @@ void tsh_i_PatternTextToCode(char* text, char** opatt, char** omask) {
   int outidx = 0;
   int val = 0;
   bool uk = false;
-	for(unsigned int i=0; i<len; i++){
+  for (unsigned int i = 0; i < len; i++) {
     char c = text[i];
-		if(c=='?'){
+    if (c == '?') {
       uk = true;
-		}else if(c>='0' && c<='9'){
-			val = (val<<4) + (c-'0');
-		}else if(c>='A' && c<='F'){
-			val = (val<<4) + (c-'A'+10);
-		}else if(c>='a' && c<='f'){
-			val = (val<<4) + (c-'a'+10);
-		}else if(c==' '){
+    } else if (c >= '0' && c <= '9') {
+      val = (val << 4) + (c - '0');
+    } else if (c >= 'A' && c <= 'F') {
+      val = (val << 4) + (c - 'A' + 10);
+    } else if (c >= 'a' && c <= 'f') {
+      val = (val << 4) + (c - 'a' + 10);
+    } else if (c == ' ') {
       patt[outidx] = uk ? 0 : val;
       mask[outidx] = uk ? '?' : 'x';
       val = 0;
@@ -87,12 +88,11 @@ void tsh_i_PatternTextToCode(char* text, char** opatt, char** omask) {
   *omask = mask;
 }
 
-
 // Public functions for sig scanning
 
 // Scan using code-style pattern
 ADDR tsh_ScanCode(char* pattern, char* mask) {
-	return tsh_i_FindPattern(ImageBase, ImageSize-strlen(mask), (BYTE*)pattern, mask);
+  return tsh_i_FindPattern(ImageBase, ImageSize - strlen(mask), (BYTE*)pattern, mask);
 }
 
 // Scan using a text-style pattern
@@ -109,16 +109,15 @@ ADDR tsh_ScanText(char* text) {
   return res;
 }
 
-
 // Call Patching and Hooking
 
 // Remove protection from address
-//std::map<ADDR, std::pair<ADDR, ADDR>> tsh_DeprotectedAddresses;
+// std::map<ADDR, std::pair<ADDR, ADDR>> tsh_DeprotectedAddresses;
 
 void tsh_DeprotectAddress(ADDR length, ADDR location) {
   DWORD oldProtection;
   VirtualProtect((void*)location, length, PAGE_EXECUTE_READWRITE, &oldProtection);
-	//tsh_DeprotectedAddresses[location] = {length, oldProtection};
+  // tsh_DeprotectedAddresses[location] = {length, oldProtection};
 }
 
 // Patch a string of bytes by deprotecting and then overwriting
@@ -127,50 +126,43 @@ void tsh_PatchBytes(ADDR length, ADDR location, BYTE* repl) {
   memcpy((void*)location, (void*)repl, (size_t)length);
 }
 
-void tsh_PatchByte(ADDR location, BYTE value) {
-	tsh_PatchBytes(location, 1, &value);
-}
+void tsh_PatchByte(ADDR location, BYTE value) { tsh_PatchBytes(location, 1, &value); }
 
-void tsh_ReplaceInt(ADDR addr, int rval) {
-	tsh_PatchBytes(4, addr, (BYTE*)(&rval));
-}
+void tsh_ReplaceInt(ADDR addr, int rval) { tsh_PatchBytes(4, addr, (BYTE*)(&rval)); }
 
-int tsh_i_CallOffset(ADDR instr, ADDR func) {
-	return func - (instr+4);
-}
+int tsh_i_CallOffset(ADDR instr, ADDR func) { return func - (instr + 4); }
 
-void tsh_i_ReplaceCall(ADDR instr, ADDR target) {
-	tsh_ReplaceInt(instr, tsh_i_CallOffset(instr, target));
-}
+void tsh_i_ReplaceCall(ADDR instr, ADDR target) { tsh_ReplaceInt(instr, tsh_i_CallOffset(instr, target)); }
 
 void tsh_i_PatchCopy(ADDR dest, ADDR src, unsigned int len) {
-	for(unsigned int i=0; i<len; i++){
-		tsh_PatchByte(dest+i, *((BYTE*)(src+i)));
+  for (unsigned int i = 0; i < len; i++) {
+    tsh_PatchByte(dest + i, *((BYTE*)(src + i)));
   }
 }
 
 void tsh_HookFunction(ADDR victim, ADDR detour, BYTE* origbytes) {
-	memcpy(origbytes, (BYTE*)victim, 6); //save old data
+  memcpy(origbytes, (BYTE*)victim, 6); // save old data
 
-	*(BYTE*)victim = 0xE9; //jmp rel32
-	*(ADDR*)(victim+1) = (detour - (victim+5)); // jump offset
-	*(BYTE*)(victim+5) = 0xC3; //retn
+  *(BYTE*)victim = 0xE9;                          // jmp rel32
+  *(ADDR*)(victim + 1) = (detour - (victim + 5)); // jump offset
+  *(BYTE*)(victim + 5) = 0xC3;                    // retn
 }
 
-void tsh_UnhookFunction(ADDR victim, BYTE* origbytes){
-	tsh_i_PatchCopy(victim, (ADDR)origbytes, 6); //restore old data
+void tsh_UnhookFunction(ADDR victim, BYTE* origbytes) {
+  tsh_i_PatchCopy(victim, (ADDR)origbytes, 6); // restore old data
 }
 
-int tsh_PatchAllMatchesCode(ADDR len, char* patt, char* mask, char* replace, bool debugprint){
+int tsh_PatchAllMatchesCode(ADDR len, char* patt, char* mask, char* replace, bool debugprint) {
   int numpatched = 0;
-	for(ADDR i=ImageBase; i<ImageBase+ImageSize-len; i++){
-		if(tsh_i_CompareData((BYTE*)i, (BYTE*)patt, mask)){
-			if(debugprint) BlPrintf("RedoBlHooks: Patching call at %08x", i);
+  for (ADDR i = ImageBase; i < ImageBase + ImageSize - len; i++) {
+    if (tsh_i_CompareData((BYTE*)i, (BYTE*)patt, mask)) {
+      if (debugprint)
+        BlPrintf("RedoBlHooks: Patching call at %08x", i);
 
       numpatched++;
       tsh_DeprotectAddress(i, len);
-			for(ADDR c=0; c<len; c++){
-				tsh_PatchByte(i+c, replace[c]);
+      for (ADDR c = 0; c < len; c++) {
+        tsh_PatchByte(i + c, replace[c]);
       }
     }
   }
@@ -190,10 +182,9 @@ int tsh_PatchAllMatchesHex(ADDR len, char* text, char* replace, bool debugprint)
   return res;
 }
 
-
 // Initialization
 
-bool tsh_InitInternal(){
+bool tsh_InitInternal() {
   tsh_i_InitScanner();
 
   BlScanFunctionText(tsh_BlPrintf, "8D 44 24 08 33 D2 50 FF 74 24 08 33 C9 E8 ? ? ? ? 83 C4 08 C3");
@@ -201,7 +192,4 @@ bool tsh_InitInternal(){
   return true;
 }
 
-bool tsh_DeinitInternal() {
-	return true;
-}
-
+bool tsh_DeinitInternal() { return true; }

inc/tsfuncs/BlHooks.hpp

@@ -5,13 +5,11 @@
 #ifndef _H_BLHOOKS
 #define _H_BLHOOKS
 
-
 // Typedefs
 
 typedef unsigned char BYTE;
 typedef unsigned int ADDR;
 
-
 // Prototypes
 
 bool tsh_InitInternal();
@@ -25,69 +23,73 @@ void tsh_PatchByte(ADDR, BYTE);
 void tsh_PatchBytes(unsigned int, ADDR, BYTE*);
 void tsh_PatchInt(ADDR, int);
 
-
 // Debug print settings
 
 #ifndef TSH_NO_DEBUG_PRINT
-	#define tsh_DEBUGPRINT false
+#define tsh_DEBUGPRINT false
 #else
-	#define tsh_DEBUGPRINT true
+#define tsh_DEBUGPRINT true
 #endif
 
-
 // Function short names
 
 // Use in code when the def is not shared in a header
 #define BlFunctionDef(returnType, convention, name, ...)                                                               \
-	typedef returnType (convention *tsh_##name##FnT)(__VA_ARGS__); \
+  typedef returnType(convention* tsh_##name##FnT)(__VA_ARGS__);                                                        \
   tsh_##name##FnT name;
-// Use in header for shared function defs when a BlFunctionDefIntern exists in code
+// Use in header for shared function defs when a BlFunctionDefIntern exists in
+// code
 #define BlFunctionDefExtern(returnType, convention, name, ...)                                                         \
-	typedef returnType (convention *tsh_##name##FnT)(__VA_ARGS__); \
+  typedef returnType(convention* tsh_##name##FnT)(__VA_ARGS__);                                                        \
   extern tsh_##name##FnT name;
-// Use in code for shared function defs when a BlFunctionDefExtern exists in header
-#define BlFunctionDefIntern(name) \
-	tsh_##name##FnT name;
+// Use in code for shared function defs when a BlFunctionDefExtern exists in
+// header
+#define BlFunctionDefIntern(name) tsh_##name##FnT name;
 
-// Scan for and assign the pattern to the variable, or err and return if not found
+// Scan for and assign the pattern to the variable, or err and return if not
+// found
 #define BlScanFunctionCode(target, patt, mask)                                                                         \
   target = (tsh_##target##FnT)tsh_ScanCode((char*)patt, (char*)mask);                                                  \
-	if(!target){ \
-		BlPrintf("RedoBlHooks | Cannot find function "#target"!"); \
+  if (!target) {                                                                                                       \
+    BlPrintf("RedoBlHooks | Cannot find function " #target "!");                                                       \
     return false;                                                                                                      \
-	}else{ \
-		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found function "#target" at %08x", (int)target); \
+  } else {                                                                                                             \
+    if (tsh_DEBUGPRINT)                                                                                                \
+      BlPrintf("RedoBlHooks | Found function " #target " at %08x", (int)target);                                       \
   }
 #define BlScanFunctionText(target, text)                                                                               \
   target = (tsh_##target##FnT)tsh_ScanText((char*)text);                                                               \
-	if(!target){ \
-		BlPrintf("RedoBlHooks | Cannot find function "#target"!"); \
+  if (!target) {                                                                                                       \
+    BlPrintf("RedoBlHooks | Cannot find function " #target "!");                                                       \
     return false;                                                                                                      \
-	}else{ \
-		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found function "#target" at %08x", (int)target); \
+  } else {                                                                                                             \
+    if (tsh_DEBUGPRINT)                                                                                                \
+      BlPrintf("RedoBlHooks | Found function " #target " at %08x", (int)target);                                       \
   }
 #define BlScanCode(target, patt, mask)                                                                                 \
   target = tsh_ScanCode((char*)patt, (char*)mask);                                                                     \
-	if(!target){ \
-		BlPrintf("RedoBlHooks | Cannot find pattern "#target"!"); \
+  if (!target) {                                                                                                       \
+    BlPrintf("RedoBlHooks | Cannot find pattern " #target "!");                                                        \
     return false;                                                                                                      \
-	}else{ \
-		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found "#target" at %08x", (int)target); \
+  } else {                                                                                                             \
+    if (tsh_DEBUGPRINT)                                                                                                \
+      BlPrintf("RedoBlHooks | Found " #target " at %08x", (int)target);                                                \
   }
 #define BlScanText(target, text)                                                                                       \
   target = tsh_ScanText((char*)text);                                                                                  \
-	if(!target){ \
-		BlPrintf("RedoBlHooks | Cannot find "#target"!"); \
+  if (!target) {                                                                                                       \
+    BlPrintf("RedoBlHooks | Cannot find " #target "!");                                                                \
     return false;                                                                                                      \
-	}else{ \
-		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found "#target" at %08x", (int)target); \
+  } else {                                                                                                             \
+    if (tsh_DEBUGPRINT)                                                                                                \
+      BlPrintf("RedoBlHooks | Found " #target " at %08x", (int)target);                                                \
   }
 
 // Use in code to define the data and functions for hooking a function
 #define BlFunctionHookDef(func)                                                                                        \
   BYTE tsh_BlFunctionHook##func##Data[6];                                                                              \
-	void func##HookOn(){ tsh_HookFunction((ADDR)func, (ADDR)func##Hook, tsh_BlFunctionHook##func##Data); } \
-	void func##HookOff(){ tsh_UnhookFunction((ADDR)func, tsh_BlFunctionHook##func##Data); }
+  void func##HookOn() { tsh_HookFunction((ADDR)func, (ADDR)func##Hook, tsh_BlFunctionHook##func##Data); }              \
+  void func##HookOff() { tsh_UnhookFunction((ADDR)func, tsh_BlFunctionHook##func##Data); }
 // Use in code to initialize the hook once
 #define BlFunctionHookInit(func)                                                                                       \
   tsh_DeprotectAddress(6, (ADDR)func);                                                                                 \
@@ -100,23 +102,30 @@ void tsh_PatchInt(ADDR, int);
   tsh_PatchAllMatchesCode((ADDR)len, (char*)text, (char*)repl, tsh_DEBUGPRINT);
 
 // Deprotect and replace one byte
-#define BlPatchByte(addr, byte) \
-	tsh_PatchByte((ADDR)addr, (BYTE)byte);
+#define BlPatchByte(addr, byte) tsh_PatchByte((ADDR)addr, (BYTE)byte);
 // Deprotect and replace a byte string
-#define BlPatchBytes(len, addr, repl) \
-	tsh_PatchBytes((ADDR)len, (ADDR)addr, (BYTE*)repl);
+#define BlPatchBytes(len, addr, repl) tsh_PatchBytes((ADDR)len, (ADDR)addr, (BYTE*)repl);
 
 // BlPrintf(char* format, ...)
-#define BlPrintf(...) if(tsh_BlPrintf) { tsh_BlPrintf(__VA_ARGS__); }
+#define BlPrintf(...)                                                                                                  \
+  if (tsh_BlPrintf) {                                                                                                  \
+    tsh_BlPrintf(__VA_ARGS__);                                                                                         \
+  }
 // BlHooksInit() -> bool: success
-#define BlHooksInit() if(!tsh_InitInternal()) { BlPrintf("BlHooksInit failed"); return false; }
+#define BlHooksInit()                                                                                                  \
+  if (!tsh_InitInternal()) {                                                                                           \
+    BlPrintf("BlHooksInit failed");                                                                                    \
+    return false;                                                                                                      \
+  }
 // BlHooksDeinit() -> bool: success
-#define BlHooksDeinit() if(!tsh_DeinitInternal()) { BlPrintf("BlHooksDeinit failed"); return false; }
-
+#define BlHooksDeinit()                                                                                                \
+  if (!tsh_DeinitInternal()) {                                                                                         \
+    BlPrintf("BlHooksDeinit failed");                                                                                  \
+    return false;                                                                                                      \
+  }
 
 // Scanned structures
 
 BlFunctionDefExtern(void, , tsh_BlPrintf, const char*, ...);
 
-
 #endif

lualib/ltn12.lua

@@ -1,292 +0,0 @@
------------------------------------------------------------------------------
--- LTN12 - Filters, sources, sinks and pumps.
--- LuaSocket toolkit.
--- Author: Diego Nehab
--- RCS ID: $Id: ltn12.lua,v 1.31 2006/04/03 04:45:42 diego Exp $
------------------------------------------------------------------------------
-
------------------------------------------------------------------------------
--- Declare module
------------------------------------------------------------------------------
-local string = require("string")
-local table = require("table")
-local base = _G
-module("ltn12")
-
-filter = {}
-source = {}
-sink = {}
-pump = {}
-
--- 2048 seems to be better in windows...
-BLOCKSIZE = 2048
-_VERSION = "LTN12 1.0.1"
-
------------------------------------------------------------------------------
--- Filter stuff
------------------------------------------------------------------------------
--- returns a high level filter that cycles a low-level filter
-function filter.cycle(low, ctx, extra)
-    base.assert(low)
-    return function(chunk)
-        local ret
-        ret, ctx = low(ctx, chunk, extra)
-        return ret
-    end
-end
-
--- chains a bunch of filters together
--- (thanks to Wim Couwenberg)
-function filter.chain(...)
-    local n = #arg
-    local top, index = 1, 1
-    local retry = ""
-    return function(chunk)
-        retry = chunk and retry
-        while true do
-            if index == top then
-                chunk = arg[index](chunk)
-                if chunk == "" or top == n then return chunk
-                elseif chunk then index = index + 1
-                else
-                    top = top+1
-                    index = top
-                end
-            else
-                chunk = arg[index](chunk or "")
-                if chunk == "" then
-                    index = index - 1
-                    chunk = retry
-                elseif chunk then
-                    if index == n then return chunk
-                    else index = index + 1 end
-                else base.error("filter returned inappropriate nil") end
-            end
-        end
-    end
-end
-
------------------------------------------------------------------------------
--- Source stuff
------------------------------------------------------------------------------
--- create an empty source
-local function empty()
-    return nil
-end
-
-function source.empty()
-    return empty
-end
-
--- returns a source that just outputs an error
-function source.error(err)
-    return function()
-        return nil, err
-    end
-end
-
--- creates a file source
-function source.file(handle, io_err)
-    if handle then
-        return function()
-            local chunk = handle:read(BLOCKSIZE)
-            if not chunk then handle:close() end
-            return chunk
-        end
-    else return source.error(io_err or "unable to open file") end
-end
-
--- turns a fancy source into a simple source
-function source.simplify(src)
-    base.assert(src)
-    return function()
-        local chunk, err_or_new = src()
-        src = err_or_new or src
-        if not chunk then return nil, err_or_new
-        else return chunk end
-    end
-end
-
--- creates string source
-function source.string(s)
-    if s then
-        local i = 1
-        return function()
-            local chunk = string.sub(s, i, i+BLOCKSIZE-1)
-            i = i + BLOCKSIZE
-            if chunk ~= "" then return chunk
-            else return nil end
-        end
-    else return source.empty() end
-end
-
--- creates rewindable source
-function source.rewind(src)
-    base.assert(src)
-    local t = {}
-    return function(chunk)
-        if not chunk then
-            chunk = table.remove(t)
-            if not chunk then return src()
-            else return chunk end
-        else
-            table.insert(t, chunk)
-        end
-    end
-end
-
-function source.chain(src, f)
-    base.assert(src and f)
-    local last_in, last_out = "", ""
-    local state = "feeding"
-    local err
-    return function()
-        if not last_out then
-            base.error('source is empty!', 2)
-        end
-        while true do
-            if state == "feeding" then
-                last_in, err = src()
-                if err then return nil, err end
-                last_out = f(last_in)
-                if not last_out then
-                    if last_in then
-                        base.error('filter returned inappropriate nil')
-                    else
-                        return nil
-                    end
-                elseif last_out ~= "" then
-                    state = "eating"
-                    if last_in then last_in = "" end
-                    return last_out
-                end
-            else
-                last_out = f(last_in)
-                if last_out == "" then
-                    if last_in == "" then
-                        state = "feeding"
-                    else
-                        base.error('filter returned ""')
-                    end
-                elseif not last_out then
-                    if last_in then
-                        base.error('filter returned inappropriate nil')
-                    else
-                        return nil
-                    end
-                else
-                    return last_out
-                end
-            end
-        end
-    end
-end
-
--- creates a source that produces contents of several sources, one after the
--- other, as if they were concatenated
--- (thanks to Wim Couwenberg)
-function source.cat(...)
-    local src = table.remove(arg, 1)
-    return function()
-        while src do
-            local chunk, err = src()
-            if chunk then return chunk end
-            if err then return nil, err end
-            src = table.remove(arg, 1)
-        end
-    end
-end
-
------------------------------------------------------------------------------
--- Sink stuff
------------------------------------------------------------------------------
--- creates a sink that stores into a table
-function sink.table(t)
-    t = t or {}
-    local f = function(chunk, err)
-        if chunk then table.insert(t, chunk) end
-        return 1
-    end
-    return f, t
-end
-
--- turns a fancy sink into a simple sink
-function sink.simplify(snk)
-    base.assert(snk)
-    return function(chunk, err)
-        local ret, err_or_new = snk(chunk, err)
-        if not ret then return nil, err_or_new end
-        snk = err_or_new or snk
-        return 1
-    end
-end
-
--- creates a file sink
-function sink.file(handle, io_err)
-    if handle then
-        return function(chunk, err)
-            if not chunk then
-                handle:close()
-                return 1
-            else return handle:write(chunk) end
-        end
-    else return sink.error(io_err or "unable to open file") end
-end
-
--- creates a sink that discards data
-local function null()
-    return 1
-end
-
-function sink.null()
-    return null
-end
-
--- creates a sink that just returns an error
-function sink.error(err)
-    return function()
-        return nil, err
-    end
-end
-
--- chains a sink with a filter
-function sink.chain(f, snk)
-    base.assert(f and snk)
-    return function(chunk, err)
-        if chunk ~= "" then
-            local filtered = f(chunk)
-            local done = chunk and ""
-            while true do
-                local ret, snkerr = snk(filtered, err)
-                if not ret then return nil, snkerr end
-                if filtered == done then return 1 end
-                filtered = f(done)
-            end
-        else return 1 end
-    end
-end
-
------------------------------------------------------------------------------
--- Pump stuff
------------------------------------------------------------------------------
--- pumps one chunk from the source to the sink
-function pump.step(src, snk)
-    local chunk, src_err = src()
-    local ret, snk_err = snk(chunk, src_err)
-    if chunk and ret then return 1
-    else return nil, src_err or snk_err end
-end
-
--- pumps all data from a source to a sink, using a step function
-function pump.all(src, snk, step)
-    base.assert(src and snk)
-    step = step or pump.step
-    while true do
-        local ret, err = step(src, snk)
-        if not ret then
-            if err then return nil, err
-            else return 1 end
-        end
-    end
-end
-

lualib/mime.lua

@@ -1,87 +0,0 @@
------------------------------------------------------------------------------
--- MIME support for the Lua language.
--- Author: Diego Nehab
--- Conforming to RFCs 2045-2049
--- RCS ID: $Id: mime.lua,v 1.29 2007/06/11 23:44:54 diego Exp $
------------------------------------------------------------------------------
-
------------------------------------------------------------------------------
--- Declare module and import dependencies
------------------------------------------------------------------------------
-local base = _G
-local ltn12 = require("ltn12")
-local mime = require("mime.core")
---local io = require("io")
-local string = require("string")
-module("mime")
-
--- encode, decode and wrap algorithm tables
-encodet = {}
-decodet = {}
-wrapt = {}
-
--- creates a function that chooses a filter by name from a given table
-local function choose(table)
-    return function(name, opt1, opt2)
-        if base.type(name) ~= "string" then
-            name, opt1, opt2 = "default", name, opt1
-        end
-        local f = table[name or "nil"]
-        if not f then 
-            base.error("unknown key (" .. base.tostring(name) .. ")", 3)
-        else return f(opt1, opt2) end
-    end
-end
-
--- define the encoding filters
-encodet['base64'] = function()
-    return ltn12.filter.cycle(b64, "")
-end
-
-encodet['quoted-printable'] = function(mode)
-    return ltn12.filter.cycle(qp, "",
-        (mode == "binary") and "=0D=0A" or "\r\n")
-end
-
--- define the decoding filters
-decodet['base64'] = function()
-    return ltn12.filter.cycle(unb64, "")
-end
-
-decodet['quoted-printable'] = function()
-    return ltn12.filter.cycle(unqp, "")
-end
-
-local function format(chunk)
-    if chunk then
-        if chunk == "" then return "''"
-        else return string.len(chunk) end
-    else return "nil" end
-end
-
--- define the line-wrap filters
-wrapt['text'] = function(length)
-    length = length or 76
-    return ltn12.filter.cycle(wrp, length, length)
-end
-wrapt['base64'] = wrapt['text']
-wrapt['default'] = wrapt['text']
-
-wrapt['quoted-printable'] = function()
-    return ltn12.filter.cycle(qpwrp, 76, 76)
-end
-
--- function that choose the encoding, decoding or wrap algorithm
-encode = choose(encodet)
-decode = choose(decodet)
-wrap = choose(wrapt)
-
--- define the end-of-line normalization filter
-function normalize(marker)
-    return ltn12.filter.cycle(eol, 0, marker)
-end
-
--- high level stuffing filter
-function stuff()
-    return ltn12.filter.cycle(dot, 2)
-end

lualib/socket.lua

@@ -1,133 +0,0 @@
------------------------------------------------------------------------------
--- LuaSocket helper module
--- Author: Diego Nehab
--- RCS ID: $Id: socket.lua,v 1.22 2005/11/22 08:33:29 diego Exp $
------------------------------------------------------------------------------
-
------------------------------------------------------------------------------
--- Declare module and import dependencies
------------------------------------------------------------------------------
-local base = _G
-local string = require("string")
-local math = require("math")
-local socket = require("socket.core")
-module("socket")
-
------------------------------------------------------------------------------
--- Exported auxiliar functions
------------------------------------------------------------------------------
-function connect(address, port, laddress, lport)
-    local sock, err = socket.tcp()
-    if not sock then return nil, err end
-    if laddress then
-        local res, err = sock:bind(laddress, lport, -1)
-        if not res then return nil, err end
-    end
-    local res, err = sock:connect(address, port)
-    if not res then return nil, err end
-    return sock
-end
-
-function bind(host, port, backlog)
-    local sock, err = socket.tcp()
-    if not sock then return nil, err end
-    sock:setoption("reuseaddr", true)
-    local res, err = sock:bind(host, port)
-    if not res then return nil, err end
-    res, err = sock:listen(backlog)
-    if not res then return nil, err end
-    return sock
-end
-
-try = newtry()
-
-function choose(table)
-    return function(name, opt1, opt2)
-        if base.type(name) ~= "string" then
-            name, opt1, opt2 = "default", name, opt1
-        end
-        local f = table[name or "nil"]
-        if not f then base.error("unknown key (".. base.tostring(name) ..")", 3)
-        else return f(opt1, opt2) end
-    end
-end
-
------------------------------------------------------------------------------
--- Socket sources and sinks, conforming to LTN12
------------------------------------------------------------------------------
--- create namespaces inside LuaSocket namespace
-sourcet = {}
-sinkt = {}
-
-BLOCKSIZE = 2048
-
-sinkt["close-when-done"] = function(sock)
-    return base.setmetatable({
-        getfd = function() return sock:getfd() end,
-        dirty = function() return sock:dirty() end
-    }, {
-        __call = function(self, chunk, err)
-            if not chunk then
-                sock:close()
-                return 1
-            else return sock:send(chunk) end
-        end
-    })
-end
-
-sinkt["keep-open"] = function(sock)
-    return base.setmetatable({
-        getfd = function() return sock:getfd() end,
-        dirty = function() return sock:dirty() end
-    }, {
-        __call = function(self, chunk, err)
-            if chunk then return sock:send(chunk)
-            else return 1 end
-        end
-    })
-end
-
-sinkt["default"] = sinkt["keep-open"]
-
-sink = choose(sinkt)
-
-sourcet["by-length"] = function(sock, length)
-    return base.setmetatable({
-        getfd = function() return sock:getfd() end,
-        dirty = function() return sock:dirty() end
-    }, {
-        __call = function()
-            if length <= 0 then return nil end
-            local size = math.min(socket.BLOCKSIZE, length)
-            local chunk, err = sock:receive(size)
-            if err then return nil, err end
-            length = length - string.len(chunk)
-            return chunk
-        end
-    })
-end
-
-sourcet["until-closed"] = function(sock)
-    local done
-    return base.setmetatable({
-        getfd = function() return sock:getfd() end,
-        dirty = function() return sock:dirty() end
-    }, {
-        __call = function()
-            if done then return nil end
-            local chunk, err, partial = sock:receive(socket.BLOCKSIZE)
-            if not err then return chunk
-            elseif err == "closed" then
-                sock:close()
-                done = 1
-                return partial
-            else return nil, err end
-        end
-    })
-end
-
-
-sourcet["default"] = sourcet["until-closed"]
-
-source = choose(sourcet)
-

lualib/socket/ftp.lua

@@ -1,281 +0,0 @@
------------------------------------------------------------------------------
--- FTP support for the Lua language
--- LuaSocket toolkit.
--- Author: Diego Nehab
--- RCS ID: $Id: ftp.lua,v 1.45 2007/07/11 19:25:47 diego Exp $
------------------------------------------------------------------------------
-
------------------------------------------------------------------------------
--- Declare module and import dependencies
------------------------------------------------------------------------------
-local base = _G
-local table = require("table")
-local string = require("string")
-local math = require("math")
-local socket = require("socket")
-local url = require("socket.url")
-local tp = require("socket.tp")
-local ltn12 = require("ltn12")
-module("socket.ftp")
-
------------------------------------------------------------------------------
--- Program constants
------------------------------------------------------------------------------
--- timeout in seconds before the program gives up on a connection
-TIMEOUT = 60
--- default port for ftp service
-PORT = 21
--- this is the default anonymous password. used when no password is
--- provided in url. should be changed to your e-mail.
-USER = "ftp"
-PASSWORD = "anonymous@anonymous.org"
-
------------------------------------------------------------------------------
--- Low level FTP API
------------------------------------------------------------------------------
-local metat = { __index = {} }
-
-function open(server, port, create)
-    local tp = socket.try(tp.connect(server, port or PORT, TIMEOUT, create))
-    local f = base.setmetatable({ tp = tp }, metat)
-    -- make sure everything gets closed in an exception
-    f.try = socket.newtry(function() f:close() end)
-    return f
-end
-
-function metat.__index:portconnect()
-    self.try(self.server:settimeout(TIMEOUT))
-    self.data = self.try(self.server:accept())
-    self.try(self.data:settimeout(TIMEOUT))
-end
-
-function metat.__index:pasvconnect()
-    self.data = self.try(socket.tcp())
-    self.try(self.data:settimeout(TIMEOUT))
-    self.try(self.data:connect(self.pasvt.ip, self.pasvt.port))
-end
-
-function metat.__index:login(user, password)
-    self.try(self.tp:command("user", user or USER))
-    local code, reply = self.try(self.tp:check{"2..", 331})
-    if code == 331 then
-        self.try(self.tp:command("pass", password or PASSWORD))
-        self.try(self.tp:check("2.."))
-    end
-    return 1
-end
-
-function metat.__index:pasv()
-    self.try(self.tp:command("pasv"))
-    local code, reply = self.try(self.tp:check("2.."))
-    local pattern = "(%d+)%D(%d+)%D(%d+)%D(%d+)%D(%d+)%D(%d+)"
-    local a, b, c, d, p1, p2 = socket.skip(2, string.find(reply, pattern))
-    self.try(a and b and c and d and p1 and p2, reply)
-    self.pasvt = {
-        ip = string.format("%d.%d.%d.%d", a, b, c, d),
-        port = p1*256 + p2
-    }
-    if self.server then
-        self.server:close()
-        self.server = nil
-    end
-    return self.pasvt.ip, self.pasvt.port
-end
-
-function metat.__index:port(ip, port)
-    self.pasvt = nil
-    if not ip then
-        ip, port = self.try(self.tp:getcontrol():getsockname())
-        self.server = self.try(socket.bind(ip, 0))
-        ip, port = self.try(self.server:getsockname())
-        self.try(self.server:settimeout(TIMEOUT))
-    end
-    local pl = math.mod(port, 256)
-    local ph = (port - pl)/256
-    local arg = string.gsub(string.format("%s,%d,%d", ip, ph, pl), "%.", ",")
-    self.try(self.tp:command("port", arg))
-    self.try(self.tp:check("2.."))
-    return 1
-end
-
-function metat.__index:send(sendt)
-    self.try(self.pasvt or self.server, "need port or pasv first")
-    -- if there is a pasvt table, we already sent a PASV command
-    -- we just get the data connection into self.data
-    if self.pasvt then self:pasvconnect() end
-    -- get the transfer argument and command
-    local argument = sendt.argument or
-        url.unescape(string.gsub(sendt.path or "", "^[/\\]", ""))
-    if argument == "" then argument = nil end
-    local command = sendt.command or "stor"
-    -- send the transfer command and check the reply
-    self.try(self.tp:command(command, argument))
-    local code, reply = self.try(self.tp:check{"2..", "1.."})
-    -- if there is not a a pasvt table, then there is a server
-    -- and we already sent a PORT command
-    if not self.pasvt then self:portconnect() end
-    -- get the sink, source and step for the transfer
-    local step = sendt.step or ltn12.pump.step
-    local readt = {self.tp.c}
-    local checkstep = function(src, snk)
-        -- check status in control connection while downloading
-        local readyt = socket.select(readt, nil, 0)
-        if readyt[tp] then code = self.try(self.tp:check("2..")) end
-        return step(src, snk)
-    end
-    local sink = socket.sink("close-when-done", self.data)
-    -- transfer all data and check error
-    self.try(ltn12.pump.all(sendt.source, sink, checkstep))
-    if string.find(code, "1..") then self.try(self.tp:check("2..")) end
-    -- done with data connection
-    self.data:close()
-    -- find out how many bytes were sent
-    local sent = socket.skip(1, self.data:getstats())
-    self.data = nil
-    return sent
-end
-
-function metat.__index:receive(recvt)
-    self.try(self.pasvt or self.server, "need port or pasv first")
-    if self.pasvt then self:pasvconnect() end
-    local argument = recvt.argument or
-        url.unescape(string.gsub(recvt.path or "", "^[/\\]", ""))
-    if argument == "" then argument = nil end
-    local command = recvt.command or "retr"
-    self.try(self.tp:command(command, argument))
-    local code = self.try(self.tp:check{"1..", "2.."})
-    if not self.pasvt then self:portconnect() end
-    local source = socket.source("until-closed", self.data)
-    local step = recvt.step or ltn12.pump.step
-    self.try(ltn12.pump.all(source, recvt.sink, step))
-    if string.find(code, "1..") then self.try(self.tp:check("2..")) end
-    self.data:close()
-    self.data = nil
-    return 1
-end
-
-function metat.__index:cwd(dir)
-    self.try(self.tp:command("cwd", dir))
-    self.try(self.tp:check(250))
-    return 1
-end
-
-function metat.__index:type(type)
-    self.try(self.tp:command("type", type))
-    self.try(self.tp:check(200))
-    return 1
-end
-
-function metat.__index:greet()
-    local code = self.try(self.tp:check{"1..", "2.."})
-    if string.find(code, "1..") then self.try(self.tp:check("2..")) end
-    return 1
-end
-
-function metat.__index:quit()
-    self.try(self.tp:command("quit"))
-    self.try(self.tp:check("2.."))
-    return 1
-end
-
-function metat.__index:close()
-    if self.data then self.data:close() end
-    if self.server then self.server:close() end
-    return self.tp:close()
-end
-
------------------------------------------------------------------------------
--- High level FTP API
------------------------------------------------------------------------------
-local function override(t)
-    if t.url then
-        local u = url.parse(t.url)
-        for i,v in base.pairs(t) do
-            u[i] = v
-        end
-        return u
-    else return t end
-end
-
-local function tput(putt)
-    putt = override(putt)
-    socket.try(putt.host, "missing hostname")
-    local f = open(putt.host, putt.port, putt.create)
-    f:greet()
-    f:login(putt.user, putt.password)
-    if putt.type then f:type(putt.type) end
-    f:pasv()
-    local sent = f:send(putt)
-    f:quit()
-    f:close()
-    return sent
-end
-
-local default = {
-	path = "/",
-	scheme = "ftp"
-}
-
-local function parse(u)
-    local t = socket.try(url.parse(u, default))
-    socket.try(t.scheme == "ftp", "wrong scheme '" .. t.scheme .. "'")
-    socket.try(t.host, "missing hostname")
-    local pat = "^type=(.)$"
-    if t.params then
-        t.type = socket.skip(2, string.find(t.params, pat))
-        socket.try(t.type == "a" or t.type == "i",
-            "invalid type '" .. t.type .. "'")
-    end
-    return t
-end
-
-local function sput(u, body)
-    local putt = parse(u)
-    putt.source = ltn12.source.string(body)
-    return tput(putt)
-end
-
-put = socket.protect(function(putt, body)
-    if base.type(putt) == "string" then return sput(putt, body)
-    else return tput(putt) end
-end)
-
-local function tget(gett)
-    gett = override(gett)
-    socket.try(gett.host, "missing hostname")
-    local f = open(gett.host, gett.port, gett.create)
-    f:greet()
-    f:login(gett.user, gett.password)
-    if gett.type then f:type(gett.type) end
-    f:pasv()
-    f:receive(gett)
-    f:quit()
-    return f:close()
-end
-
-local function sget(u)
-    local gett = parse(u)
-    local t = {}
-    gett.sink = ltn12.sink.table(t)
-    tget(gett)
-    return table.concat(t)
-end
-
-command = socket.protect(function(cmdt)
-    cmdt = override(cmdt)
-    socket.try(cmdt.host, "missing hostname")
-    socket.try(cmdt.command, "missing command")
-    local f = open(cmdt.host, cmdt.port, cmdt.create)
-    f:greet()
-    f:login(cmdt.user, cmdt.password)
-    f.try(f.tp:command(cmdt.command, cmdt.argument))
-    if cmdt.check then f.try(f.tp:check(cmdt.check)) end
-    f:quit()
-    return f:close()
-end)
-
-get = socket.protect(function(gett)
-    if base.type(gett) == "string" then return sget(gett)
-    else return tget(gett) end
-end)
-

lualib/socket/http.lua

@@ -1,350 +0,0 @@
------------------------------------------------------------------------------
--- HTTP/1.1 client support for the Lua language.
--- LuaSocket toolkit.
--- Author: Diego Nehab
--- RCS ID: $Id: http.lua,v 1.70 2007/03/12 04:08:40 diego Exp $
------------------------------------------------------------------------------
-
------------------------------------------------------------------------------
--- Declare module and import dependencies
--------------------------------------------------------------------------------
-local socket = require("socket")
-local url = require("socket.url")
-local ltn12 = require("ltn12")
-local mime = require("mime")
-local string = require("string")
-local base = _G
-local table = require("table")
-module("socket.http")
-
------------------------------------------------------------------------------
--- Program constants
------------------------------------------------------------------------------
--- connection timeout in seconds
-TIMEOUT = 60
--- default port for document retrieval
-PORT = 80
--- user agent field sent in request
-USERAGENT = socket._VERSION
-
------------------------------------------------------------------------------
--- Reads MIME headers from a connection, unfolding where needed
------------------------------------------------------------------------------
-local function receiveheaders(sock, headers)
-    local line, name, value, err
-    headers = headers or {}
-    -- get first line
-    line, err = sock:receive()
-    if err then return nil, err end
-    -- headers go until a blank line is found
-    while line ~= "" do
-        -- get field-name and value
-        name, value = socket.skip(2, string.find(line, "^(.-):%s*(.*)"))
-        if not (name and value) then return nil, "malformed reponse headers" end
-        name = string.lower(name)
-        -- get next line (value might be folded)
-        line, err  = sock:receive()
-        if err then return nil, err end
-        -- unfold any folded values
-        while string.find(line, "^%s") do
-            value = value .. line
-            line = sock:receive()
-            if err then return nil, err end
-        end
-        -- save pair in table
-        if headers[name] then headers[name] = headers[name] .. ", " .. value
-        else headers[name] = value end
-    end
-    return headers
-end
-
------------------------------------------------------------------------------
--- Extra sources and sinks
------------------------------------------------------------------------------
-socket.sourcet["http-chunked"] = function(sock, headers)
-    return base.setmetatable({
-        getfd = function() return sock:getfd() end,
-        dirty = function() return sock:dirty() end
-    }, {
-        __call = function()
-            -- get chunk size, skip extention
-            local line, err = sock:receive()
-            if err then return nil, err end
-            local size = base.tonumber(string.gsub(line, ";.*", ""), 16)
-            if not size then return nil, "invalid chunk size" end
-            -- was it the last chunk?
-            if size > 0 then
-                -- if not, get chunk and skip terminating CRLF
-                local chunk, err, part = sock:receive(size)
-                if chunk then sock:receive() end
-                return chunk, err
-            else
-                -- if it was, read trailers into headers table
-                headers, err = receiveheaders(sock, headers)
-                if not headers then return nil, err end
-            end
-        end
-    })
-end
-
-socket.sinkt["http-chunked"] = function(sock)
-    return base.setmetatable({
-        getfd = function() return sock:getfd() end,
-        dirty = function() return sock:dirty() end
-    }, {
-        __call = function(self, chunk, err)
-            if not chunk then return sock:send("0\r\n\r\n") end
-            local size = string.format("%X\r\n", string.len(chunk))
-            return sock:send(size ..  chunk .. "\r\n")
-        end
-    })
-end
-
------------------------------------------------------------------------------
--- Low level HTTP API
------------------------------------------------------------------------------
-local metat = { __index = {} }
-
-function open(host, port, create)
-    -- create socket with user connect function, or with default
-    local c = socket.try((create or socket.tcp)())
-    local h = base.setmetatable({ c = c }, metat)
-    -- create finalized try
-    h.try = socket.newtry(function() h:close() end)
-    -- set timeout before connecting
-    h.try(c:settimeout(TIMEOUT))
-    h.try(c:connect(host, port or PORT))
-    -- here everything worked
-    return h
-end
-
-function metat.__index:sendrequestline(method, uri)
-    local reqline = string.format("%s %s HTTP/1.1\r\n", method or "GET", uri)
-    return self.try(self.c:send(reqline))
-end
-
-function metat.__index:sendheaders(headers)
-    local h = "\r\n"
-    for i, v in base.pairs(headers) do
-        h = i .. ": " .. v .. "\r\n" .. h
-    end
-    self.try(self.c:send(h))
-    return 1
-end
-
-function metat.__index:sendbody(headers, source, step)
-    source = source or ltn12.source.empty()
-    step = step or ltn12.pump.step
-    -- if we don't know the size in advance, send chunked and hope for the best
-    local mode = "http-chunked"
-    if headers["content-length"] then mode = "keep-open" end
-    return self.try(ltn12.pump.all(source, socket.sink(mode, self.c), step))
-end
-
-function metat.__index:receivestatusline()
-    local status = self.try(self.c:receive(5))
-    -- identify HTTP/0.9 responses, which do not contain a status line
-    -- this is just a heuristic, but is what the RFC recommends
-    if status ~= "HTTP/" then return nil, status end
-    -- otherwise proceed reading a status line
-    status = self.try(self.c:receive("*l", status))
-    local code = socket.skip(2, string.find(status, "HTTP/%d*%.%d* (%d%d%d)"))
-    return self.try(base.tonumber(code), status)
-end
-
-function metat.__index:receiveheaders()
-    return self.try(receiveheaders(self.c))
-end
-
-function metat.__index:receivebody(headers, sink, step)
-    sink = sink or ltn12.sink.null()
-    step = step or ltn12.pump.step
-    local length = base.tonumber(headers["content-length"])
-    local t = headers["transfer-encoding"] -- shortcut
-    local mode = "default" -- connection close
-    if t and t ~= "identity" then mode = "http-chunked"
-    elseif base.tonumber(headers["content-length"]) then mode = "by-length" end
-    return self.try(ltn12.pump.all(socket.source(mode, self.c, length),
-        sink, step))
-end
-
-function metat.__index:receive09body(status, sink, step)
-    local source = ltn12.source.rewind(socket.source("until-closed", self.c))
-    source(status)
-    return self.try(ltn12.pump.all(source, sink, step))
-end
-
-function metat.__index:close()
-    return self.c:close()
-end
-
------------------------------------------------------------------------------
--- High level HTTP API
------------------------------------------------------------------------------
-local function adjusturi(reqt)
-    local u = reqt
-    -- if there is a proxy, we need the full url. otherwise, just a part.
-    if not reqt.proxy and not PROXY then
-        u = {
-           path = socket.try(reqt.path, "invalid path 'nil'"),
-           params = reqt.params,
-           query = reqt.query,
-           fragment = reqt.fragment
-        }
-    end
-    return url.build(u)
-end
-
-local function adjustproxy(reqt)
-    local proxy = reqt.proxy or PROXY
-    if proxy then
-        proxy = url.parse(proxy)
-        return proxy.host, proxy.port or 3128
-    else
-        return reqt.host, reqt.port
-    end
-end
-
-local function adjustheaders(reqt)
-    -- default headers
-    local lower = {
-        ["user-agent"] = USERAGENT,
-        ["host"] = reqt.host,
-        ["connection"] = "close, TE",
-        ["te"] = "trailers"
-    }
-    -- if we have authentication information, pass it along
-    if reqt.user and reqt.password then
-        lower["authorization"] = 
-            "Basic " ..  (mime.b64(reqt.user .. ":" .. reqt.password))
-    end
-    -- override with user headers
-    for i,v in base.pairs(reqt.headers or lower) do
-        lower[string.lower(i)] = v
-    end
-    return lower
-end
-
--- default url parts
-local default = {
-    host = "",
-    port = PORT,
-    path ="/",
-    scheme = "http"
-}
-
-local function adjustrequest(reqt)
-    -- parse url if provided
-    local nreqt = reqt.url and url.parse(reqt.url, default) or {}
-    -- explicit components override url
-    for i,v in base.pairs(reqt) do nreqt[i] = v end
-    if nreqt.port == "" then nreqt.port = 80 end
-    socket.try(nreqt.host and nreqt.host ~= "", 
-        "invalid host '" .. base.tostring(nreqt.host) .. "'")
-    -- compute uri if user hasn't overriden
-    nreqt.uri = reqt.uri or adjusturi(nreqt)
-    -- ajust host and port if there is a proxy
-    nreqt.host, nreqt.port = adjustproxy(nreqt)
-    -- adjust headers in request
-    nreqt.headers = adjustheaders(nreqt)
-    return nreqt
-end
-
-local function shouldredirect(reqt, code, headers)
-    return headers.location and
-           string.gsub(headers.location, "%s", "") ~= "" and
-           (reqt.redirect ~= false) and
-           (code == 301 or code == 302) and
-           (not reqt.method or reqt.method == "GET" or reqt.method == "HEAD")
-           and (not reqt.nredirects or reqt.nredirects < 5)
-end
-
-local function shouldreceivebody(reqt, code)
-    if reqt.method == "HEAD" then return nil end
-    if code == 204 or code == 304 then return nil end
-    if code >= 100 and code < 200 then return nil end
-    return 1
-end
-
--- forward declarations
-local trequest, tredirect
-
-function tredirect(reqt, location)
-    local result, code, headers, status = trequest {
-        -- the RFC says the redirect URL has to be absolute, but some
-        -- servers do not respect that
-        url = url.absolute(reqt.url, location),
-        source = reqt.source,
-        sink = reqt.sink,
-        headers = reqt.headers,
-        proxy = reqt.proxy, 
-        nredirects = (reqt.nredirects or 0) + 1,
-        create = reqt.create
-    }   
-    -- pass location header back as a hint we redirected
-    headers = headers or {}
-    headers.location = headers.location or location
-    return result, code, headers, status
-end
-
-function trequest(reqt)
-    -- we loop until we get what we want, or
-    -- until we are sure there is no way to get it
-    local nreqt = adjustrequest(reqt)
-    local h = open(nreqt.host, nreqt.port, nreqt.create)
-    -- send request line and headers
-    h:sendrequestline(nreqt.method, nreqt.uri)
-    h:sendheaders(nreqt.headers)
-    -- if there is a body, send it
-    if nreqt.source then
-        h:sendbody(nreqt.headers, nreqt.source, nreqt.step) 
-    end
-    local code, status = h:receivestatusline()
-    -- if it is an HTTP/0.9 server, simply get the body and we are done
-    if not code then
-        h:receive09body(status, nreqt.sink, nreqt.step)
-        return 1, 200
-    end
-    local headers
-    -- ignore any 100-continue messages
-    while code == 100 do 
-        headers = h:receiveheaders()
-        code, status = h:receivestatusline()
-    end
-    headers = h:receiveheaders()
-    -- at this point we should have a honest reply from the server
-    -- we can't redirect if we already used the source, so we report the error 
-    if shouldredirect(nreqt, code, headers) and not nreqt.source then
-        h:close()
-        return tredirect(reqt, headers.location)
-    end
-    -- here we are finally done
-    if shouldreceivebody(nreqt, code) then
-        h:receivebody(headers, nreqt.sink, nreqt.step)
-    end
-    h:close()
-    return 1, code, headers, status
-end
-
-local function srequest(u, b)
-    local t = {}
-    local reqt = {
-        url = u,
-        sink = ltn12.sink.table(t)
-    }
-    if b then
-        reqt.source = ltn12.source.string(b)
-        reqt.headers = {
-            ["content-length"] = string.len(b),
-            ["content-type"] = "application/x-www-form-urlencoded"
-        }
-        reqt.method = "POST"
-    end
-    local code, headers, status = socket.skip(1, trequest(reqt))
-    return table.concat(t), code, headers, status
-end
-
-request = socket.protect(function(reqt, body)
-    if base.type(reqt) == "string" then return srequest(reqt, body)
-    else return trequest(reqt) end
-end)

lualib/socket/smtp.lua

@@ -1,251 +0,0 @@
------------------------------------------------------------------------------
--- SMTP client support for the Lua language.
--- LuaSocket toolkit.
--- Author: Diego Nehab
--- RCS ID: $Id: smtp.lua,v 1.46 2007/03/12 04:08:40 diego Exp $
------------------------------------------------------------------------------
-
------------------------------------------------------------------------------
--- Declare module and import dependencies
------------------------------------------------------------------------------
-local base = _G
-local coroutine = require("coroutine")
-local string = require("string")
-local math = require("math")
-local os = require("os")
-local socket = require("socket")
-local tp = require("socket.tp")
-local ltn12 = require("ltn12")
-local mime = require("mime")
-module("socket.smtp")
-
------------------------------------------------------------------------------
--- Program constants
------------------------------------------------------------------------------
--- timeout for connection
-TIMEOUT = 60
--- default server used to send e-mails
-SERVER = "localhost"
--- default port
-PORT = 25
--- domain used in HELO command and default sendmail
--- If we are under a CGI, try to get from environment
-DOMAIN = os.getenv("SERVER_NAME") or "localhost"
--- default time zone (means we don't know)
-ZONE = "-0000"
-
----------------------------------------------------------------------------
--- Low level SMTP API
------------------------------------------------------------------------------
-local metat = { __index = {} }
-
-function metat.__index:greet(domain)
-    self.try(self.tp:check("2.."))
-    self.try(self.tp:command("EHLO", domain or DOMAIN))
-    return socket.skip(1, self.try(self.tp:check("2..")))
-end
-
-function metat.__index:mail(from)
-    self.try(self.tp:command("MAIL", "FROM:" .. from))
-    return self.try(self.tp:check("2.."))
-end
-
-function metat.__index:rcpt(to)
-    self.try(self.tp:command("RCPT", "TO:" .. to))
-    return self.try(self.tp:check("2.."))
-end
-
-function metat.__index:data(src, step)
-    self.try(self.tp:command("DATA"))
-    self.try(self.tp:check("3.."))
-    self.try(self.tp:source(src, step))
-    self.try(self.tp:send("\r\n.\r\n"))
-    return self.try(self.tp:check("2.."))
-end
-
-function metat.__index:quit()
-    self.try(self.tp:command("QUIT"))
-    return self.try(self.tp:check("2.."))
-end
-
-function metat.__index:close()
-    return self.tp:close()
-end
-
-function metat.__index:login(user, password)
-    self.try(self.tp:command("AUTH", "LOGIN"))
-    self.try(self.tp:check("3.."))
-    self.try(self.tp:command(mime.b64(user)))
-    self.try(self.tp:check("3.."))
-    self.try(self.tp:command(mime.b64(password)))
-    return self.try(self.tp:check("2.."))
-end
-
-function metat.__index:plain(user, password)
-    local auth = "PLAIN " .. mime.b64("\0" .. user .. "\0" .. password)
-    self.try(self.tp:command("AUTH", auth))
-    return self.try(self.tp:check("2.."))
-end
-
-function metat.__index:auth(user, password, ext)
-    if not user or not password then return 1 end
-    if string.find(ext, "AUTH[^\n]+LOGIN") then
-        return self:login(user, password)
-    elseif string.find(ext, "AUTH[^\n]+PLAIN") then
-        return self:plain(user, password)
-    else
-        self.try(nil, "authentication not supported")
-    end
-end
-
--- send message or throw an exception
-function metat.__index:send(mailt)
-    self:mail(mailt.from)
-    if base.type(mailt.rcpt) == "table" then
-        for i,v in base.ipairs(mailt.rcpt) do
-            self:rcpt(v)
-        end
-    else
-        self:rcpt(mailt.rcpt)
-    end
-    self:data(ltn12.source.chain(mailt.source, mime.stuff()), mailt.step)
-end
-
-function open(server, port, create)
-    local tp = socket.try(tp.connect(server or SERVER, port or PORT,
-        TIMEOUT, create))
-    local s = base.setmetatable({tp = tp}, metat)
-    -- make sure tp is closed if we get an exception
-    s.try = socket.newtry(function()
-        s:close()
-    end)
-    return s
-end
-
--- convert headers to lowercase
-local function lower_headers(headers)
-    local lower = {}
-    for i,v in base.pairs(headers or lower) do
-        lower[string.lower(i)] = v
-    end
-    return lower
-end
-
----------------------------------------------------------------------------
--- Multipart message source
------------------------------------------------------------------------------
--- returns a hopefully unique mime boundary
-local seqno = 0
-local function newboundary()
-    seqno = seqno + 1
-    return string.format('%s%05d==%05u', os.date('%d%m%Y%H%M%S'),
-        math.random(0, 99999), seqno)
-end
-
--- send_message forward declaration
-local send_message
-
--- yield the headers all at once, it's faster
-local function send_headers(headers)
-    local h = "\r\n"
-    for i,v in base.pairs(headers) do
-        h = i .. ': ' .. v .. "\r\n" .. h
-    end
-    coroutine.yield(h)
-end
-
--- yield multipart message body from a multipart message table
-local function send_multipart(mesgt)
-    -- make sure we have our boundary and send headers
-    local bd = newboundary()
-    local headers = lower_headers(mesgt.headers or {})
-    headers['content-type'] = headers['content-type'] or 'multipart/mixed'
-    headers['content-type'] = headers['content-type'] ..
-        '; boundary="' ..  bd .. '"'
-    send_headers(headers)
-    -- send preamble
-    if mesgt.body.preamble then
-        coroutine.yield(mesgt.body.preamble)
-        coroutine.yield("\r\n")
-    end
-    -- send each part separated by a boundary
-    for i, m in base.ipairs(mesgt.body) do
-        coroutine.yield("\r\n--" .. bd .. "\r\n")
-        send_message(m)
-    end
-    -- send last boundary
-    coroutine.yield("\r\n--" .. bd .. "--\r\n\r\n")
-    -- send epilogue
-    if mesgt.body.epilogue then
-        coroutine.yield(mesgt.body.epilogue)
-        coroutine.yield("\r\n")
-    end
-end
-
--- yield message body from a source
-local function send_source(mesgt)
-    -- make sure we have a content-type
-    local headers = lower_headers(mesgt.headers or {})
-    headers['content-type'] = headers['content-type'] or
-        'text/plain; charset="iso-8859-1"'
-    send_headers(headers)
-    -- send body from source
-    while true do
-        local chunk, err = mesgt.body()
-        if err then coroutine.yield(nil, err)
-        elseif chunk then coroutine.yield(chunk)
-        else break end
-    end
-end
-
--- yield message body from a string
-local function send_string(mesgt)
-    -- make sure we have a content-type
-    local headers = lower_headers(mesgt.headers or {})
-    headers['content-type'] = headers['content-type'] or
-        'text/plain; charset="iso-8859-1"'
-    send_headers(headers)
-    -- send body from string
-    coroutine.yield(mesgt.body)
-end
-
--- message source
-function send_message(mesgt)
-    if base.type(mesgt.body) == "table" then send_multipart(mesgt)
-    elseif base.type(mesgt.body) == "function" then send_source(mesgt)
-    else send_string(mesgt) end
-end
-
--- set defaul headers
-local function adjust_headers(mesgt)
-    local lower = lower_headers(mesgt.headers)
-    lower["date"] = lower["date"] or
-        os.date("!%a, %d %b %Y %H:%M:%S ") .. (mesgt.zone or ZONE)
-    lower["x-mailer"] = lower["x-mailer"] or socket._VERSION
-    -- this can't be overriden
-    lower["mime-version"] = "1.0"
-    return lower
-end
-
-function message(mesgt)
-    mesgt.headers = adjust_headers(mesgt)
-    -- create and return message source
-    local co = coroutine.create(function() send_message(mesgt) end)
-    return function()
-        local ret, a, b = coroutine.resume(co)
-        if ret then return a, b
-        else return nil, a end
-    end
-end
-
----------------------------------------------------------------------------
--- High level SMTP API
------------------------------------------------------------------------------
-send = socket.protect(function(mailt)
-    local s = open(mailt.server, mailt.port, mailt.create)
-    local ext = s:greet(mailt.domain)
-    s:auth(mailt.user, mailt.password, ext)
-    s:send(mailt)
-    s:quit()
-    return s:close()
-end)

lualib/socket/tp.lua

@@ -1,123 +0,0 @@
------------------------------------------------------------------------------
--- Unified SMTP/FTP subsystem
--- LuaSocket toolkit.
--- Author: Diego Nehab
--- RCS ID: $Id: tp.lua,v 1.22 2006/03/14 09:04:15 diego Exp $
------------------------------------------------------------------------------
-
------------------------------------------------------------------------------
--- Declare module and import dependencies
------------------------------------------------------------------------------
-local base = _G
-local string = require("string")
-local socket = require("socket")
-local ltn12 = require("ltn12")
-module("socket.tp")
-
------------------------------------------------------------------------------
--- Program constants
------------------------------------------------------------------------------
-TIMEOUT = 60
-
------------------------------------------------------------------------------
--- Implementation
------------------------------------------------------------------------------
--- gets server reply (works for SMTP and FTP)
-local function get_reply(c)
-    local code, current, sep
-    local line, err = c:receive()
-    local reply = line
-    if err then return nil, err end
-    code, sep = socket.skip(2, string.find(line, "^(%d%d%d)(.?)"))
-    if not code then return nil, "invalid server reply" end
-    if sep == "-" then -- reply is multiline
-        repeat
-            line, err = c:receive()
-            if err then return nil, err end
-            current, sep = socket.skip(2, string.find(line, "^(%d%d%d)(.?)"))
-            reply = reply .. "\n" .. line
-        -- reply ends with same code
-        until code == current and sep == " "
-    end
-    return code, reply
-end
-
--- metatable for sock object
-local metat = { __index = {} }
-
-function metat.__index:check(ok)
-    local code, reply = get_reply(self.c)
-    if not code then return nil, reply end
-    if base.type(ok) ~= "function" then
-        if base.type(ok) == "table" then
-            for i, v in base.ipairs(ok) do
-                if string.find(code, v) then
-                    return base.tonumber(code), reply
-                end
-            end
-            return nil, reply
-        else
-            if string.find(code, ok) then return base.tonumber(code), reply
-            else return nil, reply end
-        end
-    else return ok(base.tonumber(code), reply) end
-end
-
-function metat.__index:command(cmd, arg)
-    if arg then
-        return self.c:send(cmd .. " " .. arg.. "\r\n")
-    else
-        return self.c:send(cmd .. "\r\n")
-    end
-end
-
-function metat.__index:sink(snk, pat)
-    local chunk, err = c:receive(pat)
-    return snk(chunk, err)
-end
-
-function metat.__index:send(data)
-    return self.c:send(data)
-end
-
-function metat.__index:receive(pat)
-    return self.c:receive(pat)
-end
-
-function metat.__index:getfd()
-    return self.c:getfd()
-end
-
-function metat.__index:dirty()
-    return self.c:dirty()
-end
-
-function metat.__index:getcontrol()
-    return self.c
-end
-
-function metat.__index:source(source, step)
-    local sink = socket.sink("keep-open", self.c)
-    local ret, err = ltn12.pump.all(source, sink, step or ltn12.pump.step)
-    return ret, err
-end
-
--- closes the underlying c
-function metat.__index:close()
-    self.c:close()
-	return 1
-end
-
--- connect with server and return c object
-function connect(host, port, timeout, create)
-    local c, e = (create or socket.tcp)()
-    if not c then return nil, e end
-    c:settimeout(timeout or TIMEOUT)
-    local r, e = c:connect(host, port)
-    if not r then
-        c:close()
-        return nil, e
-    end
-    return base.setmetatable({c = c}, metat)
-end
-

lualib/socket/url.lua

@@ -1,297 +0,0 @@
------------------------------------------------------------------------------
--- URI parsing, composition and relative URL resolution
--- LuaSocket toolkit.
--- Author: Diego Nehab
--- RCS ID: $Id: url.lua,v 1.38 2006/04/03 04:45:42 diego Exp $
------------------------------------------------------------------------------
-
------------------------------------------------------------------------------
--- Declare module
------------------------------------------------------------------------------
-local string = require("string")
-local base = _G
-local table = require("table")
-module("socket.url")
-
------------------------------------------------------------------------------
--- Module version
------------------------------------------------------------------------------
-_VERSION = "URL 1.0.1"
-
------------------------------------------------------------------------------
--- Encodes a string into its escaped hexadecimal representation
--- Input
---   s: binary string to be encoded
--- Returns
---   escaped representation of string binary
------------------------------------------------------------------------------
-function escape(s)
-    return string.gsub(s, "([^A-Za-z0-9_])", function(c)
-        return string.format("%%%02x", string.byte(c))
-    end)
-end
-
------------------------------------------------------------------------------
--- Protects a path segment, to prevent it from interfering with the
--- url parsing.
--- Input
---   s: binary string to be encoded
--- Returns
---   escaped representation of string binary
------------------------------------------------------------------------------
-local function make_set(t)
-	local s = {}
-	for i,v in base.ipairs(t) do
-		s[t[i]] = 1
-	end
-	return s
-end
-
--- these are allowed withing a path segment, along with alphanum
--- other characters must be escaped
-local segment_set = make_set {
-    "-", "_", ".", "!", "~", "*", "'", "(",
-	")", ":", "@", "&", "=", "+", "$", ",",
-}
-
-local function protect_segment(s)
-	return string.gsub(s, "([^A-Za-z0-9_])", function (c)
-		if segment_set[c] then return c
-		else return string.format("%%%02x", string.byte(c)) end
-	end)
-end
-
------------------------------------------------------------------------------
--- Encodes a string into its escaped hexadecimal representation
--- Input
---   s: binary string to be encoded
--- Returns
---   escaped representation of string binary
------------------------------------------------------------------------------
-function unescape(s)
-    return string.gsub(s, "%%(%x%x)", function(hex)
-        return string.char(base.tonumber(hex, 16))
-    end)
-end
-
------------------------------------------------------------------------------
--- Builds a path from a base path and a relative path
--- Input
---   base_path
---   relative_path
--- Returns
---   corresponding absolute path
------------------------------------------------------------------------------
-local function absolute_path(base_path, relative_path)
-    if string.sub(relative_path, 1, 1) == "/" then return relative_path end
-    local path = string.gsub(base_path, "[^/]*$", "")
-    path = path .. relative_path
-    path = string.gsub(path, "([^/]*%./)", function (s)
-        if s ~= "./" then return s else return "" end
-    end)
-    path = string.gsub(path, "/%.$", "/")
-    local reduced
-    while reduced ~= path do
-        reduced = path
-        path = string.gsub(reduced, "([^/]*/%.%./)", function (s)
-            if s ~= "../../" then return "" else return s end
-        end)
-    end
-    path = string.gsub(reduced, "([^/]*/%.%.)$", function (s)
-        if s ~= "../.." then return "" else return s end
-    end)
-    return path
-end
-
------------------------------------------------------------------------------
--- Parses a url and returns a table with all its parts according to RFC 2396
--- The following grammar describes the names given to the URL parts
--- <url> ::= <scheme>://<authority>/<path>;<params>?<query>#<fragment>
--- <authority> ::= <userinfo>@<host>:<port>
--- <userinfo> ::= <user>[:<password>]
--- <path> :: = {<segment>/}<segment>
--- Input
---   url: uniform resource locator of request
---   default: table with default values for each field
--- Returns
---   table with the following fields, where RFC naming conventions have
---   been preserved:
---     scheme, authority, userinfo, user, password, host, port,
---     path, params, query, fragment
--- Obs:
---   the leading '/' in {/<path>} is considered part of <path>
------------------------------------------------------------------------------
-function parse(url, default)
-    -- initialize default parameters
-    local parsed = {}
-    for i,v in base.pairs(default or parsed) do parsed[i] = v end
-    -- empty url is parsed to nil
-    if not url or url == "" then return nil, "invalid url" end
-    -- remove whitespace
-    -- url = string.gsub(url, "%s", "")
-    -- get fragment
-    url = string.gsub(url, "#(.*)$", function(f)
-        parsed.fragment = f
-        return ""
-    end)
-    -- get scheme
-    url = string.gsub(url, "^([%w][%w%+%-%.]*)%:",
-        function(s) parsed.scheme = s; return "" end)
-    -- get authority
-    url = string.gsub(url, "^//([^/]*)", function(n)
-        parsed.authority = n
-        return ""
-    end)
-    -- get query stringing
-    url = string.gsub(url, "%?(.*)", function(q)
-        parsed.query = q
-        return ""
-    end)
-    -- get params
-    url = string.gsub(url, "%;(.*)", function(p)
-        parsed.params = p
-        return ""
-    end)
-    -- path is whatever was left
-    if url ~= "" then parsed.path = url end
-    local authority = parsed.authority
-    if not authority then return parsed end
-    authority = string.gsub(authority,"^([^@]*)@",
-        function(u) parsed.userinfo = u; return "" end)
-    authority = string.gsub(authority, ":([^:]*)$",
-        function(p) parsed.port = p; return "" end)
-    if authority ~= "" then parsed.host = authority end
-    local userinfo = parsed.userinfo
-    if not userinfo then return parsed end
-    userinfo = string.gsub(userinfo, ":([^:]*)$",
-        function(p) parsed.password = p; return "" end)
-    parsed.user = userinfo
-    return parsed
-end
-
------------------------------------------------------------------------------
--- Rebuilds a parsed URL from its components.
--- Components are protected if any reserved or unallowed characters are found
--- Input
---   parsed: parsed URL, as returned by parse
--- Returns
---   a stringing with the corresponding URL
------------------------------------------------------------------------------
-function build(parsed)
-    local ppath = parse_path(parsed.path or "")
-    local url = build_path(ppath)
-    if parsed.params then url = url .. ";" .. parsed.params end
-    if parsed.query then url = url .. "?" .. parsed.query end
-	local authority = parsed.authority
-	if parsed.host then
-		authority = parsed.host
-		if parsed.port then authority = authority .. ":" .. parsed.port end
-		local userinfo = parsed.userinfo
-		if parsed.user then
-			userinfo = parsed.user
-			if parsed.password then
-				userinfo = userinfo .. ":" .. parsed.password
-			end
-		end
-		if userinfo then authority = userinfo .. "@" .. authority end
-	end
-    if authority then url = "//" .. authority .. url end
-    if parsed.scheme then url = parsed.scheme .. ":" .. url end
-    if parsed.fragment then url = url .. "#" .. parsed.fragment end
-    -- url = string.gsub(url, "%s", "")
-    return url
-end
-
------------------------------------------------------------------------------
--- Builds a absolute URL from a base and a relative URL according to RFC 2396
--- Input
---   base_url
---   relative_url
--- Returns
---   corresponding absolute url
------------------------------------------------------------------------------
-function absolute(base_url, relative_url)
-    if base.type(base_url) == "table" then
-        base_parsed = base_url
-        base_url = build(base_parsed)
-    else
-        base_parsed = parse(base_url)
-    end
-    local relative_parsed = parse(relative_url)
-    if not base_parsed then return relative_url
-    elseif not relative_parsed then return base_url
-    elseif relative_parsed.scheme then return relative_url
-    else
-        relative_parsed.scheme = base_parsed.scheme
-        if not relative_parsed.authority then
-            relative_parsed.authority = base_parsed.authority
-            if not relative_parsed.path then
-                relative_parsed.path = base_parsed.path
-                if not relative_parsed.params then
-                    relative_parsed.params = base_parsed.params
-                    if not relative_parsed.query then
-                        relative_parsed.query = base_parsed.query
-                    end
-                end
-            else    
-                relative_parsed.path = absolute_path(base_parsed.path or "",
-                    relative_parsed.path)
-            end
-        end
-        return build(relative_parsed)
-    end
-end
-
------------------------------------------------------------------------------
--- Breaks a path into its segments, unescaping the segments
--- Input
---   path
--- Returns
---   segment: a table with one entry per segment
------------------------------------------------------------------------------
-function parse_path(path)
-	local parsed = {}
-	path = path or ""
-	--path = string.gsub(path, "%s", "")
-	string.gsub(path, "([^/]+)", function (s) table.insert(parsed, s) end)
-	for i = 1, #parsed do
-		parsed[i] = unescape(parsed[i])
-	end
-	if string.sub(path, 1, 1) == "/" then parsed.is_absolute = 1 end
-	if string.sub(path, -1, -1) == "/" then parsed.is_directory = 1 end
-	return parsed
-end
-
------------------------------------------------------------------------------
--- Builds a path component from its segments, escaping protected characters.
--- Input
---   parsed: path segments
---   unsafe: if true, segments are not protected before path is built
--- Returns
---   path: corresponding path stringing
------------------------------------------------------------------------------
-function build_path(parsed, unsafe)
-	local path = ""
-	local n = #parsed
-	if unsafe then
-		for i = 1, n-1 do
-			path = path .. parsed[i]
-			path = path .. "/"
-		end
-		if n > 0 then
-			path = path .. parsed[n]
-			if parsed.is_directory then path = path .. "/" end
-		end
-	else
-		for i = 1, n-1 do
-			path = path .. protect_segment(parsed[i])
-			path = path .. "/"
-		end
-		if n > 0 then
-			path = path .. protect_segment(parsed[n])
-			if parsed.is_directory then path = path .. "/" end
-		end
-	end
-	if parsed.is_absolute then path = "/" .. path end
-	return path
-end

msys_compile.bat

@@ -1,13 +0,0 @@
-@echo off
-cd /d %~dp0
-
-set "PATH=C:\msys64\mingw32\bin;%PATH%"
-
-if not exist build mkdir build
-
-set buildargs=-Wall -Werror -m32 -shared -Isrc -Iinc/tsfuncs -Iinc/lua -lpsapi -L. -llua5.1 -static-libgcc -static-libstdc++
-
-echo on
-g++ src/bllua4.cpp %buildargs% -o build\BlockLua.dll
-g++ -DBLLUA_UNSAFE src/bllua4.cpp %buildargs% -o build\BlockLua-Unsafe.dll
-@echo off

readme.md

@@ -1,33 +1,35 @@
-
 # BlockLua
 
 Lua scripting for Blockland
 
 ## How to Install
+
 - Install RedBlocklandLoader
 - Copy `lua5.1.dll` into your Blockland install folder, next to `Blockland.exe`
 - Copy `BlockLua.dll` into the `modules` folder within the Blockland folder
-- Optional: Copy the `lualib` folder into `modules`  
-
 
 ## Quick Reference
 
 ### From TorqueScript
-`'print('hello world')` - Execute Lua code in the console by prepending a `'` (single quote)  
-`luaeval("code");` - Eval Lua code  
-`luacall("funcName", %args);` - Call a Lua global function  
-`luaexec("fileName");` - Execute a Lua file. Path rules are the same as executing .cs files.  
-`luaget("varName");` - Read a Lua global variable  
-`luaset("varName");` - Write a Lua global variable  
+
+`'print('hello world')` - Execute Lua in the console by prepending a `'` (single quote)
+`luaeval("code");` - Execute Lua code
+`luacall("funcName", %args...);` - Call a Lua function (supports indexing tables and object methods)
+`luaexec("fileName");` - Execute a Lua file. Path rules are the same as when executing .cs files, relative paths are allowed.
+`luaget("varName");` - Read a Lua global variable (supports indexing tables)
+`luaset("varName", %value);` - Write a Lua global variable (supports indexing tables)
 
 ### From Lua
+
 `bl.eval('code')` - Eval TorqueScript code
 `bl.funcName(args)` - Call a TorqueScript function
 `bl.varName` - Read a TorqueScript global variable
 `bl['varName']` - Read a TorqueScript global variable (i.e. with special characters in the name, or from an array)
 `bl.set('varName', value)` - Write a TorqueScript global variable
+`bl['namespaceName::funcName'](args)` - Call a namespaced TorqueScript function
 
 ### Accessing Torque Objects from Lua
+
 `bl.objectName` - Access a Torque object by name
 `bl[objectID]` - Access a Torque object by ID (or name)
 `object.fieldOrKey` - Read a field or Lua key from a Torque object
@@ -35,26 +37,43 @@ Lua scripting for Blockland
 `object.key = value` - Associate Lua data with a Torque object
 `object:method(args)` - Call a Torque object method
 `object[index]` - Access a member of a Torque set or group
-`for childIndex, child in object:members() do` - Iterate objects within of a Torque set or group. Indices start at 0 like in Torque.
+`for child in object:members() do` - Iterate objects within of a Torque set or group. Indices start at 0 like in Torque.
+`bl.isObject(object, objectID, or 'objectName')` - Check if an object exists
+`object:exists()` - Check if an object exists
 
 ### Timing/Schedules
+
 `sched = bl.schedule(timeMs, function, args...)` - Schedule a Lua function to be called later, similar to schedule in Torque
 `sched:cancel()` - Cancel a previously scheduled timer
 
 ### Raycasts and Searches
+
 `hitObject, hitPos, hitNormal = bl.raycast(vector{startPosX,y,z}, vector{endPosX,y,z}, 'objtype'/{'objtypes',...}, ignoreObjects...?)` - Cast a ray in the world over objects of the specified type(s) (possibly excluding some objects), and return the object hit, the position of the hit, and the normal vector to the surface hit. See the Types section for a list of valid object types.
 `for object in bl.boxSearch(vector{centerX,y,z}, vector{sizeX,y,z}, 'objtype'/{'objtypes',...}) do` - Find all objects in the world of the specified type(s) whose bounding box overlaps with the specified box. See the Types section for a list of valid object types.
 `for object in bl.radiusSearch(vector{centerX,y,z}, radius, 'objtype'/{'objtypes',...}) do` - Find all objects of the specified type(s) whose bounding box overlaps with the specified sphere. See the Types section for a list of valid object types.
 
+### List of Object Classes (for raycasts and searches)
+
+`'all'` - Any object
+`'player'` - Players or bots
+`'item'` - Items
+`'vehicle'` - Vehicles
+`'projectile'` - Projectiles
+`'brick'` - Bricks with raycasting enabled
+`'brickalways'` - All bricks including those with raycasting disabled
+Other types: `'static'`, `'environment'`, `'terrain'`, `'water'`, `'trigger'`, `'marker'`, `'gamebase'`, `'shapebase'`, `'camera'`, `'staticshape'`, `'vehicleblocker'`, `'explosion'`, `'corpse'`, `'debris'`, `'physicalzone'`, `'staticts'`, `'staticrendered'`, `'damagableitem'`
+
 ### Server-Client Communication
-`bl.addServerCmd('commandName', function(client, args...) yourCode end)` - Register a /command on the server  
-`bl.addClientCmd('commandName', function(args...) yourCode end)` - Register a client command on the client  
-`bl.commandToServer('commandName', args...)` - Execute a server command as a client  
-`bl.commandToClient('commandName', args...)` - As the server, execute a client command on a specific client  
+
+`bl.addServerCmd('commandName', function(client, args...) ... end)` - Register a /command on the server
+`bl.addClientCmd('commandName', function(args...) ... end)` - Register a client command on the client
+`bl.commandToServer('commandName', args...)` - As a client, execute a server command
+`bl.commandToClient(client, 'commandName', args...)` - As the server, execute a client command on a specific client
 `bl.commandToAll('commandName', args...)` - As the server, execute a client command on all clients
 
 ### Packages/Hooks
-`bl.hook('packageName', 'functionName', 'before'/'after', function(args) yourCode end)` - Hook a Torque function with a Lua function.  
+
+`bl.hook('packageName', 'functionName', 'before'/'after', function(args) ... end)` - Hook a Torque function with a Lua function.
 `args` is an array containing the arguments provided to the function. If the hook is `before`, these can be modified before being passed to the parent function.
 If `args._return` is set to anything other than nil by a `before` hook, the parent function will not be called, and the function will simply return that value. Also in this case, any `after` hook will not be executed.
 In an `after` hook, `args._return` is set to the value returned by the parent function, and can be modified.
@@ -63,10 +82,12 @@ In an `after` hook, `args._return` is set to the value returned by the parent fu
 `bl.unhook('packageName')` - Remove any previously defined hooks within the package
 
 ### Modules and Dependencies
+
 `dofile('Add-Ons/Path/file.lua')` - Execute a Lua file. Relative paths (`./file.lua`) are allowed. `..` is not allowed.
 
 `require('modulePath.moduleName')` - Load a Lua file or external library.
 `require` replaces `.` with `/` in the path, and then searches for files in the following order:
+
 - `./modulePath/moduleName.lua`
 - `./modulePath/moduleName/init.lua`
 - `modulePath/moduleName.lua` (Relative to game directory)
@@ -78,6 +99,7 @@ In an `after` hook, `args._return` is set to the value returned by the parent fu
 Like in standard Lua, modules loaded using `require` are only executed the first time `require` is called with that path (from anywhere). Subsequent calls simply return the result from the initial execution. To allow hot reloading, use `dofile`.
 
 ### File I/O
+
 Lua's builtin file I/O is emulated, and is confined to the same directories as TorqueScript file I/O.
 Relative paths (`./`) are allowed. `..` is not allowed.
 `file = io.open('./file.txt', 'r'/'w'/'a'/'rb'/'wb'/'ab')` - Open a file
@@ -88,6 +110,7 @@ Reading files from ZIPs is supported, with caveats. Null characters are not allo
 When reading from outside ZIPs, binary files are fully supported.
 
 ### Object Creation
+
 `bl.new('className')` - Create a new Torque object
 `bl.new('className', {fieldName = value, ...})` - Create a new Torque object with the given fields
 `bl.new('className objectName', fields?)` - Create a new named Torque object
@@ -96,15 +119,18 @@ When reading from outside ZIPs, binary files are fully supported.
 `bl.datablock('datablockClassName datablockName:parentDatablockName', fields?)` - Create a new datablock with inheritance
 
 ### Classes and Types
-`bl.type('varName', 'type')` - Register the type of a Torque global variable, for conversion when accessing from Lua. Valid types are 'boolean', 'object', and nil (default is nil, which applies automatic conversion).  
+
+`bl.type('varName', 'type')` - Register the type of a Torque global variable, for conversion when accessing from Lua. Valid types are 'boolean', 'object', 'string' (prevents automatic conversion), and nil (default, applies automatic conversion).
 `bl.type('funcName', 'type')` - Register the return type of a Torque function, for conversion when calling from Lua. Valid types are 'bool', 'object', and nil - all other conversion is automatic. Already done for all default functions.
 `bl.type('className::funcName', 'type')` - Register the return type of a Torque object method.
 `bl.class('className')` - Register an existing Torque class to be used from Lua. Already done for all built-in classes.
 `bl.class('className', 'parentClassName')` - Same as above, with inheritance
-`bl.boolean(thing)` - Manually convert a Torque boolean (0 or 1) into a Lua boolean.  
-`bl.object(thing)` - Manually convert a Torque object reference (object ID or name) into a Lua object.
+`bl.boolean(arg)` - Manually convert a Torque boolean (0 or 1) into a Lua boolean.
+`bl.object(arg)` - Manually convert a Torque object reference (object ID or name) into a Lua object.
+`bl.string(arg)` - Manually convert any automatically-converted Torque value back into a string. This is not as reliable as using `bl.type` to specify the type as a string beforehand.
+
+### Vector
 
-### Vectors
 `vec = vector{x,y,z}` - Create a vector. Can have any number of elements
 `vec1 + vec2` - Add
 `vec1 - vec2` - Subtract
@@ -129,15 +155,22 @@ When reading from outside ZIPs, binary files are fully supported.
 `vec1:distance(vec2)` - Distance between two points
 `vec2 = vec:copy()` - Clone a vector so its elements can be modified without affecting the original. Usually not needed - the builtin vector functions never modify vectors in-place.
 
+### Matrix
+
+WIP
+
 ### Extended Standard Lua Library
-`string[index]`  
-`string[{start,stop}]`  
+
+`str[index]`
+`str[{start,stop}]`
 `string.split(str, separator='' (splits into chars), noregex=false)`
 `string.bytes(str)`
 `string.trim(str, charsToTrim=' \t\r\n')`
 `table.empty`
 `table.map(func, ...)`
+`table.mapk(func, ...)`
 `table.map_list(func, ...)`
+`table.mapi_list(func, ...)`
 `table.swap(tbl)`
 `table.reverse(list)`
 `table.islist(list)`
@@ -161,38 +194,47 @@ When reading from outside ZIPs, binary files are fully supported.
 `math.clamp(num, min, max)`
 
 ## Type Conversion
+
 When a TorqueScript function is called from Lua or vice-versa, the arguments and return value must be converted between the two languages' type systems.
 TorqueScript stores no type information; all values in TorqueScript are strings. So it's necessary to make some inferences when converting values between the two languages.
-### From TorqueScript to Lua
-- Any numeric value becomes a Lua `number`, except as specified with `bl.type`, which may convert a value into a `boolean` or a Torque object container.  
-- The empty string "" becomes `nil`  
-- A string containing three numbers separated by spaces becomes a `vector`  
-- A string containing six numbers separated by spaces becomes a table of two vectors  
-- Any other string is passed directly as a `string`
+
 ### From Lua to TorqueScript
+
 - `nil` becomes the empty string ""
 - `true` and `false` become "1" and "0" respectively
-- Torque containers become their object ID  
+- A Torque object container becomes its object ID
 - A `vector` becomes a string containing three numbers separated by spaces
-- A table of two vectors becomes a string containing six numbers separated by spaces  
+- A table of two `vector`s becomes a string containing six numbers separated by spaces
+- (WIP) A `matrix` is converted into an axis-angle (a "transform"), a string containing seven numbers separated by spaces
 - Any `string` is passed directly as a string
 - Tables cannot be passed and will throw an error
 
+### From TorqueScript to Lua
+
+- The empty string "" becomes `nil`
+- Any numeric value becomes a Lua `number`, except as specified with `bl.type`, which may convert a value into a `boolean` or a Torque object container.
+- A string containing two or three numbers separated by single spaces becomes a `vector`
+- A string containing six numbers separated by single spaces becomes a table of two vectors, usually defining the corners a bounding box
+- (WIP) A string containing seven numbers separated by single spaces is treated as an axis-angle (a "transform"), and is converted into a `matrix` representing the translation and rotation
+- Any other string is passed directly as a `string`
+
+For scenarios where the automatic TorqueScript->Lua conversion rules are insufficient or incorrect, use `bl.type`.
+To convert things by hand, use `bl.object`, `bl.boolean`, or `bl.string`.
+
 ## I/O and Safety
-All Lua code is sandboxed, and file access is confied to the default directories in the same way TorqueScript is.  
+
+All Lua code is sandboxed, and file access is confined to the default directories in the same way TorqueScript is.
 BlockLua also has access to any C libraries installed in the `modules/lualib` folder, so be careful throwing things in there.
+
 ### Unsafe Mode
-BlockLua-Unsafe.dll can be built and used in place of BlockLua.dll (see compile.bat), to remove the sandboxing of Lua code. This allows Lua code to access any file and use any library, including ffi.  
-Please do not publish add-ons that require unsafe mode.  
 
-## Other Reference
+BlockLua can be built in Unsafe Mode by specifying the `-DBLLUA_UNSAFE` compiler flag. This removes the sandboxing of Lua code, allowing it to access any file and use any library, including ffi.
+A more limited option is `-DBLLUA_ALLOWFFI`, which allows the use of the `ffi` library. This can still be exploited to grant all the same access as full unsafe mode.
+Please do not publish add-ons that require either of these.
 
-### List of Object Types
-`'all'` - Any object  
-`'player'` - Players or bots  
-`'item'` - Items  
-`'vehicle'` - Vehicles  
-`'projectile'` - Projectiles  
-`'brick'` - Bricks with raycasting enabled  
-`'brickalways'` - All bricks including those with raycasting disabled  
-Other types: `'static'`, `'environment'`, `'terrain'`, `'water'`, `'trigger'`, `'marker'`, `'gamebase'`, `'shapebase'`, `'camera'`, `'staticshape'`, `'vehicleblocker'`, `'explosion'`, `'corpse'`, `'debris'`, `'physicalzone'`, `'staticts'`, `'staticrendered'`, `'damagableitem'`
+## Compiling
+
+With any _32-bit_ variant of GCC installed (such as MinGW or MSYS2), run the following command in the repo directory:
+`g++ src/bllua4.cpp -o BlockLua.dll -m32 -shared -static-libgcc -Isrc -Iinc/tsfuncs -Iinc/lua -lpsapi -L. -llua5.1`
+
+LuaJIT (lua5.1.dll) can be obtained from https://luajit.org/

src/bllua4.cpp

@@ -1,13 +1,16 @@
-// BlockLua (bllua4): Simple Lua interface for TorqueScript
+// BlockLua (bllua4): Advanced Lua interface for TorqueScript
 
 // Includes
 
+#ifndef WIN32_LEAN_AND_MEAN
+#define WIN32_LEAN_AND_MEAN
+#endif
 #include <Windows.h>
 #include <Psapi.h>
 
-#include "lua.hpp"
-#include "BlHooks.cpp"
 #include "BlFuncs.cpp"
+#include "BlHooks.cpp"
+#include "lua.hpp"
 
 #include "luainterp.cpp"
 #include "lualibts.cpp"
@@ -24,19 +27,20 @@ lua_State* gL;
   asm(".byte 0");                                                                                                      \
   extern char varname[];
 INCLUDE_BIN(bll_fileLuaEnvSafe, "lua-env-safe.lua");
-INCLUDE_BIN(bll_fileLuaEnv    , "lua-env.lua");
-INCLUDE_BIN(bll_fileTsEnv     , "ts-env.cs" );
-INCLUDE_BIN(bll_fileLuaStd        , "util/std.lua");
-INCLUDE_BIN(bll_fileLuaVector     , "util/vector.lua");
-INCLUDE_BIN(bll_fileLuaLibts      , "util/libts-lua.lua");
-INCLUDE_BIN(bll_fileTsLibts       , "util/libts-ts.cs");
-INCLUDE_BIN(bll_fileLuaLibbl      , "util/libbl.lua" );
-INCLUDE_BIN(bll_fileLuaLibblTypes , "util/libbl-types.lua");
+INCLUDE_BIN(bll_fileLuaEnv, "lua-env.lua");
+INCLUDE_BIN(bll_fileTsEnv, "ts-env.cs");
+INCLUDE_BIN(bll_fileLuaStd, "util/std.lua");
+INCLUDE_BIN(bll_fileLuaVector, "util/vector.lua");
+INCLUDE_BIN(bll_fileLuaMatrix, "util/matrix.lua");
+INCLUDE_BIN(bll_fileLuaLibts, "util/libts-lua.lua");
+INCLUDE_BIN(bll_fileTsLibts, "util/libts-ts.cs");
+INCLUDE_BIN(bll_fileLuaLibbl, "util/libbl.lua");
+INCLUDE_BIN(bll_fileLuaLibblTypes, "util/libbl-types.lua");
 INCLUDE_BIN(bll_fileTsLibblSupport, "util/libbl-support.cs");
-INCLUDE_BIN(bll_fileLoadaddons    , "util/loadaddons.cs");
+INCLUDE_BIN(bll_fileLoadaddons, "util/loadaddons.cs");
 
 #define BLL_LOAD_LUA(lstate, vname)                                                                                    \
-	if(!bll_LuaEval(lstate, vname)) { \
+  if (!bll_LuaEval(lstate, vname)) {                                                                                   \
     BlPrintf("  Error executing " #vname);                                                                             \
     return false;                                                                                                      \
   }
@@ -56,21 +60,27 @@ bool init() {
 
   // Set up Lua environment
   BLL_LOAD_LUA(gL, bll_fileLuaEnv);
-	#ifndef BLLUA_UNSAFE
+#ifdef BLLUA_ALLOWFFI
+  lua_pushboolean(gL, true);
+  lua_setglobal(gL, "_bllua_allowffi");
+#endif
+#ifndef BLLUA_UNSAFE
   BLL_LOAD_LUA(gL, bll_fileLuaEnvSafe);
-	#endif
+#endif
 
-	// Expose Lua API to TS
-	BlAddFunction(NULL, NULL, "_bllua_luacall", bll_ts_luacall, "LuaCall(name, ...) - Call Lua function and return result", 2, 20);
-	BlEval(bll_fileTsEnv);
-	
-	// Load utilities
+  // Load utilities in Lua
   BLL_LOAD_LUA(gL, bll_fileLuaStd);
   BLL_LOAD_LUA(gL, bll_fileLuaVector);
+  BLL_LOAD_LUA(gL, bll_fileLuaMatrix);
   BLL_LOAD_LUA(gL, bll_fileLuaLibts);
-	BlEval(bll_fileTsLibts);
   BLL_LOAD_LUA(gL, bll_fileLuaLibbl);
   BLL_LOAD_LUA(gL, bll_fileLuaLibblTypes);
+
+  // Expose Lua API to TS
+  BlAddFunction(
+      NULL, NULL, "_bllua_luacall", bll_ts_luacall, "LuaCall(name, ...) - Call Lua function and return result", 2, 20);
+  BlEval(bll_fileTsEnv);
+  BlEval(bll_fileTsLibts);
   BlEval(bll_fileTsLibblSupport);
   BlEval(bll_fileLoadaddons);
 
@@ -83,8 +93,7 @@ bool init() {
 bool deinit() {
   BlPrintf("BlockLua: Unloading");
 
-	BlEval("deactivatePackage(_bllua_main);");
-	BlEval("$_bllua_active = 0;");
+  BlEval("$_bllua_active=0;deactivatePackage(_bllua_main);");
   bll_LuaEval(gL, "for _,f in pairs(_bllua_on_unload) do f() end");
 
   lua_close(gL);
@@ -97,9 +106,12 @@ bool deinit() {
 }
 
 bool __stdcall DllMain(HINSTANCE hinstance, DWORD reason, void* reserved) {
-	switch(reason) {
-		case DLL_PROCESS_ATTACH: return init();
-		case DLL_PROCESS_DETACH: return deinit();
-		default                : return true;
+  switch (reason) {
+  case DLL_PROCESS_ATTACH:
+    return init();
+  case DLL_PROCESS_DETACH:
+    return deinit();
+  default:
+    return true;
   }
 }

src/lua-env-safe.lua

@@ -4,7 +4,9 @@
 
 
 -- Utility: Convert a list of strings into a map of string->true
-local function tmap(t) local u = {}; for _, n in ipairs(t) do u[n] = true end; return u; end
+local function tmap(t)
+  local u = {}; for _, n in ipairs(t) do u[n] = true end; return u;
+end
 
 -- Save banned global variables for wrapping with safe functions
 local old_io = io
@@ -12,6 +14,7 @@ local old_require = require
 local old_os = os
 local old_debug = debug
 local old_package = package
+local old_allowffi = _bllua_allowffi
 
 -- Remove all global variables except a whitelist
 local ok_names = tmap {
@@ -37,58 +40,59 @@ end
 
 -- Sanitize file paths to point only to allowed files within the game directory
 -- List of allowed directories for reading/writing
+-- modules/lualib is also allowed as read-only
 local allowed_dirs = tmap {
   'add-ons', 'base', 'config', 'saves', 'screenshots', 'shaders'
 }
--- List of allowed directories for reading only
-local allowed_dirs_readonly = tmap {
-	'lualib'
-}
 -- List of disallowed file extensions - basically executable file extensions
 -- Note that even without this protection, exploiting would still require somehow
 --   getting a file within the allowed directories to autorun,
 --   so this is just a precaution.
 local disallowed_exts = tmap {
   -- windows
-	'bat','bin','cab','cmd','com','cpl','ex_','exe','gadget','inf','ins','inx','isu',
-	'job','jse','lnk','msc','msi','msp','mst','paf','pif','ps1','reg','rgs','scr',
-	'sct','shb','shs','u3p','vb','vbe','vbs','vbscript','ws','wsf','wsh',
+  'bat', 'bin', 'cab', 'cmd', 'com', 'cpl', 'ex_', 'exe', 'gadget', 'inf', 'ins', 'inx', 'isu',
+  'job', 'jse', 'lnk', 'msc', 'msi', 'msp', 'mst', 'paf', 'pif', 'ps1', 'reg', 'rgs', 'scr',
+  'sct', 'shb', 'shs', 'u3p', 'vb', 'vbe', 'vbs', 'vbscript', 'ws', 'wsf', 'wsh',
   -- linux
-	'csh','ksh','out','run','sh',
+  'csh', 'ksh', 'out', 'run', 'sh',
   -- mac/other
-	'action','apk','app','command','ipa','osx','prg','workflow',
+  'action', 'apk', 'app', 'command', 'ipa', 'osx', 'prg', 'workflow',
 }
 -- Arguments: file name (relative to game directory), boolean true if only reading
 -- Return: clean file path if allowed (or nil if disallowed),
 --         error string (or nil if allowed)
 local function safe_path(fn, readonly)
+  if type(fn) ~= 'string' then
+    return nil, 'Filename must be a string'
+  end
   fn = fn:gsub('\\', '/')
   fn = fn:gsub('^ +', '')
   fn = fn:gsub(' +$', '')
   -- whitelist characters
   local ic = fn:find('[^a-zA-Z0-9_%-/ %.]')
   if ic then
-		return nil, 'Filename \''..fn..'\' contains invalid character \''..
-			fn:sub(ic, ic)..'\' at position '..ic
+    return nil, 'Filename \'' .. fn .. '\' contains invalid character \'' ..
+        fn:sub(ic, ic) .. '\' at position ' .. ic
   end
   -- disallow up-dirs, absolute paths, and relative paths
   -- './' and '../' are possible in scripts, because they're processed into
   -- absolute paths in util.lua before reaching here
   if fn:find('^%.') or fn:find('%.%.') or fn:find(':') or fn:find('^/') then
-		return nil, 'Filename \''..fn..'\' contains invalid sequence'
+    return nil, 'Filename \'' .. fn .. '\' contains invalid sequence'
   end
   -- allow only whitelisted dirs
   local dir = fn:match('^([^/]+)/')
-	if (not dir) or (
-		(not allowed_dirs[dir:lower()]) and
-		((not readonly) or (not allowed_dirs_readonly[dir:lower()])) ) then
-		return nil, 'filename is in disallowed directory '..(dir or 'nil')
+  if not (dir and (
+        allowed_dirs[dir:lower()] or
+        (readonly and fn:find('^modules/lualib/'))))
+  then
+    return nil, 'File is in disallowed directory ' .. (dir or 'nil')
   end
-	-- disallow blacklisted extensions or no extension
+  -- disallow blacklisted extensions
   local ext = fn:match('%.([^/%.]+)$')
-	if (not ext) or (disallowed_exts[ext:lower()]) then
-		return nil, 'Filename \''..fn..'\' has disallowed extension \''..
-			(ext or '')..'\''
+  if ext and disallowed_exts[ext:lower()] then
+    return nil, 'Filename \'' .. fn .. '\' has disallowed extension \'' ..
+        (ext or '') .. '\''
   end
   return fn, nil
 end
@@ -96,7 +100,7 @@ end
 -- Wrap io.open with path sanitization
 function _bllua_io_open(fn, md)
   md = md or 'r'
-	local readonly = md=='r' or md=='rb'
+  local readonly = md == 'r' or md == 'rb'
   local fns, err = safe_path(fn, readonly)
   if fns then
     return old_io.open(fns, md)
@@ -104,6 +108,7 @@ function _bllua_io_open(fn, md)
     return nil, err
   end
 end
+
 -- Allow io.type (works on file handles returned by io.open)
 function _bllua_io_type(f)
   return old_io.type(f)
@@ -117,17 +122,19 @@ local disallowed_packages = tmap {
   'ffi', 'debug', 'package', 'io', 'os',
   '_bllua_ts',
 }
+if old_allowffi then disallowed_packages['ffi'] = nil end
 function _bllua_requiresecure(name)
   if name:find('[^a-zA-Z0-9_%-%.]') or name:find('%.%.') or
       name:find('^%.') or name:find('%.$') then
     error('require: package name contains invalid character', 3)
   elseif disallowed_packages[name] then
-		error('require: attempt to require disallowed module \''..name..'\'', 3)
+    error('require: attempt to require disallowed module \'' .. name .. '\'', 3)
   else
     -- todo: reimplement require to not use package.* stuff?
     return old_require(name)
   end
 end
+
 package = {
   seeall = old_package.seeall,
 }
@@ -139,4 +146,5 @@ debug = {
   getfilename = old_debug.getfilename, -- defined in lua.env.lua
 }
 
-_bllua_ts.echo('  Executed bllua-env-safe.lua')
+print = _bllua_ts.echo
+print('  Executed bllua-env-safe.lua')

src/lua-env.lua

@@ -9,7 +9,7 @@ _bllua_on_unload = {}
 
 -- Utility for getting the current filename
 function debug.getfilename(level)
-	if type(level) == 'number' then level = level+1 end
+  if type(level) == 'number' then level = level + 1 end
   local info = debug.getinfo(level)
   if not info then return nil end
   local filename = info.source:match('^%-%-%[%[([^%]]+)%]%]')
@@ -18,23 +18,30 @@ end
 
 -- Called when pcall fails on a ts->lua call, used to print detailed error info
 function _bllua_on_error(err)
+  -- Convert error to string if it's not already
+  err = tostring(err)
   err = err:match(': (.+)$') or err
-	local tracelines = {err}
+  local tracelines = { err }
   local level = 2
   while true do
     local info = debug.getinfo(level)
     if not info then break end
     local filename = debug.getfilename(level) or info.short_src
-		local funcname = info.name
-		if funcname=='dofile' then break end
+    local funcname = info.name or '<unknown>'
+    if funcname == 'dofile' then break end
     table.insert(tracelines, string.format('%s:%s in function \'%s\'',
       filename,
-			info.currentline==-1 and '' or info.currentline..':',
+      info.currentline == -1 and '' or info.currentline .. ':',
       funcname
     ))
-		level = level+1
+    level = level + 1
   end
   return table.concat(tracelines, '\n')
 end
 
-_bllua_ts.echo('  Executed bllua-env.lua')
+-- overridden in lua-env-safe.lua (executed if not BLLUA_UNSAFE)
+_bllua_io_open = io.open
+_bllua_requiresecure = require
+
+print = _bllua_ts.echo
+print('  Executed bllua-env.lua')

src/luainterp.cpp

@@ -1,6 +1,12 @@
 
 // Handle errors with a Lua function, defined in lua-env.lua
-int bll_error_handler(lua_State *L) {
+#include "luainterp.hpp"
+#include "BlHooks.hpp"
+#include "lauxlib.h"
+#include "lua.h"
+#include <cstring>
+
+int bll_error_handler(lua_State* L) {
   lua_getfield(L, LUA_GLOBALSINDEX, "_bllua_on_error");
   if (!lua_isfunction(L, -1)) {
     BlPrintf("  Lua error handler: _bllua_on_error not defined.");
@@ -15,6 +21,7 @@ int bll_error_handler(lua_State *L) {
   lua_pcall(L, 1, 1, 0);
   return 1;
 }
+
 int bll_pcall(lua_State* L, int nargs, int nret) {
   // calculate stack position for message handler
   int hpos = lua_gettop(L) - nargs;
@@ -31,7 +38,7 @@ int bll_pcall(lua_State* L, int nargs, int nret) {
 
 // Display the last Lua error in the BL console
 void bll_printError(lua_State* L, const char* operation, const char* item) {
-	//error_handler(L);
+  // error_handler(L);
   BlPrintf("\x03Lua error: %s", lua_tostring(L, -1));
   BlPrintf("\x03  (%s: %s)", operation, item);
   lua_pop(L, 1);
@@ -39,7 +46,7 @@ void bll_printError(lua_State* L, const char* operation, const char* item) {
 
 // Eval a string of Lua code
 bool bll_LuaEval(lua_State* L, const char* str) {
-	if(luaL_loadbuffer(L, str, strlen(str), "input") || bll_pcall(L, 0, 1)) {
+  if (luaL_loadbuffer(L, str, strlen(str), "input") || bll_pcall(L, 0, 1)) {
     bll_printError(L, "eval", str);
     return false;
   }
@@ -48,21 +55,27 @@ bool bll_LuaEval(lua_State* L, const char* str) {
 
 // Convert a Lua stack entry into a string for providing to TS
 // Use static buffer to avoid excessive malloc
-#define BLL_ARG_COUNT 20
-#define BLL_ARG_MAX 8192
 char bll_arg_buffer[BLL_ARG_COUNT][BLL_ARG_MAX];
+
 bool bll_toarg(lua_State* L, char* buf, int i, bool err) {
-	if(lua_isstring(L, i)) {
+  if (lua_isstring(L, i)) {
     const char* str = lua_tostring(L, i);
-		if(strlen(str) >= BLL_ARG_MAX) {
-			if(err) luaL_error(L, "argument to TS is too long - max length is 8192");
+    if (strlen(str) >= BLL_ARG_MAX) {
+      if (err)
+        luaL_error(L, "argument to TS is too long - max length is 8192");
       return true;
     } else {
-			strcpy(buf, str);
+#ifdef _MSC_VER
+      strncpy_s(buf, BLL_ARG_MAX, str, _TRUNCATE);
+#else
+      strncpy(buf, str, BLL_ARG_MAX - 1);
+      buf[BLL_ARG_MAX - 1] = '\0';
+#endif
       return false;
     }
   } else {
-		if(err) luaL_error(L, "argument to TS must be a string");
+    if (err)
+      luaL_error(L, "argument to TS must be a string");
     return true;
   }
 }

src/luainterp.hpp

@@ -0,0 +1,17 @@
+// Shared declarations for Lua <-> TS argument handling
+#ifndef _H_LUAINTERP_SHARED
+#define _H_LUAINTERP_SHARED
+
+#include "lua.h"
+
+#define BLL_ARG_COUNT 20
+#define BLL_ARG_MAX 8192
+
+extern char bll_arg_buffer[BLL_ARG_COUNT][BLL_ARG_MAX];
+bool bll_toarg(lua_State* L, char* buf, int i, bool err);
+int bll_pcall(lua_State* L, int nargs, int nret);
+void bll_printError(lua_State* L, const char* operation, const char* item);
+
+extern lua_State* gL;
+
+#endif

src/lualibts.cpp

@@ -1,74 +1,206 @@
-//run ../compile
+// run ../compile
 
 // TS -> Lua API
 
 // Call a TS function from Lua, push the result to Lua stack
+#include "BlFuncs.hpp"
+#include "BlHooks.hpp"
+#include "lauxlib.h"
+#include "lua.h"
+#include "luainterp.hpp"
+
 int bll_TsCall(lua_State* L, const char* oname, const char* fname, int argc, int ofs) {
   ADDR obj = (ADDR)NULL;
-	if(oname) {
+  if (oname) {
     obj = BlObject(oname);
-		if(!obj) { return luaL_error(L, "Lua->TS call: Object not found"); }
+    if (!obj) {
+      return luaL_error(L, "Lua->TS call: Object not found");
+    }
   }
 
-	if(argc > BLL_ARG_COUNT) { return luaL_error(L, "Lua->TS call: Too many arguments (Max is 19)"); }
+  if (argc > BLL_ARG_COUNT) {
+    return luaL_error(L, "Lua->TS call: Too many arguments (Max is 19)");
+  }
 
   char* argv[BLL_ARG_COUNT];
-	for(int i=0; i<argc; i++) {
+  for (int i = 0; i < argc; i++) {
     char* argbuf = bll_arg_buffer[i];
     argv[i] = argbuf;
-		bll_toarg(L, argbuf, i+ofs+1, true);
+    bll_toarg(L, argbuf, i + ofs + 1, true);
   }
 
   // /:^| /
   const char* res;
-	if(obj) {
-		switch(argc) {
-			case  0: res = BlCallObj(obj, fname); break; // no idea why this happens sometimes, it shouldnt be possible
-			case  1: res = BlCallObj(obj, fname); break;
-			case  2: res = BlCallObj(obj, fname, argv[0]); break;
-			case  3: res = BlCallObj(obj, fname, argv[0], argv[1]); break;
-			case  4: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2]); break;
-			case  5: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3]); break;
-			case  6: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4]); break;
-			case  7: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); break;
-			case  8: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]); break;
-			case  9: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]); break;
-			case 10: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8]); break;
-			case 11: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9]); break;
-			case 12: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10]); break;
-			case 13: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11]); break;
-			case 14: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12]); break;
-			case 15: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13]); break;
-			case 16: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14]); break;
-			case 17: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14], argv[15]); break;
-			case 18: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16]); break;
-			case 19: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16], argv[17]); break;
-			case 20: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16], argv[17], argv[18]); break;
-			default: res = ""; luaL_error(L, "Lua->TS object call: Too many arguments (Max is 19)");
+  if (obj) {
+    switch (argc) {
+    case 0:
+      res = BlCallObj(obj, fname);
+      break; // no idea why this happens sometimes, it shouldnt be possible
+    case 1:
+      res = BlCallObj(obj, fname);
+      break;
+    case 2:
+      res = BlCallObj(obj, fname, argv[0]);
+      break;
+    case 3:
+      res = BlCallObj(obj, fname, argv[0], argv[1]);
+      break;
+    case 4:
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2]);
+      break;
+    case 5:
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3]);
+      break;
+    case 6:
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4]);
+      break;
+    case 7:
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
+      break;
+    case 8:
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]);
+      break;
+    case 9:
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
+      break;
+    case 10:
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8]);
+      break;
+    case 11:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9]);
+      break;
+    case 12:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10]);
+      break;
+    case 13:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10], argv[11]);
+      break;
+    case 14:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10], argv[11], argv[12]);
+      break;
+    case 15:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10], argv[11], argv[12], argv[13]);
+      break;
+    case 16:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10], argv[11], argv[12], argv[13], argv[14]);
+      break;
+    case 17:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10], argv[11], argv[12], argv[13], argv[14], argv[15]);
+      break;
+    case 18:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16]);
+      break;
+    case 19:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16], argv[17]);
+      break;
+    case 20:
+      res = BlCallObj(
+          obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9],
+          argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16], argv[17], argv[18]);
+      break;
+    default:
+      res = "";
+      luaL_error(L, "Lua->TS object call: Too many arguments (Max is 19)");
     }
   } else {
-		switch(argc) {
-			case  0: res = BlCall(fname); break;
-			case  1: res = BlCall(fname, argv[0]); break;
-			case  2: res = BlCall(fname, argv[0], argv[1]); break;
-			case  3: res = BlCall(fname, argv[0], argv[1], argv[2]); break;
-			case  4: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3]); break;
-			case  5: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4]); break;
-			case  6: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); break;
-			case  7: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]); break;
-			case  8: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]); break;
-			case  9: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8]); break;
-			case 10: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9]); break;
-			case 11: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10]); break;
-			case 12: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11]); break;
-			case 13: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12]); break;
-			case 14: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13]); break;
-			case 15: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14]); break;
-			case 16: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14], argv[15]); break;
-			case 17: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16]); break;
-			case 18: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16], argv[17]); break;
-			case 19: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10], argv[11], argv[12], argv[13], argv[14], argv[15], argv[16], argv[17], argv[18]); break;
-			default: res = ""; luaL_error(L, "Lua->TS call: Too many arguments (Max is 19)");
+    switch (argc) {
+    case 0:
+      res = BlCall(fname);
+      break;
+    case 1:
+      res = BlCall(fname, argv[0]);
+      break;
+    case 2:
+      res = BlCall(fname, argv[0], argv[1]);
+      break;
+    case 3:
+      res = BlCall(fname, argv[0], argv[1], argv[2]);
+      break;
+    case 4:
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3]);
+      break;
+    case 5:
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4]);
+      break;
+    case 6:
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
+      break;
+    case 7:
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]);
+      break;
+    case 8:
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]);
+      break;
+    case 9:
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8]);
+      break;
+    case 10:
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9]);
+      break;
+    case 11:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10]);
+      break;
+    case 12:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+          argv[11]);
+      break;
+    case 13:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+          argv[11], argv[12]);
+      break;
+    case 14:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+          argv[11], argv[12], argv[13]);
+      break;
+    case 15:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+          argv[11], argv[12], argv[13], argv[14]);
+      break;
+    case 16:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+          argv[11], argv[12], argv[13], argv[14], argv[15]);
+      break;
+    case 17:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+          argv[11], argv[12], argv[13], argv[14], argv[15], argv[16]);
+      break;
+    case 18:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+          argv[11], argv[12], argv[13], argv[14], argv[15], argv[16], argv[17]);
+      break;
+    case 19:
+      res = BlCall(
+          fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+          argv[11], argv[12], argv[13], argv[14], argv[15], argv[16], argv[17], argv[18]);
+      break;
+    default:
+      res = "";
+      luaL_error(L, "Lua->TS call: Too many arguments (Max is 19)");
     }
   }
 
@@ -76,19 +208,23 @@ int bll_TsCall(lua_State* L, const char* oname, const char* fname, int argc, int
 
   return 1;
 }
+
 // Lua lib function: ts.call
 int bll_lua_tscall(lua_State* L) {
-	int argc = lua_gettop(L)-1; // number of arguments after function name
-	if(argc < 0) return luaL_error(L, "_bllua_ts.call: Must provide a function name");
+  int argc = lua_gettop(L) - 1; // number of arguments after function name
+  if (argc < 0)
+    return luaL_error(L, "_bllua_ts.call: Must provide a function name");
 
   const char* fname = luaL_checkstring(L, 1);
 
   return bll_TsCall(L, NULL, fname, argc, 1);
 }
+
 // Lua lib function: ts.callobj
 int bll_lua_tscallobj(lua_State* L) {
-	int argc = lua_gettop(L)-2; // number of arguments after function name and object?
-	if(argc < 0) return luaL_error(L, "_bllua_ts.callobj: Must provide an object and function name");
+  int argc = lua_gettop(L) - 2; // number of arguments after function name and object?
+  if (argc < 0)
+    return luaL_error(L, "_bllua_ts.callobj: Must provide an object and function name");
 
   const char* oname = luaL_checkstring(L, 1);
   const char* fname = luaL_checkstring(L, 2);
@@ -110,19 +246,24 @@ int bll_lua_tsgetfield(lua_State* L) {
   const char* oname = luaL_checkstring(L, 1);
   const char* vname = luaL_checkstring(L, 2);
   ADDR obj = BlObject(oname);
-	if(!obj) { return luaL_error(L, "_bllua_ts.getfield: Object not found"); }
+  if (!obj) {
+    return luaL_error(L, "_bllua_ts.getfield: Object not found");
+  }
 
   const char* val = BlGetField(obj, vname, NULL);
   lua_pushstring(L, val);
   return 1;
 }
+
 // Lua lib function: ts.setfield
 int bll_lua_tssetfield(lua_State* L) {
   const char* oname = luaL_checkstring(L, 1);
   const char* vname = luaL_checkstring(L, 2);
   const char* val = luaL_checkstring(L, 3);
   ADDR obj = BlObject(oname);
-	if(!obj) { return luaL_error(L, "_bllua_ts.setfield: Object not found"); }
+  if (!obj) {
+    return luaL_error(L, "_bllua_ts.setfield: Object not found");
+  }
 
   BlSetField(obj, vname, NULL, val);
   return 0;
@@ -145,15 +286,10 @@ int bll_lua_tsecho(lua_State* L) {
 }
 
 const luaL_Reg bll_lua_reg[] = {
-	{"call"    , bll_lua_tscall    },
-	{"callobj" , bll_lua_tscallobj },
-	{"getvar"  , bll_lua_tsgetvar  },
-	{"getfield", bll_lua_tsgetfield},
-	{"setfield", bll_lua_tssetfield},
-	{"eval"    , bll_lua_tseval    },
-	{"echo"    , bll_lua_tsecho    },
-	{NULL, NULL},
+    {"call", bll_lua_tscall},         {"callobj", bll_lua_tscallobj},
+    {"getvar", bll_lua_tsgetvar},     {"getfield", bll_lua_tsgetfield},
+    {"setfield", bll_lua_tssetfield}, {"eval", bll_lua_tseval},
+    {"echo", bll_lua_tsecho},         {NULL, NULL},
 };
-void llibbl_init(lua_State* L) {
-	luaL_register(L, "_bllua_ts", bll_lua_reg);
-}
+
+void llibbl_init(lua_State* L) { luaL_register(L, "_bllua_ts", bll_lua_reg); }

src/tsliblua.cpp

@@ -1,11 +1,16 @@
 
-// Call a Lua function from TS, return true if success - result will be on Lua stack
+// Call a Lua function from TS, return true if success - result will be on Lua
+// stack
+#include "BlFuncs.hpp"
+#include "BlHooks.hpp"
+#include "luainterp.hpp"
+
 bool bll_LuaCall(const char* fname, int argc, const char* argv[]) {
   lua_getglobal(gL, fname);
-	for(int i=0; i<argc; i++) {
+  for (int i = 0; i < argc; i++) {
     lua_pushstring(gL, argv[i]);
   }
-	if(bll_pcall(gL, argc, 1)) {
+  if (bll_pcall(gL, argc, 1)) {
     bll_printError(gL, "call", fname);
     return false;
   }
@@ -14,9 +19,12 @@ bool bll_LuaCall(const char* fname, int argc, const char* argv[]) {
 
 // TS lib function: luacall
 const char* bll_ts_luacall(ADDR obj, int argc, const char* argv[]) {
-	if(argc<2) return "";
+  if (argc < 2)
+    return "";
 
-	if(!bll_LuaCall(argv[1], argc-2, &argv[2])) { return ""; }
+  if (!bll_LuaCall(argv[1], argc - 2, &argv[2])) {
+    return "";
+  }
 
   char* retbuf = BlReturnBuffer(BLL_ARG_MAX);
   bll_toarg(gL, retbuf, -1, false); // provide returned value to ts

src/util/libbl-support.cs

@@ -1,7 +1,7 @@
 
 // Private - Utilities used by libbl from the Lua side
 
-package _bllua_smartEval {
+package smartEval {
 	// Allow prepending ' to console commands to eval in lua instead of TS
 	// Also wraps TS lines with echo(...); if they don't end in ; or }
 	function ConsoleEntry::eval() {
@@ -28,7 +28,7 @@ package _bllua_smartEval {
 		}
 	}
 };
-activatePackage(_bllua_smartEval);
+activatePackage(smartEval);
 
 package _bllua_objectDeletionHook {
 	// Hook object deletion to clean up its lua data
@@ -42,4 +42,26 @@ package _bllua_objectDeletionHook {
 };
 activatePackage(_bllua_objectDeletionHook);
 
+// Public Lua library for TS
+function luacall(%func, %a,%b,%c,%d,%e,%f,%g,%h,%i,%j,%k,%l,%m,%n,%o,%p) {
+	if($_bllua_active)
+		return _bllua_luacall("_bllua_call", %func, %a,%b,%c,%d,%e,%f,%g,%h,%i,%j,%k,%l,%m,%n,%o,%p);
+}
+function luaexec(%fn) {
+	if($_bllua_active)
+		return _bllua_luacall("_bllua_exec", %fn);
+}
+function luaeval(%code) {
+	if($_bllua_active)
+		return _bllua_luacall("_bllua_eval", %code);
+}
+function luaget(%name) {
+	if($_bllua_active)
+		return _bllua_luacall("_bllua_getvar", %name);
+}
+function luaset(%name, %val) {
+	if($_bllua_active)
+		_bllua_luacall("_bllua_setvar", %name, %val);
+}
+
 echo("  Executed libbl-support.cs");

src/util/libbl-types.lua

@@ -4,129 +4,129 @@
 
 -- Class hierarchy, adapted from https://notabug.org/Queuenard/blockland-DLL-tools/src/master/class_hierarchy
 bl.class('SimObject')
-	bl.class('ScriptObject', 'SimObject')
-	bl.class('SimSet', 'SimObject')
-		bl.class('SimGroup', 'SimSet')
-			bl.class('GuiControl', 'SimGroup')
-				bl.class('GuiTextCtrl'         , 'GuiControl')
-				bl.class('GuiSwatchCtrl'       , 'GuiControl')
-				bl.class('GuiButtonBaseCtrl'   , 'GuiControl')
-				bl.class('GuiArrayCtrl'        , 'GuiControl')
-				bl.class('GuiScrollCtrl'       , 'GuiControl')
-				bl.class('GuiMouseEventCtrl'   , 'GuiControl')
-				bl.class('GuiProgressCtrl'     , 'GuiControl')
-				bl.class('GuiSliderCtrl'       , 'GuiControl')
-				bl.class('GuiConsoleTextCtrl'  , 'GuiControl')
-				bl.class('GuiTSCtrl'           , 'GuiControl')
-					bl.class('GuiObjectView', 'GuiTSCtrl')
-					bl.class('GameTSCtrl'   , 'GuiTSCtrl')
-					bl.class('EditTSCtrl'   , 'GuiTSCtrl')
-					bl.class('GuiPlayerView', 'GuiTSCtrl')
-				bl.class('GuiShapeNameHud'     , 'GuiControl')
-				bl.class('GuiHealthBarHud'     , 'GuiControl')
-				bl.class('GuiGraphCtrl'        , 'GuiControl')
-				bl.class('GuiInspector'        , 'GuiControl')
-				bl.class('GuiChunkedBitmapCtrl', 'GuiControl')
-				bl.class('GuiInputCtrl'        , 'GuiControl')
-				bl.class('GuiNoMouseCtrl'      , 'GuiControl')
-				bl.class('GuiBitmapBorderCtrl' , 'GuiControl')
-				bl.class('GuiBackgroundCtrl'   , 'GuiControl')
-				bl.class('GuiEditorRuler'      , 'GuiControl')
-				bl.class('GuiClockHud'         , 'GuiControl')
-				bl.class('GuiEditCtrl'         , 'GuiControl')
-				bl.class('GuiFilterCtrl'       , 'GuiControl')
-				bl.class('GuiFrameSetCtrl'     , 'GuiControl')
-				bl.class('GuiMenuBar'          , 'GuiControl')
-				bl.class('GuiMessageVectorCtrl', 'GuiControl')
-				bl.class('GuiBitmapCtrl'       , 'GuiControl')
-					bl.class('GuiCrossHairHud', 'GuiBitmapCtrl')
-			bl.class('ScriptGroup', 'SimGroup')
-			bl.class('NetConnection', 'SimGroup')
-				bl.class('GameConnection', 'NetConnection')
-			bl.class('Path', 'SimGroup')
-	bl.class('TCPObject', 'SimObject')
-		bl.class('SOCKObject', 'TCPObject')
-		bl.class('HTTPObject', 'TCPObject')
-	bl.class('SimDataBlock', 'SimObject')
-		bl.class('AudioEnvironment'      , 'SimDataBlock')
-		bl.class('AudioSampleEnvironment', 'SimDataBlock')
-		bl.class('AudioDescription'      , 'SimDataBlock')
-		bl.class('GameBaseData'          , 'SimDataBlock')
-			bl.class('ShapeBaseData'          , 'GameBaseData')
-				bl.class('CameraData'       , 'ShapeBaseData')
-				bl.class('ItemData'         , 'ShapeBaseData')
-				bl.class('MissionMarkerData', 'ShapeBaseData')
-				bl.class('PathCameraData'   , 'ShapeBaseData')
-				bl.class('PlayerData'       , 'ShapeBaseData')
-				bl.class('StaticShapeData'  , 'ShapeBaseData')
-				bl.class('VehicleData'      , 'ShapeBaseData')
-					bl.class('FlyingVehicleData' , 'VehicleData')
-					bl.class('WheeledVehicleData', 'VehicleData')
-			bl.class('DebrisData'             , 'GameBaseData')
-			bl.class('ProjectileData'         , 'GameBaseData')
-			bl.class('ShapeBaseImageData'     , 'GameBaseData')
-			bl.class('TriggerData'            , 'GameBaseData')
-			bl.class('ExplosionData'          , 'GameBaseData')
-			bl.class('fxLightData'            , 'GameBaseData')
-			bl.class('LightningData'          , 'GameBaseData')
-			bl.class('ParticleEmitterNodeData', 'GameBaseData')
-			bl.class('SplashData'             , 'GameBaseData')
-			bl.class('fxDTSBrickData'         , 'GameBaseData')
-			bl.class('ParticleEmitterData'    , 'GameBaseData')
-		bl.class('WheeledVehicleTire'    , 'SimDataBlock')
-		bl.class('WheeledVehicleSpring'  , 'SimDataBlock')
-		bl.class('TSShapeConstructor'    , 'SimDataBlock')
-		bl.class('AudioProfile'          , 'SimDataBlock')
-		bl.class('ParticleData'          , 'SimDataBlock')
-	bl.class('MaterialPropertyMap', 'SimObject')
-	bl.class('NetObject', 'SimObject')
-		bl.class('SceneObject', 'NetObject')
-			bl.class('GameBase', 'SceneObject')
-				bl.class('ShapeBase', 'GameBase')
-					bl.class('MissionMarker', 'ShapeBase')
-						bl.class('SpawnSphere'       , 'MissionMarker')
-						bl.class('VehicleSpawnMarker', 'MissionMarker')
-						bl.class('Waypoint'          , 'MissionMarker')
-					bl.class('StaticShape'  , 'ShapeBase')
-						bl.class('ScopeAlwaysShape', 'StaticShape')
-					bl.class('Player'       , 'ShapeBase')
-						bl.class('AIPlayer', 'Player')
-					bl.class('Camera'       , 'ShapeBase')
-					bl.class('Item'         , 'ShapeBase')
-					bl.class('PathCamera'   , 'ShapeBase')
-					bl.class('Vehicle'      , 'ShapeBase')
-						bl.class('FlyingVehicle' , 'Vehicle')
-						bl.class('WheeledVehicle', 'Vehicle')
-				bl.class('Explosion'          , 'GameBase')
-				bl.class('Splash'             , 'GameBase')
-				bl.class('Debris'             , 'GameBase')
-				bl.class('Projectile'         , 'GameBase')
-				bl.class('Trigger'            , 'GameBase')
-				bl.class('fxLight'            , 'GameBase')
-				bl.class('Lightning'          , 'GameBase')
-				bl.class('ParticleEmitterNode', 'GameBase')
-				bl.class('ParticleEmitter'    , 'GameBase')
-				bl.class('Precipitation'      , 'GameBase')
-			bl.class('TSStatic'      , 'SceneObject')
-			bl.class('VehicleBlocker', 'SceneObject')
-			bl.class('Marker'        , 'SceneObject')
-			bl.class('AudioEmitter'  , 'SceneObject')
-			bl.class('PhysicalZone'  , 'SceneObject')
-			bl.class('fxDayCycle'    , 'SceneObject')
-			bl.class('fxDTSBrick'    , 'SceneObject')
-			bl.class('fxPlane'       , 'SceneObject')
-			bl.class('fxSunLight'    , 'SceneObject')
-			bl.class('Sky'           , 'SceneObject')
-			bl.class('SceneRoot'     , 'SceneObject')
-		bl.class('Sun', 'NetObject')
-	bl.class('GuiCursor', 'SimObject')
-	bl.class('ConsoleLogger'    , 'SimObject')
-	bl.class('QuotaObject'      , 'SimObject')
-	bl.class('FileObject'       , 'SimObject')
-	bl.class('BanList'          , 'SimObject')
-	bl.class('GuiControlProfile', 'SimObject')
-	bl.class('MessageVector'    , 'SimObject')
-	bl.class('ActionMap'        , 'SimObject')
+bl.class('ScriptObject', 'SimObject')
+bl.class('SimSet', 'SimObject')
+bl.class('SimGroup', 'SimSet')
+bl.class('GuiControl', 'SimGroup')
+bl.class('GuiTextCtrl', 'GuiControl')
+bl.class('GuiSwatchCtrl', 'GuiControl')
+bl.class('GuiButtonBaseCtrl', 'GuiControl')
+bl.class('GuiArrayCtrl', 'GuiControl')
+bl.class('GuiScrollCtrl', 'GuiControl')
+bl.class('GuiMouseEventCtrl', 'GuiControl')
+bl.class('GuiProgressCtrl', 'GuiControl')
+bl.class('GuiSliderCtrl', 'GuiControl')
+bl.class('GuiConsoleTextCtrl', 'GuiControl')
+bl.class('GuiTSCtrl', 'GuiControl')
+bl.class('GuiObjectView', 'GuiTSCtrl')
+bl.class('GameTSCtrl', 'GuiTSCtrl')
+bl.class('EditTSCtrl', 'GuiTSCtrl')
+bl.class('GuiPlayerView', 'GuiTSCtrl')
+bl.class('GuiShapeNameHud', 'GuiControl')
+bl.class('GuiHealthBarHud', 'GuiControl')
+bl.class('GuiGraphCtrl', 'GuiControl')
+bl.class('GuiInspector', 'GuiControl')
+bl.class('GuiChunkedBitmapCtrl', 'GuiControl')
+bl.class('GuiInputCtrl', 'GuiControl')
+bl.class('GuiNoMouseCtrl', 'GuiControl')
+bl.class('GuiBitmapBorderCtrl', 'GuiControl')
+bl.class('GuiBackgroundCtrl', 'GuiControl')
+bl.class('GuiEditorRuler', 'GuiControl')
+bl.class('GuiClockHud', 'GuiControl')
+bl.class('GuiEditCtrl', 'GuiControl')
+bl.class('GuiFilterCtrl', 'GuiControl')
+bl.class('GuiFrameSetCtrl', 'GuiControl')
+bl.class('GuiMenuBar', 'GuiControl')
+bl.class('GuiMessageVectorCtrl', 'GuiControl')
+bl.class('GuiBitmapCtrl', 'GuiControl')
+bl.class('GuiCrossHairHud', 'GuiBitmapCtrl')
+bl.class('ScriptGroup', 'SimGroup')
+bl.class('NetConnection', 'SimGroup')
+bl.class('GameConnection', 'NetConnection')
+bl.class('Path', 'SimGroup')
+bl.class('TCPObject', 'SimObject')
+bl.class('SOCKObject', 'TCPObject')
+bl.class('HTTPObject', 'TCPObject')
+bl.class('SimDataBlock', 'SimObject')
+bl.class('AudioEnvironment', 'SimDataBlock')
+bl.class('AudioSampleEnvironment', 'SimDataBlock')
+bl.class('AudioDescription', 'SimDataBlock')
+bl.class('GameBaseData', 'SimDataBlock')
+bl.class('ShapeBaseData', 'GameBaseData')
+bl.class('CameraData', 'ShapeBaseData')
+bl.class('ItemData', 'ShapeBaseData')
+bl.class('MissionMarkerData', 'ShapeBaseData')
+bl.class('PathCameraData', 'ShapeBaseData')
+bl.class('PlayerData', 'ShapeBaseData')
+bl.class('StaticShapeData', 'ShapeBaseData')
+bl.class('VehicleData', 'ShapeBaseData')
+bl.class('FlyingVehicleData', 'VehicleData')
+bl.class('WheeledVehicleData', 'VehicleData')
+bl.class('DebrisData', 'GameBaseData')
+bl.class('ProjectileData', 'GameBaseData')
+bl.class('ShapeBaseImageData', 'GameBaseData')
+bl.class('TriggerData', 'GameBaseData')
+bl.class('ExplosionData', 'GameBaseData')
+bl.class('fxLightData', 'GameBaseData')
+bl.class('LightningData', 'GameBaseData')
+bl.class('ParticleEmitterNodeData', 'GameBaseData')
+bl.class('SplashData', 'GameBaseData')
+bl.class('fxDTSBrickData', 'GameBaseData')
+bl.class('ParticleEmitterData', 'GameBaseData')
+bl.class('WheeledVehicleTire', 'SimDataBlock')
+bl.class('WheeledVehicleSpring', 'SimDataBlock')
+bl.class('TSShapeConstructor', 'SimDataBlock')
+bl.class('AudioProfile', 'SimDataBlock')
+bl.class('ParticleData', 'SimDataBlock')
+bl.class('MaterialPropertyMap', 'SimObject')
+bl.class('NetObject', 'SimObject')
+bl.class('SceneObject', 'NetObject')
+bl.class('GameBase', 'SceneObject')
+bl.class('ShapeBase', 'GameBase')
+bl.class('MissionMarker', 'ShapeBase')
+bl.class('SpawnSphere', 'MissionMarker')
+bl.class('VehicleSpawnMarker', 'MissionMarker')
+bl.class('Waypoint', 'MissionMarker')
+bl.class('StaticShape', 'ShapeBase')
+bl.class('ScopeAlwaysShape', 'StaticShape')
+bl.class('Player', 'ShapeBase')
+bl.class('AIPlayer', 'Player')
+bl.class('Camera', 'ShapeBase')
+bl.class('Item', 'ShapeBase')
+bl.class('PathCamera', 'ShapeBase')
+bl.class('Vehicle', 'ShapeBase')
+bl.class('FlyingVehicle', 'Vehicle')
+bl.class('WheeledVehicle', 'Vehicle')
+bl.class('Explosion', 'GameBase')
+bl.class('Splash', 'GameBase')
+bl.class('Debris', 'GameBase')
+bl.class('Projectile', 'GameBase')
+bl.class('Trigger', 'GameBase')
+bl.class('fxLight', 'GameBase')
+bl.class('Lightning', 'GameBase')
+bl.class('ParticleEmitterNode', 'GameBase')
+bl.class('ParticleEmitter', 'GameBase')
+bl.class('Precipitation', 'GameBase')
+bl.class('TSStatic', 'SceneObject')
+bl.class('VehicleBlocker', 'SceneObject')
+bl.class('Marker', 'SceneObject')
+bl.class('AudioEmitter', 'SceneObject')
+bl.class('PhysicalZone', 'SceneObject')
+bl.class('fxDayCycle', 'SceneObject')
+bl.class('fxDTSBrick', 'SceneObject')
+bl.class('fxPlane', 'SceneObject')
+bl.class('fxSunLight', 'SceneObject')
+bl.class('Sky', 'SceneObject')
+bl.class('SceneRoot', 'SceneObject')
+bl.class('Sun', 'NetObject')
+bl.class('GuiCursor', 'SimObject')
+bl.class('ConsoleLogger', 'SimObject')
+bl.class('QuotaObject', 'SimObject')
+bl.class('FileObject', 'SimObject')
+bl.class('BanList', 'SimObject')
+bl.class('GuiControlProfile', 'SimObject')
+bl.class('MessageVector', 'SimObject')
+bl.class('ActionMap', 'SimObject')
 
 -- Auto-generated from game scripts
 bl.type('ActionMap::blockBind:1', 'object')

src/util/libts-lua.lua

@@ -1,4 +1,3 @@
-
 -- This Lua code provides some built-in utilities for writing Lua add-ons
 -- It is eval'd automatically once BLLua3 has loaded the TS API and environment
 -- It only has access to the sandboxed lua environment, just like user code.
@@ -7,8 +6,11 @@ ts = _bllua_ts
 
 -- Provide limited OS functions
 os = os or {}
-function os.time() return math.floor(tonumber(_bllua_ts.call('getSimTime'))/1000) end
-function os.clock() return tonumber(_bllua_ts.call('getSimTime'))/1000 end
+---@diagnostic disable-next-line: duplicate-set-field
+function os.time() return math.floor(tonumber(_bllua_ts.call('getSimTime')) / 1000) end
+
+---@diagnostic disable-next-line: duplicate-set-field
+function os.clock() return tonumber(_bllua_ts.call('getSimTime')) / 1000 end
 
 -- Virtual file class, emulating a file object as returned by io.open
 -- Used to wrap io.open to allow reading from zips (using TS)
@@ -18,9 +20,9 @@ function os.clock() return tonumber(_bllua_ts.call('getSimTime'))/1000 end
 local file_meta = {
   read = function(file, mode)
     file:_init()
-		if not file or type(file)~='table' or not file._is_file then error('File:read: Not a file', 2) end
+    if not file or type(file) ~= 'table' or not file._is_file then error('File:read: Not a file', 2) end
     if file._is_open ~= true then error('File:read: File is closed', 2) end
-		if mode=='*n' then
+    if mode == '*n' then
       local ws, n = file.data:match('^([ \t\r\n]*)([0-9%.%-e]+)', file.pos)
       if n then
         file.pos = file.pos + #ws + #n
@@ -28,15 +30,15 @@ local file_meta = {
       else
         return nil
       end
-		elseif mode=='*a' then
+    elseif mode == '*a' then
       local d = file.data:sub(file.pos, #file.data)
       file.pos = #file.data + 1
       return d
-		elseif mode=='*l' then
+    elseif mode == '*l' then
       local l, ws = file.data:match('^([^\r\n]*)(\r?\n)', file.pos)
       if not l then
         l = file.data:match('^([^\r\n]*)$', file.pos); ws = '';
-				if l=='' then return nil end
+        if l == '' then return nil end
       end
       if l then
         file.pos = file.pos + #l + #ws
@@ -44,12 +46,12 @@ local file_meta = {
       else
         return nil
       end
-		elseif type(mode)=='number' then
-			local d = file.data:sub(file.pos, file.pos+mode)
+    elseif type(mode) == 'number' then
+      local d = file.data:sub(file.pos, file.pos + mode)
       file.pos = file.pos + #d
       return d
     else
-			error('File:read: Invalid mode \''..mode..'\'', 2)
+      error('File:read: Invalid mode \'' .. mode .. '\'', 2)
     end
   end,
   lines = function(file)
@@ -82,23 +84,30 @@ local function new_file_obj(fn)
   return file
 end
 
-local function tflip(t) local u = {}; for _, n in ipairs(t) do u[n] = true end; return u; end
-local allowed_zip_dirs = tflip{
+local function tflip(t)
+  local u = {}; for _, n in ipairs(t) do u[n] = true end; return u;
+end
+local allowed_zip_dirs = tflip {
   'add-ons', 'base', 'config', 'saves', 'screenshots', 'shaders'
 }
 local function io_open_absolute(fn, mode)
   -- if file exists, use original mode
   local res, err = _bllua_io_open(fn, mode)
-	if res then return res end
+  if res then
+    return res
+  elseif err and not err:find('No such file or directory$') then
+    return nil, err
+  end
 
   -- otherwise, if TS sees file but Lua doesn't, it must be in a zip, so use TS reader
   local dir = fn:match('^[^/]+')
-	if not allowed_zip_dirs[dir:lower()] then return nil, 'File is not in one of the allowed directories' end
+  if not allowed_zip_dirs[dir:lower()] then return nil, 'Zip is not in one of the allowed directories' end
   local exist = _bllua_ts.call('isFile', fn) == '1'
   if not exist then return nil, err end
 
-	if mode~=nil and mode~='r' and mode~='rb' then
-		return nil, 'Files in zips can only be opened in read mode' end
+  if mode ~= nil and mode ~= 'r' and mode ~= 'rb' then
+    return nil, 'Files in zips can only be opened in read mode'
+  end
 
   -- return a temp lua file object with the data
   local fi = new_file_obj(fn)
@@ -106,6 +115,7 @@ local function io_open_absolute(fn, mode)
 end
 
 io = io or {}
+---@diagnostic disable-next-line: duplicate-set-field
 function io.open(fn, mode, errn)
   errn = errn or 1
 
@@ -114,7 +124,7 @@ function io.open(fn, mode, errn)
   if curfn == '' then curfn = nil end
   if fn:find('^%.') then
     local relfn = curfn and fn:find('^%./') and
-			curfn:gsub('[^/]+$', '')..fn:gsub('^%./', '')
+        curfn:gsub('[^/]+$', '') .. fn:gsub('^%./', '')
     if relfn then
       local fi, err = io_open_absolute(relfn, mode)
       return fi, err, relfn
@@ -126,13 +136,19 @@ function io.open(fn, mode, errn)
     return fi, err, fn
   end
 end
+
+---@diagnostic disable-next-line: duplicate-set-field
 function io.lines(fn)
   local fi, err, fn2 = io.open(fn, nil, 2)
-	if not fi then error('Error opening file \''..fn2..'\': '..err, 2) end
+  if not fi then error('Error opening file \'' .. fn2 .. '\': ' .. err, 2) end
   return fi:lines()
 end
+
+---@diagnostic disable-next-line: duplicate-set-field
 function io.type(f)
-	if type(f)=='table' and f._is_file then
+  ---@diagnostic disable-next-line: undefined-field
+  if type(f) == 'table' and f._is_file then
+    ---@diagnostic disable-next-line: undefined-field
     return f._is_open and 'file' or 'closed file'
   else
     return _bllua_io_type(f)
@@ -143,13 +159,13 @@ end
 function dofile(fn, errn)
   errn = errn or 1
 
-	local fi, err, fn2 = io.open(fn, 'r', errn+1)
-	if not fi then error('Error executing file \''..fn2..'\': '..err, errn+1) end
+  local fi, err, fn2 = io.open(fn, 'r', errn + 1)
+  if not fi then error('Error executing file \'' .. fn2 .. '\': ' .. err, errn + 1) end
 
-	print('Executing '..fn2)
+  print('Executing ' .. fn2)
   local text = fi:read('*a')
   fi:close()
-	return assert(loadstring('--[['..fn2..']]'..text))()
+  return assert(loadstring('--[[' .. fn2 .. ']]' .. text))()
 end
 
 -- provide require (just a wrapper for dofile)
@@ -158,7 +174,7 @@ end
 --   blockland directory
 --   current add-on
 local function file_exists(fn, errn)
-	local fi, err, fn2 = io.open(fn, 'r', errn+1)
+  local fi, err, fn2 = io.open(fn, 'r', errn + 1)
   if fi then
     fi:close()
     return fn2
@@ -171,20 +187,20 @@ function require(mod)
   if require_memo[mod] then return unpack(require_memo[mod]) end
   local fp = mod:gsub('%.', '/')
   local fns = {
-		'./'..fp..'.lua',      -- local file
-		'./'..fp..'/init.lua', -- local library
-		fp..'.lua',            -- global file
-		fp..'/init.lua',       -- global library
+    './' .. fp .. '.lua',      -- local file
+    './' .. fp .. '/init.lua', -- local library
+    fp .. '.lua',              -- global file
+    fp .. '/init.lua',         -- global library
   }
   if fp:lower():find('^add-ons/') then
-		local addonpath = fp:lower():match('^add-ons/[^/]+')..'/'
-		table.insert(fns, addonpath..fp..'.lua')      -- add-on file
-		table.insert(fns, addonpath..fp..'/init.lua') -- add-on library
+    local addonpath = fp:lower():match('^add-ons/[^/]+') .. '/'
+    table.insert(fns, addonpath .. fp .. '.lua')      -- add-on file
+    table.insert(fns, addonpath .. fp .. '/init.lua') -- add-on library
   end
-	for _,fn in ipairs(fns) do
+  for _, fn in ipairs(fns) do
     local fne = file_exists(fn, 2)
     if fne then
-			local res = {dofile(fne, 2)}
+      local res = { dofile(fne, 2) }
       require_memo[mod] = res
       return unpack(res)
     end
@@ -192,20 +208,15 @@ function require(mod)
   return _bllua_requiresecure(mod)
 end
 
--- Exposure to TS
-function _bllua_getvar(name) return _G[name] end
-function _bllua_setvar(name, val) _G[name] = val end
-function _bllua_eval(code) return loadstring(code)() end
-function _bllua_exec(fn) return dofile(fn, 2) end
-
 local function isValidCode(code)
-	local f,e = loadstring(code)
-	return f~=nil
+  local f, e = loadstring(code)
+  return f ~= nil
 end
 function _bllua_smarteval(code)
-	if (not code:find('^print%(')) and isValidCode('print('..code..')') then
-		code = 'print('..code..')' end
-	local f,e = loadstring(code)
+  if (not code:find('^print%(')) and isValidCode('print(' .. code .. ')') then
+    code = 'print(' .. code .. ')'
+  end
+  local f, e = loadstring(code)
   if f then
     return f()
   else

src/util/libts-ts.cs

@@ -49,26 +49,4 @@ function _bllua_set_var(%name, %val) {
 	return "";
 }
 
-// Public Lua library for TS
-function luacall(%func, %a,%b,%c,%d,%e,%f,%g,%h,%i,%j,%k,%l,%m,%n,%o,%p) {
-	if($_bllua_active)
-		return _bllua_luacall("_bllua_call", %func, %a,%b,%c,%d,%e,%f,%g,%h,%i,%j,%k,%l,%m,%n,%o,%p);
-}
-function luaexec(%fn) {
-	if($_bllua_active)
-		return _bllua_luacall("_bllua_exec", %fn);
-}
-function luaeval(%code) {
-	if($_bllua_active)
-		return _bllua_luacall("_bllua_eval", %code);
-}
-function luaget(%name) {
-	if($_bllua_active)
-		return _bllua_luacall("_bllua_getvar", %name);
-}
-function luaset(%name, %val) {
-	if($_bllua_active)
-		_bllua_luacall("_bllua_setvar", %name, %val);
-}
-
 echo("  Executed libts-ts.cs");

src/util/matrix.lua

@@ -0,0 +1,6 @@
+-- todo
+-- Matrix class with math operators
+
+
+
+print('  Executed matrix.lua')

src/util/std.lua

@@ -1,263 +1,307 @@
-
 -- Basic functionality that should be standard in Lua
 
 
 -- Table / List
 -- Whether a table contains no keys
 function table.empty(t)
-	return next(t)~=nil
+  return next(t) == nil
 end
+
 -- Apply a function to each key in a table
 function table.map(f, ...)
-	local ts = {...}
+  local ts = { ... }
   local u = {}
-	for k,_ in pairs(ts[1]) do
+  for k, _ in pairs(ts[1]) do
     local args = {}
-		for j=1,#ts do args[j] = ts[j][i] end
-		u[i] = f(unpack(args))
+    for j = 1, #ts do args[j] = ts[j][k] end
+    u[k] = f(unpack(args))
   end
   return u
 end
+
+function table.mapk(f, ...)
+  local ts = { ... }
+  local u = {}
+  for k, _ in pairs(ts[1]) do
+    local args = {}
+    for j = 1, #ts do args[j] = ts[j][k] end
+    u[k] = f(k, unpack(args))
+  end
+  return u
+end
+
 function table.map_list(f, ...)
-	local ts = {...}
+  local ts = { ... }
   local u = {}
-	for i=1,#ts[1] do
+  for i = 1, #ts[1] do
     local args = {}
-		for j=1,#ts do args[j] = ts[j][i] end
+    for j = 1, #ts do args[j] = ts[j][i] end
     u[i] = f(unpack(args))
   end
   return u
 end
+
+function table.mapi_list(f, ...)
+  local ts = { ... }
+  local u = {}
+  for i = 1, #ts[1] do
+    local args = {}
+    for j = 1, #ts do args[j] = ts[j][i] end
+    u[i] = f(i, unpack(args))
+  end
+  return u
+end
+
 -- Swap keys/values
 function table.swap(t)
   local u = {}
-	for k,v in pairs(t) do u[v] = k end
+  for k, v in pairs(t) do u[v] = k end
   return u
 end
+
 -- Reverse a list
 function table.reverse(l)
   local m = {}
-	for i=1,#l do m[#l-i+1] = l[i] end
+  for i = 1, #l do m[#l - i + 1] = l[i] end
   return m
 end
+
 -- Whether a table is a list/array (has only monotonic integer keys)
 function table.islist(t)
   local n = 0
-	for i,_ in pairs(t) do
-		if type(i)~='number' or i%1~=0 then return false end
-		n = n+1
+  for i, _ in pairs(t) do
+    if type(i) ~= 'number' or i % 1 ~= 0 then return false end
+    n = n + 1
   end
-	return n==#t
+  return n == #t
 end
+
 -- Append contents of other tables to first table
 function table.append(t, ...)
-	local a = {...}
-	for _,u in ipairs(a) do
-		for _,v in ipairs(u) do table.insert(t,v) end
+  local a = { ... }
+  for _, u in ipairs(a) do
+    for _, v in ipairs(u) do table.insert(t, v) end
   end
   return t
 end
+
 -- Create a new table containing all keys from any number of tables
 -- latter tables in the arg list override prior ones
 -- overlaps, NOT appends, integer keys
 function table.join(...)
-	local ts = {...}
+  local ts = { ... }
   local w = {}
-	for _,t in ipairs(ts) do
-		for k,v in pairs(t) do w[k] = v end
+  for _, t in ipairs(ts) do
+    for k, v in pairs(t) do w[k] = v end
   end
   return w
 end
+
 -- Whether a table contains a certain value in any key
-function table.contains(t,s)
-	for _,v in pairs(t) do
-		if v==s then return true end
+function table.contains(t, s)
+  for _, v in pairs(t) do
+    if v == s then return true end
   end
   return false
 end
-function table.contains_list(t,s)
-	for _,v in ipairs(t) do
-		if v==s then return true end
+
+function table.contains_list(t, s)
+  for _, v in ipairs(t) do
+    if v == s then return true end
   end
   return false
 end
+
 -- Copy a table to another table
 function table.copy(t)
   local u = {}
-	for k,v in pairs(t) do u[k] = v end
+  for k, v in pairs(t) do u[k] = v end
   return u
 end
+
 function table.copy_list(l)
   local m = {}
-	for i,v in ipairs(l) do m[i] = v end
+  for i, v in ipairs(l) do m[i] = v end
   return m
 end
+
 -- Sort a table in a new copy
 function table.sortcopy(t, f)
   local u = table.copy_list(t)
   table.sort(u, f)
   return u
 end
+
 -- Remove a value from a table
 function table.removevalue(t, r)
   local rem = {}
-	for k,v in pairs(t) do
-		if v==r then table.insert(rem, k) end
+  for k, v in pairs(t) do
+    if v == r then table.insert(rem, k) end
   end
-	for _,k in ipairs(rem) do t[k] = nil end
+  for _, k in ipairs(rem) do t[k] = nil end
 end
+
 function table.removevalue_list(t, r)
   for i = #t, 1, -1 do
-		if t[i]==r then
+    if t[i] == r then
       table.remove(t, i)
     end
   end
 end
+
 -- Export tables into formatted executable strings
 local function tabs(tabLevel)
   return ('  '):rep(tabLevel)
 end
 local valueToString
 local function tableToString(t, tabLevel, seen)
-	if type(t)~='table' or (getmetatable(t) and getmetatable(t).__tostring) then
+  if type(t) ~= 'table' or (getmetatable(t) and getmetatable(t).__tostring) then
     return tostring(t)
   elseif table.islist(t) then
-		if #t==0 then
+    if #t == 0 then
       return '{}'
     else
       local strs = {}
       local containsTables = false
-			for _,v in ipairs(t) do
-				if type(v)=='table' then containsTables = true end
-				table.insert(strs, valueToString(v, tabLevel+1, seen)..',')
+      for _, v in ipairs(t) do
+        if type(v) == 'table' then containsTables = true end
+        table.insert(strs, valueToString(v, tabLevel + 1, seen) .. ',')
       end
-			if containsTables or #t>3 then
-				return '{\n'..tabs(tabLevel+1)
-					..table.concat(strs, '\n'..tabs(tabLevel+1))
-					..'\n'..tabs(tabLevel)..'}'
+      if containsTables or #t > 3 then
+        return '{\n' .. tabs(tabLevel + 1)
+            .. table.concat(strs, '\n' .. tabs(tabLevel + 1))
+            .. '\n' .. tabs(tabLevel) .. '}'
       else
-				return '{ '..table.concat(strs, ' ')..' }'
+        return '{ ' .. table.concat(strs, ' ') .. ' }'
       end
     end
   else
     local containsNonStringKeys = false
-		for k,v in pairs(t) do
-			if type(k)~='string' or k:find('[^a-zA-Z0-9_]') then
+    for k, v in pairs(t) do
+      if type(k) ~= 'string' or k:find('[^a-zA-Z0-9_]') then
         containsNonStringKeys = true
-			elseif type(k)=='table' then
+      elseif type(k) == 'table' then
         error('table.tostring: table contains a table as key, cannot serialize')
       end
     end
     local strs = {}
     if containsNonStringKeys then
-			for k,v in pairs(t) do
-				table.insert(strs, '\n'..tabs(tabLevel+1)
-					..'['..valueToString(k, tabLevel+1, seen)..'] = '
-					..valueToString(v, tabLevel+1, seen)..',')
+      for k, v in pairs(t) do
+        table.insert(strs, '\n' .. tabs(tabLevel + 1)
+          .. '[' .. valueToString(k, tabLevel + 1, seen) .. '] = '
+          .. valueToString(v, tabLevel + 1, seen) .. ',')
       end
     else
-			for k,v in pairs(t) do
-				table.insert(strs, '\n'..tabs(tabLevel+1)
-					..k..' = '..valueToString(v, tabLevel+1, seen)..',')
+      for k, v in pairs(t) do
+        table.insert(strs, '\n' .. tabs(tabLevel + 1)
+          .. k .. ' = ' .. valueToString(v, tabLevel + 1, seen) .. ',')
       end
     end
-		return '{'..table.concat(strs)..'\n'..tabs(tabLevel)..'}'
+    return '{' .. table.concat(strs) .. '\n' .. tabs(tabLevel) .. '}'
   end
 end
 valueToString = function(v, tabLevel, seen)
   local t = type(v)
-	if t=='table' then
+  if t == 'table' then
     if seen[v] then
-			return 'nil --[[ already seen: '..tostring(v)..' ]]'
+      return 'nil --[[ already seen: ' .. tostring(v) .. ' ]]'
     else
       seen[v] = true
       return tableToString(v, tabLevel, seen)
     end
-	elseif t=='string' then
-		return '\''..string.escape(v)..'\''
-	elseif t=='number' or t=='boolean' then
+  elseif t == 'string' then
+    return '\'' .. string.escape(v) .. '\''
+  elseif t == 'number' or t == 'boolean' then
     return tostring(v)
   else
     --error('table.tostring: table contains a '..t..' value, cannot serialize')
-		return 'nil --[[ cannot serialize '..t..': '..tostring(v)..' ]]'
+    return 'nil --[[ ' .. tostring(v) .. ' ]]'
   end
 end
 function table.tostring(t)
   return tableToString(t, 0, {})
 end
 
-
 -- String
 
 -- Split string into table by separator
 -- or by chars if no separator given
 -- if regex is not true, sep is treated as a regex pattern
 function string.split(str, sep, noregex)
-	if type(str)~='string' then
-		error('string.split: argument #1: expected string, got '..type(str), 2) end
-	if sep==nil or sep=='' then
+  if type(str) ~= 'string' then
+    error('string.split: argument #1: expected string, got ' .. type(str), 2)
+  end
+  if sep == nil or sep == '' then
     local t = {}
     local ns = #str
     for x = 1, ns do
       table.insert(t, str:sub(x, x))
     end
     return t
-	elseif type(sep)=='string' then
+  elseif type(sep) == 'string' then
     local t = {}
-		if #str>0 then
+    if #str > 0 then
       local first = 1
       while true do
         local last, newfirst = str:find(sep, first, noregex)
         if not last then break end
-				table.insert(t, str:sub(first, last-1))
-				first = newfirst+1
+        table.insert(t, str:sub(first, last - 1))
+        first = newfirst + 1
       end
       table.insert(t, str:sub(first, #str))
     end
     return t
   else
     error(
-			'string.split: argument #2: expected string or nil, got '..type(sep), 2)
+      'string.split: argument #2: expected string or nil, got ' .. type(sep), 2)
   end
 end
+
 -- Split string to a list of char bytes
 function string.bytes(s)
   local b = {}
-	for i=1,#s do
-		local c = s:sub(i,i)
+  for i = 1, #s do
+    local c = s:sub(i, i)
     table.insert(b, c:byte())
   end
   return b
 end
+
 -- Trim leading and trailing whitespace
 function string.trim(s, ws)
   ws = ws or ' \t\r\n'
-	return s:gsub('^['..ws..']+', ''):gsub('['..ws..']+$', '')..''
+  return s:gsub('^[' .. ws .. ']+', ''):gsub('[' .. ws .. ']+$', '') .. ''
 end
+
 -- String slicing and searching using [] operator
 local str_meta = getmetatable('')
-local str_meta_index_old= str_meta.__index
-function str_meta.__index(s,k)
-	if type(k)=='string' then
+local str_meta_index_old = str_meta.__index
+function str_meta.__index(s, k)
+  if type(k) == 'string' then
     return str_meta_index_old[k]
-	elseif type(k)=='number' then
-		if k<0 then k = #s+k+1 end
-		return string.sub(s,k,k)
-	elseif type(k)=='table' then
-		local a = k[1]<0 and (#s+k[1]+1) or k[1]
-		local b = k[2]<0 and (#s+k[2]+1) or k[2]
-		return string.sub(s,a,b)
+  elseif type(k) == 'number' then
+    if k < 0 then k = #s + k + 1 end
+    return string.sub(s, k, k)
+  elseif type(k) == 'table' then
+    local a = k[1] < 0 and (#s + k[1] + 1) or k[1]
+    local b = k[2] < 0 and (#s + k[2] + 1) or k[2]
+    return string.sub(s, a, b)
   end
 end
+
 -- String iterator
 function string.chars(s)
   local i = 0
   return function()
-		i = i+1
-		if i<=#s then return s:sub(i,i)
-		else return nil end
+    i = i + 1
+    if i <= #s then
+      return s:sub(i, i)
+    else
+      return nil
+    end
   end
 end
+
 -- Escape sequences
 local defaultEscapes = {
   ['\\'] = '\\\\',
@@ -271,12 +315,13 @@ local defaultEscapes = {
 function string.escape(s, escapes)
   escapes = escapes or defaultEscapes
   local t = {}
-	for i=1,#s do
-		local c = s:sub(i,i)
+  for i = 1, #s do
+    local c = s:sub(i, i)
     table.insert(t, escapes[c] or c)
   end
   return table.concat(t)
 end
+
 local defaultEscapeChar = '\\'
 local defaultUnescapes = {
   ['\\'] = '\\',
@@ -292,13 +337,13 @@ function string.unescape(s, escapeChar, unescapes)
   unescapes = unescapes or defaultUnescapes
   local t = {}
   local inEscape = false
-	for i=1,#s do
-		local c = s:sub(i,i)
+  for i = 1, #s do
+    local c = s:sub(i, i)
     if inEscape then
       table.insert(t, unescapes[c]
         or error('string.unescape: invalid escape sequence: \''
-					..escapeChar..c..'\''))
-		elseif c==escapeChar then
+          .. escapeChar .. c .. '\''))
+    elseif c == escapeChar then
       inEscape = true
     else
       table.insert(t, c)
@@ -307,41 +352,47 @@ function string.unescape(s, escapeChar, unescapes)
   return table.concat(t)
 end
 
-
 -- IO
 
 io = io or {}
 -- Read entire file at once, return nil,err if access failed
 function io.readall(filename)
-	local fi,err = io.open(filename, 'rb')
-	if not fi then return nil,err end
+  local fi, err = io.open(filename, 'rb')
+  if not fi then return nil, err end
   local s = fi:read("*a")
   fi:close()
   return s
 end
+
 -- Write data to file all at once, return true if success / false,err if failure
 function io.writeall(filename, data)
-	local fi,err = io.open(filename, 'wb')
-	if not fi then return false,err end
+  local fi, err = io.open(filename, 'wb')
+  if not fi then return false, err end
   fi:write(data)
   fi:close()
-	return true,nil
+  return true, nil
 end
 
-
 -- Math
 
 -- Round
 function math.round(x)
-	return math.floor(x+0.5)
+  return math.floor(x + 0.5)
 end
+
 -- Mod that accounts for floating point inaccuracy
-function math.mod(a,b)
-	local m = a%b
-	if m==0 or math.abs(m)<1e-15 or math.abs(m-b)<1e-15 then return 0
-	else return m end
+function math.mod(a, b)
+  local m = a % b
+  if m == 0 or math.abs(m) < 1e-15 or math.abs(m - b) < 1e-15 then
+    return 0
+  else
+    return m
+  end
 end
+
 -- Clamp value between min and max
 function math.clamp(v, n, x)
   return math.min(x, math.max(v, n))
 end
+
+print('  Executed std.lua')

src/util/vector.lua

@@ -1,26 +1,28 @@
-
 -- Vector math class with operators
 local vector_meta
 local vector_new
 local function vector_check(v, n, name, argn)
   if not v.__is_vector then
-		error('vector '..name..': argument #'..(argn or 1)
-			..': expected vector, got '..type(v), n+1) end
+    error('vector ' .. name .. ': argument #' .. (argn or 1)
+      .. ': expected vector, got ' .. type(v), n + 1)
+  end
 end
 local function vector_checksamelen(v1, v2, name)
   vector_check(v1, 3, name, 1)
   vector_check(v2, 3, name, 2)
-	if #v1~=#v2 then
-		error('vector '..name..': vector lengths do not match (lengths are '
-			..#v1..' and '..#v2..')', 3) end
+  if #v1 ~= #v2 then
+    error('vector ' .. name .. ': vector lengths do not match (lengths are '
+      .. #v1 .. ' and ' .. #v2 .. ')', 3)
+  end
   return #v1
 end
 local function vector_checklen(v1, v2, name, len)
   vector_check(v1, 3, name, 1)
   vector_check(v2, 3, name, 2)
-	if #v1~=len or #v2~=len then
-		error('vector '..name..': vector lengths are not '..len..' (lengths are '
-			..#v1..' and '..#v2..')', 3) end
+  if #v1 ~= len or #v2 ~= len then
+    error('vector ' .. name .. ': vector lengths are not ' .. len .. ' (lengths are '
+      .. #v1 .. ' and ' .. #v2 .. ')', 3)
+  end
 end
 local function vector_opnnn(name, op)
   return function(v1, v2)
@@ -34,8 +36,8 @@ local function vector_opnnn(name, op)
 end
 local function vector_opnxn(name, op)
   return function(v1, v2)
-		local v1v = type(v1)=='table' and v1.__is_vector
-		local v2v = type(v2)=='table' and v2.__is_vector
+    local v1v = type(v1) == 'table' and v1.__is_vector
+    local v2v = type(v2) == 'table' and v2.__is_vector
     if v1v and v2v then
       local len = vector_checksamelen(v1, v2, name)
       local v3 = {}
@@ -44,7 +46,7 @@ local function vector_opnxn(name, op)
       end
       return vector_new(v3)
     else
-			if v2v then v1,v2 = v2,v1 end
+      if v2v then v1, v2 = v2, v1 end
       local len = #v1
       local v3 = {}
       for i = 1, len do
@@ -65,26 +67,32 @@ local function vector_opn0n(name, op)
     return vector_new(v2)
   end
 end
-local vector_indices = {x = 1, y = 2, z = 3, w = 4, r = 1, g = 2, b = 3, a = 4}
+local vector_indices = { x = 1, y = 2, z = 3, w = 4, r = 1, g = 2, b = 3, a = 4 }
 local vector_meta = {
   __is_vector     = true,
   __index         = function(t, k)
-		if tonumber(k) then return rawget(t, k)
-		elseif vector_indices[k] then return rawget(t, vector_indices[k])
-		else return getmetatable(t)[k]
+    if tonumber(k) then
+      return rawget(t, k)
+    elseif vector_indices[k] then
+      return rawget(t, vector_indices[k])
+    else
+      return getmetatable(t)[k]
     end
   end,
   __newindex      = function(t, k, v)
-		if tonumber(k) then rawset(t, k, v)
-		elseif vector_indices[k] then rawset(t, vector_indices[k], v)
-		else return
+    if tonumber(k) then
+      rawset(t, k, v)
+    elseif vector_indices[k] then
+      rawset(t, vector_indices[k], v)
+    else
+      return
     end
   end,
-	__add = vector_opnnn('add', function(x1, x2) return x1+x2 end),
-	__sub = vector_opnnn('sub', function(x1, x2) return x1-x2 end),
-	__mul = vector_opnxn('mul', function(x1, x2) return x1*x2 end),
-	__div = vector_opnxn('div', function(x1, x2) return x1/x2 end),
-	__pow = vector_opnxn('pow', function(x1, x2) return x1^x2 end),
+  __add           = vector_opnnn('add', function(x1, x2) return x1 + x2 end),
+  __sub           = vector_opnnn('sub', function(x1, x2) return x1 - x2 end),
+  __mul           = vector_opnxn('mul', function(x1, x2) return x1 * x2 end),
+  __div           = vector_opnxn('div', function(x1, x2) return x1 / x2 end),
+  __pow           = vector_opnxn('pow', function(x1, x2) return x1 ^ x2 end),
   __unm           = vector_opn0n('inv', function(x1) return -x1 end),
   __concat        = nil,
   --__len = function(v1) return #v1 end,
@@ -92,7 +100,7 @@ local vector_meta = {
   __eq            = function(v1, v2)
     local len = vector_checksamelen(v1, v2, 'equals')
     for i = 1, len do
-			if v1[i]~=v2[i] then return false end
+      if v1[i] ~= v2[i] then return false end
     end
     return true
   end,
@@ -105,7 +113,7 @@ local vector_meta = {
     local len = #v1
     local l = 0
     for i = 1, len do
-			l = l + v1[i]^2
+      l = l + v1[i] ^ 2
     end
     return math.sqrt(l)
   end,
@@ -115,8 +123,11 @@ local vector_meta = {
     local len = #v1
     local v3 = {}
     for i = 1, len do
-			if length==0 then v3[i] = 0
-			else v3[i] = v1[i]/length end
+      if length == 0 then
+        v3[i] = 0
+      else
+        v3[i] = v1[i] / length
+      end
     end
     return vector_new(v3)
   end,
@@ -127,48 +138,56 @@ local vector_meta = {
     for i = 1, len do
       table.insert(st, tostring(v1[i]))
     end
-		return 'vector{ '..table.concat(st, ', ')..' }'
+    return 'vector{ ' .. table.concat(st, ', ') .. ' }'
   end,
   unpack          = function(v1) return unpack(v1) end,
   floor           = vector_opn0n('floor', function(x1) return math.floor(x1) end),
-	ceil  = vector_opn0n('ceil' , function(x1) return math.ceil (x1) end),
-	round = vector_opn0n('round', function(x1) return math.floor(x1+0.5) end),
+  ceil            = vector_opn0n('ceil', function(x1) return math.ceil(x1) end),
+  round           = vector_opn0n('round', function(x1) return math.floor(x1 + 0.5) end),
   dot             = function(v1, v2)
     local len = vector_checksamelen(v1, v2, 'dot')
     local x = 0
     for i = 1, len do
-			x = x + v1[i]*v2[i]
+      x = x + v1[i] * v2[i]
     end
     return x
   end,
   cross           = function(v1, v2)
     vector_checklen(v1, v2, 'cross', 3)
-		return vector_new{
-			v1[2]*v2[3] - v1[3]*v2[2],
-			v1[3]*v2[1] - v1[1]*v2[3],
-			v1[1]*v2[2] - v1[2]*v2[1],
+    return vector_new {
+      v1[2] * v2[3] - v1[3] * v2[2],
+      v1[3] * v2[1] - v1[1] * v2[3],
+      v1[1] * v2[2] - v1[2] * v2[1],
     }
   end,
   rotateByAngleId = function(v1, r)
     --vector_check(v1, 2, 'rotate')
-		if type(r)~='number' or r%1~=0 then
-			error('vector rotateByAngleId: invalid rotation '..tostring(r), 2) end
-		r = r%4
+    if type(r) ~= 'number' or r % 1 ~= 0 then
+      error('vector rotateByAngleId: invalid rotation ' .. tostring(r), 2)
+    end
+    r = r % 4
     local v2
-		if     r==0 then v2 = vector_new{  v1[1],  v1[2], v1[3] }
-		elseif r==1 then v2 = vector_new{  v1[2], -v1[1], v1[3] }
-		elseif r==2 then v2 = vector_new{ -v1[1], -v1[2], v1[3] }
-		elseif r==3 then v2 = vector_new{ -v1[2],  v1[1], v1[3] }
-		else error('vector rotateByAngleId: invalid rotation '..r, 2) end
+    if r == 0 then
+      v2 = vector_new { v1[1], v1[2], v1[3] }
+    elseif r == 1 then
+      v2 = vector_new { v1[2], -v1[1], v1[3] }
+    elseif r == 2 then
+      v2 = vector_new { -v1[1], -v1[2], v1[3] }
+    elseif r == 3 then
+      v2 = vector_new { -v1[2], v1[1], v1[3] }
+    else
+      error('vector rotateByAngleId: invalid rotation ' .. r, 2)
+    end
     return v2
   end,
   rotateZ         = function(v, r)
     --vector_check(v, 2, 'rotate2d')
-		if type(r)~='number' then
-			error('vector rotateZ: invalid rotation '..tostring(r), 2) end
-		local len = math.sqrt(v[1]^2 + v[2]^2)
+    if type(r) ~= 'number' then
+      error('vector rotateZ: invalid rotation ' .. tostring(r), 2)
+    end
+    local len = math.sqrt(v[1] ^ 2 + v[2] ^ 2)
     local ang = math.atan2(v[2], v[1]) + r
-		local v2 = vector_new{ math.cos(ang)*len, math.sin(ang)*len }
+    local v2 = vector_new { math.cos(ang) * len, math.sin(ang) * len }
     return v2
   end,
   tsString        = function(v)
@@ -178,8 +197,8 @@ local vector_meta = {
   distance        = function(v1, v2)
     local len = vector_checksamelen(v1, v2, 'distance')
     local sum = 0
-		for i=1,len do
-			sum = sum + (v1[i] - v2[i])^2
+    for i = 1, len do
+      sum = sum + (v1[i] - v2[i]) ^ 2
     end
     return math.sqrt(sum)
   end,
@@ -190,21 +209,21 @@ local vector_meta = {
 }
 vector_new = function(vi)
   if vi then
-		if type(vi)=='string' then
+    if type(vi) == 'string' then
       local vi2 = {}
       for val in vi:gmatch('[0-9%.%-e]+') do
         table.insert(vi2, tonumber(val))
       end
       vi = vi2
-		elseif type(vi)~='table' then
-			error('vector: argument #1: expected input table, got '..type(vi), 2)
+    elseif type(vi) ~= 'table' then
+      error('vector: argument #1: expected input table, got ' .. type(vi), 2)
     end
     local v = {}
-		if #vi>0 then
+    if #vi > 0 then
       for i = 1, #vi do v[i] = vi[i] end
     else
       for n, i in pairs(vector_indices) do v[i] = vi[n] end
-			if #v==0 then
+      if #v == 0 then
         error('vector: argument #1: table contains no values', 2)
       end
     end
@@ -216,4 +235,7 @@ vector_new = function(vi)
 end
 
 vector = vector_new
+
+print('  Executed vector.lua')
+
 return vector_new