fixup luadevice binding a bit

lua/autorun/lcpu_load.lua

@@ -10,21 +10,6 @@ if SERVER then
 		return
 	end
 
-----[[
-	testobj = LCPUNative.CreateTest()
-	print(testobj:Test())
-	print(testobj.Variable)
-
-	testobj.MemberVariable = 32.9
-	print(testobj.MemberVariable)
-
-	testobj.Variable = 32.1 -- this should fial
-	testobj.Test = nil;
-
-	print(testobj.Variable)
-
-	print(testobj.Name)
---]]
 
 	-- rapid iteration requires rapid solutions
 --[[
@@ -36,8 +21,12 @@ if SERVER then
 	--print(device.a)
 	--print(device.apple)
 
+	print("name property is " .. device.Name)
+	print("base property is " .. device.Base)
+	print("size property is " .. device.Size)
+
 function device:Clock() 
-	print("a")
+	print(self.Base)
 end
 
 function device:Peek(address)
@@ -70,6 +59,7 @@ end
 	cpu:Cycle();cpu:Cycle();cpu:Cycle();cpu:Cycle();
 	cpu:Cycle();cpu:Cycle();cpu:Cycle();cpu:Cycle();
 	cpu:Cycle();cpu:Cycle();cpu:Cycle();cpu:Cycle();
-]]
+--]]
+
 	AddCSLuaFile("entities/gmod_lcpu_cpu.lua")
 end

native/projects/lcpu/src/LcpuGlobals.cpp

@@ -1,43 +1,10 @@
 #include "LcpuGlobals.hpp"
 
 #include "GarrysMod/Lua/Interface.h"
-#include "GarrysMod/Lua/LuaBase.h"
 #include "LuaCpu.hpp"
 #include "LuaDevice.hpp"
-#include "LuaHelpers.hpp"
-
-/// test for the "new" lua object system
-struct TestLuaObject : public lcpu::lua::LuaObject<TestLuaObject> {
-	static const char* Name() { return "TestLuaObject"; }
-
-	static void RegisterClass(GarrysMod::Lua::ILuaBase* LUA) {
-		RegisterClassStart(LUA);
-			// Metamethods can be registered here; in this case, our test object doesn't need any
-		RegisterClassEnd(LUA);
-
-		// Register methods. Maybe later I'll do some crazy template stuff; for now this is pretty barebones.
-		RegisterMethod("Test", &Test);
-		RegisterGetter("Variable", [](GarrysMod::Lua::ILuaBase* LUA) { LUA->PushNumber(32.6); });
-		RegisterGetter("MemberVariable", [](GarrysMod::Lua::ILuaBase* LUA) {
-			auto self = TestLuaObject::FromLua(LUA, 1);
-			LUA->PushNumber(self->n);
-		});
-		RegisterSetter("MemberVariable", [](GarrysMod::Lua::ILuaBase* LUA) {
-			// 3 will be the assignment stack position
-			auto self = TestLuaObject::FromLua(LUA, 1);
-			self->n = LUA->GetNumber(3);
-		});
-	}
-
-	LUA_MEMBER_FUNCTION(Test)
-	double n;
-};
-
-LUA_MEMBER_FUNCTION_IMPLEMENT(TestLuaObject, Test) {
-	LUA->PushString("hi :)");
-	return 1;
-}
 
