From 5337b4bef73e375d1f8cf4bb5eae543e7cab4922 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 15 Aug 2013 08:06:37 +0000
Subject: graphvizAbstractTree in the C and Python runtimes

---
 src/runtime/c/utils/pgf-service.c | 83 +--------------------------------------
 1 file changed, 1 insertion(+), 82 deletions(-)

(limited to 'src/runtime/c/utils')

diff --git a/src/runtime/c/utils/pgf-service.c b/src/runtime/c/utils/pgf-service.c
index 33369b9f5..b0cb190b8 100644
--- a/src/runtime/c/utils/pgf-service.c
+++ b/src/runtime/c/utils/pgf-service.c
@@ -55,87 +55,6 @@ url_escape(char *str)
     *pw++ = 0;
 }
 
-static int
-generate_graphviz_expr(PgfExpr expr, int *pid,
-                       GuWriter* wtr, GuExn* err, GuPool* pool)
-{
-	int id = -1;
-	
-	GuVariantInfo ei = gu_variant_open(expr);
-	switch (ei.tag) {
-	case PGF_EXPR_FUN: {
-		PgfExprFun* fun = ei.data;
-		id = (*pid)++;
-		gu_printf(wtr, err, "n%d[label = \"", id);
-		gu_string_write(fun->fun, wtr, err);
-		gu_puts("\", style = \"solid\", shape = \"plaintext\"]\n", wtr, err);
-		break;
-	}
-	case PGF_EXPR_APP: {
-		PgfExprApp* app = ei.data;
-		id = generate_graphviz_expr(app->fun, pid, wtr, err, pool);
-		int arg_id = generate_graphviz_expr(app->arg, pid, wtr, err, pool);
-		gu_printf(wtr, err, "n%d -- n%d [style = \"solid\"]\n", id, arg_id);
-		break;
-	}
-	case PGF_EXPR_ABS:
-	case PGF_EXPR_LIT: {
-		PgfExprLit* lit = ei.data;
-		id = (*pid)++;
-		gu_printf(wtr, err, "n%d[label = \"", id);
-		
-		GuVariantInfo ei = gu_variant_open(lit->lit);
-		switch (ei.tag) {
-		case PGF_LITERAL_STR: {
-			PgfLiteralStr* lit = ei.data;
-			gu_puts("\\\"", wtr, err);
-			gu_string_write(lit->val, wtr, err);
-			gu_puts("\\\"", wtr, err);
-			break;
-		}
-		case PGF_LITERAL_INT: {
-			PgfLiteralInt* lit = ei.data;
-			gu_printf(wtr, err, "%d", lit->val);
-			break;
-		}
-		case PGF_LITERAL_FLT: {
-			PgfLiteralFlt* lit = ei.data;
-			gu_printf(wtr, err, "%lf", lit->val);
-			break;
-		}
-		default:
-			gu_impossible();
-		}
-
-		gu_puts("\", style = \"solid\", shape = \"plaintext\"]\n", wtr, err);
-		break;
-	}
-	case PGF_EXPR_META:
-		id = (*pid)++;
-		gu_printf(wtr, err, "n%d[label = \"?\", style = \"solid\", shape = \"plaintext\"]\n", id);
-		break;
-	case PGF_EXPR_VAR:
-	case PGF_EXPR_TYPED:
-	case PGF_EXPR_IMPL_ARG:
-		gu_impossible();
-		break;
-	default:
-		gu_impossible();
-	}
-	
-	return id;
-}
-
-static void
-generate_graphviz(PgfExpr expr, GuWriter* wtr, GuExn* err, GuPool* pool)
-{
-	int id = 0;
-
-	gu_puts("graph {\n", wtr, err);
-	generate_graphviz_expr(expr, &id, wtr, err, pool);
-	gu_puts("}", wtr, err);
-}
-
 static int
 render(PgfExpr expr, GuPool* pool)
 {
@@ -175,7 +94,7 @@ render(PgfExpr expr, GuPool* pool)
 		GuWriter* wtr = gu_new_utf8_writer(out, pool);
 		GuExn* err = gu_new_exn(NULL, gu_kind(type), pool);
 
-		generate_graphviz(expr, wtr, err, pool);
+		pgf_graphviz_abstract_tree(expr, wtr, err);
 		fclose(fstream);
 
 		close(cp[1]);
-- 
cgit v1.2.3