cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reduce the amount of direct dependencies by pointing out those which

Browse Source 
are pulled in as indirect dependencies

ok espie@
This commit is contained in:
sturm 2006-12-10 17:34:41 +00:00
parent 2a5f86a458
commit 0bcaa0f861
1 changed files with 85 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
infrastructure/package/check-indirect-dependencies Executable file
View File

@ -0,0 +1,85 @@
#!/usr/bin/perl
# $OpenBSD: check-indirect-dependencies,v 1.1 2006/12/10 17:34:41 sturm Exp $
# Copyright (c) 2006 Nikolay Sturm <sturm@openbsd.org>.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE OPENBSD PROJECT AND CONTRIBUTORS
# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBSD
# PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
# reduce the amount of direct dependencies by pointing out those which
# are pulled in as indirect dependencies
use strict;
use warnings;
my $mainport;
my $make = $ENV{MAKE} || "make";
sub check_deps($)
{
my $kind = shift;
my %directdeps;
my %indirectdeps;
my @dirstack;
print "checking $kind dependencies\n";
open(my $dirdepends, "-|", "$make $kind-dir-depends") or
die "Cannot execute '$make $kind-dir-depends': $!\n";
while (<$dirdepends>) {
chomp;
my ($port, $dep) = split;
$mainport = $port if not defined $mainport;
if (not @dirstack) {
push @dirstack, $port;
push @dirstack, $dep;
} elsif ($dirstack[-1] eq $port) {
push @dirstack, $dep;
} else {
while ($dirstack[-1] ne $port) {
pop @dirstack;
}
push @dirstack, $dep;
}
if ($port eq $mainport) {
if (exists $indirectdeps{$dep}) {
print "\nprobably unneeded dependency: $dep\n";
print "@{$indirectdeps{$dep}}\n";
next;
}
$directdeps{$dep} = 1;
} else {
if (exists $directdeps{$dep}) {
print "\nprobably unneeded dependency: $dep\n";
print "@dirstack\n";
}
$indirectdeps{$dep} = [ @dirstack ];
}
}
close $dirdepends;
}
for my $kind ("build", "run") {
check_deps($kind);
}