.clang-format updates

.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,2 +1,2 @@
-.*
+build/
-!.gitignore
+.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 compile.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 compile options to mirror compile.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 compile.bat
+link_directories(
+  ${CMAKE_SOURCE_DIR}
+)
+
+# Safe DLL
+add_library(BlockLua SHARED src/bllua4.cpp)
+# Ensure output name matches compile.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()

compile.bat

@@ -0,0 +1,13 @@
+@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

compiling.md

@@ -0,0 +1,52 @@
+## Compiling on Windows with MSYS2 (32-bit)
+
+Follow these steps to build `BlockLua.dll` for 32-bit Windows using MSYS2's MinGW-w64 i686 toolchain.
+
+### 1) Install MSYS2
+
+- Download and install MSYS2 from `https://www.msys2.org/`.
+- After installing, open the "MSYS2 MSYS" terminal once and update the package database if prompted.
+
+### 2) Install required packages (i686 / 32-bit)
+
+Run this in the "MSYS2 MSYS" or "MSYS2 MinGW 32-bit" terminal:
+
+```bash
+pacman -Sy --needed mingw-w64-i686-toolchain mingw-w64-i686-binutils mingw-w64-i686-lua51
+```
+
+What these packages are for:
+
+- mingw-w64-i686-toolchain: 32-bit C/C++ compiler suite (g++, libstdc++, runtime libs) to build Windows binaries.
+- mingw-w64-i686-binutils: Linker and binary utilities (ld, as, objdump) used by the compiler and for optional inspection.
+- mingw-w64-i686-lua51: Lua 5.1 development files for 32-bit (import library). We use its import library to link; at runtime you can use the provided `lua5.1.dll`.
+
+### 3) Build (PowerShell, recommended)
+
+- Open PowerShell in the repo root.
+- Run the script:
+
+```powershell
+compile.bat
+```
+
+What the script does:
+
+- Temporarily prepends `C:\\msys64\\mingw32\\bin` to PATH so the 32-bit toolchain is used.
+- Compiles the project with `-m32` and links against `lua5.1`.
+- Produces `build\BlockLua.dll` and `build\BlockLua-Unsafe.dll`.
+
+### 4) Optional: Verify 32-bit output
+
+If you installed binutils, you can check the architecture:
+
+```powershell
+objdump -f build\BlockLua.dll | Select-String i386
+```
+
+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.
+- 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,17 +4,14 @@
 ** 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)
 
@@ -23,24 +20,19 @@ typedef struct luaL_Reg {
   lua_CFunction func;
 } luaL_Reg;
 
-LUALIB_API void (luaL_openlib) (lua_State *L, const char *libname,
+LUALIB_API void(luaL_openlib)(lua_State* L, const char* libname, const luaL_Reg* l, int nup);
-                                const luaL_Reg *l, int nup);
+LUALIB_API void(luaL_register)(lua_State* L, const char* libname, const luaL_Reg* l);
-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,
+LUALIB_API const char*(luaL_checklstring)(lua_State * L, int numArg, size_t* l);
-                                                          size_t *l);
+LUALIB_API const char*(luaL_optlstring)(lua_State * L, int numArg, const char* def, 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,
+LUALIB_API lua_Integer(luaL_optinteger)(lua_State* L, int nArg, lua_Integer def);
-                                          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);
@@ -52,8 +44,7 @@ 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 int (luaL_checkoption) (lua_State *L, int narg, const char *def,
+LUALIB_API int(luaL_checkoption)(lua_State* L, int narg, const char* def, const char* const lst[]);
-                                   const char *const lst[]);
 
 /* pre-defined references */
 #define LUA_NOREF (-2)
@@ -63,43 +54,33 @@ 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,
+LUALIB_API int(luaL_loadbuffer)(lua_State* L, const char* buff, size_t sz, const char* name);
-                                  const char *name);
 LUALIB_API int(luaL_loadstring)(lua_State* L, const char* s);
 
 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,
