graphviz-sql.sh

svn path=/scripts/graphviz-sql.sh; revision=1013

1 files changed, 28 insertions, 0 deletions

diff --git a/scripts/graphviz-sql.sh b/scripts/graphviz-sql.sh
new file mode 100644
index 00000000..e46cdd37
--- /dev/null
+++ b/scripts/graphviz-sql.sh
@@ -0,0 +1,28 @@
+#!/bin/sh -
+# $Id$
+
+# This uses the SQL::Translator package (aka "SQL Fairy") to parse
+# an SQL schema and graph the result via GraphViz.
+#
+# SQL::Translator appears to be pretty good at analyzing SQL.  It's not
+# so hot at generating the "dot" language, or maybe it's just that
+# the Perl GraphViz module is buggy, but the simplest solution is just
+# to whack sqlt-graph's broken output into shape.
+
+# Bugs: this assumes that SQL::Translate always draws edges one->many.
+
+for i in *.sql
+do
+  sqlt-graph --db MySQL --output-type canon --show-datatypes $i |
+  perl -0777 -pe '
+    s/\\\n/ /g;
+    s/\\{//g;
+    s/\\\|-\\ /|{/g;
+    s/\\ *\\ *l *-\\ /|/g;
+    s/\\ *\\l\\}/}/g;
+    s/{\n/{\n\tedge [arrowtail=none, arrowhead=crow];\n/;
+  ' |
+  tee ${i%.sql}.dot |
+  dot -Tps2 |
+  ps2pdf - ${i%.dot}.pdf
+done