fix table.empty, from auios

.clang-format

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

@@ -1,9 +0,0 @@
-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/
+.*
-.cache/
+!.gitignore

.vscode/settings.json

@@ -1,11 +0,0 @@
-{
-  "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

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

@@ -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

compiling.md

@@ -1,52 +0,0 @@
-## 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,14 +4,17 @@
 ** 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)
 
@@ -20,19 +23,24 @@ typedef struct luaL_Reg {
   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_openlib) (lua_State *L, const char *libname,
-LUALIB_API void(luaL_register)(lua_State* L, const char* libname, const luaL_Reg* l);
+                                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_checklstring) (lua_State *L, int numArg,
-LUALIB_API const char*(luaL_optlstring)(lua_State * L, int numArg, const char* def, 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 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_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);
@@ -44,7 +52,8 @@ 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, 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)
@@ -54,33 +63,43 @@ 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_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 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_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);
 
 /* 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_loadfilex) (lua_State *L, const char *filename,
-LUALIB_API int(luaL_loadbufferx)(lua_State* L, const char* buff, size_t sz, const char* name, const char* mode);
+				 const char *mode);
-LUALIB_API void luaL_traceback(lua_State* L, lua_State* L1, const char* msg, int level);
+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_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);
 
+
 /*
 ** ===============================================================
 ** some useful macros
 ** ===============================================================
 */
 
-#define luaL_argcheck(L, cond, numarg, extramsg) ((void)((cond) || luaL_argerror(L, (numarg), (extramsg))))
+#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)))
@@ -90,16 +109,19 @@ 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) (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_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))
 
 /*
@@ -108,6 +130,8 @@ 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) */
@@ -116,7 +140,8 @@ typedef struct luaL_Buffer {
 } luaL_Buffer;
 
 #define luaL_addchar(B,c) \
-  ((void)((B)->p < ((B)->buffer + LUAL_BUFFERSIZE) || luaL_prepbuffer(B)), (*(B)->p++ = (char)(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)
@@ -130,6 +155,7 @@ 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,26 +5,31 @@
 ** 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
 */
@@ -33,6 +38,7 @@
 #define LUA_GLOBALSINDEX	(-10002)
 #define lua_upvalueindex(i)	(LUA_GLOBALSINDEX-(i))
 
+
 /* thread status */
 #define LUA_OK		0
 #define LUA_YIELD	1
@@ -41,10 +47,12 @@
 #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
 */
@@ -52,11 +60,13 @@ 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
 */
@@ -72,9 +82,12 @@ 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
 */
@@ -82,12 +95,16 @@ 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
 */
@@ -97,6 +114,7 @@ LUA_API lua_State*(lua_newthread)(lua_State * L);
 
 LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf);
 
+
 /*
 ** basic stack manipulation
 */
@@ -110,6 +128,7 @@ 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)
 */
@@ -135,6 +154,7 @@ 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)
 */
@@ -143,13 +163,15 @@ 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_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)
 */
@@ -162,6 +184,7 @@ 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)
 */
@@ -172,16 +195,19 @@ 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_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
 */
@@ -205,6 +231,7 @@ LUA_API int(lua_status)(lua_State* L);
 
 LUA_API int (lua_gc) (lua_State *L, int what, int data);
 
+
 /*
 ** miscellaneous functions
 */
@@ -218,6 +245,8 @@ 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
@@ -243,13 +272,16 @@ 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) lua_pushlstring(L, "" s, (sizeof(s) / sizeof(char)) - 1)
+#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
 */
@@ -263,15 +295,18 @@ 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
 */
@@ -281,6 +316,7 @@ LUA_API void lua_setlevel(lua_State* from, lua_State* to);
 #define LUA_HOOKCOUNT	3
 #define LUA_HOOKTAILRET 4
 
+
 /*
 ** Event masks
 */
@@ -291,9 +327,11 @@ 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);
@@ -308,7 +346,8 @@ 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 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);
@@ -317,6 +356,7 @@ 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) */
@@ -334,6 +374,7 @@ struct lua_Debug {
 
 /* }====================================================================== */
 
+
 /******************************************************************************
 * Copyright (C) 1994-2008 Lua.org, PUC-Rio.  All rights reserved.
 *
@@ -357,4 +398,5 @@ struct lua_Debug {
 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 ******************************************************************************/
 
+
 #endif

inc/lua/lua.hpp

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

inc/lua/luaconf.h

@@ -9,7 +9,6 @@
 #ifndef WINVER
 #define WINVER 0x0501
 #endif
-
 #include <limits.h>
 #include <stddef.h>
 
@@ -21,8 +20,10 @@
 */
 #define LUA_LDIR	"!\\lua\\"
 #define LUA_CDIR	"!\\"
-#define LUA_PATH_DEFAULT ".\\?.lua;" LUA_LDIR "?.lua;" LUA_LDIR "?\\init.lua;"
+#define LUA_PATH_DEFAULT \
-#define LUA_CPATH_DEFAULT ".\\?.dll;" LUA_CDIR "?.dll;" LUA_CDIR "loadall.dll"
+  ".\\?.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!
@@ -76,7 +77,9 @@
 #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 "'"
@@ -141,16 +144,9 @@
 #define lua_assert(x)		assert(x)
 #endif
 #ifdef LUA_USE_APICHECK
-#define luai_apicheck(L, o)                                                                                            \
+#define luai_apicheck(L, o)	{ (void)L; assert(o); }
-  {                                                                                                                    \
-    (void)L;                                                                                                           \
-    assert(o);                                                                                                         \
-  }
 #else
-#define luai_apicheck(L, o)                                                                                            \
+#define luai_apicheck(L, o)	{ (void)L; }
-  {                                                                                                                    \
-    (void)L;                                                                                                           \
-  }
 #endif
 
 #endif

inc/lua/luajit.h

@@ -65,10 +65,13 @@ 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, int samples, int vmstate);
+typedef void (*luaJIT_profile_callback)(void *data, lua_State *L,
-LUA_API void luaJIT_profile_start(lua_State* L, const char* mode, luaJIT_profile_callback cb, void* data);
+					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);
+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/tsfuncs/BlFuncs.cpp

@@ -2,18 +2,15 @@
 //////////////////////////////////////////////////
 // BlFuncs Version 1.0
 
-// Includes
-#ifndef WIN32_LEAN_AND_MEAN
-#define WIN32_LEAN_AND_MEAN
-#endif
-#include "BlFuncs.hpp"
-#include <Windows.h>
-#include "BlHooks.hpp"
 
-#include <cstdarg>
+// Includes
-#include <cstring>
+
+#include "BlHooks.hpp"
+#include "BlFuncs.hpp"
+
 #include <stdio.h>
 
+
 // Scanned structures
 
 ADDR tsf_mCacheSequence;
@@ -36,6 +33,7 @@ BlFunctionDefIntern(tsf_BlSimObject__getDataField);
 BlFunctionDefIntern(tsf_BlSimObject__setDataField    );
 BlFunctionDefIntern(tsf_BlCon__getReturnBuffer       );
 
+
 // C->TS Args
 
 char* tsf_GetIntArg(signed int value) {
@@ -43,21 +41,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
 
@@ -76,23 +74,24 @@ 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)
+	if(!obj) return 0;
-    return 0;
 	
 	while(obj && *(unsigned int *)(obj + 32) != id) {
 		obj = *(ADDR*)(obj + 16);
-    if (!obj)
+		if(!obj) return 0;
-      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;
@@ -109,8 +108,10 @@ 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
 
@@ -136,32 +137,34 @@ 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);
 }
 
