Mercurial > hg > xslscript

comparison xslscript.pl @ 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
comparison
equal deleted inserted replaced
6:d3340fdeadf6 7:9a283d72ddc3
21 use Getopt::Long; 21 use Getopt::Long;
22 use Data::Dumper qw/Dumper/; 22 use Data::Dumper qw/Dumper/;
23 23
24 ############################################################################### 24 ###############################################################################
25 25
26 my $dump = 0;
27
26 GetOptions( 28 GetOptions(
27 "trace!" => \$::RD_TRACE, 29 "trace!" => \$::RD_TRACE,
28 "hint!" => \$::RD_HINT, 30 "hint!" => \$::RD_HINT,
31 "dump!" => \$dump,
29 ) 32 )
30 or die "oops\n"; 33 or die "oops\n";
31 34
32 ############################################################################### 35 ###############################################################################
33 36
415 } 418 }
416 419
417 my $tree = $parser->startrule($lines) 420 my $tree = $parser->startrule($lines)
418 or die "Failed to parse $ARGV.\n"; 421 or die "Failed to parse $ARGV.\n";
419 422
420 #print Dumper($tree); 423 if ($dump) {
424 print Dumper($tree);
425 exit(0);
426 }
427
421 print format_tree($tree); 428 print format_tree($tree);
422 429
423 ############################################################################### 430 ###############################################################################