From 3479752f0f736314348f0991198ea97f8f9dd4d9 Mon Sep 17 00:00:00 2001
From: Lucas Bajolet <r4pass@hotmail.com>
Date: Thu, 5 Jun 2014 11:14:59 -0400
Subject: [PATCH] lib/standard/ropes: Introduced method to_dot on Ropes, used
 for debugging

Signed-off-by: Lucas Bajolet <r4pass@hotmail.com>
---
 lib/ropes_debug.nit |   76 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100644 lib/ropes_debug.nit

diff --git a/lib/ropes_debug.nit b/lib/ropes_debug.nit
new file mode 100644
index 0000000..b9ba5ab
--- /dev/null
+++ b/lib/ropes_debug.nit
@@ -0,0 +1,76 @@
+# This file is part of NIT ( http://www.nitlanguage.org ).
+#
+# Copyright 2004-2008 Jean Privat <jean@pryen.org>
+# Copyright 2006-2008 Floréal Morandat <morandat@lirmm.fr>
+#
+# This file is free software, which comes along with NIT.  This software is
+# distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
+# without  even  the implied warranty of  MERCHANTABILITY or  FITNESS FOR A
+# PARTICULAR PURPOSE.  You can modify it is you want,  provided this header
+# is kept unaltered, and a notification of the changes is added.
+# You  are  allowed  to  redistribute it and sell it, alone or is a part of
+# another product.
+
+# Exposes methods for debugging ropes when needed.
+module ropes_debug
+
+intrude import ::standard::ropes
+import ::standard
+
+redef class Rope
+	# Writes self as a dot file on the hard drive
+	fun to_dot(filepath: String): String is abstract
+end
+
+redef class RopeNode
+	# Generates a dot string
+	fun to_dot(s: String): String is abstract
+end
+
+redef class Leaf
+	redef fun to_dot(s): String
+	do
+		s += "n{object_id} [label = \"{str}\" shape = rect];\n"
+		s += "n{str.object_id} -> n{object_id} [label = \"contains\"];\n"
+		s = str.to_dot(s)
+		return s
+	end
+end
+
+redef class Concat
+	redef fun to_dot(s): String
+	do
+		s += "n{object_id} [label = {length}];\n"
+		if left != null then
+			s += "n{object_id} -> n{left.object_id} [label = \"left\"];\n"
+			s = left.to_dot(s)
+		end
+		if right != null then
+			s += "n{object_id} -> n{right.object_id} [label = \"right\"];\n"
+			s = right.to_dot(s)
+		end
+		return s
+	end
+end
+
+redef class FlatString
+	fun to_dot(s: String): String
+	do
+		return s + "n{object_id} [label=\"FlatString\\nindex_from = {index_from}\\nindex_to = {index_to}\\nNativeString = {items.to_s_with_length(items.cstring_length)}\"];\n"
+	end
+end
+
+redef class RopeString
+	redef fun to_dot(filepath: String)
+	do
+		var of = new OFStream.open(filepath)
+		var ret: String = new RopeString.from("digraph g \{\n")
+		ret = root.to_dot(ret).as(RopeString)
+		ret += "\}\n"
+		ret.write_to(of)
+		of.close
+		return ret
+	end
+end
+
+
-- 
1.7.9.5