-void tsf_AddVar(const char* name, const char** data) { tsf_AddVarInternal(name, 10, 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, 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(
+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* 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);
@@ -177,121 +180,50 @@ ADDR tsf_AddConsoleFuncInternal(
 	return ent;
 }
 
-void tsf_AddConsoleFunc(
+void tsf_AddConsoleFunc(const char* pname, const char* cname, const char* fname, tsf_StringCallback sc, const char* usage, signed int mina, signed int maxa) {
-    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(
+	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"              );
-      tsf_BlNamespace__find,
+	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"                 );
-      "55 8B EC 6A FF 68 ? ? ? ? 64 A1 ? ? ? ? 50 83 EC 0C 53 56 57 A1 ? ? ? ? "
+	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"                    );
-      "33 C5 50 8D 45 F4 64 A3 ? ? ? ? 8B DA 8B D1");
+	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(
+	BlScanFunctionText(tsf_BlCon__executef              , "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 53 55 56 8B B4 24 ? ? ? ? 33 C9"                                                  );
-      tsf_BlNamespace__createLocalEntry,
+	BlScanFunctionText(tsf_BlCon__executefSimObj        , "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 53 56 8B B4 24 ? ? ? ? 33 C9"                                                     );
-      "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(
+	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"                               );
-      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(
+	BlScanFunctionText(tsf_BlSimObject__setDataField    , "81 EC ? ? ? ? A1 ? ? ? ? 33 C4 89 84 24 ? ? ? ? 8B 84 24 ? ? ? ? 53 8B D9 89 44 24 04"                                            );
-      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(
+	ADDR BlScanText   (tsf_mCacheSequenceLoc            , "FF 05 ? ? ? ? B9 ? ? ? ? 8B F8 E8 ? ? ? ? 8B 44 24 1C 89 47 18 8B 44 24 14"                                                       );
-      tsf_mCacheSequenceLoc,
+	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");
-      "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(
+	ADDR BlScanText   (tsf_gEvalState_globalVarsLoc     , "B9 ? ? ? ? E8 ? ? ? ? 68 ? ? ? ? 6A 0A 68 ? ? ? ? B9 ? ? ? ? E8 ? ? ? ? E8 ? ? ? ?"                                               );
-      tsf_gEvalState_globalVarsLoc,
-      "B9 ? ? ? ? E8 ? ? ? ? 68 ? ? ? ? 6A 0A 68 ? ? ? ? B9 ? ? ? "
-      "? E8 ? ? ? ? E8 ? ? ? ?");
 	
 	tsf_mCacheSequence        = *(ADDR*)(tsf_mCacheSequenceLoc        + 2);
 	tsf_mCacheAllocator       = *(ADDR*)(tsf_mCacheAllocatorLoc       + 2);
@@ -301,4 +233,6 @@ bool tsf_InitInternal() {
 	return true;
 }
 
-bool tsf_DeinitInternal() { return true; }
+bool tsf_DeinitInternal() {
+	return true;
+}

inc/tsfuncs/BlFuncs.hpp

@@ -5,10 +5,10 @@
 #ifndef _H_BLFUNCS
 #define _H_BLFUNCS
 
-// Ensure BlHooks is available (include it if not already included)
+// Require BlHooks to be included before this header
 #ifndef _H_BLHOOKS
-#include "BlHooks.hpp"
+	#error "BlFuncs.hpp: You must include BlHooks.hpp first"
-#endif
+#else
 
 typedef const char * (*tsf_StringCallback)(ADDR, signed int, const char *[]);
 typedef signed int   (*tsf_IntCallback   )(ADDR, signed int, const char *[]);
@@ -71,6 +71,7 @@ BlFunctionDefExtern(const char*, __thiscall, tsf_BlSimObject__getDataField, ADDR
 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
@@ -93,21 +94,16 @@ BlFunctionDefExtern(char*, __fastcall, tsf_BlCon__getReturnBuffer, unsigned int)
 
 #define BlAddFunction tsf_AddConsoleFunc
 
-#define __22ND_ARGUMENT(                                                                                               \
+#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
-    a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, 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)
-  a22
+#define BlCall(...) \
-#define __NUM_LIST(...)                                                                                                \
+	tsf_BlCon__executef(__NUM_LIST(__VA_ARGS__), __VA_ARGS__)
-  __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 BlCallObj(obj, ...) \
-#define BlCall(...) tsf_BlCon__executef(__NUM_LIST(__VA_ARGS__), __VA_ARGS__)
+	tsf_BlCon__executefSimObj((ADDR*)obj, __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,22 +2,21 @@
 //////////////////////////////////////////////////
 // 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;
@@ -88,6 +87,7 @@ void tsh_i_PatternTextToCode(char* text, char** opatt, char** omask) {
 	*omask = mask;
 }
 
+
 // Public functions for sig scanning
 
 // Scan using code-style pattern
@@ -109,6 +109,7 @@ ADDR tsh_ScanText(char* text) {
 	return res;
 }
 
+
 // Call Patching and Hooking
 
 // Remove protection from address
@@ -126,13 +127,21 @@ 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++){
@@ -156,8 +165,7 @@ 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)
+			if(debugprint) BlPrintf("RedoBlHooks: Patching call at %08x", i);
-        BlPrintf("RedoBlHooks: Patching call at %08x", i);
 			
 			numpatched++;
 			tsh_DeprotectAddress(i, len);
@@ -182,6 +190,7 @@ int tsh_PatchAllMatchesHex(ADDR len, char* text, char* replace, bool debugprint)
 	return res;
 }
 
+
 // Initialization
 
 bool tsh_InitInternal(){
@@ -192,4 +201,7 @@ bool tsh_InitInternal() {
 	return true;
 }
 
-bool tsh_DeinitInternal() { return true; }
+bool tsh_DeinitInternal() {
+	return true;
+}
+

inc/tsfuncs/BlHooks.hpp

@@ -5,11 +5,13 @@
 #ifndef _H_BLHOOKS
 #define _H_BLHOOKS
 
+
 // Typedefs
 
 typedef unsigned char BYTE;
 typedef unsigned int  ADDR;
 
+
 // Prototypes
 
 bool tsh_InitInternal();
@@ -23,6 +25,7 @@ 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
@@ -31,31 +34,29 @@ 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
+// Use in header for shared function defs when a BlFunctionDefIntern exists in code
-// 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
+// Use in code for shared function defs when a BlFunctionDefExtern exists in header
-// header
+#define BlFunctionDefIntern(name) \
-#define BlFunctionDefIntern(name) tsh_##name##FnT name;
+	tsh_##name##FnT name;
 
-// Scan for and assign the pattern to the variable, or err and return if not
+// Scan for and assign the pattern to the variable, or err and return if not found
-// 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)                                                                                                \
+		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found function "#target" at %08x", (int)target); \
-      BlPrintf("RedoBlHooks | Found function " #target " at %08x", (int)target);                                       \
 	}
 #define BlScanFunctionText(target, text) \
 	target = (tsh_##target##FnT)tsh_ScanText((char*)text); \
@@ -63,8 +64,7 @@ void tsh_PatchInt(ADDR, int);
 		BlPrintf("RedoBlHooks | Cannot find function "#target"!"); \
 		return false; \
 	}else{ \
-    if (tsh_DEBUGPRINT)                                                                                                \
+		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found function "#target" at %08x", (int)target); \
-      BlPrintf("RedoBlHooks | Found function " #target " at %08x", (int)target);                                       \
 	}
 #define BlScanCode(target, patt, mask) \
 	target = tsh_ScanCode((char*)patt, (char*)mask); \
@@ -72,8 +72,7 @@ void tsh_PatchInt(ADDR, int);
 		BlPrintf("RedoBlHooks | Cannot find pattern "#target"!"); \
 		return false; \
 	}else{ \
-    if (tsh_DEBUGPRINT)                                                                                                \
+		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found "#target" at %08x", (int)target); \
-      BlPrintf("RedoBlHooks | Found " #target " at %08x", (int)target);                                                \
 	}
 #define BlScanText(target, text) \
 	target = tsh_ScanText((char*)text); \
@@ -81,8 +80,7 @@ void tsh_PatchInt(ADDR, int);
 		BlPrintf("RedoBlHooks | Cannot find "#target"!"); \
 		return false; \
 	}else{ \
-    if (tsh_DEBUGPRINT)                                                                                                \
+		if(tsh_DEBUGPRINT) BlPrintf("RedoBlHooks | Found "#target" at %08x", (int)target); \
-      BlPrintf("RedoBlHooks | Found " #target " at %08x", (int)target);                                                \
 	}
 
 // Use in code to define the data and functions for hooking a function
@@ -102,30 +100,23 @@ 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(...)                                                                                                  \
+#define BlPrintf(...) if(tsh_BlPrintf) { tsh_BlPrintf(__VA_ARGS__); }
-  if (tsh_BlPrintf) {                                                                                                  \
-    tsh_BlPrintf(__VA_ARGS__);                                                                                         \
-  }
 // BlHooksInit() -> bool: success
-#define BlHooksInit()                                                                                                  \
+#define BlHooksInit() if(!tsh_InitInternal()) { BlPrintf("BlHooksInit failed"); return false; }
-  if (!tsh_InitInternal()) {                                                                                           \
-    BlPrintf("BlHooksInit failed");                                                                                    \
-    return false;                                                                                                      \
-  }
 // BlHooksDeinit() -> bool: success
-#define BlHooksDeinit()                                                                                                \
+#define BlHooksDeinit() if(!tsh_DeinitInternal()) { BlPrintf("BlHooksDeinit failed"); return false; }
-  if (!tsh_DeinitInternal()) {                                                                                         \
+
-    BlPrintf("BlHooksDeinit failed");                                                                                  \
-    return false;                                                                                                      \
-  }
 
 // Scanned structures
 
 BlFunctionDefExtern(void, , tsh_BlPrintf, const char*, ...);
 
+
 #endif

make.bat

@@ -1,27 +0,0 @@
-@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,15 +2,12 @@
 
 // Includes
 
-#ifndef WIN32_LEAN_AND_MEAN
-#define WIN32_LEAN_AND_MEAN
-#endif
 #include <Windows.h>
 #include <Psapi.h>
 
-#include "BlFuncs.cpp"
-#include "BlHooks.cpp"
 #include "lua.hpp"
+#include "BlHooks.cpp"
+#include "BlFuncs.cpp"
 
 #include "luainterp.cpp"
 #include "lualibts.cpp"
@@ -77,8 +74,7 @@ bool init() {
 	BLL_LOAD_LUA(gL, bll_fileLuaLibblTypes);
 	
 	// Expose Lua API to TS
-  BlAddFunction(
+	BlAddFunction(NULL, NULL, "_bllua_luacall", bll_ts_luacall, "LuaCall(name, ...) - Call Lua function and return result", 2, 20);
-      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);
@@ -107,11 +103,8 @@ bool deinit() {
 
 bool __stdcall DllMain(HINSTANCE hinstance, DWORD reason, void* reserved) {
 	switch(reason) {
-  case DLL_PROCESS_ATTACH:
+		case DLL_PROCESS_ATTACH: return init();
-    return init();
+		case DLL_PROCESS_DETACH: return deinit();
-  case DLL_PROCESS_DETACH:
+		default                : return true;
-    return deinit();
-  default:
-    return true;
 	}
 }

src/lua-env-safe.lua

@@ -4,9 +4,7 @@
 
 
 -- Utility: Convert a list of strings into a map of string->true
-local function tmap(t)
+local function tmap(t) local u = {}; for _, n in ipairs(t) do u[n] = true end; return u; end
-  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
@@ -105,7 +103,6 @@ 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)
@@ -131,7 +128,6 @@ function _bllua_requiresecure(name)
 		return old_require(name)
 	end
 end
-
 package = {
 	seeall = old_package.seeall,
 }

src/luainterp.cpp

@@ -1,11 +1,5 @@
 
 // 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)) {
@@ -21,7 +15,6 @@ 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;
@@ -55,27 +48,21 @@ 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)
+			if(err) luaL_error(L, "argument to TS is too long - max length is 8192");
-        luaL_error(L, "argument to TS is too long - max length is 8192");
 			return true;
 		} else {
-#ifdef _MSC_VER
+			strcpy(buf, str);
-      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)
+		if(err) luaL_error(L, "argument to TS must be a string");
-      luaL_error(L, "argument to TS must be a string");
 		return true;
 	}
 }

src/luainterp.hpp

@@ -1,17 +0,0 @@
-// 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,24 +3,14 @@
 // 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) {
+		if(!obj) { return luaL_error(L, "Lua->TS call: Object not found"); }
-      return luaL_error(L, "Lua->TS call: Object not found");
-    }
 	}
 	
-  if (argc > BLL_ARG_COUNT) {
+	if(argc > BLL_ARG_COUNT) { return luaL_error(L, "Lua->TS call: Too many arguments (Max is 19)"); }
-    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++) {
@@ -33,174 +23,52 @@ int bll_TsCall(lua_State* L, const char* oname, const char* fname, int argc, int
 	const char* res;
 	if(obj) {
 		switch(argc) {
-    case 0:
+			case  0: res = BlCallObj(obj, fname); break; // no idea why this happens sometimes, it shouldnt be possible
-      res = BlCallObj(obj, fname);
+			case  1: res = BlCallObj(obj, fname); break;
-      break; // no idea why this happens sometimes, it shouldnt be possible
+			case  2: res = BlCallObj(obj, fname, argv[0]); break;
-    case 1:
+			case  3: res = BlCallObj(obj, fname, argv[0], argv[1]); break;
-      res = BlCallObj(obj, fname);
+			case  4: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2]); break;
-      break;
+			case  5: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3]); break;
-    case 2:
+			case  6: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4]); break;
-      res = BlCallObj(obj, fname, argv[0]);
+			case  7: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); break;
-      break;
+			case  8: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]); break;
-    case 3:
+			case  9: res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]); break;
-      res = BlCallObj(obj, fname, argv[0], argv[1]);
+			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;
-      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 4:
+			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;
-      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2]);
+			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;
-      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 5:
+			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;
-      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3]);
+			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;
-      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 6:
+			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;
-      res = BlCallObj(obj, fname, argv[0], argv[1], argv[2], argv[3], argv[4]);
+			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;
-      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;
-    case 7:
+			default: res = ""; luaL_error(L, "Lua->TS object call: Too many arguments (Max is 19)");
-      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:
+			case  0: res = BlCall(fname); break;
-      res = BlCall(fname);
+			case  1: res = BlCall(fname, argv[0]); break;
-      break;
+			case  2: res = BlCall(fname, argv[0], argv[1]); break;
-    case 1:
+			case  3: res = BlCall(fname, argv[0], argv[1], argv[2]); break;
-      res = BlCall(fname, argv[0]);
+			case  4: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3]); break;
-      break;
+			case  5: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4]); break;
-    case 2:
+			case  6: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); break;
-      res = BlCall(fname, argv[0], argv[1]);
+			case  7: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]); break;
-      break;
+			case  8: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7]); break;
-    case 3:
+			case  9: res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6], argv[7], argv[8]); break;
-      res = BlCall(fname, argv[0], argv[1], argv[2]);
+			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;
-      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 4:
+			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;
-      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3]);
+			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;
-      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 5:
+			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;
-      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4]);
+			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;
-      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 6:
+			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;
-      res = BlCall(fname, argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
+			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;
-      break;
+			default: res = ""; luaL_error(L, "Lua->TS call: Too many arguments (Max is 19)");
-    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)");
 		}
 	}
 	
