From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 13 Nov 2019 13:47:16 +0000 (+0000)
Subject: buffering_output feature (nfc)
X-Git-Tag: subdirmk/0.1~83
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=commitdiff_plain;h=f487d4baf3687bc013b5c38193002e6b8bc885e6;ds=sidebyside

buffering_output feature (nfc)
---

diff --git a/subdirmk/generate b/subdirmk/generate
index 110f8f1..f353702 100755
--- a/subdirmk/generate
+++ b/subdirmk/generate
@@ -52,6 +52,7 @@ sub target_varname ($$) {
 }
 
 our $writing_output;
+our $buffering_output;
 our %output_files;
 
 sub close_any_output_file() {
@@ -62,6 +63,10 @@ sub close_any_output_file() {
 }
 
 sub o {
+    if (defined $buffering_output) {
+	$buffering_output .= $_ foreach @_;
+	return;
+    }
     die unless defined $writing_output;
     print O @_ or die "error writing $writing_output.tmp: $!\n";
 }