Rename this script to more meaningful name.

[fedora-mingw.git] / BUILD.pl

diff --git a/BUILD.pl b/BUILD.pl
deleted file mode 100755 (executable)
index ae67a93..0000000
--- a/BUILD.pl
+++ /dev/null
@@ -1,164 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Build Fedora MinGW spec files in correct order.
-# By Richard Jones <rjones@redhat.com>
-
-use strict;
-
-my $debug = 0;
-
-sub main {
-    my %br;
-    my $specfile;
-    my $packagename;
-
-    my @specfiles = <*/*.spec>;
-
-    # Get BRs for each specfile.
-    foreach $specfile (@specfiles) {
-       $packagename = $specfile;
-       $packagename =~ s{^.*/}{};
-       $packagename =~ s{\.spec$}{};
-
-       $br{$packagename} = [];
-
-       open SPEC,$specfile or die "$specfile: $!";
-       while (<SPEC>) {
-           if (m/^BuildRequires:(.*)/) {
-               my $brs = $1;
-               my @brs = eval 'split /,/, $brs';
-               @brs = map { trim ($_) } @brs;
-               @brs = map { remove_trailers ($_) } @brs;
-               unshift @{$br{$packagename}}, @brs;
-           }
-       }
-
-       if ($debug) {
-           print "BRs for $packagename = [";
-           print (join "],[", @{$br{$packagename}});
-           print "]\n";
-       }
-    }
-
-    foreach $packagename (keys %br) {
-       my @brs = @{$br{$packagename}};
-       @brs = uniq (sort @brs);
-       $br{$packagename} = \@brs;
-
-       if ($debug) {
-           print "uniq BRs for $packagename = [";
-           print (join "],[", @{$br{$packagename}});
-           print "]\n";
-       }
-    }
-
-    # Some packages we want to ignore for now.
-    delete $br{"mingw-cyrus-sasl"};
-    delete $br{"mingw-nsis"};
-    delete $br{"mingw-wix"};
-    delete $br{"mingw-example"};
-
-    # There is a dependency loop (gcc -> runtime/w32api -> gcc)
-    # which has to be manually resolved below.  Break that loop.
-    my @gcc_brs = @{$br{"mingw-gcc"}};
-    @gcc_brs = grep { $_ ne "mingw-runtime" && $_ ne "mingw-w32api" } @gcc_brs;
-    $br{"mingw-gcc"} = \@gcc_brs;
-
-    # Use tsort to generate a topological ordering.
-    open TSORT,">/tmp/tsort.tmp" or die "/tmp/tsort.tmp: $!";
-    foreach $packagename (keys %br) {
-       my $br;
-       foreach $br (@{$br{$packagename}}) {
-           print "writing $br $packagename\n" if $debug;
-           print TSORT $br, " ", $packagename, "\n";
-       }
-    }
-    close TSORT;
-
-    system ("tsort < /tmp/tsort.tmp > /tmp/tsort2.tmp") == 0
-       or die "system: tsort: $?";
-
-    # Read in list of packages.
-    open PACKAGES,"/tmp/tsort2.tmp" or die "/tmp/tsort2.tmp: $!";
-    unless ($debug) {
-       unlink "/tmp/tsort.tmp";
-       unlink "/tmp/tsort2.tmp";
-    }
-
-    my %installed;
-
-    while (<PACKAGES>) {
-       chomp;
-       if (/^mingw-(.*)/) {
-           $packagename = $_;
-           my $dirname = $1;
-
-           print "considering $packagename\n" if $debug;
-
-           my @brs = @{$br{$packagename}};
-
-           # Are all BR RPMs installed?
-           my $br;
-           foreach $br (@brs) {
-               if (! rpm_installed ($br) && !exists $installed{$br}) {
-                   print "as root # rpm -Uvh $br*.rpm\n";
-                   $installed{$br} = 1;
-               }
-           }
-
-           # Special case for mingw-gcc deps.
-           if ($packagename eq "mingw-gcc" &&
-               (!rpm_installed ("mingw-runtime") ||
-                !rpm_installed ("mingw-w32api"))) {
-               print "rpmbuild -ba bootstrap/mingw-bootstrap.spec\n";
-               print "as root # rpm -Uvh mingw-bootstrap*.rpm\n";
-               $installed{"mingw-bootstrap"} = 1;
-           }
-
-           # Spec file.
-           my $specfile = "$dirname/$packagename.spec";
-           die "$specfile: file missing" unless -f $specfile;
-
-           print "rpmbuild -ba $specfile\n";
-       }
-    }
-}
-
-sub rpm_installed {
-    local $_ = shift;
-    return (system ("rpm -q $_ > /dev/null") == 0);
-}
-
-sub trim {
-    local $_ = shift;
-    s/^\s+//;
-    s/\s+$//;
-    return $_;
-}
-
-sub uniq {
-    my %hash;
-    local $_;
-
-    $hash{$_} = 1 foreach (@_);
-    return sort keys %hash;
-}
-
-# foo >= 3.1 --> foo
-# foo-devel --> foo
-# and a few other exceptions
-sub remove_trailers {
-    local $_ = shift;
-    s/\s*[<>=].*$//;
-
-    # -devel & -doc come from the base package.
-    s/-devel$//;
-    s/-doc$//;
-
-    # mingw-gcc-c++ etc.
-    s/^mingw-gcc-.*/mingw-gcc/;
-
-    return $_;
-}
-
-&main()