Mercurial > hg > xslscript

changeset 9:e93b6e98b817

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
XSLScript: -o option. Usable for more or less safe output in makefiles.
author Maxim Dounin <mdounin@mdounin.ru>
date Wed, 26 Feb 2014 03:41:33 +0400
parents 86721b270ebb
children cb41e7c634c5
files xslscript.pl
diffstat 1 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/xslscript.pl
+++ b/xslscript.pl
@@ -24,8 +24,10 @@ use Data::Dumper qw/Dumper/;
 ###############################################################################
 
 my $dump = 0;
+my $output;
 
 GetOptions(
+	"output|o=s" => \$output,
 	"trace!" => \$::RD_TRACE,
 	"hint!" => \$::RD_HINT,
 	"dump!" => \$dump,
@@ -424,12 +426,18 @@ my $lines;
 
 my $tree = $parser->startrule($lines)
 	or die "Failed to parse $ARGV.\n";
+my $formatted = format_tree($tree);
+
+if (defined $output) {
+	open STDOUT, ">", $output
+		or die "Can't open $output: $!\n";
+}
 
 if ($dump) {
 	print Dumper($tree);
 	exit(0);
 }
 
-print format_tree($tree);
+print $formatted;
 
 ###############################################################################