+LUALIB_API const char*(luaL_findtable)(lua_State * L, int idx, const char* fname, int szhint);
-                                                  const char *r);
-
-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,
+LUALIB_API int(luaL_loadfilex)(lua_State* L, const char* filename, const char* mode);
-				 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 int (luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz,
+LUALIB_API void luaL_traceback(lua_State* L, lua_State* L1, const char* msg, int level);
-				   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,
+LUALIB_API void(luaL_pushmodule)(lua_State* L, const char* modname, int sizehint);
-				   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);
 
-
 /*
 ** ===============================================================
 ** some useful macros
 ** ===============================================================
 */
 
-#define luaL_argcheck(L, cond,numarg,extramsg)	\
+#define luaL_argcheck(L, cond, numarg, extramsg) ((void)((cond) || luaL_argerror(L, (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)))
@@ -109,19 +90,16 @@ LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname);
 
 #define luaL_typename(L, i) lua_typename(L, lua_type(L, (i)))
 
-#define luaL_dofile(L, fn) \
+#define luaL_dofile(L, fn) (luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0))
-	(luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0))
 
-#define luaL_dostring(L, s) \
+#define luaL_dostring(L, s) (luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0))
-	(luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0))
 
 #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)))
 
 /* From Lua 5.2. */
-#define luaL_newlibtable(L, l) \
+#define luaL_newlibtable(L, l) lua_createtable(L, 0, sizeof(l) / sizeof((l)[0]) - 1)
-	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,8 +108,6 @@ LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname);
 ** =======================================================
 */
 
-
-
 typedef struct luaL_Buffer {
   char* p; /* current position in buffer */
   int lvl; /* number of strings in the stack (level) */
@@ -140,8 +116,7 @@ typedef struct luaL_Buffer {
 } luaL_Buffer;
 
 #define luaL_addchar(B, c)                                                                                             \
-  ((void)((B)->p < ((B)->buffer+LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), \
+  ((void)((B)->p < ((B)->buffer + LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), (*(B)->p++ = (char)(c)))
-   (*(B)->p++ = (char)(c)))
 
 /* compatibility only */
 #define luaL_putchar(B, c) luaL_addchar(B, c)
@@ -155,7 +130,6 @@ 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);
 
-
 /* }====================================================== */
 
 #endif

inc/lua/lua.h

@@ -5,31 +5,26 @@
 ** 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
 */
@@ -38,7 +33,6 @@
 #define LUA_GLOBALSINDEX (-10002)
 #define lua_upvalueindex(i) (LUA_GLOBALSINDEX - (i))
 
-
 /* thread status */
 #define LUA_OK 0
 #define LUA_YIELD 1
@@ -47,12 +41,10 @@
 #define LUA_ERRMEM 4
 #define LUA_ERRERR 5
 
-
 typedef struct lua_State lua_State;
 
 typedef int (*lua_CFunction)(lua_State* L);
 
-
 /*
 ** functions that read/write blocks when loading/dumping Lua chunks
 */
@@ -60,13 +52,11 @@ 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);
 
-
 /*
 ** 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,16 +82,12 @@ 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
 */
@@ -114,7 +97,6 @@ LUA_API lua_State *(lua_newthread) (lua_State *L);
 
 LUA_API lua_CFunction(lua_atpanic)(lua_State* L, lua_CFunction panicf);
 
-
 /*
 ** basic stack manipulation
 */
@@ -128,7 +110,6 @@ 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)
 */
@@ -154,7 +135,6 @@ 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)
 */
@@ -163,15 +143,13 @@ 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,
+LUA_API const char*(lua_pushvfstring)(lua_State * L, const char* fmt, va_list argp);
-                                                      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)
 */
@@ -184,7 +162,6 @@ 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)
 */
@@ -195,19 +172,16 @@ 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,
+LUA_API int(lua_load)(lua_State* L, lua_Reader reader, void* dt, const char* chunkname);
-                                        const char *chunkname);
 
 LUA_API int(lua_dump)(lua_State* L, lua_Writer writer, void* data);
 
