about summary refs log tree commit diff
diff options
context:
space:
mode:
authorEelco Dolstra <e.dolstra@tudelft.nl>2004-06-22T15·06+0000
committerEelco Dolstra <e.dolstra@tudelft.nl>2004-06-22T15·06+0000
commitb302e5f63b96c945fa66d391c2d3165d7003a297 (patch)
tree6db8ce8f584073c08d5d1cbd8ae7d8bfc2df8ff3
parent83ae1723da5d905a24894a4a1edb25ffc77f6fc4 (diff)
* We don't really need this here.
-rwxr-xr-xdistributed/build-remote.pl151
-rw-r--r--distributed/remote-systems.conf2
-rwxr-xr-xdistributed/test.sh12
3 files changed, 0 insertions, 165 deletions
diff --git a/distributed/build-remote.pl b/distributed/build-remote.pl
deleted file mode 100755
index 44482530b30e..000000000000
--- a/distributed/build-remote.pl
+++ /dev/null
@@ -1,151 +0,0 @@
-#! /usr/bin/perl -w
-
-use strict;
-
-my $amWilling = shift @ARGV;
-my $localSystem = shift @ARGV;
-my $neededSystem = shift @ARGV;
-my $storeExpr = shift @ARGV;
-
-sub sendReply {
-    my $reply = shift;
-    open OUT, ">&3" or die;
-    print OUT "$reply\n";
-    close OUT;
-}
-
-# Decline if the local system can do the build.
-if ($amWilling && ($localSystem eq $neededSystem)) {
-    sendReply "decline";
-    exit 0;
-}
-
-# Otherwise find a willing remote machine.
-my %machines;
-my %systemTypes;
-my %sshKeys;
-my %maxJobs;
-my %curJobs;
-
-# Read the list of machines.
-open CONF, "< /home/eelco/nix/distributed/remote-systems.conf" or die;
-
-while (<CONF>) {
-    chomp;
-    next if /^\s*$/;
-    /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\d+)\s*$/ or die;
-    $machines{$1} = "";
-    $systemTypes{$1} = $2;
-    $sshKeys{$1} = $3;
-    $maxJobs{$1} = $4;
-}
-
-close CONF;
-
-# Read the current load status.
-open LOAD, "< /home/eelco/nix/distributed/current-load" or die;
-while (<LOAD>) {
-    chomp;
-    next if /^\s*$/;
-    /^\s*(\S+)\s+(\d+)\s*$/ or die;
-    $curJobs{$1} = $2;
-}
-close LOAD;
-
-foreach my $cur (keys %machines) {
-    $curJobs{$cur} = 0 unless defined $curJobs{$cur};
-}
-
-# Find a suitable system.
-my $rightType = 0;
-my $machine;
-foreach my $cur (keys %machines) {
-    if ($neededSystem eq $systemTypes{$cur}) {
-        $rightType = 1;
-        if ($curJobs{$cur} < $maxJobs{$cur})
-        {
-            $machine = $cur;
-            last;
-        }
-    }
-}
-
-if (!defined $machine) {
-    if ($rightType) {
-        sendReply "postpone";
-        exit 0;
-    } else {
-        sendReply "decline";
-        exit 0;
-    }
-}
-
-sub writeLoad {
-    system "echo A >> /tmp/blaaaa";
-    open LOAD, "> /home/eelco/nix/distributed/current-load" or die;
-    system "echo B >> /tmp/blaaaa";
-    foreach my $cur (keys %machines) {
-        system "echo $cur $curJobs{$cur} >> /tmp/blaaaa";
-        print LOAD "$cur $curJobs{$cur}\n";
-    }
-    system "echo C >> /tmp/blaaaa";
-    close LOAD;
-}
-
-$curJobs{$machine} = $curJobs{$machine} + 1;
-writeLoad;
-
-sendReply "accept";
-open IN, "<&4" or die;
-my $x = <IN>;
-chomp $x;
-print "got $x\n";  
-close IN;
-
-system "echo $x >> /tmp/blaaaa";
-system "echo $curJobs{$machine} >> /tmp/blaaaa";
-
-if ($x ne "okay") {
-    $curJobs{$machine} = $curJobs{$machine} - 1;
-    system "echo $curJobs{$machine} >> /tmp/blaaaa";
-    writeLoad;
-    exit 0;
-}
-
-print "BUILDING REMOTE: $storeExpr on $machine\n";
-
-my $ssh = "ssh -i $sshKeys{$machine} -x";
-
-my $inputs = `cat inputs` or die;
-$inputs =~ s/\n/ /g;
-
-my $outputs = `cat outputs` or die;
-$outputs =~ s/\n/ /g;
-
-my $successors = `cat successors` or die;
-$successors =~ s/\n/ /g;
-
-system "rsync -a -e '$ssh' $storeExpr $inputs $machine:/nix/store";
-die "cannot rsync inputs to $machine" if ($? != 0);
-
-system "$ssh $machine /nix/bin/nix-store --validpath $storeExpr $inputs";
-die "cannot set valid paths on $machine" if ($? != 0);
-
-system "$ssh $machine /nix/bin/nix-store --successor $successors";
-die "cannot set successors on $machine" if ($? != 0);
-
-print "BUILDING...\n";
-
-system "$ssh $machine /nix/bin/nix-store -qnfvvvv $storeExpr";
-die "remote build on $machine failed" if ($? != 0);
-
-print "REMOTE BUILD DONE\n";
-
-foreach my $output (split '\n', $outputs) {
-    system "rsync -a -e '$ssh' $machine:$output /nix/store";
-    die "cannot rsync outputs from $machine" if ($? != 0);
-}
-
-$curJobs{$machine} = $curJobs{$machine} - 1;
-
-writeLoad;
diff --git a/distributed/remote-systems.conf b/distributed/remote-systems.conf
deleted file mode 100644
index 3c9abc7194b4..000000000000
--- a/distributed/remote-systems.conf
+++ /dev/null
@@ -1,2 +0,0 @@
-scratchy.labs.cs.uu.nl   i686-linux     /home/eelco/.ssh/id_scratchy_auto       1
-mckroket.labs.cs.uu.nl   powerpc-mac    /home/eelco/.ssh/id_scratchy_mckroket   1
diff --git a/distributed/test.sh b/distributed/test.sh
deleted file mode 100755
index c91595da0bdb..000000000000
--- a/distributed/test.sh
+++ /dev/null
@@ -1,12 +0,0 @@
-#! /bin/sh
-
-set -e
-
-rm -f current-load
-touch current-load
-
-storeExpr=$(nix-instantiate ~/nixpkgs/pkgs/system/all.nix)
-
-export NIX_BUILD_HOOK="build-remote.pl"
-
-../src/nix-store/nix-store -qnvvvv -j1 $storeExpr