Mercurial > hg > xslscript

changeset 7:9a283d72ddc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
XSLScript: --dump option.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 24 Feb 2014 03:47:17 +0400
parents d3340fdeadf6
children 86721b270ebb
files xslscript.pl
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);
 
 ###############################################################################