From 8510cbcff4400f2abe34ba592d808ea2cd0a239a Mon Sep 17 00:00:00 2001
From: John Kerl <kerl.john.r@gmail.com>
Date: Wed, 17 Feb 2021 00:44:40 -0500
Subject: [PATCH] fix mlr repl -d

---
 go/reg-test/cases/case-repl.sh        | 11 +++++++++++
 go/reg-test/expected/case-repl.sh.out | 19 +++++++++++++++++++
 go/src/auxents/repl/session.go        |  2 +-
 go/todo.txt                           | 19 +++++++++++++++++++
 4 files changed, 50 insertions(+), 1 deletion(-)

diff --git a/go/reg-test/cases/case-repl.sh b/go/reg-test/cases/case-repl.sh
index e3a4ac050..10bf9cd2e 100644
--- a/go/reg-test/cases/case-repl.sh
+++ b/go/reg-test/cases/case-repl.sh
@@ -96,3 +96,14 @@ run_mlr repl --json $indir/flatten-input-2.json <<EOF
 :rw
 :rw
 EOF
+
+# ----------------------------------------------------------------
+run_mlr repl -d <<EOF
+y=x+1
+EOF
+run_mlr repl -D <<EOF
+y=x+1
+EOF
+run_mlr repl -v <<EOF
+y=x+1
+EOF
diff --git a/go/reg-test/expected/case-repl.sh.out b/go/reg-test/expected/case-repl.sh.out
index 63b075e90..b2a12a6a1 100644
--- a/go/reg-test/expected/case-repl.sh.out
+++ b/go/reg-test/expected/case-repl.sh.out
@@ -232,3 +232,22 @@ End of record stream
 }
 End of record stream
 
+mlr repl -d
+(statement-block
+    (=
+        y
+        (+ x 1)
+    )
+)
+
+mlr repl -D
+(statement-block (= y (+ x 1)))
+
+mlr repl -v
+* statement block
+    * assignment "="
+        * local variable "y"
+        * operator "+"
+            * local variable "x"
+            * int literal "1"
+
diff --git a/go/src/auxents/repl/session.go b/go/src/auxents/repl/session.go
index 14fe6e46f..18ad26688 100644
--- a/go/src/auxents/repl/session.go
+++ b/go/src/auxents/repl/session.go
@@ -80,7 +80,7 @@ func NewRepl(
 		prompt1:         getPrompt1(),
 		prompt2:         getPrompt2(),
 
-		astPrintMode: ASTPrintNone,
+		astPrintMode: astPrintMode,
 		cstRootNode:  cst.NewEmptyRoot(&options.WriterOptions).WithRedefinableUDFUDS(),
 
 		options:      options,
diff --git a/go/todo.txt b/go/todo.txt
index 690950141..6f8e01c3d 100644
--- a/go/todo.txt
+++ b/go/todo.txt
@@ -3,6 +3,22 @@ TOP OF LIST:
 
 ! GC ./parser-experiments/two/src/github.com/goccmack/gocc/
 
+* mrpl --prompt x
+* mrpl colorized help -- ?
+* mrpl some <<...>> ... or something ... for immediate multiline ...
+* is mrpl -d broken?
+* stack optimization:
+  o AST pre-pass as in the C impl
+  o Maybe SetAtScope -> passback of int?
+    - caller
+      > name="a" idx=-1
+      > idx,err := Stack.Set(name, idx, value)
+    - callee
+      > if idx != -1 {
+          idxvars[idx].Set
+        }
+    - maybe opaque idx type -- pair of frameset/frame indices
+
 * regexes
   o finish stats1 -r
   o regex captures ...
@@ -17,6 +33,9 @@ w go get github.com/johnkerl/gocc@gocc2x.3, pending https://github.com/goccmack/
 
 * json null
 * smart fmtnum
+  - fmtnum
+  - ofmt
+  - no other callsites?!?!?!
 ! smarter head-stop etc https://github.com/johnkerl/miller/issues/291
 
 * port verb merge-fields