From: Emden R. Gansner <erg@alum.mit.edu>
Date: Fri, 25 Jul 2014 19:42:02 +0000 (-0400)
Subject: Add warning about non-trivial flat edges between adjacent record-shaped nodes.
X-Git-Tag: TRAVIS_CI_BUILD_EXPERIMENTAL~192
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=763f02ef3cb7fbb62336f372b42279bd63266727;p=graphviz

Add warning about non-trivial flat edges between adjacent record-shaped nodes.
---

diff --git a/lib/dotgen/dotsplines.c b/lib/dotgen/dotsplines.c
index 5a72699e7..bcbf65d44 100644
--- a/lib/dotgen/dotsplines.c
+++ b/lib/dotgen/dotsplines.c
@@ -1182,8 +1182,19 @@ make_flat_adj_edges(graph_t* g, path* P, edge_t** edges, int ind, int cnt, edge_
     pointf   del;
     edge_t* hvye = NULL;
     attr_state_t* attrs;
+    static int warned;
 
     tn = agtail(e0), hn = aghead(e0);
+    if ((shapeOf(tn) == SH_RECORD) || (shapeOf(tn) == SH_RECORD)) {
+	if (!warned) {
+	    warned = 1;
+	    agerr (AGWARN, "flat edge between adjacent nodes one of which has a record shape - replace records with HTML-like labels\n");
+	    agerr(AGPREV, "  Edge %s %s %s\n",
+                        agnameof(tn), agisdirected(g)?"->":"--", agnameof(hn));
+	    
+	}
+	return;
+    }
     for (i = 0; i < cnt; i++) {
 	e = edges[ind + i];
 	if (ED_label(e)) labels++;