@@ -208,23 +76,19 @@ 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)
+	if(argc < 0) return luaL_error(L, "_bllua_ts.call: Must provide a function name");
-    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)
+	if(argc < 0) return luaL_error(L, "_bllua_ts.callobj: Must provide an object and function name");
-    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);
@@ -246,24 +110,19 @@ 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) {
+	if(!obj) { return luaL_error(L, "_bllua_ts.getfield: Object not found"); }
-    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) {
+	if(!obj) { return luaL_error(L, "_bllua_ts.setfield: Object not found"); }
-    return luaL_error(L, "_bllua_ts.setfield: Object not found");
-  }
 	
 	BlSetField(obj, vname, NULL, val);
 	return 0;
@@ -286,10 +145,15 @@ int bll_lua_tsecho(lua_State* L) {
 }
 
 const luaL_Reg bll_lua_reg[] = {
-    {"call", bll_lua_tscall},         {"callobj", bll_lua_tscallobj},
+	{"call"    , bll_lua_tscall    },
-    {"getvar", bll_lua_tsgetvar},     {"getfield", bll_lua_tsgetfield},
+	{"callobj" , bll_lua_tscallobj },
-    {"setfield", bll_lua_tssetfield}, {"eval", bll_lua_tseval},
+	{"getvar"  , bll_lua_tsgetvar  },
-    {"echo", bll_lua_tsecho},         {NULL, NULL},
+	{"getfield", bll_lua_tsgetfield},
+	{"setfield", bll_lua_tssetfield},
+	{"eval"    , bll_lua_tseval    },
+	{"echo"    , bll_lua_tsecho    },
+	{NULL, NULL},
 };
