feat: add DaedalusInstance UserData

Author: lmichaelis

ZenKit/DaedalusInstance.cs

@@ -1,4 +1,5 @@
 using System;
+using System.Runtime.InteropServices;
 using ZenKit.Daedalus;
 
 namespace ZenKit
@@ -42,6 +43,21 @@ protected DaedalusInstance(UIntPtr handle)
 		public DaedalusInstanceType Type => Native.ZkDaedalusInstance_getType(Handle);
 		public int Index => (int)Native.ZkDaedalusInstance_getIndex(Handle);
 
+		public object? UserData
+		{
+			get
+			{
+				var userPtr = Native.ZkDaedalusInstance_getUserPointer(Handle);
+				return userPtr == IntPtr.Zero ? null : GCHandle.FromIntPtr(userPtr).Target;
+			}
+			set
+			{
+				// TODO: This leaks a handle.
+				var handle = GCHandle.Alloc(value, GCHandleType.Weak);
+				Native.ZkDaedalusInstance_setUserPointer(Handle, GCHandle.ToIntPtr(handle));
+			}
+		}
+
 		public static DaedalusInstance? FromNative(UIntPtr handle)
 		{
 			if (handle == UIntPtr.Zero) return null;

ZenKit/Native.cs

@@ -4027,6 +4027,12 @@ public static extern void ZkDaedalusScript_enumerateInstanceSymbols(UIntPtr slf,
 
         [DllImport(DllName)]
         public static extern uint ZkDaedalusInstance_getIndex(UIntPtr ptr);
+        
+        [DllImport(DllName)]
+        public static extern IntPtr ZkDaedalusInstance_getUserPointer(UIntPtr slf);
+        
+        [DllImport(DllName)]
+        public static extern void ZkDaedalusInstance_setUserPointer(UIntPtr slf, IntPtr ptr);
 
         [DllImport(DllName)]
         public static extern UIntPtr ZkDaedalusVm_load(UIntPtr buf);