X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=version-charset-test.git;a=blobdiff_plain;f=check;h=0a809e050db819fa19ba00fb5c666c7981c8e225;hp=1524fde1287302f0aa4be275505196432f55f2ed;hb=6c3317c7568682f3bda83a4a3d5713d738389519;hpb=ccbcd88c384aa67b36a7ab0637425fa9a25e26fe

diff --git a/check b/check
index 1524fde..0a809e0 100755
--- a/check
+++ b/check
@@ -1,12 +1,99 @@
 #!/bin/bash
 set -e
 set -o pipefail
+
+cpus=$(
+	perl -we '
+	    use strict;
+	    require Sys::CPU;
+	    my $ncpus = Sys::CPU::cpu_count();
+	    $ncpus *= 1.5;
+            print join " ", (0 .. $ncpus-1) or die $!;
+	    print "\n" or die $!;
+	' ||
+	echo 0 1 2
+)
+
+uid=`id -u`
+cd /var/run/user/$uid
+mkdir -p version-charset-test
+cd version-charset-test
+
 rm -rf stunt
 mkdir stunt
 cd stunt
-git init
-git commit --allow-empty -m 'Test object'
-head=`git rev-parse HEAD`
-perl -ne 'chomp; print "create refs/tags/$_ '$head'\n" or die $!' \
-| tee /dev/tty \
-| git update-ref --stdin
+
+for cpu in $cpus; do
+	mkdir c$cpu
+	(cd c$cpu
+	 git init)
+done
+
+#exec 3<&0 </dev/null
+
+#git commit --allow-empty -m 'Test object'
+#head=`git rev-parse HEAD`
+
+#exec <&3 3<&-
+
+perl -we '
+    use strict;
+
+    our $file;
+    our $count;
+    our $batch=0;
+    our @tasks;
+
+    my @freecpus = qw('"$cpus"');
+
+    print STDERR "check using cpus @freecpus\n";
+
+    sub await_task () {
+	my ($pid, $cpu, $oldbatch) = @{ shift @tasks };
+	waitpid $pid, 0 == $pid or die $!;
+	die "$oldbatch $?" if $?;
+	unlink "b$oldbatch" or die "$oldbatch $!";
+        print STDERR "check completed $oldbatch [$pid] #$cpu\n";
+	push @freecpus, $cpu;
+    }
+
+    sub complete_batch () {
+        return unless $file;
+
+	close $file or die $!;
+
+        print STDERR "check closing $batch ($count)\n";
+
+	await_task unless @freecpus;
+
+	my $cpu = shift @freecpus;
+
+	my $pid = fork // die $!;
+	if (!$pid) {
+	    close STDIN;
+#            seek STDIN,0,1;
+#            flush STDIN;
+	    open STDIN, "<", "b$batch" or die $batch;
+	    chdir "c$cpu" or die "$cpu $!";
+	    exec qw(eatmydata git update-ref --stdin);
+	    die $!;
+	}
+        print STDERR "check spawned $batch ($count) [$pid] #$cpu\n";
+    	push @tasks, [ $pid, $cpu, $batch ];
+	$batch++;
+	$file = undef;
+	$count = 0;
+    }
+
+    while (<>) {
+#print STDERR ">$_<\n";
+        $file ||= new IO::File "b$batch", ">" or die $!;
+        chomp;
+	print $file "delete refs/tags/$_\n" or die $!;
+	$count++ < 100000 or complete_batch;
+    }
+#print STDERR "FOO\n";
+    STDIN->error and die $!;
+    complete_batch();
+    await_task while @tasks;
+'