# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1393199237 -14400
# Node ID 9a283d72ddc3d9e2f55fa93dead9289e574c816e
# Parent  d3340fdeadf6dee054341d2e815cbb5607905bcf
XSLScript: --dump option.

diff --git a/xslscript.pl b/xslscript.pl
--- a/xslscript.pl
+++ b/xslscript.pl
@@ -23,9 +23,12 @@ use Data::Dumper qw/Dumper/;
 
 ###############################################################################
 
+my $dump = 0;
+
 GetOptions(
 	"trace!" => \$::RD_TRACE,
 	"hint!" => \$::RD_HINT,
+	"dump!" => \$dump,
 )
 	or die "oops\n";
 
@@ -417,7 +420,11 @@ my $lines;
 my $tree = $parser->startrule($lines)
 	or die "Failed to parse $ARGV.\n";
 
-#print Dumper($tree);
+if ($dump) {
+	print Dumper($tree);
+	exit(0);
+}
+
 print format_tree($tree);
 
 ###############################################################################