Add glance feature (draft)

BT-lang/Runtime/BTL.cs

@@ -1,6 +1,5 @@
-using System;
-using System.Linq;
-using UnityEngine;
+using System; using System.Collections.Generic; using System.Linq;
+using UnityEngine; using UnityEditor;
 using Elk; using Elk.Basic; using Elk.Basic.Runtime;
 using Cx = Elk.Basic.Runtime.Context;
 using Record = Elk.Memory.Record;
@@ -26,6 +25,12 @@ public partial class BTL : MonoBehaviour, LogSource{
     [Header("Debugging")]
     public bool pauseOnErrors = false;
     public bool logErrors = true;
+    #if UNITY_EDITOR
+    const float editorLabelHeight = 3.2f;
+    Color editorLabelColor = Color.black;
+    string editorLabelText = "Hello";
+    static Summarizer summarizer = new Summarizer();
+    #endif
     //
     Vars _vars;
 
@@ -93,6 +98,9 @@ void Update(){
             vars.output = interpreter.Run(vars.context)?.ToString();
             vars.exceptionMessage = null;
             vars.log = vars.context.graph.Format();
+            var strings = new List<string>();
+            vars.context.graph.Dump(strings);
+            editorLabelText = summarizer.AddAll(strings);
             if(useHistory) history.Log(vars.log, transform);
             vars.context = null;
         }catch(Exception ex){
@@ -104,6 +112,18 @@ void Update(){
         }
     }
 
+    #if UNITY_EDITOR
+    void OnDrawGizmos(){
+        GUIStyle style = new GUIStyle();
+        style.normal.textColor = editorLabelColor;
+        Handles.Label(
+            transform.position + Vector3.up * editorLabelHeight,
+            editorLabelText,
+            style
+        );
+    }
+    #endif
+
     void OnValidate(){
         if(path == null) return;
         if(path.EndsWith(".txt")){

BT-lang/Runtime/Summarizer.cs

@@ -0,0 +1,50 @@
+using System.Collections.Generic;
+
+public class Summarizer{
+
+    List<Entry> entries = new List<Entry>();
+
+    public string AddAll(List<string> arg){
+        Entry sel = null;
+        string selValue = null;
+        foreach(var str in arg){
+            if(str.Contains("✗")) continue;
+            var e = Add(str);
+            if(sel == null || sel.count > e.count){
+                sel = e;
+                selValue = str;
+            }
+        }
+        return selValue;
+    }
+
+
+    Entry Add(string arg){
+        arg = Strip(arg);
+        var e = entries.Find( x => x.value == arg);
+        if(e == null){
+            e = new Entry(1, arg);
+            entries.Add(e);
+            return e;
+        }else{
+            e.count ++;
+            return e;
+        }
+    }
+
+    string Strip(string arg){
+        int i = arg.IndexOf("(");
+        if(i >= 0) return arg.Substring(0, i);
+        else return arg;
+    }
+
+    class Entry{
+        public int count;
+        public string value;
+        public Entry(int count, string value){
+            this.count = count;
+            this.value = value;
+        }
+    }
+
+}

Elk/Runtime/Basic/Builder.cs

@@ -39,7 +39,7 @@ Module Parse(string path, IEnumerable<string> submodules){
             src = src.Substring(shebang.Length);
             // TODO submodule injection will confuse line numbers
             if(submodules != null) foreach(var e in submodules){
-                //nityEngine.Debug.Log($"Add submodule {e} (ref: {path})");
+                if(string.IsNullOrEmpty(e)) continue;
                 src = "with " + e + ";\n" + src;
             }
         try{

Elk/Runtime/Basic/Runtime/CallGraph.cs

@@ -43,6 +43,17 @@ public string Format(){
         return @out.ToString();
     }
 
+    public void Dump(List<string> @out)
+    => Dump(@out, root);
+
+    void Dump(List<string> @out, Node arg){
+        @out.Add(arg.info);
+        if(arg.children == null) return;
+        foreach(var child in arg.children){
+            Dump(@out, child);
+        }
+    }
+
     void Format(Node node, StringBuilder @out, string spaces){
         @out.Append(spaces);
         @out.Append(node.info);