Implement diagnostic output opcodes

engine/Age.Engine.Tests/DiagnosticOutputOpcodeTests.cs

@@ -0,0 +1,111 @@
+using Age.Engine.Hosting;
+using Age.Engine.Model;
+using Age.Engine.Sys4;
+using Age.Engine.Vm;
+
+public class DiagnosticOutputOpcodeTests
+{
+    private static readonly OpcodeTable Table = OpcodeTableJson.Load(Paths.OpcodesJson);
+    private static Operand I(long value) => new(0, value);
+    private static Operand S(int index) => new(2, index);
+    private static Operand G(int address) => new(3, address);
+    private static (int, Operand[]) Exit() => (0x2, []);
+
+    [Fact]
+    public void TrioPreservesNativeAppendShowClearAndPostClearOrdering()
+    {
+        Script scene = ScriptAssembler.Assemble(Table, "SYSTEM4.BIN",
+        [
+            (0x1b2, [S(0)]),
+            (0x1b2, [G(0x100)]),
+            (0x1b3, []),
+            (0x1b4, []),
+            (0x1b3, []),
+            (0x1b2, [S(1)]),
+            (0x1b4, []),
+            Exit(),
+        ], ["invalid mode=", "tail"]);
+        var host = new RecordingHost();
+        VirtualMachine? vm = null;
+        var pendingAtPresentation = new List<string>();
+        host.OnDiagnosticMessage = _ => pendingAtPresentation.Add(vm!.PendingDiagnosticText);
+        vm = new VirtualMachine(scene, Table, host);
+        vm.Globals[0x100] = -3;
+
+        vm.Run();
+
+        Assert.Equal(
+        [
+            "invalid mode=-3\r\n",
+            "\r\ntail",
+        ], pendingAtPresentation);
+        Assert.Equal(2, host.Diagnostics.Count);
+        Assert.All(host.Diagnostics, message => Assert.Equal("エラーが発生しました", message.Caption));
+        Assert.Equal(
+            "invalid mode=-3\r\n" +
+            "\n\nデバック情報：\n" +
+            "FILE=SYSTEM4.BIN ADDRESS=7 LINE=-1 COMMAND=-(436) DEPTH=0\n",
+            host.Diagnostics[0].Text);
+        Assert.Equal(
+            "\r\ntail" +
+            "\n\nデバック情報：\n" +
+            "FILE=SYSTEM4.BIN ADDRESS=C LINE=-1 COMMAND=-(436) DEPTH=0\n",
+            host.Diagnostics[1].Text);
+        Assert.Equal("", vm.PendingDiagnosticText);
+    }
+
+    [Fact]
+    public void GenericFormatterCoversIntegerFloatStringAndPointerOperandFamilies()
+    {
+        Script scene = ScriptAssembler.Assemble(Table, "FORMAT_DIAGNOSTIC.BIN",
+        [
+            (0x1b2, [I(unchecked((long)(uint)int.MinValue))]),
+            (0x1b2, [S(0)]),
+            (0x1b2, [new Operand(4, 0x10)]),
+            (0x1b2, [S(1)]),
+            (0x1b2, [new Operand(6, 0x20)]),
+            (0x1b2, [S(2)]),
+            (0x1b2, [new Operand(8, 0x21)]),
+            (0x1b4, []),
+            Exit(),
+        ], [":", "/", "/"]);
+        var host = new CaptureHost();
+        var vm = new VirtualMachine(scene, Table, host);
+        vm.GlobalFloats[0x10] = BitConverter.SingleToInt32Bits(1.25f);
+        vm.Globals[0x20] = 0x30;
+        vm.Globals[0x30] = -9;
+        vm.Globals[0x21] = 0x31;
+        vm.GlobalStrings[0x31] = "pointer text";
+
+        vm.Run();
+
+        DiagnosticMessage diagnostic = Assert.Single(host.Diagnostics);
+        Assert.StartsWith("-2147483648:1.250000/-9/pointer text", diagnostic.Text);
+    }
+
+    [Fact]
+    public void GameSessionCarriesEngineCtxAccumulatorAcrossFreshSceneVms()
+    {
+        var session = new GameSession();
+        Script field = ScriptAssembler.Assemble(Table, "FIELD.BIN",
+        [
+            (0x1b2, [S(0)]),
+            (0x1b3, []),
+            Exit(),
+        ], ["field diagnostic"]);
+        Script system = ScriptAssembler.Assemble(Table, "SYSTEM4.BIN",
+        [
+            (0x1b2, [S(0)]),
+            (0x1b4, []),
+            Exit(),
+        ], ["system diagnostic"]);
+        var host = new CaptureHost();
+
+        session.RunScene(field, Table, new CaptureHost());
+        Assert.Equal("field diagnostic\r\n", session.DiagnosticOutput.PendingText);
+        session.RunScene(system, Table, host);
+
+        Assert.StartsWith("field diagnostic\r\nsystem diagnostic", Assert.Single(host.Diagnostics).Text);
+        Assert.Equal("", session.DiagnosticOutput.PendingText);
+    }
+}

engine/Age.Engine.Tests/TestSupport.cs

@@ -59,6 +59,8 @@ internal class RecordingHost : IHost
     public readonly List<bool> MessageSkipChanges = new();
     public readonly List<bool> PhysicalMessageSkipChanges = new();
     public readonly List<string> Warnings = new();
+    public readonly List<DiagnosticMessage> Diagnostics = new();
+    public System.Action<DiagnosticMessage>? OnDiagnosticMessage;
     public readonly List<long> CursorResources = new();
     public readonly List<bool> AdvPagePresentationSuspended = new();
     public readonly List<(AdvLiveTextRun Run, int GlyphDelayMilliseconds)> LiveTextRuns = new();
@@ -67,6 +69,11 @@ internal class RecordingHost : IHost
     public int CursorClearCount;
     public int SceneContextResets;
     public void ReportWarning(string message) => Warnings.Add(message);
+    public void ShowDiagnosticMessage(DiagnosticMessage message)
+    {
+        Diagnostics.Add(message);
+        OnDiagnosticMessage?.Invoke(message);
+    }
     public void ShowText(int offset, string text) => Lines.Add((offset, text));
     public void ShowText(AdvLiveTextRun run, int glyphDelayMilliseconds)
     {