# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1393371693 -14400
# Node ID e93b6e98b8179ee916db37ba1d408c9dce1b23ef
# Parent  86721b270ebba156ea6bbebb2aec9b87293f9e73
XSLScript: -o option.

Usable for more or less safe output in makefiles.

diff --git a/xslscript.pl b/xslscript.pl
--- 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;
 
 ###############################################################################