+namespace lcpu {
 	LUA_FUNCTION(LCPUNative_CreateCPU) {
 		LUA->CheckType(1, GarrysMod::Lua::Type::Number);
 		auto memorySize = static_cast<u32>(LUA->GetNumber(1));
@@ -59,16 +26,9 @@ LUA_FUNCTION(LCPUNative_CreateDevice) {
 		return 1;
 	}
 
- LUA_FUNCTION(LCPUNative_CreateTest) {
-	TestLuaObject::Create(LUA);
-	return 1;
-}
-
 	void GlobalsBind(GarrysMod::Lua::ILuaBase* LUA) {
-	LuaCpu::Bind(LUA);
-	LuaDevice::Bind(LUA);
-
-	TestLuaObject::RegisterClass(LUA);
+		LuaCpu::RegisterClass(LUA);
+		LuaDevice::RegisterClass(LUA);
 
 		// clang-format off
 		LUA->PushSpecial(GarrysMod::Lua::SPECIAL_GLOB);
@@ -78,9 +38,9 @@ void GlobalsBind(GarrysMod::Lua::ILuaBase* LUA) {
 
 			LUA_SET_C_FUNCTION_NAME(LCPUNative_CreateCPU, "CreateCPU");
 			LUA_SET_C_FUNCTION_NAME(LCPUNative_CreateDevice, "CreateDevice");
-
-		LUA_SET_C_FUNCTION_NAME(LCPUNative_CreateTest, "CreateTest");
 		LUA->SetField(-2, "LCPUNative");
 		LUA->Pop();
 		// clang-format on
 	}
+
+} // namespace lcpu

native/projects/lcpu/src/LcpuGlobals.hpp

@@ -1,7 +1,10 @@
 #include "LuaHelpers.hpp"
 
+namespace lcpu {
 /// This should be bumped on any incompatible change to the native bindings
 /// that would break older Lua code, or requires newer Lua code to run.
 #define LCPU_MODULE_VERSION 1
 
 	void GlobalsBind(GarrysMod::Lua::ILuaBase* LUA);
+
+} // namespace lcpu

native/projects/lcpu/src/LuaCpu.cpp

@@ -3,10 +3,9 @@
 #include <lucore/Logger.hpp>
 
 #include "LuaDevice.hpp"
-#include "LuaHelpers.hpp"
-
-// this is temporary from the thing
 
+// this is temporary from the test harness, and will be replaced
+// at some point.
 /// simple 16550 UART implementation
 struct SimpleUartDevice : public riscv::Bus::MmioDevice {
 	constexpr static riscv::Address BASE_ADDRESS = 0x10000000;
@@ -31,16 +30,15 @@ struct SimpleUartDevice : public riscv::Bus::MmioDevice {
 	}
 };
 
-LUA_CLASS_BIND_VARIABLES_IMPLEMENT(LuaCpu);
-
+namespace lcpu {
 	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, PoweredOn) {
-	auto self = LUA_CLASS_GET(LuaCpu)(1);
+		auto self = LuaCpu::FromLua(LUA, 1);
 		LUA->PushBool(self->poweredOn);
 		return 1;
 	}
 
 	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, Cycle) {
-	auto self = LUA_CLASS_GET(LuaCpu)(1);
+		auto self = LuaCpu::FromLua(LUA, 1);
 		if(!self->poweredOn)
 			return 0;
 		self->system->Step();
@@ -48,7 +46,7 @@ LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, Cycle) {
 	}
 
 	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, PowerOff) {
-	auto self = LUA_CLASS_GET(LuaCpu)(1);
+		auto self = LuaCpu::FromLua(LUA, 1);
 		if(!self->poweredOn)
 			return 0;
 
@@ -58,7 +56,7 @@ LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, PowerOff) {
 	}
 
 	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, PowerOn) {
-	auto self = LUA_CLASS_GET(LuaCpu)(1);
+		auto self = LuaCpu::FromLua(LUA, 1);
 		if(self->poweredOn)
 			return 0;
 
@@ -68,49 +66,29 @@ LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, PowerOn) {
 	}
 
 	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, Reset) {
-	auto self = LUA_CLASS_GET(LuaCpu)(1);
+		auto self = LuaCpu::FromLua(LUA, 1);
 		self->system->bus->Reset();
 		return 0;
 	}
 
 	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaCpu, AttachDevice) {
-	auto self = LUA_CLASS_GET(LuaCpu)(1);
-	auto device = LUA_CLASS_GET(LuaDevice)(2);
+		auto self = LuaCpu::FromLua(LUA, 1);
+		auto device = LuaDevice::FromLua(LUA, 2);
 
 		// Attach it
 		LUA->PushBool(self->system->bus->AttachDevice(static_cast<riscv::Bus::Device*>(device)));
 		return 1;
 	}
 
-void LuaCpu::Bind(GarrysMod::Lua::ILuaBase* LUA) {
-	// clang-format off
-	LUA_CLASS_BIND_BEGIN(LuaCpu);
-			LUA_SET_C_FUNCTION(PoweredOn);
-			LUA_SET_C_FUNCTION(Cycle);
-			LUA_SET_C_FUNCTION(PowerOff);
-			LUA_SET_C_FUNCTION(PowerOn);
-			LUA_SET_C_FUNCTION(Reset);
-			LUA_SET_C_FUNCTION(AttachDevice);
-	LUA_CLASS_BIND_END();
-	// clang-format on
-}
+	void LuaCpu::RegisterClass(GarrysMod::Lua::ILuaBase* LUA) {
+		RegisterClassStart(LUA);
 
-void LuaCpu::Create(GarrysMod::Lua::ILuaBase* LUA, u32 memorySize) {
-	auto cpuWrapper = new LuaCpu(memorySize);
-
-	// lame test code. this WILL be removed, I just want this for a quick test
-	cpuWrapper->system->bus->AttachDevice(new SimpleUartDevice);
-	auto fp = std::fopen("/home/lily/test-gmod.bin", "rb");
-	if(fp) {
-		std::fseek(fp, 0, SEEK_END);
-		auto len = std::ftell(fp);
-		std::fseek(fp, 0, SEEK_SET);
-
-		std::fread(cpuWrapper->system->ram->Raw(), 1, len, fp);
-		std::fclose(fp);
-	}
-
-	LUA->PushUserType(cpuWrapper, __lua_typeid);
+		RegisterMethod("PoweredOn", PoweredOn);
+		RegisterMethod("Cycle", Cycle);
+		RegisterMethod("PowerOff", PowerOff);
+		RegisterMethod("PowerOn", PowerOn);
+		RegisterMethod("Reset", Reset);
+		RegisterMethod("AttachDevice", AttachDevice);
 	}
 
 	LuaCpu::LuaCpu(u32 memorySize) {
@@ -120,8 +98,22 @@ LuaCpu::LuaCpu(u32 memorySize) {
 			poweredOn = false;
 			system->bus->Reset();
 		};
+
+		// lame test code. this WILL be removed, I just want this for a quick test
+		system->bus->AttachDevice(new SimpleUartDevice);
+		auto fp = std::fopen("/home/lily/test-gmod.bin", "rb");
+		if(fp) {
+			std::fseek(fp, 0, SEEK_END);
+			auto len = std::ftell(fp);
+			std::fseek(fp, 0, SEEK_SET);
+
+			std::fread(system->ram->Raw(), 1, len, fp);
+			std::fclose(fp);
+		}
 	}
 
 	LuaCpu::~LuaCpu() {
 		delete system;
 	}
+
+} // namespace lcpu