-
+void llibbl_init(lua_State* L) {
-void llibbl_init(lua_State* L) { luaL_register(L, "_bllua_ts", bll_lua_reg); }
+	luaL_register(L, "_bllua_ts", bll_lua_reg);
+}

src/tsliblua.cpp

@@ -1,10 +1,5 @@
 
-// Call a Lua function from TS, return true if success - result will be on Lua
+// Call a Lua function from TS, return true if success - result will be on Lua stack
-// 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++) {
@@ -19,12 +14,9 @@ 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)
+	if(argc<2) return "";
-    return "";
 	
-  if (!bll_LuaCall(argv[1], argc - 2, &argv[2])) {
+	if(!bll_LuaCall(argv[1], argc-2, &argv[2])) { return ""; }
-    return "";
-  }
 	
 	char* retbuf = BlReturnBuffer(BLL_ARG_MAX);
 	bll_toarg(gL, retbuf, -1, false); // provide returned value to ts

src/util/libbl.lua

@@ -24,11 +24,8 @@ local function ipairsNilable(t)
 	local i = 0
 	return function()
 		i = i+1
-    if i > maxk then
+		if i>maxk then return nil
-      return nil
+		else return i, t[i] end
-    else
-      return i, t[i]
-    end
 	end
 end
 
@@ -136,23 +133,17 @@ local function forceValFromTs(val, typ)
 end
 local function vectorFromTs(val)
 	local xS,yS,zS = val:match('^(%-?[0-9%.e]+) (%-?[0-9%.e]+) (%-?[0-9%.e]+)$')
-  if xS then
+	if xS then return vector{tonumber(xS),tonumber(yS),tonumber(zS)}
-    return vector { tonumber(xS), tonumber(yS), tonumber(zS) }
+	else return nil end
-  else
-    return nil
-  end
 end
 local function boxFromTs(val)
 	local x1S,y1S,z1S,x2S,y2S,z2S = val:match(
 		'^(%-?[0-9%.e]+) (%-?[0-9%.e]+) (%-?[0-9%.e]+) '..
 		'(%-?[0-9%.e]+) (%-?[0-9%.e]+) (%-?[0-9%.e]+)$')
