*** empty log message ***

1 files changed, 29 insertions, 8 deletions

diff --git a/build_archive b/build_archive
index 27e37f5..ae8bcf0 100755
--- a/build_archive
+++ b/build_archive
@@ -48,6 +48,9 @@
 
 #+use strict qw(subs vars refs);
 
+#- tempory file used for building.
+my $tmpz = "/tmp/tmp.z.$$";
+
 sub toc_line {
     my ($file, $data) = @_;
 
@@ -59,6 +62,26 @@ sub toc_line {
     }
 }
 
+sub cat_compress {
+    my ($compress, @filenames) = @_;
+    local *F;
+    open F, "| $compress >$tmpz" or die "cannot start \"$compress\"\n";
+    foreach (@filenames) {
+	my ($buf, $siz, $sz);
+	local *FILE;
+	open FILE, $_ or die "cannot open $_: $!\n";
+	$siz = -s $_;
+	while (($sz = sysread(FILE, $buf, $siz > 16384 ? 16384 : $siz))) {
+	    $siz -= $sz;
+	    syswrite(F, $buf);
+	    last unless $siz > 0;
+	}
+	close FILE;
+    }
+    close F;
+    -s $tmpz;
+}
+
 sub main {
     my ($archivename, $maxsiz) = @_;
     my ($compress, $uncompress, $off1, $siz1, $off2, $siz2) = ('', '', 0, 0, 0, 0);
@@ -79,7 +102,7 @@ sub main {
     print STDERR "choosing compression method with \"$compress\" for archive $archivename\n";
 
     unlink "$archivename";
-    unlink "tmp.z";
+    unlink $tmpz;
 
     foreach (<STDIN>) {
 	chomp;
@@ -100,12 +123,11 @@ sub main {
 	    $data{$file} = [ 'f', -1, -1, $off2, $siz2 ];
 
 	    if ($off2 + $siz2 > $maxsiz) { #- need compression.
-		system "cat @filelist | $compress >tmp.z";
-		$siz1 = -s "tmp.z";
+		$siz1 = cat_compress($compress, @filelist);
 
 		foreach (@filelist) { $data{$_} = [ 'f', $off1, $siz1, $data{$_}[3], $data{$_}[4] ] }
 
-		system "cat tmp.z >>$archivename";
+		system "cat $tmpz >>$archivename";
 		$off1 += $siz1;
 		$off2 = 0; $siz2 = 0;
 		@filelist = ();
@@ -114,12 +136,11 @@ sub main {
 	}
     }
     if (scalar @filelist) {
-	system "cat @filelist | $compress >tmp.z";
-	$siz1 = -s "tmp.z";
+	$siz1 = cat_compress($compress, @filelist);
 
 	foreach (@filelist) { $data{$_} = [ 'f', $off1, $siz1, $data{$_}[3], $data{$_}[4] ] }
 
-	system "cat tmp.z >>$archivename";
+	system "cat $tmpz >>$archivename";
 	$off1 += $siz1;
 	print STDERR "real archive size of $archivename is $off1\n";
     }
@@ -172,4 +193,4 @@ sub toc_trailer {
 }
 
 main(@ARGV);
-unlink "tmp.z";
+unlink $tmpz;