git.maemo.org Git - maemian/blob - nokia-lintian/frontend/depcheck

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 $ENV{'LINTIAN_ROOT'} = '..';
   5 require "$ENV{'LINTIAN_ROOT'}/lib/deplib.pl";
   6
   7 my $foo = Dep::parse('aalib1 (>= 1.2), libc6 (>= 2.2.2-2), libgpmg1 (>= 1.14-16), libncurses5 (>= 5.2.20010310-1), libpng2, slang1 (>> 1.3.0-0), svgalibg1 | svgalib-dummyg1, slang1, xlibs (>= 4.0.1-11), libpng2, zlib1g (>= 1:1.1.3)');
   8
   9 use Data::Dumper;
  10
  11 if ($foo->[0] eq 'AND') {
  12     my %seen;
  13     shift @$foo;
  14     foreach my $i (@$foo) {
  15         next if ($i->[0] eq 'OR');
  16         $seen{$i->[1]}++;
  17     }
  18     my @dups = grep {$seen{$_} > 1} keys(%seen);
  19     if (scalar(@dups) > 0) {
  20         print "Dups: " . scalar(@dups) . "\n";
  21         print "@dups\n";
  22     }
  23 }
  24
  25 print Dumper($foo) . "\n";
  26
  27 #my @preds = $foo->[1];
  28 #print Dumper(@preds);