Add a representation for the splay tree

1 files changed, 6 insertions, 0 deletions

diff --git a/main.ml b/main.ml
index 9ecdf84..3b83e85 100755
--- a/main.ml
+++ b/main.ml
@@ -215,6 +215,12 @@ and command (t, screen) action = begin
   | ("w", file) -> (* Save the file *)
       Odf.save t.Sheet.data file;
       normal_mode @@ redraw t screen
+  | ("repr", file) -> (* Save the file *)
+      let out_gv = open_out_bin file in
+      let form = Format.formatter_of_out_channel out_gv in
+      Evaluator.repr form (Evaluator.get_catalog ());
+      close_out out_gv;
+      normal_mode @@ redraw t screen
   | ("enew", _) -> (* Start a new spreadsheet *)
       normal_mode @@ redraw (Sheet.create Sheet.Raw.empty) screen
   | ("q", _) ->  (* Quit *)