mirror of
https://github.com/privatevoid-net/nix-super.git
synced 2024-11-10 08:16:15 +02:00
Add resolve-system-dependencies.pl
This commit is contained in:
parent
15c7a79ed3
commit
ff6953cb03
5 changed files with 150 additions and 1 deletions
17
configure.ac
17
configure.ac
|
@ -261,6 +261,23 @@ AC_MSG_RESULT(yes)
|
||||||
AC_SUBST(perlFlags)
|
AC_SUBST(perlFlags)
|
||||||
|
|
||||||
|
|
||||||
|
# Check for otool, an optional dependency on Darwin.
|
||||||
|
AC_PATH_PROG(otool, otool)
|
||||||
|
AC_MSG_CHECKING([that otool works])
|
||||||
|
case $host_os in
|
||||||
|
darwin*)
|
||||||
|
if test -z "$otool" || ! $otool --version 2>/dev/null; then
|
||||||
|
AC_MSG_RESULT(no)
|
||||||
|
AC_MSG_ERROR([Can't get version from otool; do you need to install developer tools?])
|
||||||
|
fi
|
||||||
|
AC_MSG_RESULT(yes)
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
AC_MSG_RESULT(not needed)
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
|
||||||
# Whether to build the Perl bindings
|
# Whether to build the Perl bindings
|
||||||
AC_MSG_CHECKING([whether to build the Perl bindings])
|
AC_MSG_CHECKING([whether to build the Perl bindings])
|
||||||
AC_ARG_ENABLE(perl-bindings, AC_HELP_STRING([--enable-perl-bindings],
|
AC_ARG_ENABLE(perl-bindings, AC_HELP_STRING([--enable-perl-bindings],
|
||||||
|
|
|
@ -17,6 +17,7 @@ nix_substituters := \
|
||||||
nix_noinst_scripts := \
|
nix_noinst_scripts := \
|
||||||
$(d)/build-remote.pl \
|
$(d)/build-remote.pl \
|
||||||
$(d)/find-runtime-roots.pl \
|
$(d)/find-runtime-roots.pl \
|
||||||
|
$(d)/resolve-system-dependencies.pl \
|
||||||
$(d)/nix-http-export.cgi \
|
$(d)/nix-http-export.cgi \
|
||||||
$(d)/nix-profile.sh \
|
$(d)/nix-profile.sh \
|
||||||
$(d)/nix-reduce-build \
|
$(d)/nix-reduce-build \
|
||||||
|
@ -29,6 +30,7 @@ profiledir = $(sysconfdir)/profile.d
|
||||||
$(eval $(call install-file-as, $(d)/nix-profile.sh, $(profiledir)/nix.sh, 0644))
|
$(eval $(call install-file-as, $(d)/nix-profile.sh, $(profiledir)/nix.sh, 0644))
|
||||||
$(eval $(call install-program-in, $(d)/find-runtime-roots.pl, $(libexecdir)/nix))
|
$(eval $(call install-program-in, $(d)/find-runtime-roots.pl, $(libexecdir)/nix))
|
||||||
$(eval $(call install-program-in, $(d)/build-remote.pl, $(libexecdir)/nix))
|
$(eval $(call install-program-in, $(d)/build-remote.pl, $(libexecdir)/nix))
|
||||||
|
$(eval $(call install-program-in, $(d)/resolve-system-dependencies.pl, $(libexecdir)/nix))
|
||||||
$(foreach prog, $(nix_substituters), $(eval $(call install-program-in, $(prog), $(libexecdir)/nix/substituters)))
|
$(foreach prog, $(nix_substituters), $(eval $(call install-program-in, $(prog), $(libexecdir)/nix/substituters)))
|
||||||
$(eval $(call install-symlink, nix-build, $(bindir)/nix-shell))
|
$(eval $(call install-symlink, nix-build, $(bindir)/nix-shell))
|
||||||
|
|
||||||
|
|
123
scripts/resolve-system-dependencies.pl.in
Executable file
123
scripts/resolve-system-dependencies.pl.in
Executable file
|
@ -0,0 +1,123 @@
|
||||||
|
#! @perl@ -w @perlFlags@
|
||||||
|
|
||||||
|
use utf8;
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use Cwd qw(realpath);
|
||||||
|
use File::Basename qw(dirname);
|
||||||
|
use File::Path qw(make_path);
|
||||||
|
use File::Spec::Functions qw(catfile);
|
||||||
|
use List::Util qw(reduce);
|
||||||
|
use IPC::Open3;
|
||||||
|
use Nix::Config;
|
||||||
|
use Nix::Store qw(derivationFromPath);
|
||||||
|
use POSIX qw(uname);
|
||||||
|
use Storable qw(lock_retrieve lock_store);
|
||||||
|
|
||||||
|
my ($sysname, undef, $version, undef, $machine) = uname;
|
||||||
|
$sysname =~ /Darwin/ or die "This tool is only meant to be used on Darwin systems.";
|
||||||
|
|
||||||
|
my $cache = "$Nix::Config::stateDir/dependency-maps/$machine-$sysname-$version.map";
|
||||||
|
|
||||||
|
make_path dirname($cache);
|
||||||
|
|
||||||
|
our $DEPS;
|
||||||
|
eval {
|
||||||
|
$DEPS = lock_retrieve($cache);
|
||||||
|
} or do {
|
||||||
|
lock_store {}, $cache;
|
||||||
|
$DEPS = {};
|
||||||
|
};
|
||||||
|
|
||||||
|
sub mkset(@) {
|
||||||
|
my %set;
|
||||||
|
@set{@_} = ();
|
||||||
|
\%set
|
||||||
|
}
|
||||||
|
|
||||||
|
sub union($$) {
|
||||||
|
my ($set1, $set2) = @_;
|
||||||
|
my $new = {};
|
||||||
|
foreach my $key (keys %$set1) {
|
||||||
|
$new->{$key} = $set1->{$key};
|
||||||
|
}
|
||||||
|
foreach my $key (keys %$set2) {
|
||||||
|
$new->{$key} = $set2->{$key};
|
||||||
|
}
|
||||||
|
$new
|
||||||
|
}
|
||||||
|
|
||||||
|
sub cache_filepath($) {
|
||||||
|
my $fp = shift;
|
||||||
|
$fp =~ s/-/--/g;
|
||||||
|
$fp =~ s/\//-/g;
|
||||||
|
$fp =~ s/^-//g;
|
||||||
|
catfile $cache, $fp
|
||||||
|
}
|
||||||
|
|
||||||
|
sub resolve_tree {
|
||||||
|
sub resolve_tree_inner {
|
||||||
|
my ($lib, $TREE) = @_;
|
||||||
|
return if (defined $TREE->{$lib});
|
||||||
|
$TREE->{$lib} = mkset(@{cache_get($lib)});
|
||||||
|
foreach my $dep (keys %{$TREE->{$lib}}) {
|
||||||
|
resolve_tree_inner($dep, $TREE);
|
||||||
|
}
|
||||||
|
values %$TREE
|
||||||
|
}
|
||||||
|
|
||||||
|
reduce { union($a, $b) } {}, resolve_tree_inner(@_)
|
||||||
|
}
|
||||||
|
|
||||||
|
sub cache_get {
|
||||||
|
my $key = shift;
|
||||||
|
if (defined $DEPS->{$key}) {
|
||||||
|
$DEPS->{$key}
|
||||||
|
} else {
|
||||||
|
cache_insert($key);
|
||||||
|
cache_get($key)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub cache_insert($) {
|
||||||
|
my $key = shift;
|
||||||
|
print STDERR "Finding dependencies for $key...\n";
|
||||||
|
my @deps = find_deps($key);
|
||||||
|
$DEPS->{$key} = \@deps;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub find_deps($) {
|
||||||
|
my $lib = shift;
|
||||||
|
my($chld_in, $chld_out, $chld_err);
|
||||||
|
my $pid = open3($chld_in, $chld_out, $chld_err, "@otool@", "-L", "-arch", "x86_64", $lib);
|
||||||
|
waitpid($pid, 0);
|
||||||
|
my $line = readline $chld_out;
|
||||||
|
if($? == 0 and $line !~ /not an object file/) {
|
||||||
|
my @libs;
|
||||||
|
while(<$chld_out>) {
|
||||||
|
my $dep = (split /\s+/)[1];
|
||||||
|
push @libs, $dep unless $dep eq $lib or $dep =~ /\@rpath/;
|
||||||
|
}
|
||||||
|
@libs
|
||||||
|
} elsif (-l $lib) {
|
||||||
|
(realpath($lib))
|
||||||
|
} else {
|
||||||
|
()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (defined $ARGV[0]) {
|
||||||
|
my $deps = derivationFromPath($ARGV[0])->{"env"}->{"__impureHostDeps"};
|
||||||
|
if (defined $deps) {
|
||||||
|
my @files = split(/\s+/, $deps);
|
||||||
|
my $depcache = {};
|
||||||
|
my $depset = reduce { union($a, $b) } (map { resolve_tree($_, $depcache) } @files);
|
||||||
|
print "extra-chroot-dirs\n";
|
||||||
|
print join("\n", keys %$depset);
|
||||||
|
print "\n\n";
|
||||||
|
}
|
||||||
|
lock_store($DEPS, $cache);
|
||||||
|
} else {
|
||||||
|
print STDERR "Usage: $0 path/to/derivation.drv\n";
|
||||||
|
exit 1
|
||||||
|
}
|
|
@ -60,9 +60,11 @@
|
||||||
#if __APPLE__
|
#if __APPLE__
|
||||||
#define SANDBOX_ENABLED 1
|
#define SANDBOX_ENABLED 1
|
||||||
#define DEFAULT_ALLOWED_IMPURE_PREFIXES "/System/Library /usr /dev /bin/sh"
|
#define DEFAULT_ALLOWED_IMPURE_PREFIXES "/System/Library /usr /dev /bin/sh"
|
||||||
|
#define DARWIN_PREBUILD 1
|
||||||
#else
|
#else
|
||||||
#define SANDBOX_ENABLED 0
|
#define SANDBOX_ENABLED 0
|
||||||
#define DEFAULT_ALLOWED_IMPURE_PREFIXES "/bin" "/usr/bin"
|
#define DEFAULT_ALLOWED_IMPURE_PREFIXES "/bin" "/usr/bin"
|
||||||
|
#define DARWIN_PREBUILD 0
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if CHROOT_ENABLED
|
#if CHROOT_ENABLED
|
||||||
|
@ -2045,6 +2047,11 @@ void DerivationGoal::startBuilder()
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#if DARWIN_PREBUILD
|
||||||
|
if (settings.preBuildHook == "")
|
||||||
|
settings.preBuildHook = settings.nixLibexecDir + "/nix/resolve-system-dependencies.pl";
|
||||||
|
#endif
|
||||||
|
|
||||||
if (settings.preBuildHook != "") {
|
if (settings.preBuildHook != "") {
|
||||||
printMsg(lvlChatty, format("executing pre-build hook ‘%1%’")
|
printMsg(lvlChatty, format("executing pre-build hook ‘%1%’")
|
||||||
% settings.preBuildHook);
|
% settings.preBuildHook);
|
||||||
|
|
|
@ -33,4 +33,4 @@ $(d)/local-store.cc: $(d)/schema.sql.hh
|
||||||
clean-files += $(d)/schema.sql.hh
|
clean-files += $(d)/schema.sql.hh
|
||||||
|
|
||||||
$(eval $(call install-file-in, $(d)/nix-store.pc, $(prefix)/lib/pkgconfig, 0644))
|
$(eval $(call install-file-in, $(d)/nix-store.pc, $(prefix)/lib/pkgconfig, 0644))
|
||||||
$(eval $(call install-file-in, $(d)/sandbox-defaults.sb, $(prefix)/share/nix, 0644))
|
$(eval $(call install-file-in, $(d)/sandbox-defaults.sb, $(datadir)/nix, 0644))
|
||||||
|
|
Loading…
Reference in a new issue