basic: implement DEBUG-EVAL

kanaka · Nov 13, 2024 · 972d561 · 972d561
1 parent d3d6674
commit 972d561
Show file tree

Hide file tree

Showing 8 changed files with 40 additions and 16 deletions.
diff --git a/impls/basic/step3_env.in.bas b/impls/basic/step3_env.in.bas
@@ -92,8 +92,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":CALL ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

diff --git a/impls/basic/step4_if_fn_do.in.bas b/impls/basic/step4_if_fn_do.in.bas
@@ -95,8 +95,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":CALL ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

diff --git a/impls/basic/step5_tco.in.bas b/impls/basic/step5_tco.in.bas
@@ -101,8 +101,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":CALL ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

diff --git a/impls/basic/step6_file.in.bas b/impls/basic/step6_file.in.bas
@@ -101,8 +101,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":CALL ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

diff --git a/impls/basic/step7_quote.in.bas b/impls/basic/step7_quote.in.bas
@@ -214,8 +214,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":CALL ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

diff --git a/impls/basic/step8_macros.in.bas b/impls/basic/step8_macros.in.bas
@@ -249,8 +249,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":CALL ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

diff --git a/impls/basic/step9_try.in.bas b/impls/basic/step9_try.in.bas
@@ -249,8 +249,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":CALL ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST

diff --git a/impls/basic/stepA_mal.in.bas b/impls/basic/stepA_mal.in.bas
@@ -249,8 +249,11 @@ SUB EVAL
 
   IF ER<>-2 THEN GOTO EVAL_RETURN
 
-  REM AZ=A:B=1:GOSUB PR_STR
-  REM PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  B$="DEBUG-EVAL":CALL ENV_GET
+  IF R3=0 OR R=0 OR R=2 THEN GOTO DEBUG_EVAL_DONE
+    AZ=A:B=1:GOSUB PR_STR
+    PRINT "EVAL: "+R$+" [A:"+STR$(A)+", LV:"+STR$(LV)+"]"
+  DEBUG_EVAL_DONE:
 
   GOSUB LIST_Q
   IF R THEN GOTO APPLY_LIST