* nix-build: `--dry-run' flag.

This commit is contained in:
Eelco Dolstra 2008-08-04 13:46:01 +00:00
parent a1d310b6b5
commit 7592f48c83

View file

@ -9,6 +9,8 @@ my $addOutLink = 1;
my $outLink; my $outLink;
my $drvLink; my $drvLink;
my $dryRun = 0;
my @instArgs = (); my @instArgs = ();
my @buildArgs = (); my @buildArgs = ();
my @exprs = (); my @exprs = ();
@ -89,6 +91,11 @@ EOF
push @buildArgs, ($arg, $ARGV[$n]); push @buildArgs, ($arg, $ARGV[$n]);
} }
elsif ($arg eq "--dry-run") {
push @buildArgs, "--dry-run";
$dryRun = 1;
}
elsif (substr($arg, 0, 1) eq "-") { elsif (substr($arg, 0, 1) eq "-") {
push @buildArgs, $arg; push @buildArgs, $arg;
} }
@ -133,6 +140,8 @@ foreach my $expr (@exprs) {
while (<OUTPATHS>) {chomp; push @outPaths, $_;} while (<OUTPATHS>) {chomp; push @outPaths, $_;}
close OUTPATHS or exit 1; close OUTPATHS or exit 1;
next if $dryRun;
foreach my $outPath (@outPaths) { foreach my $outPath (@outPaths) {
my $target = readlink $outPath or die "cannot read symlink `$outPath'"; my $target = readlink $outPath or die "cannot read symlink `$outPath'";
print "$target\n"; print "$target\n";