xo-reader2: + IPrintable+DExprSeqState

xo-reader2/src/reader2/DExprSeqState.cpp

@@ -13,6 +13,21 @@ namespace xo {
     using xo::reflect::typeseq;
 
     namespace scm {
+        const char *
+        exprseqtype_descr(exprseqtype x)
+        {
+            switch (x) {
+            case exprseqtype::toplevel_interactive:
+                return "toplevel-interactive";
+            case exprseqtype::toplevel_batch:
+                return "toplevel-batch";
+            case exprseqtype::N:
+                break;
+            }
+
+            return "exprseqtype?";
+        }
+
         DExprSeqState::DExprSeqState(exprseqtype ty) : seqtype_{ty}
         {}
 
@@ -153,6 +168,15 @@ namespace xo {
                                            sym,
                                            this->get_expect_str());
         }
+
+        bool
+        DExprSeqState::pretty(const ppindentinfo & ppii) const
+        {
+            return ppii.pps()->pretty_struct
+                (ppii,
+                 "DExprSeqState",
+                 refrtag("seqtype", seqtype_));
+        }
     } /*namespace scm*/
 } /*namespace xo*/