This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Take advantage of the fact that we can use indent as a stdin/stdout
authorNicholas Clark <nick@ccl4.org>
Fri, 22 Feb 2008 20:06:15 +0000 (20:06 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 22 Feb 2008 20:06:15 +0000 (20:06 +0000)
filter to reduce its workload (and ours) by only sending it the 3 or
so lines that we are interested in printing, not the preceding
bucket loads.

p4raw-id: //depot/perl@33353

Porting/expand-macro.pl

index aee4f36..472b789 100644 (file)
@@ -74,14 +74,30 @@ print "doing: make $tryout\n" if $opt{v};
 system "make $tryout" and die;
 
 # if user wants 'indent' formatting ..
-$opt{I} //= '';
-system "indent $opt{I} $tryout" and die if $opt{f};
-system "$opt{F} $opt{I} $tryout" and die if $opt{F};
+my $out_fh;
+
+if ($opt{f} || $opt{F}) {
+    # a: indent is a well behaved filter when given 0 arguments, reading from
+    #    stdin and writing to stdout
+    # b: all our braces should be balanced, indented back to column 0, in the
+    #    headers, hence everything before our #line directive can be ignored
+    #
+    # We can take advantage of this to reduce the work to indent.
+
+    my $indent_command = $opt{f} ? 'indent' : $opt{F};
+
+    if (defined $opt{I}) {
+       $indent_command .= " $opt{I}";
+    }
+    open $out_fh, '|-', $indent_command or die $?;
+} else {
+    $out_fh = \*STDOUT;
+}
 
 open my $fh, '<', $tryout or die "Can't open $tryout: $!";
 
 while (<$fh>) {
-    print if /$sentinel/o .. 1;
+    print $out_fh $_ if /$sentinel/o .. 1;
 }
 
 unless ($opt{k}) {