|
|
#!/usr/bin/perl -w## This script checks the ROCK Linux dependency database# against the proposed build order from the GNOME release# notes and creates scripts/dep_fixes.txt entries based on# the results.
use strict;
# this is fetched from# http://www.gnome.org/start/2.6/notes/rninstallation.htmlmy @proposed_order = qw(
libxml2libxsltgtk-docgliblibidlorbit2intltoollibbonobofontconfigRenderXrenderXftpangoatkshared-mime-infogtk+gconfgnome-mime-datagnome-vfsesoundlibgnomelibart_lgpl23libgladelibgnomecanvaslibbonobouihicolor-icon-themegnome-icon-themegnome-keyringlibgnomeuistartup-notificationgtk-enginesgnome-themesgnome-desktoplibwnckscrollkeepergnome-panelgnome-sessionvtegnome-terminallibgtopgailgnome-appletsmetacitylibgsflibcrocolibrsvgeelnautiluscontrol-centergtkhtmlyelpbug-buddylibgnomeprintlibgnomeprintuigtksourceviewgediteogggvfile-rollergconf-editorgnome-utilsgalgnome-system-monitorgstreamergst-pluginsgnome-medianautilus-mediagnome-netstatusgcalctoolgpdfgucharmapnautilus-cd-burnerzenitygnome-speechat-spignome-maggnopernicusgokepiphanygnomemeetinggnome-gamesgnome2-user-docs);
my %deps;my %bogus;
open(F, "<scripts/dep_db.txt") or die;while (<F>) { my @list = split /[: \n]+/; my $p = shift @list; $deps{$p}{$_} = 1 foreach (@list);}close F;
while ($#proposed_order >= 0) { my $p = shift @proposed_order;
foreach (@proposed_order) { $bogus{$p}{$_} = 1 if defined $deps{$p}{$_}; }}
foreach my $p (sort keys %bogus) { print "$p\tdel\t", join(" ", sort keys %{$bogus{$p}}), "\n";}
|
