Implement BACKTRACE

2016-12-15 17:26:27 +09:00
parent 10eb0803fe
commit 1fc36cdc90
3 changed files with 39 additions and 1 deletions
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -2691,6 +2691,15 @@ class BuiltinFunction
                throw new TypeMismatch();
        }
    }
+    static void BACKTRACE(PetitComputer p)
+    {
+        auto bt = p.vm.backTrace;
+        foreach (t; bt)
+        {
+            p.console.print(t.slot, ":\t", t.line, ":\t", t.name, "\n");
+            //TODO:=== Press ENTER ===
+        }
+    }
    //alias void function(PetitComputer, Value[], Value[]) BuiltinFunc;
    static BuiltinFunctions[wstring] builtinFunctions;
    static wstring getBasicName(BFD)(const wstring def)