fink/perlmod/Fink ChangeLog,1.305.2.7,1.305.2.8 Engine.pm,1.101.2.1,1.101.2.2 PkgVersion.pm,1.128.2.9,1.128.2.10

[Justin F. Hallett]

Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv17689

Modified Files:
      Tag: shlibs
        ChangeLog Engine.pm PkgVersion.pm 
Log Message:
Not yet finished, just ened to get this in so i can finish a little work before I 
finish this

Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.305.2.7
retrieving revision 1.305.2.8
diff -u -d -r1.305.2.7 -r1.305.2.8
--- ChangeLog   15 Jul 2003 01:16:21 -0000      1.305.2.7
+++ ChangeLog   15 Jul 2003 16:02:18 -0000      1.305.2.8
@@ -1,3 +1,9 @@
+2003-07-15  Justin F. Hallett  <[EMAIL PROTECTED]>
+
+       * Engine.pm: Adding 'fink depends' to give a list of expanded depends
+         good for maintainers since it'sll expand ${SHLIB_DEPS} if the pkg
+         is built.
+
 2003-07-14  Benjamin Reed  <[EMAIL PROTECTED]>
 
        * Shlibs.pm: Evil, scary voodoo to remove duplicates in dependency

Index: Engine.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Engine.pm,v
retrieving revision 1.101.2.1
retrieving revision 1.101.2.2
diff -u -d -r1.101.2.1 -r1.101.2.2
--- Engine.pm   11 Jul 2003 15:31:06 -0000      1.101.2.1
+++ Engine.pm   15 Jul 2003 16:02:18 -0000      1.101.2.2
@@ -89,6 +89,7 @@
          'check' => [\&cmd_validate, 0, 0],
          'checksums' => [\&cmd_checksums, 1, 0],
          'cleanup' => [\&cmd_cleanup, 1, 1],
+         'depends' => [\&cmd_depends, 1, 0],
        );
 
 our (%deb_list, %src_list);
@@ -822,6 +823,27 @@
                        # Obsolete deb
                        unlink $File::Find::name;
                }
+       }
+}
+
+### Display the depends for a package
+
+sub cmd_depends {
+       my ($pkg, $package, @deplist, $fullname);
+
+       foreach $pkg (@_) {
+               $package = Fink::PkgVersion->match_package($pkg);
+                unless (defined $package) {
+                       print "no package found for specification '$pkg'!\n";
+                       next;
+               }
+
+               $fullname = $package->get_fullname();
+               ### FIXEME, need deplist here
+               @deplist = $package->resolve_depends();
+
+               print "Depends for $fullname are...\n";
+               print join(', ', @deplist)."\n\n";
        }
 }
 

Index: PkgVersion.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/PkgVersion.pm,v
retrieving revision 1.128.2.9
retrieving revision 1.128.2.10
diff -u -d -r1.128.2.9 -r1.128.2.10
--- PkgVersion.pm       11 Jul 2003 22:03:58 -0000      1.128.2.9
+++ PkgVersion.pm       15 Jul 2003 16:02:18 -0000      1.128.2.10
@@ -689,8 +689,6 @@
                }
        }
        
-       ### FIXME
-       ### Underconstruction
        if ($self->find_debfile()) {
                print "Reading dependencies from ".$self->get_fullname()." deb 
file...\n";
                @speclist = split(/\s*\,\s*/, $self->get_debdeps());




-------------------------------------------------------
This SF.Net email sponsored by: Parasoft
Error proof Web apps, automate testing & more.
Download & eval WebKing and get a free book.
www.parasoft.com/bulletproofapps1
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits