Core parsing of groups - functions not yet included.

Library/Core/Model/Workspace.cs

@@ -50,21 +50,22 @@ public class Workspace : IFragment
     return returnValue;
   }
 
-  private void InspectBlockChain(Block? block)
+  private void InspectBlockChain(Block? block, List<GroupInfo> groups)
   {
     for (; block != null; block = block.Next)
     {
-      System.Diagnostics.Debug.WriteLine(block.Type);
+      GroupInfo? info = null;
 
       if (block is ExecutionGroup group)
-      {
-        System.Diagnostics.Debug.WriteLine(group.Fields["NAME"]);
+        groups.Add(info = new GroupInfo { Id = block.Id, Name = group.Fields["NAME"] });
 
-        InspectBlockChain(group.Values.Get("RESULT")?.Block);
-      }
+      var list = info?.Children ?? groups;
+
+      foreach (var value in block.Values)
+        InspectBlockChain(value.Block, list);
 
       foreach (var statement in block.Statements)
-        InspectBlockChain(statement.Block);
+        InspectBlockChain(statement.Block, list);
     }
   }
 
@@ -73,8 +74,11 @@ private void InspectBlockChain(Block? block)
   /// the script.
   /// </summary>
   /// <returns>The group information tree.</returns>
-  public async Task<int> GetGroupTreeAsync()
+  public async Task<List<GroupInfo>> GetGroupTreeAsync()
   {
+    /* Resulting list. */
+    var groups = new List<GroupInfo>();
+
     /* Use a dummy site. */
     var context = new Context((IScriptSite)null!);
 
@@ -85,9 +89,9 @@ public async Task<int> GetGroupTreeAsync()
     /* Inspect all blocks. */
     foreach (var block in Blocks)
       if (block is not ProceduresDef)
-        InspectBlockChain(block);
+        InspectBlockChain(block, groups);
 
-    return 0;
+    return groups;
   }
 }
 

Library/Core/Parser.cs

@@ -58,7 +58,7 @@ private class ParsedScript(Workspace workspace) : IParsedScript
       }
 
       /// <inheritdoc/>
-      public Task<int> GetGroupTreeAsync() => _workspace.GetGroupTreeAsync();
+      public Task<List<GroupInfo>> GetGroupTreeAsync() => _workspace.GetGroupTreeAsync();
     }
 
     public IParsedScript Parse(string scriptAsText)

Library/Scripting/Engine/GroupInfo.cs

@@ -0,0 +1,28 @@
+using System.ComponentModel.DataAnnotations;
+using System.Diagnostics.CodeAnalysis;
+
+namespace BlocklyNet.Scripting.Engine;
+
+/// <summary>
+/// 
+/// </summary>
+public class GroupInfo
+{
+    /// <summary>
+    /// 
+    /// </summary>
+    [NotNull, Required]
+    public string Id { get; set; } = null!;
+
+    /// <summary>
+    /// 
+    /// </summary>
+    [NotNull, Required]
+    public string? Name { get; set; }
+
+    /// <summary>
+    /// 
+    /// </summary>
+    [NotNull, Required]
+    public List<GroupInfo> Children { get; set; } = [];
+}

Library/Scripting/Parsing/IParsedScript.cs

@@ -26,5 +26,5 @@ public interface IParsedScript
     /// <summary>
     /// 
     /// </summary>
-    Task<int> GetGroupTreeAsync();
+    Task<List<GroupInfo>> GetGroupTreeAsync();
 }

Tests/Engine/GroupAnalyserTests.cs

@@ -188,6 +188,6 @@ public async Task Can_Retrieve_Group_Structure_With_Functions_Async()
 
         var tree = await script.GetGroupTreeAsync();
 
-        Assert.That(tree, Is.EqualTo(0));
+        Assert.That(tree, Has.Count.EqualTo(3));
     }
 }