From 0220af69b86ca79c5ba7724e9c5d756f6e46fd74 Mon Sep 17 00:00:00 2001
From: Sebastian Ullrich <sebasti@nullri.ch>
Date: Sun, 2 Sep 2018 16:18:03 -0700
Subject: [PATCH] feat(library/print): print mdata

Not sure if helpful or annoying for the future...
---
 src/library/print.cpp | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/src/library/print.cpp b/src/library/print.cpp
index d8c163c327..a38573d29b 100644
--- a/src/library/print.cpp
+++ b/src/library/print.cpp
@@ -208,6 +208,25 @@ struct print_expr_fn {
         }
     }
 
+    void print_mdata(expr const & a) {
+        out() << "[mdata ";
+        auto k = mdata_data(a);
+        while (!empty(k)) {
+            out() << head(k).fst() << ":";
+            auto const & v = head(k).snd();
+            switch (v.kind()) {
+                case data_value_kind::Bool: out() << v.get_bool(); break;
+                case data_value_kind::Name: out() << v.get_name(); break;
+                case data_value_kind::Nat: out() << v.get_nat(); break;
+                case data_value_kind::String: out() << escaped(v.get_string().data()); break;
+            }
+            out() << " ";
+            k = tail(k);
+        }
+        print(mdata_expr(a));
+        out() << "]";
+    }
+
     void print(expr const & a) {
         switch (a.kind()) {
         case expr_kind::MVar:
@@ -217,7 +236,7 @@ struct print_expr_fn {
             out() << fix_name(local_pp_name(a));
             break;
         case expr_kind::MData:
-            out() << "[mdata "; print(mdata_expr(a)); out() << "]";
+            print_mdata(a);
             break;
         case expr_kind::Proj:
             print(proj_expr(a)); out() << "." << proj_idx(a).to_mpz();