createyastdeps

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4   unshift @INC, ($::ENV{'BUILD_DIR'} || '/usr/lib/build');
   5 }
   6
   7 use Build;
   8 use Build::Susetags;
   9 use strict;
  10
  11 sub print_pkg($)
  12 {
  13   my $pkg = shift;
  14
  15   return if $pkg->{'arch'} eq 'src' || $pkg->{'arch'} eq 'nosrc';
  16   my $id = sprintf("%s.%s-%d/%d/%d: ",
  17     $pkg->{'name'},
  18     $pkg->{'arch'},
  19     $pkg->{'buildtime'},
  20     0,
  21     0);
  22   print sprintf('F:%s%ssuse/%s/%s',$id,$pkg->{'baseurl'},
  23     $pkg->{'arch'}, $pkg->{'location'}), "\n";
  24
  25   print "P:$id".$pkg->{'provides'}."\n";
  26   print "R:$id".$pkg->{'requires'}."\n";
  27
  28   my $tag = sprintf("%s-%s-%s %s",
  29     $pkg->{'name'},
  30     $pkg->{'version'},
  31     $pkg->{'release'},
  32 #    $pkg->{'rpm:buildhost'},
  33     $pkg->{'buildtime'});
  34   print "I:$id$tag\n";
  35 }
  36
  37 sub callback
  38 {
  39   my ($pkg, $url) = @_;
  40   $pkg->{'provides'} = [] unless exists $pkg->{'provides'};
  41   # add self provides (rpm3 misses that)
  42   my $n = $pkg->{'name'};
  43   if(substr($pkg->{'arch'}, -3) ne 'src' && !scalar grep(/^\Q$n\E( =.*)?$/,@{$pkg->{'provides'}}))
  44   {
  45     push @{$pkg->{'provides'}}, sprintf("%s = %s-%s", $pkg->{'name'}, $pkg->{'version'}, $pkg->{'release'});
  46   }
  47   $pkg->{'provides'} = join(' ', @{$pkg->{'provides'}});
  48   $pkg->{'requires'} = join(' ', @{$pkg->{'requires'}}) if $pkg->{'requires'};
  49   $pkg->{'baseurl'} = $url;
  50   my @data = split(' ', $pkg->{'location'});
  51   # multi cd support hack
  52   my $num = $data[0];
  53   if($pkg->{'baseurl'} =~ /1\/$/ && $num ne 0) {
  54     $pkg->{'baseurl'} =~ s/1\/$/$num\//;
  55   }
  56   $pkg->{'location'} = $data[1];
  57
  58   print_pkg($pkg);
  59
  60   return 0;
  61 }
  62
  63 for my $url (@ARGV) {
  64   my $dir;
  65   if ($url =~ /^zypp:\/\/([^\/]*)\/?/) {
  66     use Build::Zypp;
  67     my $repo = Build::Zypp::parsecfg($1);
  68     die "can't parse $1\n" unless $repo;
  69     die "only yast2 repos supported\n" unless $repo->{'type'} eq 'yast2';
  70     my $name = $repo->{'name'};
  71     $dir = "/var/cache/zypp/raw/$name/";
  72   } else {
  73     $dir = $url;
  74   }
  75
  76 # a really fucked up system
  77 #  if (-e $url."/yast/order") {
  78 #    if(open(F, '<', $url."/yast/order")) {
  79 #      my $found_products;
  80 #      while(<F>) {
  81 #        chomp;
  82 #        my ($a, $b) = split(/ /);
  83 #        $a =~ s/^\///;
  84 #        if(-e $url.$a)
  85 #        {
  86 #          push @ARGV, $url.$a;
  87 #          $found_products = 1;
  88 #          print STDERR "$url -> $url$a\n";
  89 #        }
  90 #      }
  91 #      close(F);
  92 #      next if $found_products;
  93 #    }
  94 #  }
  95   # XXX: location is actually defined in content file
  96   my $packages = $dir.'/suse/setup/descr/packages';
  97
  98   $url .= '/' unless $url =~ /\/$/;
  99
 100   my @order = ();
 101   my $pkgs = Build::Susetags::parse($packages,
 102     { 'Loc' => 'location', 'Prv' => 'provides', 'Req' => 'requires', 'Tim' => 'buildtime' },
 103     { cb => \&callback, data => $url });
 104 }