-  if x1S then
+	if x1S then return {
-    return {
 		vector{tonumber(x1S),tonumber(y1S),tonumber(z1S)},
 		vector{tonumber(x2S),tonumber(y2S),tonumber(z2S)} }
-  else
+	else return nil end
-    return nil
-  end
 end
 local function multinumericFromTs(val)
 	local tsNumPat = '%-?[0-9]+%.?[0-9]*e?[0-9]*'
@@ -182,8 +173,7 @@ bl._forceType = bl._forceType or {}
 -- todo: ensure name and name2 are already lowercase
 local function valFromTs(val, name, name2)
 	if type(val)~='string' then
-    error('valFromTs: expected string, got ' .. type(val), 3)
+		error('valFromTs: expected string, got '..type(val), 3) end
-  end
 	if name then
 		name = name:lower()
 		if bl._forceType[name] then
@@ -228,18 +218,15 @@ end
 local function classFromForceTypeStr(name)
 	local class, rest = name:match('^([a-zA-Z0-9_]+)(::.+)$')
 	if not class then
-    class, rest = name:match('^([a-zA-Z0-9_]+)(%..+)$')
+		class, rest = name:match('^([a-zA-Z0-9_]+)(%..+)$') end
-  end
 	return class,rest
 end
 local setForceType
 setForceType = function(ftname, typ)
 	if typ~=nil and not fromTsForceTypes[typ] then
-    error('bl.type: invalid type \'' .. typ .. '\'', 2)
+		error('bl.type: invalid type \''..typ..'\'', 2) end
-  end
 	if not isValidFuncNameNsArgn(ftname) then
-    error('bl.type: invalid function or variable name \'' .. ftname .. '\'', 2)
+		error('bl.type: invalid function or variable name \''..ftname..'\'', 2) end
-  end
 	
 	ftname = ftname:lower()
 	
@@ -290,19 +277,15 @@ local function tsIsFunction(name) return tsBool(_bllua_ts.call('isFunction', nam
 local function tsIsFunctionNs(ns, name) return tsBool(_bllua_ts.call('isFunction', ns, name)) end
 local function tsIsFunctionNsname(nsname)
 	local ns, name = nsname:match('^([^:]+)::([^:]+)$')
-  if ns then
+	if ns then return tsIsFunctionNs(ns, name)
-    return tsIsFunctionNs(ns, name)
+	else return tsIsFunction(nsname) end
-  else
-    return tsIsFunction(nsname)
-  end
 end
 -- sanity check to make sure objects that don't isObject are always marked as ._deleted
 -- can be removed later
 local function assertTsObjectExists(obj)
 	local is = tsIsObject(obj._tsObjectId)
 	if not is then
-    print('Warning: TS object :exists or isobject from lua but no longer exists')
+		print('Warning: TS object :exists or isobject from lua but no longer exists') end
-  end
 	return is
 end
 function bl.isObject(obj)
@@ -320,7 +303,6 @@ function bl.isObject(obj)
 		error('bl.isObject: argument #1: expected torque object, number, or string', 2)
 	end
 end
-
 function bl.isFunction(name)
 	return tsIsFunctionNsname(name)
 end
@@ -335,11 +317,9 @@ local tsClassMeta = {
 bl._objectUserMetas = bl._objectUserMetas or {}
 function bl.class(cname, inhname)
 	if not ( type(cname)=='string' and isValidFuncName(cname) ) then
-    error('bl.class: argument #1: invalid class name', 2)
+		error('bl.class: argument #1: invalid class name', 2) end
-  end
 	if not ( inhname==nil or (type(inhname)=='string' and isValidFuncName(inhname)) ) then
-    error('bl.class: argument #2: inherit name must be a string or nil', 2)
+		error('bl.class: argument #2: inherit name must be a string or nil', 2) end
-  end
 	cname = cname:lower()
 	
 	local met = bl._objectUserMetas[cname] or {
@@ -354,18 +334,15 @@ function bl.class(cname, inhname)
 		inhname = inhname:lower()
 		
 		local inh = bl._objectUserMetas[inhname]
-    if not inh then
+		if not inh then error('bl.class: argument #2: \''..inhname..'\' is not the '..
-      error('bl.class: argument #2: \'' .. inhname .. '\' is not the ' ..
+			'name of an existing class', 2) end
-        'name of an existing class', 2)
-    end
 		
 		inh._children[cname] = true
 		
 		local inhI = met._inherit
 		if inhI and inhI~=inh then
 			error('bl.class: argument #2: class already exists and '..
-        'inherits a different parent.', 2)
+				'inherits a different parent.', 2) end
-    end
 		met._inherit = inh
 		
 		-- apply inherited method and field types
@@ -377,7 +354,6 @@ function bl.class(cname, inhname)
 		end
 	end
 end
-
 local function objectInheritedMetas(name)
 	local inh = bl._objectUserMetas[name:lower()]
 	return function()
@@ -392,18 +368,15 @@ local tsObjectMeta = {
 	-- Return torque member function or value
 	__index = function(t, name)
 		if rawget(t,'_deleted') then
-      error('ts object index: object no longer exists', 2)
+			error('ts object index: object no longer exists', 2) end
-    end
 		if type(name)~='string' and type(name)~='number' then
-      error('ts object index: index must be a string or number', 2)
+			error('ts object index: index must be a string or number', 2) end
-    end
 		if getmetatable(t)[name] then
 			return getmetatable(t)[name]
 		elseif type(name)=='number' then
 			if not tsIsFunctionNs(rawget(t,'_tsNamespace'), 'getObject') then
 				error('ts object __index: index is number, but object does not have '..
-          'getObject method', 2)
+					'getObject method', 2) end
-      end
 			return toTsObject(_bllua_ts.callobj(t._tsObjectId, 'getObject',
 				tostring(name)))
 		else
@@ -416,8 +389,7 @@ local tsObjectMeta = {
 			then
 				return function(t2, ...)
 					if t2==nil or type(t2)~='table' or not t2._tsObjectId then
-            error('ts object method: be sure to use :func() not .func()', 2)
+						error('ts object method: be sure to use :func() not .func()', 2) end
-          end
 					local argsS = arglistToTs({...})
 					local res =
 						_bllua_ts.callobj(t2._tsObjectId, name, unpack(argsS))
@@ -438,11 +410,9 @@ local tsObjectMeta = {
 	-- Use :set() to set Torque data
 	__newindex = function(t, name, val)
 		if rawget(t,'_deleted') then
-      error('ts object newindex: object no longer exists', 2)
+			error('ts object newindex: object no longer exists', 2) end
-    end
 		if type(name)~='string' then
-      error('ts object newindex: index must be a string', 2)
+			error('ts object newindex: index must be a string', 2) end
-    end
 		rawset(t, name, val)
 		-- create strong reference since it's now storing lua data
 		bl._objectsStrong[rawget(t,'_tsObjectId')] = t
@@ -451,14 +421,11 @@ local tsObjectMeta = {
 	-- Use to set torque data
 	set = function(t, name, val)
 		if t==nil or type(t)~='table' or not t._tsObjectId then
-      error('ts object method: be sure to use :func() not .func()', 2)
+			error('ts object method: be sure to use :func() not .func()', 2) end
-    end
 		if t._deleted then
-      error('ts object method: object no longer exists', 2)
+			error('ts object method: object no longer exists', 2) end
-    end
 		if type(name)~='string' then
-      error('ts object :set(): index must be a string', 2)
+			error('ts object :set(): index must be a string', 2) end
-    end
 		_bllua_ts.setfield(t._tsObjectId, name, valToTs(val))
 	end,
 	-- __tostring: Called when printing
@@ -472,11 +439,9 @@ local tsObjectMeta = {
 	-- If the object has a getCount method, return its count
 	__len = function(t)
 		if t._deleted then
-      error('ts object __len: object no longer exists', 2)
+			error('ts object __len: object no longer exists', 2) end
-    end
 		if not tsIsFunctionNs(t._tsNamespace, 'getCount') then
-      error('ts object __len: object has no getCount method', 2)
+			error('ts object __len: object has no getCount method', 2) end
-    end
 		return tonumber(_bllua_ts.callobj(t._tsObjectId, 'getCount'))
 	end,
 	-- object:members()
@@ -484,17 +449,14 @@ local tsObjectMeta = {
 	-- for index, object in group:members() do ... end
 	members = function(t)
 		if t==nil then
-      error('ts object method: be sure to use :func() not .func()', 2)
+			error('ts object method: be sure to use :func() not .func()', 2) end
-    end
 		if t._deleted then
-      error('ts object method: object no longer exists', 2)
+			error('ts object method: object no longer exists', 2) end
-    end
 		if not (
 			tsIsFunctionNs(t._tsNamespace, 'getCount' ) and
 			tsIsFunctionNs(t._tsNamespace, 'getObject')) then
 			error('ts object :members() - '..
-        'Object does not have getCount and getObject methods', 2)
+				'Object does not have getCount and getObject methods', 2) end
-    end
 		local count = tonumber(_bllua_ts.callobj(t._tsObjectId, 'getCount'))
 		local idx = 0
 		return function()
@@ -512,29 +474,23 @@ local tsObjectMeta = {
 	-- Wrap some Torque functions for performance and error checking
 	getName = function(t)
 		if t==nil then
-      error('ts object method: be sure to use :func() not .func()', 2)
+			error('ts object method: be sure to use :func() not .func()', 2) end
-    end
 		if t._deleted then
-      error('ts object method: object no longer exists', 2)
+			error('ts object method: object no longer exists', 2) end
-    end
 		return t._tsName
 	end,
 	getId = function(t)
 		if t==nil then
-      error('ts object method: be sure to use :func() not .func()', 2)
+			error('ts object method: be sure to use :func() not .func()', 2) end
-    end
 		if t._deleted then
-      error('ts object method: object no longer exists', 2)
+			error('ts object method: object no longer exists', 2) end
-    end
 		return tonumber(t._tsObjectId)
 	end,
 	getType = function(t)
 		if t==nil then
-      error('ts object method: be sure to use :func() not .func()', 2)
+			error('ts object method: be sure to use :func() not .func()', 2) end
-    end
 		if t._deleted then
-      error('ts object method: object no longer exists', 2)
+			error('ts object method: object no longer exists', 2) end
-    end
 		return tsTypesByNum[_bllua_ts.callobj(t._tsObjectId, 'getType')]
 	end,
 	---- Schedule method for objects
@@ -556,8 +512,7 @@ local tsObjectMeta = {
 	--end,
 	exists = function(t)
 		if t==nil then
-      error('ts object method: be sure to use :func() not .func()', 2)
+			error('ts object method: be sure to use :func() not .func()', 2) end
-    end
 		if t._deleted then
 			return false
 		else
@@ -591,15 +546,13 @@ end
 -- Return a Torque object for the object ID string, or create one if none exists
 toTsObject = function(idiS)
 	if type(idiS)~='string' then
-    error('toTsObject: input must be a string', 2)
+		error('toTsObject: input must be a string', 2) end
-  end
 	idiS = idiS:lower()
 	if bl._objectsWeak[idiS] then return bl._objectsWeak[idiS] end
 	
 	if not tsIsObject(idiS) then
 		--error('toTsObject: object \''..idiS..'\' does not exist', 2) end
-    return nil
+		return nil end
-  end
 	
 	local className = _bllua_ts.callobj(idiS, 'getClassName')
 	local obj = {
@@ -688,22 +641,18 @@ function bl.call(func, ...)
 	local argsS = arglistToTs(args)
 	return _bllua_ts.call(func, unpack(argsS))
 end
-
 function bl.eval(code)
 	local res = _bllua_ts.eval(code)
 	return valFromTs(res)
 end
-
 function bl.exec(file)
 	local res = _bllua_ts.call('exec', file)
 	return valFromTs(res)
 end
-
 function bl.array(name, ...)
 	local rest = {...}
 	return name..table.concat(rest, '_')
 end
-
 function bl.boolean(val)
 	return val~=nil and
 		val~=false and
@@ -711,7 +660,6 @@ function bl.boolean(val)
 		--val~='0' and
 		val~=0
 end
-
 function bl.object(id)
 	if type(id)=='table' and id._tsObjectId then
 		return id
@@ -721,7 +669,6 @@ function bl.object(id)
 		error('bl.object: id must be a ts object, number, or string', 2)
 	end
 end
-
 function bl.string(val)
 	return valFromTsTostring(val)
 end
@@ -732,33 +679,24 @@ luaLookup = function(tbl, name, set, val)
 	if name:find('%.') then
 		local first, rest = name:match('^([^%.:]+)%.(.+)$')
 		if not isValidFuncName(first) then
-      error('luaLookup: invalid name \'' .. tostring(first) .. '\'', 3)
+			error('luaLookup: invalid name \''..tostring(first)..'\'', 3) end
-    end
 		if tbl[first]==nil then
-      if set then
+			if set then tbl[first] = {}
-        tbl[first] = {}
+			else return nil end
-      else
-        return nil
-      end
 		end
 		return luaLookup(tbl[first], rest, set, val)
 	elseif name:find(':') then
 		local first, rest = name:match('^([^%.:]+):(.*)$')
 		if rest:find('[%.:]') then
-      error('luacall: cannot have : or . after :', 3)
+			error('luacall: cannot have : or . after :', 3) end
-    end
 		if not isValidFuncName(first) then
-      error('luacall: invalid name \'' .. tostring(first) .. '\'', 3)
+			error('luacall: invalid name \''..tostring(first)..'\'', 3) end
-    end
 		if not isValidFuncName(rest) then
-      error('luacall: invalid method name \'' .. tostring(first) .. '\'', 3)
+			error('luacall: invalid method name \''..tostring(first)..'\'', 3) end
-    end
 		if not tbl[first] then
-      error('luacall: no object named \'' .. rest .. '\'', 3)
+			error('luacall: no object named \''..rest..'\'', 3) end
-    end
 		if tbl[first][rest]==nil then
-      error('luacall: no method named \'' .. rest .. '\'', 3)
+			error('luacall: no method named \''..rest..'\'', 3) end
-    end
 		return function(...)
 			tbl[first][rest](tbl[first], ...)
 		end
@@ -775,24 +713,20 @@ function _bllua_call(fname, ...)
 	local args = arglistFromTs(fname:lower(), {...}) -- todo: separate lua from ts func names?
 	local func = luaLookup(_G, fname)
 	if not func then
-    error('luacall: no global in lua named \'' .. fname .. '\'', 2)
+		error('luacall: no global in lua named \''..fname..'\'', 2) end
-  end
 	local res = func(unpack(args))
 	return valToTs(res)
 end
-
 function _bllua_getvar(vname)
 	return valToTs(luaLookup(_G, vname))
 end
-
 function _bllua_setvar(vname, valS)
 	return valToTs(luaLookup(_G, vname, true, valFromTs(valS, vname))) -- todo: separate lua from ts var names?
 end
-
 function _bllua_eval(code) return loadstring(code)() end
-
 function _bllua_exec(fn) return dofile(fn, 2) end
 
+
 -- bl.schedule: Use TS's schedule function to schedule lua calls
 -- bl.schedule(time, function, args...)
 bl._scheduleTable  = bl._scheduleTable  or {}
@@ -819,7 +753,6 @@ function bl.schedule(time, cb, ...)
 	bl._scheduleTable[id] = sch
 	return sch
 end
-
 function _bllua_schedule_callback(idS)
 	local id = tonumber(idS) or
 		error('_bllua_schedule_callback: invalid id: '..tostring(idS))
@@ -838,11 +771,9 @@ function _bllua_process_cmd(cmdS, ...)
 	if not func then error('_bllua_process_cmd: no cmd named \''..cmd..'\'') end
 	func(unpack(args)) --pcall(func, unpack(args))
 end
-
 local function addCmd(cmd, func)
 	if not isValidFuncName(cmd) then
-    error('addCmd: invalid function name \'' .. tostring(cmd) .. '\'')
+		error('addCmd: invalid function name \''..tostring(cmd)..'\'') end
-  end
 	bl._cmds[cmd] = func
 	_bllua_ts.eval('function '..cmd..'('..tsArgsLocal..'){'..
 		'_bllua_luacall(_bllua_process_cmd,"'..cmd..'",'..tsArgsLocal..');}')
@@ -852,7 +783,6 @@ function bl.addServerCmd(name, func)
 	addCmd('servercmd'..name, func)
 	bl._forceType['servercmd'..name..':1'] = 'object'
 end
-
 function bl.addClientCmd(name, func)
 	name = name:lower()
 	addCmd('clientcmd'..name, func)
@@ -864,14 +794,12 @@ function bl.commandToServer(cmd, ...)
 		_bllua_ts.call('addTaggedString', cmd),
 		unpack(arglistToTs({...})))
 end
-
 function bl.commandToClient(client, cmd, ...)
 	_bllua_ts.call('commandToClient',
 		valToTs(client),
 		_bllua_ts.call('addTaggedString', cmd),
 		unpack(arglistToTs({...})))
 end
-
 function bl.commandToAll(cmd, ...)
 	_bllua_ts.call('commandToAll',
 		_bllua_ts.call('addTaggedString', cmd),
@@ -903,8 +831,7 @@ function _bllua_process_hook_before(pkgS, nameS, ...)
 	local func = bl._hooks[pkgS] and bl._hooks[pkgS][nameS] and
 		bl._hooks[pkgS][nameS].before
 	if not func then
-    error('_bllua_process_hook_before: no hook for ' .. pkgs .. ':' .. nameS)
+		error('_bllua_process_hook_before: no hook for '..pkgs..':'..nameS) end
-  end
 	_bllua_ts.setvar('_bllua_hook_abort', '0')
 	func(args) --pcall(func, args)
 	if args._return then
@@ -915,7 +842,6 @@ function _bllua_process_hook_before(pkgS, nameS, ...)
 		_bllua_ts.setvar('_bllua_hook_arg'..i, valToTs(args[i]))
 	end
 end
-
 function _bllua_process_hook_after(pkgS, nameS, resultS, ...)
 	nameS = nameS:lower()
 	local args = arglistFromTs(nameS, {...})
@@ -923,12 +849,10 @@ function _bllua_process_hook_after(pkgS, nameS, resultS, ...)
 	local func = bl._hooks[pkgS] and bl._hooks[pkgS][nameS] and
 		bl._hooks[pkgS][nameS].after
 	if not func then
-    error('_bllua_process_hook_after: no hook for ' .. pkgs .. ':' .. nameS)
+		error('_bllua_process_hook_after: no hook for '..pkgs..':'..nameS) end
-  end
 	func(args) --pcall(func, args)
 	return valToTs(args._return)
 end
-
 local function updateHook(pkg, name, hk)
 	local beforeCode = hk.before and
 		('_bllua_luacall("_bllua_process_hook_before","'..pkg..'","'..name..
@@ -955,17 +879,13 @@ local function updateHook(pkg, name, hk)
 end
 function bl.hook(pkg, name, time, func)
 	if not isValidFuncName(pkg) then
-    error('bl.hook: argument #1: invalid package name \'' .. tostring(pkg) .. '\'', 2)
+		error('bl.hook: argument #1: invalid package name \''..tostring(pkg)..'\'', 2) end
-  end
 	if not isValidFuncNameNs(name) then
-    error('bl.hook: argument #2: invalid function name \'' .. tostring(name) .. '\'', 2)
+		error('bl.hook: argument #2: invalid function name \''..tostring(name)..'\'', 2) end
-  end
 	if time~='before' and time~='after' then
-    error('bl.hook: argument #3: time must be \'before\' or \'after\'', 2)
+		error('bl.hook: argument #3: time must be \'before\' or \'after\'', 2) end
-  end
 	if type(func)~='function' then
-    error('bl.hook: argument #4: expected a function', 2)
+		error('bl.hook: argument #4: expected a function', 2) end
-  end
 	
 	bl._hooks[pkg]             = bl._hooks[pkg]       or {}
 	bl._hooks[pkg][name]       = bl._hooks[pkg][name] or {}
@@ -974,20 +894,16 @@ function bl.hook(pkg, name, time, func)
 	updateHook(pkg, name, bl._hooks[pkg][name])
 	activatePackage(pkg)
 end
-
 local function tableEmpty(t)
 	return next(t)~=nil
 end
 function bl.unhook(pkg, name, time)
 	if not isValidFuncName(pkg) then
-    error('bl.unhook: argument #1: invalid package name \'' .. tostring(pkg) .. '\'', 2)
+		error('bl.unhook: argument #1: invalid package name \''..tostring(pkg)..'\'', 2) end
-  end
 	if name and not isValidFuncNameNs(name) then
-    error('bl.unhook: argument #2: invalid function name \'' .. tostring(name) .. '\'', 2)
+		error('bl.unhook: argument #2: invalid function name \''..tostring(name)..'\'', 2) end
-  end
 	if time and time~='before' and time~='after' then
-    error('bl.unhook: argument #3: time must be \'before\' or \'after\'', 2)
+		error('bl.unhook: argument #3: time must be \'before\' or \'after\'', 2) end
-  end
 	
 	if not name then
 		if bl._hooks[pkg] then
@@ -1011,8 +927,7 @@ function bl.unhook(pkg, name, time)
 				updateHook(pkg, name, {})
 			else
 				if time~='before' and time~='after' then
-          error('bl.unhook: argument #3: time must be nil, \'before\', or \'after\'', 2)
+					error('bl.unhook: argument #3: time must be nil, \'before\', or \'after\'', 2) end
-        end
 				bl._hooks[pkg][name][time] = nil
 				if tableEmpty(bl._hooks[pkg][name]) then
 					bl._hooks[pkg][name] = nil
@@ -1035,16 +950,14 @@ end
 -- Container search/raycast
 local function vecToTs(v)
 	if not isTsVector(v) then
-    error('vecToTs: argument is not a vector', 3)
+		error('vecToTs: argument is not a vector', 3) end
-  end
 	return table.concat(v, ' ')
 end
 local function maskToTs(mask)
 	if type(mask)=='string' then
 		local val = tsTypesByName[mask:lower()]
 		if not val then
-      error('maskToTs: invalid mask \'' .. mask .. '\'', 3)
+			error('maskToTs: invalid mask \''..mask..'\'', 3) end
-    end
 		return tostring(val)
 	elseif type(mask)=='table' then
 		local tval = 0
@@ -1054,8 +967,7 @@ local function maskToTs(mask)
 				local val = tsTypesByName[v:lower()]
 				if not val then
 					error('maskToTs: invalid mask \''..v..
-            '\' at index ' .. i .. ' in mask list', 3)
+						'\' at index '..i..' in mask list', 3) end
-        end
 				tval = tval + val
 				seen[v] = true
 			end
@@ -1097,7 +1009,6 @@ function bl.raycast(start, stop, mask, ignores)
 		return hit, pos, norm
 	end
 end
-
 local function tsContainerSearchIterator()
 	local retS = _bllua_ts.call('containerSearchNext')
 	if retS=='0' then
@@ -1114,12 +1025,10 @@ function bl.boxSearch(pos, size, mask)
 	_bllua_ts.call('initContainerBoxSearch', posS, sizeS, maskS)
 	return tsContainerSearchIterator
 end
-
 function bl.radiusSearch(pos, radius, mask)
 	local posS = vecToTs(pos)
 	if type(radius)~='number' then
-    error('bl.radiusSearch: argument #2: radius must be a number', 2)
+		error('bl.radiusSearch: argument #2: radius must be a number', 2) end
-  end
 	local radiusS = tostring(radius)
 	local maskS = maskToTs(mask)
 	
@@ -1157,8 +1066,7 @@ local function createTsObj(keyword, class, name, inherit, props)
 	if props then
 		for k,v in pairs(props) do
 			if not isValidFuncName(k) then
-        error('bl.new/bl.datablock: invalid property name \'' .. k .. '\'')
+				error('bl.new/bl.datablock: invalid property name \''..k..'\'') end
-      end
 			table.insert(propsT, k..'="'..valToTs(v)..'";')
 		end
 	end
@@ -1169,8 +1077,7 @@ local function createTsObj(keyword, class, name, inherit, props)
 		table.concat(propsT)..'};')
 	local obj = toTsObject(objS)
 	if not obj then
-    error('bl.new/bl.datablock: failed to create object', 3)
+		error('bl.new/bl.datablock: failed to create object', 3) end
-  end
 	
 	return obj
 end
@@ -1195,15 +1102,13 @@ local function parseTsDecl(decl)
 		(inherit==nil or isValidFuncName(inherit)) ) then
 		error('bl.new/bl.datablock: invalid decl \''..decl..'\'\n'..
 			'must be of the format: \'className\', \'className name\', '..
-      '\'className :inherit\', or \'className name:inherit\'', 3)
+			'\'className :inherit\', or \'className name:inherit\'', 3) end
-  end
 	return class, name, inherit
 end
 function bl.new(decl, props)
 	local class, name, inherit = parseTsDecl(decl)
 	return createTsObj('new', class, name, inherit, props)
 end
-
 function bl.datablock(decl, props)
 	local class, name, inherit = parseTsDecl(decl)
 	if not name then error('bl.datablock: must specify a name', 2) end

src/util/libts-lua.lua

@@ -1,3 +1,4 @@
+
 -- 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.
@@ -6,10 +7,7 @@ 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
@@ -84,20 +82,15 @@ local function new_file_obj(fn)
 	return file
 end
 
-local function tflip(t)
+local function tflip(t) local u = {}; for _, n in ipairs(t) do u[n] = true end; return u; end
-  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
+	if res then return res
-    return res
+	elseif err and not err:find('No such file or directory$') then return nil, err end
-  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('^[^/]+')
@@ -106,8 +99,7 @@ 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'
+		return nil, 'Files in zips can only be opened in read mode' end
-  end
 	
 	-- return a temp lua file object with the data
 	local fi = new_file_obj(fn)
@@ -115,7 +107,6 @@ 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
 	
@@ -136,19 +127,13 @@ 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)
@@ -214,8 +199,7 @@ local function isValidCode(code)
 end
 function _bllua_smarteval(code)
 	if (not code:find('^print%(')) and isValidCode('print('..code..')') then
-    code = 'print(' .. code .. ')'
+		code = 'print('..code..')' end
-  end
 	local f,e = loadstring(code)
 	if f then
 		return f()

src/util/matrix.lua

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

src/util/std.lua

@@ -1,12 +1,12 @@
+
 -- 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 = {...}
@@ -18,7 +18,6 @@ function table.map(f, ...)
 	end
 	return u
 end
-
 function table.mapk(f, ...)
 	local ts = {...}
 	local u = {}
@@ -29,7 +28,6 @@ function table.mapk(f, ...)
 	end
 	return u
 end
-
 function table.map_list(f, ...)
 	local ts = {...}
 	local u = {}
@@ -40,7 +38,6 @@ function table.map_list(f, ...)
 	end
 	return u
 end
-
 function table.mapi_list(f, ...)
 	local ts = {...}
 	local u = {}
@@ -51,21 +48,18 @@ function table.mapi_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
@@ -75,7 +69,6 @@ function table.islist(t)
 	end
 	return n==#t
 end
-
 -- Append contents of other tables to first table
 function table.append(t, ...)
 	local a = {...}
@@ -84,7 +77,6 @@ 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
@@ -96,7 +88,6 @@ 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
@@ -104,34 +95,29 @@ 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 = {}
@@ -140,7 +126,6 @@ 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
@@ -148,7 +133,6 @@ function table.removevalue_list(t, r)
 		end
 	end
 end
-
 -- Export tables into formatted executable strings
 local function tabs(tabLevel)
 	return ('  '):rep(tabLevel)
@@ -222,6 +206,7 @@ function table.tostring(t)
 	return tableToString(t, 0, {})
 end
 
+
 -- String
 
 -- Split string into table by separator
@@ -229,8 +214,7 @@ 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)
+		error('string.split: argument #1: expected string, got '..type(str), 2) end
-  end
 	if sep==nil or sep=='' then
 		local t = {}
 		local ns = #str
@@ -256,7 +240,6 @@ 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 = {}
@@ -266,13 +249,11 @@ 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
@@ -288,20 +269,15 @@ 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
+		if i<=#s then return s:sub(i,i)
-      return s:sub(i, i)
+		else return nil end
-    else
-      return nil
 	end
 end
-end
-
 -- Escape sequences
 local defaultEscapes = {
 	['\\'] = '\\\\',
@@ -321,7 +297,6 @@ function string.escape(s, escapes)
 	end
 	return table.concat(t)
 end
-
 local defaultEscapeChar = '\\'
 local defaultUnescapes = {
 	['\\'] = '\\',
@@ -352,6 +327,7 @@ function string.unescape(s, escapeChar, unescapes)
 	return table.concat(t)
 end
 
+
 -- IO
 
 io = io or {}
@@ -363,7 +339,6 @@ 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')
@@ -373,26 +348,23 @@ 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
+	if m==0 or math.abs(m)<1e-15 or math.abs(m-b)<1e-15 then return 0
-    return 0
+	else return m end
-  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,19 +1,18 @@
+
 -- 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)
+			..': expected vector, got '..type(v), n+1) end
-  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)
+			..#v1..' and '..#v2..')', 3) end
-  end
 	return #v1
 end
 local function vector_checklen(v1, v2, name, len)
@@ -21,8 +20,7 @@ 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)
+			..#v1..' and '..#v2..')', 3) end
-  end
 end
 local function vector_opnnn(name, op)
 	return function(v1, v2)
@@ -71,21 +69,15 @@ 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
+		if tonumber(k) then return rawget(t, k)
-      return rawget(t, k)
+		elseif vector_indices[k] then return rawget(t, vector_indices[k])
-    elseif vector_indices[k] then
+		else return getmetatable(t)[k]
-      return rawget(t, vector_indices[k])
-    else
-      return getmetatable(t)[k]
 		end
 	end,
 	__newindex = function(t, k, v)
-    if tonumber(k) then
+		if tonumber(k) then rawset(t, k, v)
-      rawset(t, k, v)
+		elseif vector_indices[k] then rawset(t, vector_indices[k], v)
-    elseif vector_indices[k] then
+		else return
-      rawset(t, vector_indices[k], v)
-    else
-      return
 		end
 	end,
 	__add = vector_opnnn('add', function(x1, x2) return x1+x2 end),
@@ -123,11 +115,8 @@ local vector_meta = {
 		local len = #v1
 		local v3 = {}
 		for i = 1, len do
-      if length == 0 then
+			if length==0 then v3[i] = 0
-        v3[i] = 0
+			else v3[i] = v1[i]/length end
-      else
-        v3[i] = v1[i] / length
-      end
 		end
 		return vector_new(v3)
 	end,
@@ -163,28 +152,20 @@ 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)
+			error('vector rotateByAngleId: invalid rotation '..tostring(r), 2) end
-    end
 		r = r%4
 		local v2
-    if r == 0 then
+		if     r==0 then v2 = vector_new{  v1[1],  v1[2], v1[3] }
-      v2 = vector_new { v1[1], v1[2], v1[3] }
+		elseif r==1 then v2 = vector_new{  v1[2], -v1[1], v1[3] }
-    elseif r == 1 then
+		elseif r==2 then v2 = vector_new{ -v1[1], -v1[2], v1[3] }
-      v2 = vector_new { v1[2], -v1[1], v1[3] }
+		elseif r==3 then v2 = vector_new{ -v1[2],  v1[1], v1[3] }
-    elseif r == 2 then
+		else error('vector rotateByAngleId: invalid rotation '..r, 2) end
-      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)
+			error('vector rotateZ: invalid rotation '..tostring(r), 2) end
-    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 }