native/projects/lcpu/src/LuaCpu.hpp

@@ -2,19 +2,21 @@
 
 #include <riscv/System.hpp>
 
-#include "LuaHelpers.hpp"
+#include "LuaObject.hpp"
 
+namespace lcpu {
 	/// Bindings of [riscv::System] to Lua.
-struct LuaCpu {
+	struct LuaCpu : public lua::LuaObject<LuaCpu> {
 		/// Lua binding stuff
-	static void Bind(GarrysMod::Lua::ILuaBase* LUA);
-	static void Create(GarrysMod::Lua::ILuaBase* LUA, u32 memorySize);
-
-   private:
+		constexpr static const char* Name() { return "LuaCpu"; }
+		static void RegisterClass(GarrysMod::Lua::ILuaBase* LUA);
 
+	   protected:
+		friend struct lua::LuaObject<LuaCpu>;
 		LuaCpu(u32 memorySize);
 		~LuaCpu();
 
+	   private:
 		LUA_MEMBER_FUNCTION(PoweredOn);	   // Check if the CPU is powered on
 		LUA_MEMBER_FUNCTION(Cycle);		   // do a single cycle (called internally by LCPU entity)
 		LUA_MEMBER_FUNCTION(PowerOff);	   // power off and reset the LCPU
@@ -22,10 +24,9 @@ struct LuaCpu {
 		LUA_MEMBER_FUNCTION(Reset);		   // reset the LCPU
 		LUA_MEMBER_FUNCTION(AttachDevice); // attach a LuaDevice to this cpu
 
-	// class binding stuff
-	LUA_CLASS_BIND_VARIABLES(private);
-
 		// member variables
 		riscv::System* system;
 		bool poweredOn;
 	};
+
+} // namespace lcpu

native/projects/lcpu/src/LuaDevice.cpp

@@ -1,6 +1,19 @@
 #include "LuaDevice.hpp"
 
-LUA_CLASS_BIND_VARIABLES_IMPLEMENT(LuaDevice);
+namespace lcpu {
+	void LuaDevice::RegisterClass(GarrysMod::Lua::ILuaBase* LUA) {
+		RegisterClassStart(LUA);
+
+		RegisterGetter("Base", [](GarrysMod::Lua::ILuaBase* LUA) {
+			auto self = LuaDevice::FromLua(LUA, 1);
+			LUA->PushNumber(static_cast<double>(self->base));
+		});
+
+		RegisterGetter("Size", [](GarrysMod::Lua::ILuaBase* LUA) {
+			auto self = LuaDevice::FromLua(LUA, 1);
+			LUA->PushNumber(static_cast<double>(self->size));
+		});
+	}
 
 	bool LuaDevice::Clocked() const {
 		// no real good rationale for checking here,
@@ -10,16 +23,16 @@ bool LuaDevice::Clocked() const {
 
 	void LuaDevice::Clock() {
 		// clang-format off
-	LuaState->ReferencePush(tableReference);
-		LuaState->GetField(-1,"Clock");
-			if(LuaState->GetType(-1) == GarrysMod::Lua::Type::Function) { 
-				LuaState->Push(-2); // 'self' argument
-				LuaState->Call(1, 0);
+		lua->ReferencePush(GetTableReference());
+			lua->GetField(-1,"Clock");
+				if(lua->GetType(-1) == GarrysMod::Lua::Type::Function) { 
+					lua->Push(-2); // 'self' argument
+					lua->Call(1, 0);
 				} else {
-				LuaState->Pop(); // pop the Clock function off the stack
+					lua->Pop(); // pop the Clock function off the stack
 				}
-	LuaState->Pop(); // pop the reference
-	// clang-format off
+		lua->Pop(); // pop the reference
+		// clang-format on
 	}
 
 	riscv::Address LuaDevice::Base() const {
@@ -32,126 +45,68 @@ riscv::Address LuaDevice::Size() const {
 
 	u32 LuaDevice::Peek(riscv::Address address) {
 		// clang-format off
-	LuaState->ReferencePush(tableReference);
-		LuaState->GetField(-1,"Peek");
-			if(LuaState->GetType(-1) == GarrysMod::Lua::Type::Function) { 
-				LuaState->Push(-2); // 'self' argument
-				LuaState->PushNumber(static_cast<double>(address));
-				LuaState->Call(2, 1);
+		lua->ReferencePush(GetTableReference());
+			lua->GetField(-1,"Peek");
+				if(lua->GetType(-1) == GarrysMod::Lua::Type::Function) { 
+					lua->Push(-2); // 'self' argument
+					lua->PushNumber(static_cast<double>(address));
+					lua->Call(2, 1);
 
-				auto result = static_cast<u32>(LuaState->GetNumber(-1));
-				LuaState->Pop(2); // pop result and the table off
+					auto result = static_cast<u32>(lua->GetNumber(-1));
+					lua->Pop(2); // pop result and the table off
 					return result;
 				} else {
-				LuaState->Pop(); // pop whatever Peek is off the stack
+					lua->Pop(); // pop whatever Peek is off the stack
 				}
-	LuaState->Pop(); // pop the table reference
+		lua->Pop(); // pop the table reference
 		// clang-format on
 		return 0xffffffff;
 	}
 
 	void LuaDevice::Poke(riscv::Address address, u32 value) {
 		// clang-format off
-	LuaState->ReferencePush(tableReference);
-		LuaState->GetField(-1,"Poke");
-			if(LuaState->GetType(-1) == GarrysMod::Lua::Type::Function) { 
-				LuaState->Push(-2); // 'self' argument
-				LuaState->PushNumber(static_cast<double>(address));
-				LuaState->PushNumber(static_cast<double>(value));
-				LuaState->Call(3, 0);
+		lua->ReferencePush(GetTableReference());
+			lua->GetField(-1,"Poke");
+				if(lua->GetType(-1) == GarrysMod::Lua::Type::Function) { 
+					lua->Push(-2); // 'self' argument
+					lua->PushNumber(static_cast<double>(address));
+					lua->PushNumber(static_cast<double>(value));
+					lua->Call(3, 0);
 				} else {
-				LuaState->Pop(); // pop whatever Peek is
+					lua->Pop(); // pop whatever Peek is
 				}
-	LuaState->Pop(); // pop the table reference
+		lua->Pop(); // pop the table reference
 		// clang-format on
 	}
 
 	void LuaDevice::Reset() {
 		// clang-format off
-	LuaState->ReferencePush(tableReference);
-		LuaState->GetField(-1,"Reset");
-		if(LuaState->GetType(-1) == GarrysMod::Lua::Type::Function) { 
-			LuaState->Push(-2); // 'self' argument
-			LuaState->Call(1, 0);
+		lua->ReferencePush(GetTableReference());
+			lua->GetField(-1,"Reset");
+			if(lua->GetType(-1) == GarrysMod::Lua::Type::Function) { 
+				lua->Push(-2); // 'self' argument
+				lua->Call(1, 0);
 			} else {
-			LuaState->Pop(); // pop whatever reset is
+				lua->Pop(); // pop whatever reset is
 			}
-	LuaState->Pop(); // pop the reference
+		lua->Pop(); // pop the reference
 		// clang-format on
 	}
 
 	LuaDevice::LuaDevice(riscv::Address base, riscv::Address size) : base(base), size(size) {
 	}
 
-LuaDevice::~LuaDevice() {
-	// Free all refererences
-	if(tableReference == -1)
-		LuaState->ReferenceFree(tableReference);
-}
+	void LuaDevice::AfterLuaInit() {
+		// Our Lua callbacks only get the table, not the actual userdata,
+		// ao we have to mirror things :( kinda sucks, but meh
 		
-LUA_MEMBER_FUNCTION_IMPLEMENT(LuaDevice, __index) {
-	auto self = LUA_CLASS_GET(LuaDevice)(1);
-	// lucore::LogInfo("metamethod __index call");
-
-	// TODO: before moving this to a shared lua object class thing
-	// and moving the CPU class to use this way of doing things
-	// I should probably try and like, add stuff to ensure native
-	// methods can be registered as well,,
-	LUA->ReferencePush(self->tableReference);
-	LUA->Push(2);
-	LUA->GetTable(-2);
-	return 1; // the value
-}
-
-LUA_MEMBER_FUNCTION_IMPLEMENT(LuaDevice, __newindex) {
-	auto self = LUA_CLASS_GET(LuaDevice)(1);
-	// lucore::LogInfo("metamethod __newindex call");
-
-	// Always push onto the table.
-	// TODO: This function
-	// should error on attempt to __newindex any native methods
-	// (when moved to a shared place)
-	LUA->ReferencePush(self->tableReference);
-	LUA->Push(2);
-	LUA->Push(3);
-	LUA->SetTable(-3);
-	LUA->Pop();
-	return 0;
-}
-
-void LuaDevice::Bind(GarrysMod::Lua::ILuaBase* LUA) {
 		// clang-format off
-	//LUA_CLASS_BIND_BEGIN(LuaDevice)
-	__lua_typeid = LUA->CreateMetaTable("LuaDevice");                                
-		LUA->PushSpecial(GarrysMod::Lua::SPECIAL_REG);                             
-			LUA->PushNumber(__lua_typeid);                                          
-			LUA->SetField(-2, "LuaDevice__typeid");                                          
-		LUA->Pop(); /* pop registry */                                             
-
-		LUA_SET_C_FUNCTION(__gc)
-		LUA_SET_C_FUNCTION(__index)
-		LUA_SET_C_FUNCTION(__newindex)
-	LUA_CLASS_BIND_END();
+		lua->ReferencePush(GetTableReference());
+			lua->PushNumber(static_cast<double>(base));
+			lua->SetField(-2, "Base");
+			lua->PushNumber(static_cast<double>(base));
+			lua->SetField(-2, "Size");
+		lua->Pop();
 		// clang-format on
 	}
-
-void LuaDevice::Create(GarrysMod::Lua::ILuaBase* LUA, riscv::Address base, riscv::Address size) {
-	auto device = new LuaDevice(base, size);
-	device->LuaState = LUA;
-
-	LUA->CreateTable();
-	device->tableReference = LUA->ReferenceCreate();
-	LUA->Pop();
-
-	// push base/size properties for lua to have a looksee at !
-	// ideally these should be handled as metamethods in __index,
-	// but i don't quite feel like making gmod sol2 yet /shrug
-	LUA->ReferencePush(device->tableReference);
-	LUA->PushNumber(static_cast<double>(base));
-	LUA->SetField(-2, "Base");
-	LUA->PushNumber(static_cast<double>(base));
-	LUA->SetField(-2, "Size");
-	LUA->Pop();
-
-	LUA->PushUserType(device, __lua_typeid);
-}
+} // namespace lcpu

native/projects/lcpu/src/LuaDevice.hpp

@@ -3,15 +3,16 @@
 #include <riscv/Bus.hpp>
 
 #include "LuaHelpers.hpp"
+#include "LuaObject.hpp"
 
+namespace lcpu {
 	/// A work-in-progress binding of [riscv::Bus::MmioDevice] to lua
-struct LuaDevice : public riscv::Bus::MmioDevice {
+	struct LuaDevice : public riscv::Bus::MmioDevice, lcpu::lua::LuaObject<LuaDevice> {
 		/// Lua binding stuff
-	static void Bind(GarrysMod::Lua::ILuaBase* LUA);
-	static void Create(GarrysMod::Lua::ILuaBase* LUA, riscv::Address base, riscv::Address size);
-
-	~LuaDevice();
+		constexpr static const char* Name() { return "LuaDevice"; }
+		static void RegisterClass(GarrysMod::Lua::ILuaBase* LUA);
 
+		// [riscv::Bus::MmioDevice] implementation
 		bool Clocked() const override;
 		void Clock() override;
 		void Reset() override;
@@ -22,19 +23,15 @@ struct LuaDevice : public riscv::Bus::MmioDevice {
 		u32 Peek(riscv::Address address) override;
 		void Poke(riscv::Address address, u32 value) override;
 
-   private:
-	// class binding stuff
-	LUA_CLASS_BIND_VARIABLES(private);
-
-	LUA_MEMBER_FUNCTION(__index);
-	LUA_MEMBER_FUNCTION(__newindex); 
-
+	   protected:
+		friend lcpu::lua::LuaObject<LuaDevice>;
 		LuaDevice(riscv::Address base, riscv::Address size);
+		~LuaDevice() = default;
 
+		void AfterLuaInit() override;
+
+	   private:
 		riscv::Address base {};
 		riscv::Address size {};
-	GarrysMod::Lua::ILuaBase* LuaState;
-
-	// this should be a common type tbh
-	int tableReference = -1;
 	};
+} // namespace lcpu

native/projects/lcpu/src/LuaHelpers.hpp

@@ -1,10 +1,11 @@
-//! Helpers for lua binding
+//! Helpers for binding Lua and C++.
+//! If you want to bind a C++ class to Lua, see the
+//! [lcpu::lua::LuaObject<TImpl>] type in LuaObject.hpp
 #pragma once
 
 #include <GarrysMod/Lua/Interface.h>
 
 #include <lucore/Logger.hpp>
-#include <unordered_map>
 
 #include "GarrysMod/Lua/LuaBase.h"
 
@@ -21,52 +22,6 @@
 
 #define LUA_MEMBER_FUNCTION_IMPLEMENT(CLASS, FUNC) int CLASS::FUNC##__ImpStatic(GarrysMod::Lua::ILuaBase* LUA)
 
-// this synthesizes a lambda which takes the stack argument to get. this can actually also be
-// stored as a variable for later usage (... if you so desire?)
-#define LUA_CLASS_GET(T)                                       \
-	[LUA](int stackPos) {                                      \
-		LUA->CheckType(stackPos, T::__lua_typeid);             \
-		return LUA->GetUserType<T>(stackPos, T::__lua_typeid); \
-	}
-
-// This class binding package always implements the __gc metamethod
-// to free any C++ object bound to Lua.
-
-// Declare required binding variables.
-#define LUA_CLASS_BIND_VARIABLES(ACCESS_LEVEL) \
-   public:                                     \
-	static int __lua_typeid;                   \
-	ACCESS_LEVEL:                              \
-	LUA_MEMBER_FUNCTION(__gc);
-
-// Implement required binding variables (typically in a .cpp file).
-#define LUA_CLASS_BIND_VARIABLES_IMPLEMENT(T)                                        \
-	int T::__lua_typeid = 0;                                                         \
-	LUA_MEMBER_FUNCTION_IMPLEMENT(T, __gc) {                                         \
-		LUA->CheckType(1, T::__lua_typeid);                                          \
-		auto self = LUA->GetUserType<T>(1, T::__lua_typeid);                         \
-		if(self != nullptr) { /* GetUserType returns nullptr on failure */           \
-			lucore::LogInfo("GCing {} object @ {:p}", #T, static_cast<void*>(self)); \
-			delete self;                                                             \
-		}                                                                            \
-		return 0;                                                                    \
-	}
-
-// Begin the Bind() method of a class. This just sets up boilerplate
-// and required things to setup a class.
-#define LUA_CLASS_BIND_BEGIN(T)                    \
-	T::__lua_typeid = LUA->CreateMetaTable(#T);    \
-	LUA->PushSpecial(GarrysMod::Lua::SPECIAL_REG); \
-	LUA->PushNumber(T::__lua_typeid);              \
-	LUA->SetField(-2, #T "__typeid");              \
-	LUA->Pop(); /* pop registry */                 \
-	LUA->Push(-1);                                 \
-	LUA->SetField(-2, "__index");                  \
-	LUA_SET_C_FUNCTION(__gc)
-
-// End the Bind() method.
-#define LUA_CLASS_BIND_END() LUA->Pop();
-
 // Set a C function as a field.
 #define LUA_SET_C_FUNCTION(name) \
 	LUA->PushCFunction(name);    \
@@ -89,184 +44,4 @@ namespace lcpu::lua {
 		}
 	}
 
-	/// A CRTP-based class which allows binding C++ to Lua, in a
-	/// fairly sensible manner.
-	template <class TImpl>
-	struct LuaObject {
-		using CFunc = GarrysMod::Lua::CFunc;
-		using ILuaFunc = void (*)(GarrysMod::Lua::ILuaBase*);
-
-		/// Register a C++ method.
-		static void RegisterMethod(const std::string& name, CFunc func) { methods()[name] = func; }
-
-		/// Register a getter for a value to be read.
-		static void RegisterGetter(const std::string& name, ILuaFunc func) { getters()[name] = func; }
-
-		/// Register a setter. This can be used to make a
-		/// C++ registered value read-write.
-		static void RegisterSetter(const std::string& name, ILuaFunc func) { setters()[name] = func; }
-
-		// addl. arguments are forwarded to the C++ constructor
-		template <class... Args>
-		static void Create(GarrysMod::Lua::ILuaBase* LUA, Args&&... args) {
-			auto ptr = new TImpl(static_cast<Args&&>(args)...);
-			ptr->InitLuaStuff(LUA);
-			LUA->PushUserType(ptr, __lua_typeid);
-		}
-
-		static TImpl* FromLua(GarrysMod::Lua::ILuaBase* LUA, int stackPos) {
-			LUA->CheckType(stackPos, __lua_typeid);
-			return LUA->GetUserType<TImpl>(stackPos, __lua_typeid);
-		}
-
-	   protected:
-		/// This should be called first in your RegisterClass static method.
-		/// This doesn't pop the metatable off so you can keep adding things to it
-		static void RegisterClassStart(GarrysMod::Lua::ILuaBase* LUA) {
-			auto typeid_name = std::format("{}__typeid", TImpl::Name());
-
-			// clang-format off
-			__lua_typeid = LUA->CreateMetaTable(TImpl::Name());
-				LUA->PushSpecial(GarrysMod::Lua::SPECIAL_REG);
-					LUA->PushNumber(__lua_typeid);
-					LUA->SetField(-2, typeid_name.c_str());
-				LUA->Pop(); // pop registry
-				// add in required metamethods
-				LUA_SET_C_FUNCTION(__gc)
-				LUA_SET_C_FUNCTION(__index)
-				LUA_SET_C_FUNCTION(__newindex)
-			// clang-format on
-		}
-
-		/// Call in your RegisterClass() method when done registering metamethods.
-		static void RegisterClassEnd(GarrysMod::Lua::ILuaBase* LUA) { LUA->Pop(); }
-
-		/// A detail function used to setup some stuff in the Create() method.
-		void InitLuaStuff(GarrysMod::Lua::ILuaBase* LUA) {
-			lua = LUA;
-
-			// create the table used to store user properties
-			// from Lua
-			LUA->CreateTable();
-			tableReference = LUA->ReferenceCreate();
-
-			// register some convinence things
-			RegisterGetter("Name", [](GarrysMod::Lua::ILuaBase* LUA) { LUA->PushString(TImpl::Name()); });
-		}
-
-		LuaObject() = default;
-		~LuaObject() {
-			// free the table reference
-			if(tableReference != -1)
-				lua->ReferenceFree(tableReference);
-		}
-
-
-		/// The LUA interface used to create this class.
-		GarrysMod::Lua::ILuaBase* lua;
-
-	   private:
-		// base metamethods
-		LUA_MEMBER_FUNCTION(__gc)
-		LUA_MEMBER_FUNCTION(__index)
-		LUA_MEMBER_FUNCTION(__newindex)
-
-		// static stuff
-		static int __lua_typeid;
-
-		static auto& methods() {
-			static std::unordered_map<std::string, GarrysMod::Lua::CFunc> methods__;
-			return methods__;
-		}
-
-		static auto& getters() {
-			static std::unordered_map<std::string, ILuaFunc> getters__;
-			return getters__;
-		}
-
-		static auto& setters() {
-			static std::unordered_map<std::string, ILuaFunc> setters__;
-			return setters__;
-		}
-
-		// instance stuff
-		int tableReference { -1 };
-	};
-
-	template <class TImpl>
-	int LuaObject<TImpl>::__lua_typeid = 0;
-
-	template <class TImpl>
-	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaObject<TImpl>, __gc) {
-		auto self = FromLua(LUA, 1);
-		if(self != nullptr) {
-			lucore::LogInfo("GCing LuaObject-based object @ {:p}", static_cast<void*>(self));
-			delete self;
-		}
-		return 0;
-	}
-
-	template <class TImpl>
-	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaObject<TImpl>, __index) {
-		auto self = FromLua(LUA, 1);
-
-		if(LUA->GetType(2) == GarrysMod::Lua::Type::String) {
-			auto key = GetLuaString(LUA, 2);
-
-			if(methods().find(key) != methods().end()) {
-				LUA->PushCFunction(methods()[key]);
-				return 1;
-			}
-
-			if(getters().find(key) != getters().end()) {
-				// getters explicitly push their return onto the stack
-				getters()[key](LUA);
-				return 1;
-			}
-		}
-
-		// look up from the table
-		// clang-format off
-		LUA->ReferencePush(self->tableReference);
-			LUA->Push(2);
-		LUA->GetTable(-2);
-		// clang-format on
-		return 1;
-	}
-
-	template <class TImpl>
-	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaObject<TImpl>, __newindex) {
-		auto self = FromLua(LUA, 1);
-
-		if(LUA->GetType(2) == GarrysMod::Lua::Type::String) {
-			auto key = GetLuaString(LUA, 2);
-
-			// don't allow overwriting methods
-			if(methods().find(key) != methods().end())
-				return 0;
-
-			// or read-only values
-			if(getters().find(key) != getters().end() && setters().find(key) == setters().end())
-				return 0;
-
-			if(setters().find(key) != setters().end()) {
-				// for ergonomic sake only I kind of want to make this like
-				// LUA->Push(3) so that -1 (top of stack) is the value
-				// a bit cleaner. idk
-				setters()[key](LUA);
-				return 0;
-			}
-		}
-
-		// push onto the table
-		// clang-format off
-		LUA->ReferencePush(self->tableReference);
-			LUA->Push(2);
-			LUA->Push(3);
-			LUA->SetTable(-3);
-		LUA->Pop();
-		// clang-format on
-		return 0;
-	}
-
 } // namespace lcpu::lua

native/projects/lcpu/src/LuaObject.hpp

@@ -0,0 +1,221 @@
+#pragma once
+
+#include <unordered_map>
+
+#include "GarrysMod/Lua/Interface.h"
+#include "GarrysMod/Lua/LuaBase.h"
+#include "LuaHelpers.hpp"
+
+namespace lcpu::lua {
+
+	/// A CRTP-based class which allows binding C++ to Lua, in a
+	/// fairly sensible manner.
+	///
+	/// Classes backed by this class can have arbitrary properties
+	/// created by Lua (using a backing table created by this object).
+	template <class TImpl>
+	struct LuaObject {
+		using CFunc = GarrysMod::Lua::CFunc;
+		using ILuaFunc = int (*)(GarrysMod::Lua::ILuaBase*);
+		using ILuaVoidFunc = void (*)(GarrysMod::Lua::ILuaBase*);
+
+		/// Register a C++ method.
+		static void RegisterMethod(const std::string& name, CFunc func) { methods()[name] = func; }
+
+		/// Register a getter for a value to be read.
+		static void RegisterGetter(const std::string& name, ILuaVoidFunc func) { getters()[name] = func; }
+
+		/// Register a setter. This can be used to make a
+		/// C++ registered value read-write.
+		static void RegisterSetter(const std::string& name, ILuaVoidFunc func) { setters()[name] = func; }
+
+		virtual void AfterLuaInit() {};
+
+		/// Create an instance of this type to give to Lua.
+		/// addl. arguments are forwarded to the C++ constructor
+		template <class... Args>
+		static void Create(GarrysMod::Lua::ILuaBase* LUA, Args&&... args) {
+			auto ptr = new TImpl(static_cast<Args&&>(args)...);
+			ptr->InitLuaStuff(LUA);
+			ptr->AfterLuaInit();
+			LUA->PushUserType(ptr, __lua_typeid);
+		}
+
+		static TImpl* FromLua(GarrysMod::Lua::ILuaBase* LUA, int stackPos) {
+			LUA->CheckType(stackPos, __lua_typeid);
+			return LUA->GetUserType<TImpl>(stackPos, __lua_typeid);
+		}
+
+	   protected:
+		/// This should be called first in your RegisterClass static method.
+		static void RegisterClassStart(GarrysMod::Lua::ILuaBase* LUA) {
+			auto typeid_name = std::format("{}__typeid", TImpl::Name());
+
+			// clang-format off
+			__lua_typeid = LUA->CreateMetaTable(TImpl::Name());
+				LUA->PushSpecial(GarrysMod::Lua::SPECIAL_REG);
+					LUA->PushNumber(__lua_typeid);
+					LUA->SetField(-2, typeid_name.c_str());
+				LUA->Pop(); // pop registry
+				// add in required metamethods
+				LUA_SET_C_FUNCTION(__gc)
+				LUA_SET_C_FUNCTION(__index)
+				LUA_SET_C_FUNCTION(__newindex)
+			LUA->Pop(); // pop metatable
+			// clang-format on
+		}
+
+		/// Register a metafunction.
+		/// Note that the following metafunctions are reserved by the implementation
+		/// of this object, and should not be overwritten:
+		///
+		/// - __gc
+		/// - __index
+		/// - __newindex
+		///
+		static void RegisterMetaFunction(GarrysMod::Lua::ILuaBase* LUA, const std::string& name, CFunc func) {
+			// clang-format off
+			LUA->PushMetaTable(__lua_typeid);
+				LUA->PushCFunction(func);
+				LUA->SetField(-2, name.c_str());
+			LUA->Pop();
+			// clang-format on
+		}
+
+		/// A detail function used to setup some stuff in the Create() method.
+		void InitLuaStuff(GarrysMod::Lua::ILuaBase* LUA) {
+			lua = LUA;
+
+			// create the table used to store user properties
+			// from Lua
+			LUA->CreateTable();
+			tableReference = LUA->ReferenceCreate();
+
+			// register some convinence getters
+			RegisterGetter("Name", [](GarrysMod::Lua::ILuaBase* LUA) { LUA->PushString(TImpl::Name()); });
+		}
+
+		int GetTableReference() { return tableReference; }
+
+		LuaObject() = default;
+		virtual ~LuaObject() {
+			// free the table reference
+			if(tableReference != -1)
+				lua->ReferenceFree(tableReference);
+		}
+
+		/// The LUA interface used to create this class.
+		GarrysMod::Lua::ILuaBase* lua;
+
+	   private:
+		// base metamethods
+		LUA_MEMBER_FUNCTION(__gc)
+		LUA_MEMBER_FUNCTION(__index)
+		LUA_MEMBER_FUNCTION(__newindex)
+
+		// static stuff
+		static int __lua_typeid;
+
+		static auto& methods() {
+			static std::unordered_map<std::string, CFunc> methods__;
+			return methods__;
+		}
+
+		static auto& getters() {
+			static std::unordered_map<std::string, ILuaVoidFunc> getters__;
+			return getters__;
+		}
+
+		static auto& setters() {
+			static std::unordered_map<std::string, ILuaVoidFunc> setters__;
+			return setters__;
+		}
+
+		// instance stuff
+		int tableReference { -1 };
+	};
+
+	template <class TImpl>
+	int LuaObject<TImpl>::__lua_typeid = 0;
+
+	template <class TImpl>
+	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaObject<TImpl>, __gc) {
+		auto self = FromLua(LUA, 1);
+		if(self != nullptr) {
+			lucore::LogInfo("GCing LuaObject {} @ {:p}", TImpl::Name(), static_cast<void*>(self));
+			delete self;
+		}
+		return 0;
+	}
+
+	template <class TImpl>
+	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaObject<TImpl>, __index) {
+		auto self = FromLua(LUA, 1);
+
+		if(LUA->GetType(2) == GarrysMod::Lua::Type::String) {
+			auto& methods = LuaObject::methods();
+			auto& getters = LuaObject::getters();
+			auto key = GetLuaString(LUA, 2);
+
+			if(methods.find(key) != methods.end()) {
+				LUA->PushCFunction(methods[key]);
+				return 1;
+			}
+
+			if(getters.find(key) != getters.end()) {
+				// getters explicitly push their return onto the stack
+				getters[key](LUA);
+				return 1;
+			}
+		}
+
+		// look up from the table
+		// clang-format off
+		LUA->ReferencePush(self->tableReference);
+			LUA->Push(2);
+		LUA->GetTable(-2);
+		// clang-format on
+		return 1;
+	}
+
+	template <class TImpl>
+	LUA_MEMBER_FUNCTION_IMPLEMENT(LuaObject<TImpl>, __newindex) {
+		auto self = FromLua(LUA, 1);
+
+		if(LUA->GetType(2) == GarrysMod::Lua::Type::String) {
+			auto& methods = LuaObject::methods();
+			auto& getters = LuaObject::getters();
+			auto& setters = LuaObject::setters();
+			auto key = GetLuaString(LUA, 2);
+
+			// don't allow overwriting methods
+			if(methods.find(key) != methods.end())
+				return 0;
+
+			// or read-only C++ values
+			if(getters.find(key) != getters.end() && setters.find(key) == setters.end())
+				return 0;
+
+			if(setters.find(key) != setters.end()) {
+				// clang-format off
+				// Push the value to be written onto the top of the stack.
+				// This is mostly for ergonomic reasons.
+				LUA->Push(3); 
+					setters[key](LUA);
+				LUA->Pop();
+				return 0;
+			}
+		}
+
+		// push onto the table
+		// clang-format off
+		LUA->ReferencePush(self->tableReference);
+			LUA->Push(2);
+			LUA->Push(3);
+			LUA->SetTable(-3);
+		LUA->Pop();
+		// clang-format on
+		return 0;
+	}
+
+} // namespace lcpu::lua

native/projects/lcpu/src/main.cpp

@@ -11,7 +11,7 @@ GMOD_MODULE_OPEN() {
 	lucore::Logger::The().AttachSink(lcpu::SourceSink::The());
 	lucore::LogInfo("LCPU Native Module! (ModuleVersion {})", LCPU_MODULE_VERSION);
 
-	GlobalsBind(LUA);
+	lcpu::GlobalsBind(LUA);
 	return 0;
 }