-
 /*
 ** coroutine functions
 */
@@ -231,7 +205,6 @@ LUA_API int  (lua_status) (lua_State *L);
 
 LUA_API int(lua_gc)(lua_State* L, int what, int data);
 
-
 /*
 ** miscellaneous functions
 */
@@ -245,8 +218,6 @@ 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);
 
-
-
 /*
 ** ===============================================================
 ** some useful macros
@@ -272,16 +243,13 @@ LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
 #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)	\
+#define lua_pushliteral(L, s) lua_pushlstring(L, "" s, (sizeof(s) / sizeof(char)) - 1)
-	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,18 +263,15 @@ 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);
 
-
 /*
 ** {======================================================================
 ** Debug API
 ** =======================================================================
 */
 
-
 /*
 ** 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,11 +291,9 @@ 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);
 
-
 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);
@@ -346,8 +308,7 @@ 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,
+LUA_API int lua_loadx(lua_State* L, lua_Reader reader, void* dt, const char* chunkname, const char* mode);
-		       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);
@@ -356,7 +317,6 @@ 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);
 
-
 struct lua_Debug {
   int event;
   const char* name;           /* (n) */
@@ -374,7 +334,6 @@ struct lua_Debug {
 
 /* }====================================================================== */
 
-
 /******************************************************************************
  * Copyright (C) 1994-2008 Lua.org, PUC-Rio.  All rights reserved.
  *
@@ -398,5 +357,4 @@ struct lua_Debug {
  * 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 \
+#define LUA_PATH_DEFAULT ".\\?.lua;" LUA_LDIR "?.lua;" LUA_LDIR "?\\init.lua;"
-  ".\\?.lua;" LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;"
+#define LUA_CPATH_DEFAULT ".\\?.dll;" LUA_CDIR "?.dll;" LUA_CDIR "loadall.dll"
-#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 \
+#define LUA_PATH_CONFIG LUA_DIRSEP "\n" LUA_PATHSEP "\n" LUA_PATH_MARK "\n" LUA_EXECDIR "\n" LUA_IGMARK "\n"
-  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

@@ -65,13 +65,10 @@ enum {
 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,
+typedef void (*luaJIT_profile_callback)(void* data, lua_State* L, int samples, int vmstate);
-					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_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,
+LUA_API const char* luaJIT_profile_dumpstack(lua_State* L, const char* fmt, int depth, size_t* len);
-					     int depth, size_t *len);
 
 /* Enforce (dynamic) linker error for version mismatches. Call from main. */
 LUA_API void LUAJIT_VERSION_SYM(void);

inc/tsfuncs/BlFuncs.cpp

@@ -2,15 +2,18 @@
 //////////////////////////////////////////////////
 // BlFuncs Version 1.0
 
-
 // Includes
-
+#ifndef WIN32_LEAN_AND_MEAN
-#include "BlHooks.hpp"
+#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;
@@ -33,7 +36,6 @@ BlFunctionDefIntern(tsf_BlSimObject__getDataField    );
 BlFunctionDefIntern(tsf_BlSimObject__setDataField);
 BlFunctionDefIntern(tsf_BlCon__getReturnBuffer);
 
-
 // C->TS Args
 
 char* tsf_GetIntArg(signed int value) {
@@ -41,21 +43,21 @@ 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;
   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
 
@@ -74,24 +76,23 @@ 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;
+  if (!obj)
+    return 0;
 
   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) {
+ADDR tsf_FindObject(const char* name) { return (ADDR)tsf_BlSim__findObject_name(name); }
-	return (ADDR)tsf_BlSim__findObject_name(name);
-}
 
 ADDR tsf_LookupNamespace(const char* ns, const char* package) {
   const char* ste_package;
@@ -108,10 +109,8 @@ ADDR tsf_LookupNamespace(const char* ns, const char* package) {
     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
 
@@ -137,34 +136,32 @@ 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) {
+const char* tsf_GetVar(const char* name) { return tsf_BlCon__getVariable(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);
 }
 
-void tsf_AddVar(const char* name, const char** data) {
+void tsf_AddVar(const char* name, const char** data) { tsf_AddVarInternal(name, 10, 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, 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) {
+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);
@@ -180,50 +177,121 @@ ADDR tsf_AddConsoleFuncInternal(const char* pname, const char* cname, const char
   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) {
+
+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) {
+
+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) {
+
+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) {
+
+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(
-	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"                 );
+      tsf_BlNamespace__find,
-	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"                    );
+      "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 83 EC 0C 53 56 57 A1 ? ? ? ? "
-	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"                             );
+      "33 C5 50 8D 45 F4 64 A3 ? ? ? ? 8B DA 8B D1");
-	BlScanFunctionText(tsf_BlCon__executef              , "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 53 55 56 8B B4 24 ? ? ? ? 33 C9"                                                  );
+  BlScanFunctionText(
-	BlScanFunctionText(tsf_BlCon__executefSimObj        , "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 53 56 8B B4 24 ? ? ? ? 33 C9"                                                     );
+      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_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_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(
-	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");
+      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_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() {
+bool tsf_DeinitInternal() { return true; }
-	return true;
-}

inc/tsfuncs/BlFuncs.hpp

@@ -5,10 +5,10 @@
 #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"
+#include "BlHooks.hpp"
-#else
+#endif
 
 typedef const char* (*tsf_StringCallback)(ADDR, signed int, const char*[]);
 typedef signed int (*tsf_IntCallback)(ADDR, signed int, const char*[]);
@@ -71,7 +71,6 @@ BlFunctionDefExtern(const char *, __thiscall, tsf_BlSimObject__getDataField, ADD
 BlFunctionDefExtern(void, __thiscall, tsf_BlSimObject__setDataField, ADDR, const char*, const char*, const char*);
 BlFunctionDefExtern(char*, __fastcall, tsf_BlCon__getReturnBuffer, unsigned int);
 
-
 // Function short names
 
 #define BlEval tsf_Eval
@@ -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 __22ND_ARGUMENT(                                                                                               \
-#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)
+    a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, ...)          \
-#define BlCall(...) \
+  a22
-	tsf_BlCon__executef(__NUM_LIST(__VA_ARGS__), __VA_ARGS__)
+#define __NUM_LIST(...)                                                                                                \
-#define BlCallObj(obj, ...) \
+  __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)
-	tsf_BlCon__executefSimObj((ADDR*)obj, __NUM_LIST(__VA_ARGS__), __VA_ARGS__)
+#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 BlFuncsInit()                                                                                                  \
+  if (!tsf_InitInternal()) {                                                                                           \
+    return false;                                                                                                      \
+  }
+#define BlFuncsDeinit()                                                                                                \
+  if (!tsf_DeinitInternal()) {                                                                                         \
+    return false;                                                                                                      \
+  }
 
 #endif
-#endif

inc/tsfuncs/BlHooks.cpp

@@ -2,21 +2,22 @@
 //////////////////////////////////////////////////
 // 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 "BlHooks.hpp"
 
-
 // Scanned structures
 
 BlFunctionDefIntern(tsh_BlPrintf);
 
-
 // Sig Scanning
 
 ADDR ImageBase;
@@ -87,7 +88,6 @@ void tsh_i_PatternTextToCode(char* text, char** opatt, char** omask) {
   *omask = mask;
 }
 
-
 // Public functions for sig scanning
 
 // Scan using code-style pattern
@@ -109,7 +109,6 @@ ADDR tsh_ScanText(char* text) {
   return res;
 }
 
-
 // Call Patching and Hooking
 
 // Remove protection from address
@@ -127,21 +126,13 @@ void tsh_PatchBytes(ADDR length, ADDR location, BYTE* repl) {
   memcpy((void*)location, (void*)repl, (size_t)length);
 }
 
-void tsh_PatchByte(ADDR location, BYTE value) {
+void tsh_PatchByte(ADDR location, BYTE value) { tsh_PatchBytes(location, 1, &value); }
-	tsh_PatchBytes(location, 1, &value);
-}
 
-void tsh_ReplaceInt(ADDR addr, int rval) {
+void tsh_ReplaceInt(ADDR addr, int rval) { tsh_PatchBytes(4, addr, (BYTE*)(&rval)); }
-	tsh_PatchBytes(4, addr, (BYTE*)(&rval));
-}
 
-int tsh_i_CallOffset(ADDR instr, ADDR func) {
+int tsh_i_CallOffset(ADDR instr, ADDR func) { return func - (instr + 4); }
-	return func - (instr+4);
-}
 
-void tsh_i_ReplaceCall(ADDR instr, ADDR target) {
+void tsh_i_ReplaceCall(ADDR instr, ADDR target) { tsh_ReplaceInt(instr, tsh_i_CallOffset(instr, 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++) {
@@ -165,7 +156,8 @@ int tsh_PatchAllMatchesCode(ADDR len, char* patt, char* mask, char* replace, boo
   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);
+      if (debugprint)
+        BlPrintf("RedoBlHooks: Patching call at %08x", i);
 
       numpatched++;
       tsh_DeprotectAddress(i, len);
@@ -190,7 +182,6 @@ int tsh_PatchAllMatchesHex(ADDR len, char* text, char* replace, bool debugprint)
   return res;
 }
 
-
 // Initialization
 
 bool tsh_InitInternal() {
@@ -201,7 +192,4 @@ bool tsh_InitInternal(){
   return true;
 }
 
-bool tsh_DeinitInternal() {
+bool tsh_DeinitInternal() { return true; }
-	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,7 +23,6 @@ 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
@@ -34,29 +31,31 @@ void tsh_PatchInt(ADDR, int);
 #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__);                                                        \
   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__);                                                        \
   extern tsh_##name##FnT name;
-// Use in code for shared function defs when a BlFunctionDefExtern exists in header
+// Use in code for shared function defs when a BlFunctionDefExtern exists in
-#define BlFunctionDefIntern(name) \
+// header
-	tsh_##name##FnT name;
+#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 "!");                                                       \
     return false;                                                                                                      \
   } else {                                                                                                             \
-		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found function "#target" at %08x", (int)target); \
+    if (tsh_DEBUGPRINT)                                                                                                \
+      BlPrintf("RedoBlHooks | Found function " #target " at %08x", (int)target);                                       \
   }
 #define BlScanFunctionText(target, text)                                                                               \
   target = (tsh_##target##FnT)tsh_ScanText((char*)text);                                                               \
@@ -64,7 +63,8 @@ void tsh_PatchInt(ADDR, int);
     BlPrintf("RedoBlHooks | Cannot find function " #target "!");                                                       \
     return false;                                                                                                      \
   } else {                                                                                                             \
-		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found function "#target" at %08x", (int)target); \
+    if (tsh_DEBUGPRINT)                                                                                                \
+      BlPrintf("RedoBlHooks | Found function " #target " at %08x", (int)target);                                       \
   }
 #define BlScanCode(target, patt, mask)                                                                                 \
   target = tsh_ScanCode((char*)patt, (char*)mask);                                                                     \
@@ -72,7 +72,8 @@ void tsh_PatchInt(ADDR, int);
     BlPrintf("RedoBlHooks | Cannot find pattern " #target "!");                                                        \
     return false;                                                                                                      \
   } else {                                                                                                             \
-		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found "#target" at %08x", (int)target); \
+    if (tsh_DEBUGPRINT)                                                                                                \
+      BlPrintf("RedoBlHooks | Found " #target " at %08x", (int)target);                                                \
   }
 #define BlScanText(target, text)                                                                                       \
   target = tsh_ScanText((char*)text);                                                                                  \
@@ -80,7 +81,8 @@ void tsh_PatchInt(ADDR, int);
     BlPrintf("RedoBlHooks | Cannot find " #target "!");                                                                \
     return false;                                                                                                      \
   } else {                                                                                                             \
-		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found "#target" at %08x", (int)target); \
+    if (tsh_DEBUGPRINT)                                                                                                \
+      BlPrintf("RedoBlHooks | Found " #target " at %08x", (int)target);                                                \
   }
 
 // Use in code to define the data and functions for hooking a function
@@ -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) \
+#define BlPatchByte(addr, byte) tsh_PatchByte((ADDR)addr, (BYTE)byte);
-	tsh_PatchByte((ADDR)addr, (BYTE)byte);
 // Deprotect and replace a byte string
-#define BlPatchBytes(len, addr, repl) \
+#define BlPatchBytes(len, addr, repl) tsh_PatchBytes((ADDR)len, (ADDR)addr, (BYTE*)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

make.bat

@@ -0,0 +1,27 @@
+@echo off
+cd /d %~dp0
+
+REM Ensure MinGW32 toolchain is first in PATH (matches compile.bat)
+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

src/bllua4.cpp

@@ -2,12 +2,15 @@
 
 // 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"
@@ -62,7 +65,8 @@ bool init() {
 #endif
 
   // Expose Lua API to TS
-	BlAddFunction(NULL, NULL, "_bllua_luacall", bll_ts_luacall, "LuaCall(name, ...) - Call Lua function and return result", 2, 20);
+  BlAddFunction(
+      NULL, NULL, "_bllua_luacall", bll_ts_luacall, "LuaCall(name, ...) - Call Lua function and return result", 2, 20);
   BlEval(bll_fileTsEnv);
 
   // Load utilities
@@ -100,8 +104,11 @@ bool deinit() {
 
 bool __stdcall DllMain(HINSTANCE hinstance, DWORD reason, void* reserved) {
   switch (reason) {
-		case DLL_PROCESS_ATTACH: return init();
+  case DLL_PROCESS_ATTACH:
-		case DLL_PROCESS_DETACH: return deinit();
+    return init();
-		default                : return true;
+  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
@@ -104,6 +106,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)
@@ -128,6 +131,7 @@ function _bllua_requiresecure(name)
     return old_require(name)
   end
 end
+
 package = {
   seeall = old_package.seeall,
 }

src/luainterp.cpp

@@ -1,5 +1,11 @@
 
 // Handle errors with a Lua function, defined in lua-env.lua
+#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)) {
@@ -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;
@@ -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)) {
     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 (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

@@ -3,14 +3,24 @@
 // 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) {
     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++) {
@@ -23,52 +33,174 @@ int bll_TsCall(lua_State* L, const char* oname, const char* fname, int argc, int
   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 0:
-			case  1: res = BlCallObj(obj, fname); break;
+      res = BlCallObj(obj, fname);
-			case  2: res = BlCallObj(obj, fname, argv[0]); break;
+      break; // no idea why this happens sometimes, it shouldnt be possible
-			case  3: res = BlCallObj(obj, fname, argv[0], argv[1]); break;
+    case 1:
-			case  4: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2]); break;
+      res = BlCallObj(obj, fname);
-			case  5: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3]); break;
+      break;
-			case  6: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4]); break;
+    case 2:
-			case  7: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); break;
+      res = BlCallObj(obj, fname, argv[0]);
-			case  8: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]); break;
+      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 3:
-			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;
+      res = BlCallObj(obj, fname, argv[0], argv[1]);
-			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;
+      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 4:
-			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;
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2]);
-			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;
+      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 5:
-			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;
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3]);
-			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;
+      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 6:
-			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;
+      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4]);
-			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;
+      break;
-			default: res = ""; luaL_error(L, "Lua->TS object call: Too many arguments (Max is 19)");
+    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 0:
-			case  1: res = BlCall(fname, argv[0]); break;
+      res = BlCall(fname);
-			case  2: res = BlCall(fname, argv[0], argv[1]); break;
+      break;
-			case  3: res = BlCall(fname, argv[0], argv[1], argv[2]); break;
+    case 1:
-			case  4: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3]); break;
+      res = BlCall(fname, argv[0]);
-			case  5: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4]); break;
+      break;
-			case  6: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); break;
+    case 2:
-			case  7: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]); break;
+      res = BlCall(fname, argv[0], argv[1]);
-			case  8: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]); break;
+      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 3:
-			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;
+      res = BlCall(fname, argv[0], argv[1], argv[2]);
-			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;
+      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 4:
-			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;
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3]);
-			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;
+      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 5:
-			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;
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4]);
-			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;
+      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 6:
-			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;
+      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
-			default: res = ""; luaL_error(L, "Lua->TS call: Too many arguments (Max is 19)");
+      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");
+  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");
+  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    },
+    {"call", bll_lua_tscall},         {"callobj", bll_lua_tscallobj},
-	{"callobj" , bll_lua_tscallobj },
+    {"getvar", bll_lua_tsgetvar},     {"getfield", bll_lua_tsgetfield},
-	{"getvar"  , bll_lua_tsgetvar  },
+    {"setfield", bll_lua_tssetfield}, {"eval", bll_lua_tseval},
-	{"getfield", bll_lua_tsgetfield},
+    {"echo", bll_lua_tsecho},         {NULL, NULL},
-	{"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,5 +1,10 @@
 
-// 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++) {
@@ -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/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,7 +6,10 @@ ts = _bllua_ts
 
 -- Provide limited OS functions
 os = os or {}
+---@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
@@ -82,7 +84,9 @@ 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 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'
 }
