feat: add access trap support

Author: lmichaelis

include/zenkit-capi/DaedalusScript.h

@@ -159,6 +159,9 @@ ZKC_API ZkBool ZkDaedalusSymbol_getIsMerged(ZkDaedalusSymbol const* slf);
 ZKC_API ZkBool ZkDaedalusSymbol_getIsGenerated(ZkDaedalusSymbol const* slf);
 ZKC_API ZkBool ZkDaedalusSymbol_getHasReturn(ZkDaedalusSymbol const* slf);
 
+ZKC_API void ZkDaedalusSymbol_setAccessTrapEnabled(ZkDaedalusSymbol* slf, ZkBool trap);
+ZKC_API ZkBool ZkDaedalusSymbol_getAccessTrapEnabled(ZkDaedalusSymbol const* slf);
+
 ZKC_API ZkString ZkDaedalusSymbol_getName(ZkDaedalusSymbol const* slf);
 ZKC_API int32_t ZkDaedalusSymbol_getAddress(ZkDaedalusSymbol const* slf);
 ZKC_API int32_t ZkDaedalusSymbol_getParent(ZkDaedalusSymbol const* slf);

include/zenkit-capi/DaedalusVm.h

@@ -9,6 +9,7 @@
 typedef struct ZkInternal_DaedalusVm ZkDaedalusVm;
 typedef void (*ZkDaedalusVmExternalCallback)(void* ctx, ZkDaedalusVm* vm);
 typedef void (*ZkDaedalusVmExternalDefaultCallback)(void* ctx, ZkDaedalusVm* vm, ZkDaedalusSymbol* sym);
+typedef void (*ZkDaedalusVmTrapCallback)(void* ctx, ZkDaedalusSymbol const* sym);
 
 ZKC_API ZkDaedalusVm* ZkDaedalusVm_load(ZkRead* buf, uint8_t flags);
 ZKC_API ZkDaedalusVm* ZkDaedalusVm_loadPath(ZkString path, uint8_t flags);
@@ -51,3 +52,4 @@ ZKC_API void
 ZkDaedalusVm_overrideFunctionNaked(ZkDaedalusVm* slf, char const* name, ZkDaedalusVmExternalCallback cb, void* ctx);
 ZKC_API void ZkDaedalusVm_registerExternalDefault(ZkDaedalusVm* slf, ZkDaedalusVmExternalDefaultCallback cb, void* ctx);
 ZKC_API void ZkDaedalusVm_printStackTrace(ZkDaedalusVm* slf);
+ZKC_API void ZkDaedalusVm_setAccessTrapCallback(ZkDaedalusVm* slf, ZkDaedalusVmTrapCallback cb, void* ctx);

src/DaedalusScript.cc

@@ -209,6 +209,16 @@ ZkBool ZkDaedalusSymbol_getHasReturn(ZkDaedalusSymbol const* slf) {
 	ZKC_RETURN_CATCH(slf->has_return());
 }
 
+void ZkDaedalusSymbol_setAccessTrapEnabled(ZkDaedalusSymbol* slf, ZkBool trap) {
+	ZKC_CHECK_NULLV(slf);
+	slf->set_access_trap_enable(trap);
+}
+
+ZkBool ZkDaedalusSymbol_getAccessTrapEnabled(ZkDaedalusSymbol const* slf) {
+	ZKC_CHECK_NULL(slf);
+	return slf->has_access_trap();
+}
+
 ZkString ZkDaedalusSymbol_getName(ZkDaedalusSymbol const* slf) {
 	ZKC_CHECK_NULL(slf);
 	ZKC_RETURN_CATCH(slf->name().c_str());

src/DaedalusVm.cc

@@ -456,6 +456,12 @@ void ZkDaedalusVm_registerExternalDefault(ZkDaedalusVm* slf, ZkDaedalusVmExterna
 	slf->externalDefault = [cb, ctx](ZkDaedalusVm* vm, ZkDaedalusSymbol* sym) { cb(ctx, vm, sym); };
 }
 
+void ZkDaedalusVm_setAccessTrapCallback(ZkDaedalusVm* slf, ZkDaedalusVmTrapCallback cb, void* ctx) {
+	ZKC_TRACE_FN();
+	ZKC_CHECK_NULLV(slf);
+	slf->handle.register_access_trap([cb, ctx](zenkit::DaedalusSymbol const& sym) { cb(ctx, &sym); });
+}
+
 void ZkDaedalusVm_printStackTrace(ZkDaedalusVm* slf) {
 	ZKC_TRACE_FN();
 	ZKC_CHECK_NULLV(slf);