io: implement DEBUG-EVAL

kanaka · Oct 25, 2024 · 46adc4b · 46adc4b
1 parent 3b16c39
commit 46adc4b
Show file tree

Hide file tree

Showing 9 changed files with 59 additions and 0 deletions.
diff --git a/impls/io/step2_eval.io b/impls/io/step2_eval.io
@@ -19,6 +19,9 @@ eval_ast := method(ast, env,
 )
 
 EVAL := method(ast, env,
+
+    //  ("EVAL: " .. PRINT(ast)) println
+
     if(ast type != "MalList", return(eval_ast(ast, env)))
     if(ast isEmpty, return ast)
     el := eval_ast(ast, env)

diff --git a/impls/io/step3_env.io b/impls/io/step3_env.io
@@ -18,7 +18,14 @@ eval_ast := method(ast, env,
    )
 )
 
+debugEvalSymbol := MalSymbol with("DEBUG-EVAL")
+
 EVAL := method(ast, env,
+
+    debugEvalEnv := env find(debugEvalSymbol)
+    if((debugEvalEnv isNil not) and (debugEvalEnv get(debugEvalSymbol)),
+        ("EVAL: " .. PRINT(ast)) println)
+
     if(ast type != "MalList", return(eval_ast(ast, env)))
     if(ast isEmpty, return ast)
     if(ast at(0) type == "MalSymbol",

diff --git a/impls/io/step4_if_fn_do.io b/impls/io/step4_if_fn_do.io
@@ -18,7 +18,14 @@ eval_ast := method(ast, env,
    )
 )
 
+debugEvalSymbol := MalSymbol with("DEBUG-EVAL")
+
 EVAL := method(ast, env,
+
+    debugEvalEnv := env find(debugEvalSymbol)
+    if((debugEvalEnv isNil not) and (debugEvalEnv get(debugEvalSymbol)),
+        ("EVAL: " .. PRINT(ast)) println)
+
     if(ast type != "MalList", return(eval_ast(ast, env)))
     if(ast isEmpty, return ast)
     if(ast at(0) type == "MalSymbol",

diff --git a/impls/io/step5_tco.io b/impls/io/step5_tco.io
@@ -18,8 +18,15 @@ eval_ast := method(ast, env,
    )
 )
 
+debugEvalSymbol := MalSymbol with("DEBUG-EVAL")
+
 EVAL := method(ast, env,
     loop(
+
+        debugEvalEnv := env find(debugEvalSymbol)
+        if((debugEvalEnv isNil not) and (debugEvalEnv get(debugEvalSymbol)),
+            ("EVAL: " .. PRINT(ast)) println)
+
         if(ast type != "MalList", return(eval_ast(ast, env)))
         if(ast isEmpty, return ast)
         if(ast at(0) type == "MalSymbol",

diff --git a/impls/io/step6_file.io b/impls/io/step6_file.io
@@ -18,8 +18,15 @@ eval_ast := method(ast, env,
    )
 )
 
+debugEvalSymbol := MalSymbol with("DEBUG-EVAL")
+
 EVAL := method(ast, env,
     loop(
+
+        debugEvalEnv := env find(debugEvalSymbol)
+        if((debugEvalEnv isNil not) and (debugEvalEnv get(debugEvalSymbol)),
+            ("EVAL: " .. PRINT(ast)) println)
+
         if(ast type != "MalList", return(eval_ast(ast, env)))
         if(ast isEmpty, return ast)
         if(ast at(0) type == "MalSymbol",

diff --git a/impls/io/step7_quote.io b/impls/io/step7_quote.io
@@ -35,8 +35,15 @@ eval_ast := method(ast, env,
    )
 )
 
+debugEvalSymbol := MalSymbol with("DEBUG-EVAL")
+
 EVAL := method(ast, env,
     loop(
+
+        debugEvalEnv := env find(debugEvalSymbol)
+        if((debugEvalEnv isNil not) and (debugEvalEnv get(debugEvalSymbol)),
+            ("EVAL: " .. PRINT(ast)) println)
+
         if(ast type != "MalList", return(eval_ast(ast, env)))
         if(ast isEmpty, return ast)
         if(ast at(0) type == "MalSymbol",

diff --git a/impls/io/step8_macros.io b/impls/io/step8_macros.io
@@ -52,8 +52,15 @@ eval_ast := method(ast, env,
    )
 )
 
+debugEvalSymbol := MalSymbol with("DEBUG-EVAL")
+
 EVAL := method(ast, env,
     loop(
+
+        debugEvalEnv := env find(debugEvalSymbol)
+        if((debugEvalEnv isNil not) and (debugEvalEnv get(debugEvalSymbol)),
+            ("EVAL: " .. PRINT(ast)) println)
+
         if(ast type != "MalList", return(eval_ast(ast, env)))
 
         ast = macroexpand(ast, env)

diff --git a/impls/io/step9_try.io b/impls/io/step9_try.io
@@ -52,8 +52,15 @@ eval_ast := method(ast, env,
    )
 )
 
+debugEvalSymbol := MalSymbol with("DEBUG-EVAL")
+
 EVAL := method(ast, env,
     loop(
+
+        debugEvalEnv := env find(debugEvalSymbol)
+        if((debugEvalEnv isNil not) and (debugEvalEnv get(debugEvalSymbol)),
+            ("EVAL: " .. PRINT(ast)) println)
+
         if(ast type != "MalList", return(eval_ast(ast, env)))
 
         ast = macroexpand(ast, env)

diff --git a/impls/io/stepA_mal.io b/impls/io/stepA_mal.io
@@ -52,8 +52,15 @@ eval_ast := method(ast, env,
    )
 )
 
+debugEvalSymbol := MalSymbol with("DEBUG-EVAL")
+
 EVAL := method(ast, env,
     loop(
+
+        debugEvalEnv := env find(debugEvalSymbol)
+        if((debugEvalEnv isNil not) and (debugEvalEnv get(debugEvalSymbol)),
+            ("EVAL: " .. PRINT(ast)) println)
+
         if(ast type != "MalList", return(eval_ast(ast, env)))
 
         ast = macroexpand(ast, env)