@@ -98,7 +102,8 @@ local function io_open_absolute(fn, mode)
   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
+    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 +111,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
 
@@ -126,13 +132,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
   return fi:lines()
 end
+
+---@diagnostic disable-next-line: duplicate-set-field
 function io.type(f)
+---@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)
@@ -198,7 +210,8 @@ local function isValidCode(code)
 end
 function _bllua_smarteval(code)
   if (not code:find('^print%(')) and isValidCode('print(' .. code .. ')') then
-		code = 'print('..code..')' end
+    code = 'print(' .. code .. ')'
+  end
   local f, e = loadstring(code)
   if f then
     return f()

src/util/matrix.lua

@@ -1,4 +1,3 @@
-
 -- todo
 -- Matrix class with math operators
 

src/util/std.lua

@@ -1,4 +1,3 @@
-
 -- Basic functionality that should be standard in Lua
 
 
@@ -7,6 +6,7 @@
 function table.empty(t)
   return next(t) ~= nil
 end
+
 -- Apply a function to each key in a table
 function table.map(f, ...)
   local ts = { ... }
@@ -18,6 +18,7 @@ function table.map(f, ...)
   end
   return u
 end
+
 function table.map_list(f, ...)
   local ts = { ... }
   local u = {}
@@ -28,18 +29,21 @@ function table.map_list(f, ...)
   end
   return u
 end
