#!/bin/sh -
# $Id$
# Copyright (C) 2007--2008 American Registry for Internet Numbers ("ARIN")
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND ARIN DISCLAIMS ALL WARRANTIES WITH
# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
# AND FITNESS. IN NO EVENT SHALL ARIN BE LIABLE FOR ANY SPECIAL, DIRECT,
# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# This uses the SQL::Translator package (aka "SQL Fairy") to parse
# a MYSQL schema and diagram the result using GraphViz.
#
# SQL::Translator appears to be pretty good at analyzing SQL, but is
# badly confused about how to format record labels in the "dot"
# language. I should send the author a patch, but simplest solution
# for now is just to whack sqlt-graph's broken output into shape.
#
# On FreeBSD, SQL Fairy is /usr/ports/databases/p5-SQL-Translator.
sqlt-graph --db MySQL --output-type canon --show-datatypes --show-constraints $1 |
SOURCE="$1" perl -0777 -pe '
s/\\\n//g;
s/ +/ /g;
s/\\\|/|/g;
s/\\{([a-z0-9_]+)\|/${1}|{/gi;
s/-\\ +//g;
s/\\ \\l/|/g;
s/\|\\l \\}/}/g;
s/\|\\}/}/g;
s/{\n/{\n\tedge [arrowtail=none, arrowhead=crow];\n/;
s/\[arrowhead=normal\]/[arrowtail=none, arrowhead=crow]/g;
s/\[arrowhead=empty\]/[arrowtail=none, arrowhead=oinv]/g;
s=^=// Automatically generated from $ENV{SOURCE}\n\n=;
'
