diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/rdeps | 119 |
1 files changed, 119 insertions, 0 deletions
diff --git a/bin/rdeps b/bin/rdeps new file mode 100755 index 0000000..83578f6 --- /dev/null +++ b/bin/rdeps @@ -0,0 +1,119 @@ +#!/usr/bin/perl + +=head1 NAME + +rdeps - List ProteanOS package reverse dependencies + +=cut + +use strict; +use warnings; +no indirect; +use autovivification; +use English qw(-no_match_vars); + +use LWP::Simple; +use POSIX qw(strftime); + +my $SOURCE_URL = 'http://git.proteanos.com/depsdot/depsdot.git/'; +my $BASE_URL = 'http://files.proteanos.com/pub/proteanos/feeds/dev/trunk'; +my @DEP_FIELDS = qw(Build-Depends Depends Recommends Suggests Pre-Depends); + +my @rdeps; + +sub read_list +{ + my ($list, $dep, $is_src) = @_; + + foreach my $para (split(m{\n\n}, get($list))) { + my $package = undef; + my $source = undef; + my @deps; + foreach my $line (split(m{\n}, $para)) { + my ($name, $value) = split(m{\s*:\s*}, $line); + if ($name eq 'Package') { + $package = $value; + } + if ($name eq 'Source') { + $source = $value; + } + if (grep(m{^\Q$name\E$}, @DEP_FIELDS)) { + push(@deps, split(m{\s*,\s*}, $value)); + } + } + next if not defined($source); + map({ $_ =~ s{[\s(].*$}{}; } @deps); # Vim: ) + if (grep(m{^\Q$dep\E$}, @deps) and not + grep(m{^\Q$source\E$}, @rdeps)) { + push(@rdeps, $source); + } + } + + return; +} + +sub usage +{ + my ($fh) = @_; + + $fh->printf("Usage: %s <pkg>\n", $PROGRAM_NAME); + + return; +} + +sub main +{ + my $dep; + my @manifest; + + if ($#ARGV lt 0) { + usage(*STDERR); + return 1; + } + $dep = $ARGV[0]; + + @manifest = split(m{\n}, get($BASE_URL . '/Manifest')); + foreach my $aps (@manifest) { + read_list($BASE_URL . '/' . $aps . '/Packages', $dep, + ($aps =~ m{^src/})); + } + STDOUT->print(join("\n", sort(@rdeps))); + + return 0; +} + +exit(main()); + +__END__ + +=head1 SYNOPSIS + +B<rdeps> + +=head1 DESCRIPTION + +B<rdeps> lists the source packages providing build- and run-time dependencies of +a ProteanOS binary package. + +=head1 OUTPUT + +B<rdeps> writes a list of source packages to standard output. + +=head1 COPYRIGHT + +Copyright (C) 2019-2020 Patrick McDermott + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation, either version 3 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see <http://www.gnu.org/licenses/>. + +=cut |