From 2d54312f876c4810db4c3c0006bace686db4948b Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Fri, 3 Mar 2006 14:15:02 +0000 Subject: [PATCH] * Rewrote nix-build in Perl, since sh is just too limited (turns out that arrays are a bash extension, so it didn't work on FreeBSD). Also fixes NIX-8 (readlink(1) dependency). --- scripts/nix-build.in | 141 +++++++++++++++++++++++-------------------- 1 file changed, 75 insertions(+), 66 deletions(-) diff --git a/scripts/nix-build.in b/scripts/nix-build.in index 5c02f765d..25662a742 100644 --- a/scripts/nix-build.in +++ b/scripts/nix-build.in @@ -1,78 +1,87 @@ -#! @shell@ -e +#! @perl@ -w -I@libexecdir@/nix -nixExpr=$1 - -extraArgs= -extraInstArgs= -addDrvLink=0 -addOutLink=1 +use strict; -trap 'rm -f ./.nix-build-tmp-*' EXIT +my $addDrvLink = 0; +my $addOutLink = 1; + +my @instArgs = (); +my @buildArgs = (); +my @exprs = (); -# Process the arguments. -args=("$@") -for ((i = 0; i < ${#args[*]}; )); do - arg=${args[$i]} - i=$((i + 1)) - case "$arg" in +END { + foreach my $fn (glob ".nix-build-tmp-*") { + unlink $fn; + } +} - --help) - echo "syntax: $0 [NIX-EXPR...]" >&2 - exit 0 - ;; +sub intHandler { + exit 1; +} - --add-drv-link) - addDrvLink=1 - ;; - - --no-link) - addOutLink=0 - ;; +$SIG{'INT'} = 'intHandler'; - --attr|-A) - arg2=${args[$i]} - i=$((i + 1)) - extraInstArgs="$extraInstArgs $arg $arg2" - ;; - - -*) - extraArgs="$extraArgs $arg" - ;; - - *) - exprs="$exprs $arg" - ;; - esac -done -if test -z "$exprs"; then - exprs="./default.nix" -fi +for (my $n = 0; $n < scalar @ARGV; $n++) { + my $arg = $ARGV[$n]; -# Process the specified Nix expressions. -for i in $exprs; do + if ($arg eq "--help") { + print STDERR "Usage: nix-build [OPTION]... [FILE]...\n"; + exit 0; + } - # Instantiate the Nix expression. - prefix= - if test "$addDrvLink" = 0; then prefix=.nix-build-tmp-; fi - storeExprs=$(@bindir@/nix-instantiate \ - --add-root ./${prefix}derivation --indirect \ - $extraInstArgs "$i") - - for j in $storeExprs; do - echo "store expression is $(readlink "$j")" >&2 - done + elsif ($arg eq "--add-drv-link") { + $addDrvLink = 1; + } - # Build the resulting store derivation. - prefix= - if test "$addOutLink" = 0; then prefix=.nix-build-tmp-; fi - outPaths=$(@bindir@/nix-store \ - --add-root ./${prefix}result --indirect \ - -rv $extraArgs $storeExprs) - - for j in $outPaths; do - echo "$(readlink "$j")" - done -done + elsif ($arg eq "--no-out-link" or $arg eq "--no-link") { + $addOutLink = 1; + } + + elsif ($arg eq "--attr" or $arg eq "-A") { + $n++; + die "$0: `--attr' requires an argument\n" unless $n < scalar @ARGV; + push @instArgs, ("--attr", $ARGV[$n]); + } + + elsif (substr($arg, 0, 1) eq "-") { + push @buildArgs, $arg; + } + + else { + push @exprs, $arg; + } +} + +@exprs = ("./default.nix") if scalar @exprs == 0; + + +foreach my $expr (@exprs) { + + # Instantiate. + my $prefix = ""; + $prefix = ".nix-build-tmp-" if !$addDrvLink; + + my $drvPaths = `@bindir@/nix-instantiate --add-root ./${prefix}derivation --indirect @instArgs "$expr"`; + my @drvPaths = split ' ', $drvPaths; + + foreach my $drvPath (@drvPaths) { + my $target = readlink $drvPath; + print STDERR "store derivation is $target\n"; + } + + # Build. + $prefix = ""; + $prefix = ".nix-build-tmp-" if !$addOutLink; + + my $outPaths = `@bindir@/nix-store --add-root ./${prefix}result --indirect -rv @buildArgs @drvPaths`; + my @outPaths = split ' ', $outPaths; + + foreach my $outPath (@outPaths) { + my $target = readlink $outPath; + print "$target\n"; + } + +}