Mercurial > hg > xslscript
changeset 9:e93b6e98b817
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; ###############################################################################