.bz2 -> .gz again.
[fedora-mingw.git] / show-build-order.pl
1 #!/usr/bin/perl -w
2 #
3 # Show the order to build Fedora MinGW spec files.
4 # By Richard Jones <rjones@redhat.com>
5
6 use strict;
7
8 my $debug = 0;
9 chomp (my $pwd = `pwd`);
10
11 sub main {
12     my %br;
13     my $specfile;
14     my $packagename;
15
16     my @specfiles = <*/*.spec>;
17
18     # Get BRs for each specfile.
19     foreach $specfile (@specfiles) {
20         $packagename = $specfile;
21         $packagename =~ s{^.*/}{};
22         $packagename =~ s{\.spec$}{};
23
24         $br{$packagename} = [];
25
26         open SPEC,$specfile or die "$specfile: $!";
27         while (<SPEC>) {
28             if (m/^BuildRequires:(.*)/) {
29                 my $brs = $1;
30                 my @brs = eval 'split /,/, $brs';
31                 @brs = map { trim ($_) } @brs;
32                 @brs = map { remove_trailers ($_) } @brs;
33                 unshift @{$br{$packagename}}, @brs;
34             }
35         }
36
37         if ($debug) {
38             print "BRs for $packagename = [";
39             print (join "],[", @{$br{$packagename}});
40             print "]\n";
41         }
42     }
43
44     foreach $packagename (keys %br) {
45         my @brs = @{$br{$packagename}};
46         @brs = uniq (sort @brs);
47         $br{$packagename} = \@brs;
48
49         if ($debug) {
50             print "uniq BRs for $packagename = [";
51             print (join "],[", @{$br{$packagename}});
52             print "]\n";
53         }
54     }
55
56     # Some packages we want to ignore for now.
57     delete $br{"mingw-cyrus-sasl"};
58     delete $br{"mingw-nsis"};
59     delete $br{"mingw-wix"};
60     delete $br{"mingw-example"};
61     delete $br{"mingw-gdb"};
62
63     # There is a dependency loop (gcc -> runtime/w32api -> gcc)
64     # which has to be manually resolved below.  Break that loop.
65     my @gcc_brs = @{$br{"mingw-gcc"}};
66     @gcc_brs = grep { $_ ne "mingw-runtime" && $_ ne "mingw-w32api" } @gcc_brs;
67     $br{"mingw-gcc"} = \@gcc_brs;
68
69     # Use tsort to generate a topological ordering.
70     open TSORT,">/tmp/tsort.tmp" or die "/tmp/tsort.tmp: $!";
71     foreach $packagename (keys %br) {
72         my $br;
73         foreach $br (@{$br{$packagename}}) {
74             print "writing $br $packagename\n" if $debug;
75             print TSORT $br, " ", $packagename, "\n";
76         }
77     }
78     close TSORT;
79
80     system ("tsort < /tmp/tsort.tmp > /tmp/tsort2.tmp") == 0
81         or die "system: tsort: $?";
82
83     # Read in list of packages.
84     open PACKAGES,"/tmp/tsort2.tmp" or die "/tmp/tsort2.tmp: $!";
85     unless ($debug) {
86         unlink "/tmp/tsort.tmp";
87         unlink "/tmp/tsort2.tmp";
88     }
89
90     my %installed;
91
92     while (<PACKAGES>) {
93         chomp;
94         if (/^mingw-(.*)/) {
95             $packagename = $_;
96             my $dirname = $1;
97
98             print "considering $packagename\n" if $debug;
99
100             my @brs = @{$br{$packagename}};
101
102             # Are all BR RPMs installed?
103             my $br;
104             foreach $br (@brs) {
105                 if (! rpm_installed ($br) && !exists $installed{$br}) {
106                     print "# as root: rpm -Uvh $br*.rpm\n";
107                     $installed{$br} = 1;
108                 }
109             }
110
111             # Special case for mingw-gcc deps.
112             if ($packagename eq "mingw-gcc" &&
113                 (!rpm_installed ("mingw-runtime") ||
114                  !rpm_installed ("mingw-w32api"))) {
115                 print "rpmbuild -ba --define \"_sourcedir $pwd/runtime-bootstrap\" runtime-bootstrap/mingw-runtime-bootstrap.spec\n";
116                 print "# as root: rpm -Uvh mingw-runtime-bootstrap*.rpm\n";
117                 $installed{"mingw-runtime-bootstrap"} = 1;
118
119                 print "rpmbuild -ba --define \"_sourcedir $pwd/w32api-bootstrap\" w32api-bootstrap/mingw-w32api-bootstrap.spec\n";
120                 print "# as root: rpm -Uvh mingw-w32api-bootstrap*.rpm\n";
121                 $installed{"mingw-w32api-bootstrap"} = 1;
122             }
123
124             # Spec file.
125             my $specfile = "$dirname/$packagename.spec";
126             die "$specfile: file missing" unless -f $specfile;
127
128             my $rpmbuild =
129                 "rpmbuild -ba --define \"_sourcedir $pwd/$dirname\"";
130             print "$rpmbuild $specfile\n";
131         }
132     }
133 }
134
135 sub rpm_installed {
136     local $_ = shift;
137     return (system ("rpm -q $_ > /dev/null") == 0);
138 }
139
140 sub trim {
141     local $_ = shift;
142     s/^\s+//;
143     s/\s+$//;
144     return $_;
145 }
146
147 sub uniq {
148     my %hash;
149     local $_;
150
151     $hash{$_} = 1 foreach (@_);
152     return sort keys %hash;
153 }
154
155 # foo >= 3.1 --> foo
156 # foo-devel --> foo
157 # and a few other exceptions
158 sub remove_trailers {
159     local $_ = shift;
160     s/\s*[<>=].*$//;
161
162     # -devel & -doc come from the base package.
163     s/-devel$//;
164     s/-doc$//;
165
166     # mingw-gcc-c++ etc.
167     s/^mingw-gcc-.*/mingw-gcc/;
168
169     return $_;
170 }
171
172 &main()