Improve handling of Lua script callbacks

src/BizHawk.Client.EmuHawk/Api/ApiManager.cs → src/BizHawk.Client.Common/Api/ApiManager.cs

@@ -4,27 +4,29 @@
 using System.Linq;
 using System.Reflection;
 
-using BizHawk.Client.Common;
 using BizHawk.Emulation.Common;
 
-namespace BizHawk.Client.EmuHawk
+namespace BizHawk.Client.Common
 {
 	public static class ApiManager
 	{
-		private static readonly IReadOnlyList<(Type ImplType, Type InterfaceType, ConstructorInfo Ctor, Type[] CtorTypes)> _apiTypes;
+		private static readonly List<(Type ImplType, Type InterfaceType, ConstructorInfo Ctor, Type[] CtorTypes)> _apiTypes = new();
 
 		static ApiManager()
 		{
-			var list = new List<(Type, Type, ConstructorInfo, Type[])>();
-			foreach (var implType in ReflectionCache_Biz_Cli_Com.Types.Concat(ReflectionCache.Types)
+			foreach (var implType in ReflectionCache_Biz_Cli_Com.Types
 				.Where(t => /*t.IsClass &&*/t.IsSealed)) // small optimisation; api impl. types are all sealed classes
 			{
-				var interfaceType = implType.GetInterfaces().FirstOrDefault(t => typeof(IExternalApi).IsAssignableFrom(t) && t != typeof(IExternalApi));
-				if (interfaceType == null) continue; // if we couldn't determine what it's implementing, then it's not an api impl. type
-				var ctor = implType.GetConstructors().Single();
-				list.Add((implType, interfaceType, ctor, ctor.GetParameters().Select(pi => pi.ParameterType).ToArray()));
+				AddApiType(implType);
 			}
-			_apiTypes = list.ToArray();
+		}
+
+		public static void AddApiType(Type type)
+		{
+			var interfaceType = type.GetInterfaces().FirstOrDefault(t => typeof(IExternalApi).IsAssignableFrom(t) && t != typeof(IExternalApi));
+			if (interfaceType == null) return; // if we couldn't determine what it's implementing, then it's not an api impl. type
+			var ctor = type.GetConstructors().Single();
+			_apiTypes.Add((type, interfaceType, ctor, ctor.GetParameters().Select(pi => pi.ParameterType).ToArray()));
 		}
 
 		private static ApiContainer? _container;
@@ -38,7 +40,7 @@ private static ApiContainer Register(
 			DisplayManagerBase displayManager,
 			InputManager inputManager,
 			IMovieSession movieSession,
-			ToolManager toolManager,
+			IToolLoader toolManager,
 			Config config,
 			IEmulator emulator,
 			IGameInfo game,
@@ -52,7 +54,7 @@ private static ApiContainer Register(
 				[typeof(DisplayManagerBase)] = displayManager,
 				[typeof(InputManager)] = inputManager,
 				[typeof(IMovieSession)] = movieSession,
-				[typeof(ToolManager)] = toolManager,
+				[typeof(IToolLoader)] = toolManager,
 				[typeof(Config)] = config,
 				[typeof(IEmulator)] = emulator,
 				[typeof(IGameInfo)] = game,
@@ -74,7 +76,7 @@ public static IExternalApiProvider Restart(
 			DisplayManagerBase displayManager,
 			InputManager inputManager,
 			IMovieSession movieSession,
-			ToolManager toolManager,
+			IToolLoader toolManager,
 			Config config,
 			IEmulator emulator,
 			IGameInfo game,
@@ -92,7 +94,7 @@ public static ApiContainer RestartLua(
 			DisplayManagerBase displayManager,
 			InputManager inputManager,
 			IMovieSession movieSession,
-			ToolManager toolManager,
+			IToolLoader toolManager,
 			Config config,
 			IEmulator emulator,
 			IGameInfo game,

src/BizHawk.Client.Common/IMainFormForTools.cs

@@ -0,0 +1,105 @@
+using BizHawk.Bizware.Graphics;
+using BizHawk.Emulation.Common;
+
+namespace BizHawk.Client.Common
+{
+	public interface IMainFormForTools : IDialogController
+	{
+		/// <remarks>referenced by 3 or more tools</remarks>
+		CheatCollection CheatList { get; }
+
+		/// <remarks>referenced by 3 or more tools</remarks>
+		string CurrentlyOpenRom { get; }
+
+		/// <remarks>referenced from HexEditor and RetroAchievements</remarks>
+		LoadRomArgs CurrentlyOpenRomArgs { get; }
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		bool EmulatorPaused { get; }
+
+		/// <remarks>only referenced from PlaybackBox</remarks>
+		bool HoldFrameAdvance { get; set; }
+
+		/// <remarks>only referenced from BasicBot</remarks>
+		bool InvisibleEmulation { get; set; }
+
+		/// <remarks>only referenced from LuaConsole</remarks>
+		bool IsTurboing { get; }
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		bool IsFastForwarding { get; }
+
+		/// <remarks>referenced from PlayMovie and TAStudio</remarks>
+		int? PauseOnFrame { get; set; }
+
+		/// <remarks>only referenced from PlaybackBox</remarks>
+		bool PressRewind { get; set; }
+
+		/// <remarks>referenced from BookmarksBranchesBox and VideoWriterChooserForm</remarks>
+		BitmapBuffer CaptureOSD();
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		void DisableRewind();
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		void EnableRewind(bool enabled);
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		bool EnsureCoreIsAccurate();
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		void FrameAdvance(bool discardApiHawkSurfaces = true);
+
+		/// <remarks>only referenced from LuaConsole</remarks>
+		/// <param name="forceWindowResize">Override <see cref="Common.Config.ResizeWithFramebuffer"/></param>
+		void FrameBufferResized(bool forceWindowResize = false);
+
+		/// <remarks>only referenced from BasicBot</remarks>
+		bool LoadQuickSave(int slot, bool suppressOSD = false);
+
+		/// <remarks>referenced from MultiDiskBundler and RetroAchievements</remarks>
+		bool LoadRom(string path, LoadRomArgs args);
+
+		/// <remarks>only referenced from BookmarksBranchesBox</remarks>
+		BitmapBuffer MakeScreenshotImage();
+
+		/// <remarks>referenced from ToolFormBase</remarks>
+		void MaybePauseFromMenuOpened();
+
+		/// <remarks>referenced from ToolFormBase</remarks>
+		void MaybeUnpauseFromMenuClosed();
+
+		/// <remarks>referenced by 3 or more tools</remarks>
+		void PauseEmulator();
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		bool BlockFrameAdvance { get; set; }
+
+		/// <remarks>referenced from PlaybackBox and TAStudio</remarks>
+		void SetMainformMovieInfo();
+
+		/// <remarks>referenced by 3 or more tools</remarks>
+		bool StartNewMovie(IMovie movie, bool newMovie);
+
+		/// <remarks>only referenced from BasicBot</remarks>
+		void Throttle();
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		void TogglePause();
+
+		/// <remarks>referenced by 3 or more tools</remarks>
+		void UnpauseEmulator();
+
+		/// <remarks>only referenced from BasicBot</remarks>
+		void Unthrottle();
+
+		/// <remarks>only referenced from LogWindow</remarks>
+		void UpdateDumpInfo(RomStatus? newStatus = null);
+
+		/// <remarks>only referenced from BookmarksBranchesBox</remarks>
+		void UpdateStatusSlots();
+
+		/// <remarks>only referenced from TAStudio</remarks>
+		void UpdateWindowTitle();
+	}
+}

src/BizHawk.Client.Common/lua/CommonLibs/ClientLuaLibrary.cs

@@ -17,6 +17,8 @@ namespace BizHawk.Client.Common
 	[Description("A library for manipulating the EmuHawk client UI")]
 	public sealed class ClientLuaLibrary : LuaLibraryBase
 	{
+		public Lazy<string> AllAPINames { get; set; }
+
 		[OptionalService]
 		private IVideoProvider VideoProvider { get; set; }
 
@@ -111,6 +113,11 @@ public void SeekFrame(int frame)
 		public int GetApproxFramerate()
 			=> APIs.EmuClient.GetApproxFramerate();
 
+		[LuaMethodExample("local stconget = client.getluafunctionslist( );")]
+		[LuaMethod("getluafunctionslist", "returns a list of implemented functions")]
+		public string GetLuaFunctionsList()
+			=> AllAPINames.Value;
+
 		[LuaMethodExample("local incliget = client.gettargetscanlineintensity( );")]
 		[LuaMethod("gettargetscanlineintensity", "Gets the current scanline intensity setting, used for the scanline display filter")]
 		public int GetTargetScanlineIntensity()

src/BizHawk.Client.Common/lua/ILuaLibraries.cs

@@ -2,6 +2,8 @@ namespace BizHawk.Client.Common
 {
 	public interface ILuaLibraries
 	{
+		LuaFile CurrentFile { get; }
+
 		/// <remarks>pretty hacky... we don't want a lua script to be able to restart itself by rebooting the core</remarks>
 		bool IsRebootingCore { get; set; }
 
@@ -13,5 +15,7 @@ public interface ILuaLibraries
 		PathEntryCollection PathEntries { get; }
 
 		NLuaTableHelper GetTableHelper();
+
+		void Sandbox(LuaFile luaFile, Action callback, Action<string> exceptionCallback = null);
 	}
 }

src/BizHawk.Client.Common/lua/INamedLuaFunction.cs

@@ -1,25 +1,27 @@
-using BizHawk.Emulation.Common;
-
 namespace BizHawk.Client.Common
 {
 	public interface INamedLuaFunction
 	{
-		Action InputCallback { get; }
-
 		Guid Guid { get; }
 
 		string GuidStr { get; }
 
-		MemoryCallbackDelegate MemCallback { get; }
-
-		/// <summary>for <c>doom.on_prandom</c>; single param: caller of RNG, per categories <see href="https://github.com/TASEmulators/dsda-doom/blob/7f03360ce0e9000c394fb99869d78adf4603ade5/prboom2/src/m_random.h#L63-L133">in source</see></summary>
-		Action<int> RandomCallback { get; }
-
-		/// <summary>for <c>doom.on_use and doom.on_cross</c>; two params: pointers to activated line and to mobj that triggered it</summary>
-		Action<long, long> LineCallback { get; }
-
 		string Name { get; }
 
+		/// <summary>
+		/// Will be called when the Lua function is unregistered / removed from the list of active callbacks.
+		/// The intended use case is to support callback systems that don't directly support Lua.
+		/// Here's what that looks like:
+		/// 1) A NamedLuaFunction is created and added to it's owner's list of registered functions, as normal with all Lua functions.
+		/// 2) A C# function is created for this specific NamedLuaFunction, which calls the Lua function via <see cref="Call(object[])"/> and possibly does other related Lua setup and cleanup tasks.
+		/// 3) That C# function is added to the non-Lua callback system.
+		/// 4) <see cref="OnRemove"/> is assigned an <see cref="Action"/> that removes the C# function from the non-Lua callback.
+		/// </summary>
 		Action OnRemove { get; set; }
+
+		/// <summary>
+		/// Calls the Lua function with the given arguments.
+		/// </summary>
+		object[] Call(object[] args);
 	}
 }

src/BizHawk.Client.Common/lua/IPrintingLibrary.cs

@@ -0,0 +1,7 @@
+namespace BizHawk.Client.Common
+{
+	public interface IPrintingLibrary
+	{
+		void Log(params object[] outputs);
+	}
+}

src/BizHawk.Client.Common/lua/IRegisterFunctions.cs

@@ -0,0 +1,7 @@
+namespace BizHawk.Client.Common
+{
+	public interface IRegisterFunctions
+	{
+		LuaLibraryBase.NLFAddCallback CreateAndRegisterNamedFunction { get; set; }
+	}
+}