aboutsummaryrefslogtreecommitdiffstats
path: root/genbasefiles
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-08-25 14:49:48 +0000
committerFrancois Pons <fpons@mandriva.com>2000-08-25 14:49:48 +0000
commitf8b245f06572634f7b7ad20dfb91736b10da7343 (patch)
treeddbed7047fbca6d22f5d03a6e2f25e85426a432d /genbasefiles
parent553269fd36cf7107ae6ebca135d1df2fc0e0c2b0 (diff)
downloadrpmtools-f8b245f06572634f7b7ad20dfb91736b10da7343.tar
rpmtools-f8b245f06572634f7b7ad20dfb91736b10da7343.tar.gz
rpmtools-f8b245f06572634f7b7ad20dfb91736b10da7343.tar.bz2
rpmtools-f8b245f06572634f7b7ad20dfb91736b10da7343.tar.xz
rpmtools-f8b245f06572634f7b7ad20dfb91736b10da7343.zip
*** empty log message ***
Diffstat (limited to 'genbasefiles')
-rwxr-xr-xgenbasefiles78
1 files changed, 78 insertions, 0 deletions
diff --git a/genbasefiles b/genbasefiles
new file mode 100755
index 0000000..5a68704
--- /dev/null
+++ b/genbasefiles
@@ -0,0 +1,78 @@
+#!/usr/bin/perl
+
+#- Copyright (C) 1999 MandrakeSoft (fpons@mandrakesoft.com)
+#-
+#- This program is free software; you can redistribute it and/or modify
+#- it under the terms of the GNU General Public License as published by
+#- the Free Software Foundation; either version 2, or (at your option)
+#- any later version.
+#-
+#- This program is distributed in the hope that it will be useful,
+#- but WITHOUT ANY WARRANTY; without even the implied warranty of
+#- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+#- GNU General Public License for more details.
+#-
+#- You should have received a copy of the GNU General Public License
+#- along with this program; if not, write to the Free Software
+#- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+use strict qw(subs vars refs);
+use rpmtools;
+
+sub main {
+ my ($output_dir, @files) = @_;
+ my $params = new rpmtools;
+
+ -d $output_dir or die "usage: gendepslist <output_dir> <hdlist files|rpm files>\n";
+
+ #- this version try to use an existing profiles file to reduce
+ #- number of pass of parsing hdlist.
+ if (-r "$output_dir/provides") {
+ print STDERR "using existing $output_dir/provides file\n";
+ open F, "$output_dir/provides";
+ $params->read_provides_files(\*F);
+ close F;
+ }
+
+ #- now, try to build dependancy, but incrementally only.
+ foreach (@files) {
+ print STDERR "reading $_\n";
+ /\.rpm$/ ? $params->read_rpms($_) : $params->read_hdlists($_);
+ $params->compute_depslist();
+ }
+
+ my @unresolved = $params->get_unresolved_provides_files();
+ if (@unresolved > 0) {
+ foreach (@unresolved) {
+ print STDERR "found requires on file not yet found [$_], forcing a second pass\n";
+ }
+
+ #- cleaning.
+ $params->keep_only_cleaned_provides_files();
+
+ foreach (@files) {
+ print STDERR "reading (second pass) $_\n";
+ /\.rpm$/ ? $params->read_rpms($_) : $params->read_hdlists($_);
+ $params->compute_depslist();
+ }
+ }
+
+ #- work finished, so write results:
+ #- $output_dir/depslist.ordered
+ #- $output_dir/provides
+ #- $output_dir/compss
+ print STDERR "writing $output_dir/depslist.ordered\n";
+ open F, ">$output_dir/depslist.ordered" or die "unable to write depslist file $output_dir/depslist.ordered\n";
+ $params->write_depslist(\*F);
+ close F;
+ print STDERR "writing $output_dir/provides\n";
+ open F, ">$output_dir/provides" or die "unable to write provides file $output_dir/provides\n";
+ $params->write_provides(\*F);
+ close F;
+ print STDERR "writing $output_dir/compss\n";
+ open F, ">$output_dir/compss" or die "unable to write compss file $output_dir/compss";
+ $params->write_compss(\*F);
+ close F;
+}
+
+main(@ARGV);