From: Ken Youens-Clark <kclark@cshl.edu>
Date: Mon, 27 Feb 2012 17:48:21 +0000 (-0500)
Subject: sqlt-graph now has a --trace option.
X-Git-Tag: v0.11011~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2b76cf34f78c7fe6ce44a210eba65faa048322f;p=dbsrgits%2FSQL-Translator.git

sqlt-graph now has a --trace option.
---

diff --git a/Changes b/Changes
index 7b3d0e1..1a29e31 100644
--- a/Changes
+++ b/Changes
@@ -13,6 +13,7 @@
   If you do NOT WANT quoting, set quote_identifiers to a false value to
   protect yourself from changes in a future release.
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+* script/sqlt-graph now accepts a --trace option
 * Fixes to SQLite foreign keys production (patch from Johan Viklund)
   closes RT#16412, RT#44769
 * ON DELETE/UPDATE actions for SQLite (patch from Lukas Thiemeier)
diff --git a/script/sqlt-graph b/script/sqlt-graph
index 6238026..d4a5003 100755
--- a/script/sqlt-graph
+++ b/script/sqlt-graph
@@ -63,6 +63,7 @@ sqlt-graph - Automatically create a graph from a database schema
     --skip-tables      Comma-separated list of table names to exclude
     --skip-tables-like Comma-separated list of regexen to exclude tables
     --debug            Print debugging information
+    --trace            Print parser trace info
 
 =head1 DESCRIPTION
 
@@ -117,7 +118,7 @@ my (
     $natural_join, $join_pk_only, $skip_fields, $show_datatypes,
     $show_sizes, $show_constraints, $debug, $help, $height, $width,
     $no_fields, $fontsize, $fontname, $skip_tables, $skip_tables_like,
-    $cluster
+    $cluster, $trace
 );
 
 # multi-valued options:
@@ -150,6 +151,7 @@ GetOptions(
     'show-sizes'         => \$show_sizes,
     'show-constraints'   => \$show_constraints,
     'debug'              => \$debug,
+    'trace'              => \$trace,
     'h|help'             => \$help,
 ) or die pod2usage;
 my @files = @ARGV; # the create script(s) for the original db
@@ -162,6 +164,7 @@ my $translator           =  SQL::Translator->new(
     from                 => $db_driver,
     to                   => 'GraphViz',
     debug                => $debug || 0,
+    trace                => $trace || 0,
     producer_args        => {
         out_file         => $out_file,
         layout           => $layout,