+
 -- Swap keys/values
 function table.swap(t)
   local u = {}
   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
   return m
 end
+
 -- Whether a table is a list/array (has only monotonic integer keys)
 function table.islist(t)
   local n = 0
@@ -49,6 +53,7 @@ function table.islist(t)
   end
   return n == #t
 end
+
 -- Append contents of other tables to first table
 function table.append(t, ...)
   local a = { ... }
@@ -57,6 +62,7 @@ function table.append(t, ...)
   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
@@ -68,6 +74,7 @@ function table.join(...)
   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
@@ -75,29 +82,34 @@ function table.contains(t,s)
   end
   return false
 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
   return u
 end
+
 function table.copy_list(l)
   local m = {}
   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 = {}
@@ -106,6 +118,7 @@ function table.removevalue(t, r)
   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
@@ -113,6 +126,7 @@ function table.removevalue_list(t, r)
     end
   end
 end
+
 -- Export tables into formatted executable strings
 local function tabs(tabLevel)
   return ('  '):rep(tabLevel)
@@ -186,7 +200,6 @@ function table.tostring(t)
   return tableToString(t, 0, {})
 end
 
-
 -- String
 
 -- Split string into table by separator
@@ -194,7 +207,8 @@ end
 -- 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
+    error('string.split: argument #1: expected string, got ' .. type(str), 2)
+  end
   if sep == nil or sep == '' then
     local t = {}
     local ns = #str
@@ -220,6 +234,7 @@ function string.split(str, sep, noregex)
       '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 = {}
@@ -229,11 +244,13 @@ function string.bytes(s)
   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 .. ']+$', '') .. ''
 end
+
 -- String slicing and searching using [] operator
 local str_meta = getmetatable('')
 local str_meta_index_old = str_meta.__index
@@ -249,15 +266,20 @@ function str_meta.__index(s,k)
     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)
+    if i <= #s then
-		else return nil end
+      return s:sub(i, i)
+    else
+      return nil
     end
   end
+end
+
 -- Escape sequences
 local defaultEscapes = {
   ['\\'] = '\\\\',
@@ -277,6 +299,7 @@ function string.escape(s, escapes)
   end
   return table.concat(t)
 end
+
 local defaultEscapeChar = '\\'
 local defaultUnescapes = {
   ['\\'] = '\\',
@@ -307,7 +330,6 @@ function string.unescape(s, escapeChar, unescapes)
   return table.concat(t)
 end
 
-
 -- IO
 
 io = io or {}
@@ -319,6 +341,7 @@ function io.readall(filename)
   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')
@@ -328,23 +351,26 @@ function io.writeall(filename, data)
   return true, nil
 end
 
-
 -- Math
 
 -- Round
 function math.round(x)
   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
+  if m == 0 or math.abs(m) < 1e-15 or math.abs(m - b) < 1e-15 then
-	else return m end
+    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,18 +1,19 @@
-
 -- 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
+      .. ': 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
+      .. #v1 .. ' and ' .. #v2 .. ')', 3)
+  end
   return #v1
 end
 local function vector_checklen(v1, v2, name, len)
@@ -20,7 +21,8 @@ local function vector_checklen(v1, v2, name, len)
   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
+      .. #v1 .. ' and ' .. #v2 .. ')', 3)
+  end
 end
 local function vector_opnnn(name, op)
   return function(v1, v2)
@@ -69,15 +71,21 @@ 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)
+    if tonumber(k) then
-		elseif vector_indices[k] then return rawget(t, vector_indices[k])
+      return rawget(t, k)
-		else return getmetatable(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)
+    if tonumber(k) then
-		elseif vector_indices[k] then rawset(t, vector_indices[k], v)
+      rawset(t, k, v)
-		else return
+    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),
@@ -115,8 +123,11 @@ local vector_meta = {
     local len = #v1
     local v3 = {}
     for i = 1, len do
-			if length==0 then v3[i] = 0
+      if length == 0 then
-			else v3[i] = v1[i]/length end
+        v3[i] = 0
+      else
+        v3[i] = v1[i] / length
+      end
     end
     return vector_new(v3)
   end,
@@ -152,20 +163,28 @@ local vector_meta = {
   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
+      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] }
+    if r == 0 then
-		elseif r==1 then v2 = vector_new{  v1[2], -v1[1], v1[3] }
+      v2 = vector_new { v1[1], v1[2], v1[3] }
-		elseif r==2 then v2 = vector_new{ -v1[1], -v1[2], v1[3] }
+    elseif r == 1 then
-		elseif r==3 then v2 = vector_new{ -v1[2],  v1[1], v1[3] }
+      v2 = vector_new { v1[2], -v1[1], v1[3] }
-		else error('vector rotateByAngleId: invalid rotation '..r, 2) end
+    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
+      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 }