Skip site navigation (1)Skip section navigation (2) 
Date:      Thu, 12 Jul 2001 21:53:10 +0200
From:      Anton Berezin <tobez@tobez.org>
To:        Steve Price <steve@havk.org>
Cc:        ports@freebsd.org
Subject:   Re: graphviz representation of ports dependencies
Message-ID:  <20010712215310.B21192@heechee.tobez.org>
In-Reply-To: <20010712144956.E75539@bsd.havk.org>; from steve@havk.org on Thu, Jul 12, 2001 at 02:49:56PM -0500
References:  <20010712134551.U75539@bsd.havk.org> <20010712214556.A21192@heechee.tobez.org> <20010712144956.E75539@bsd.havk.org>
next in thread | previous in thread | raw e-mail | index | archive | help 
On Thu, Jul 12, 2001 at 02:49:56PM -0500, Steve Price wrote:
> On Thu, Jul 12, 2001 at 09:45:56PM +0200, Anton Berezin wrote:
> > On Thu, Jul 12, 2001 at 01:45:51PM -0500, Steve Price wrote:
> > > Does anyone remember back some time ago where someone posted a
> > > link to a graphviz generated representation of the ports
> > > collection?  Anyone have the URL handy?  I can't seem to find
> > > it searching through the list archives.
> > 
> > <Pine.BSF.4.21.0104230806060.27435-100000@wildside.wagsky.com>
> > 
> > That was in stable@.

> Care to forward a copy of the message along with the URL?  The stable
> archives aren't working right now which would explain why I didn't
> find it.  Or at least one of the reasons I didn't. :)

Heh.  This URL is indispensable:   ;-)

   http://www.freebsd.org/search/search-mid.html

+Anton.

The message is:


Date: Mon, 23 Apr 2001 08:35:16 -0700 (PDT)
From: Jeff Kletsky <Jeff+freebsd@wagsky.com>
To: freebsd-stable@freebsd.org
Subject: pkg/port dependency tool (enclosed)
Message-ID: <Pine.BSF.4.21.0104230806060.27435-100000@wildside.wagsky.com>

I saw that in the release notes for 4.3 that the pkg_* toolset was being
enhanced to track where a given pkg/port comes from.  I have been
wrestling with the upgrade process for a while, especially when it comes
to dependencies, and am offering back to the project a Perl script that
provides output that can be run through dot(1) (available in the port
graphics/graphviz) to produce a dependency graph. 

Looking at this graph makes it clear to a human which port to upgrade
first based on its dependencies. You can reverse the dependencies to see
which one will pull in the most as dependencies as well.

I'm thinking through the automation of this right now. There are issues
with loops in the dependency graph which need to be detected and
resolved. Detection should not be an issue, resolution is
tougher. The "build twice" approach *may* be sufficient, but that horrid
possibility of each node exposing functionality that is dependent on a
predecessor worries me a (tiny) bit. Let's hope that most of the software
is well designed...

I would be happy to contribute to the enhancement of the pkg/port tools
in a more targeted way if the appropriate lead would let me know.

Jeff

P.S. This type of dependency checking might also allow the "make
clean" process a bit smarter and faster (the other option there would be
to specify a flag that says not to follow dependencies on a recursive
"clean", especially in /usr/ports)


In any event, here is the Perl code:
====================================

#!/usr/bin/perl -w

# $Header: /usr/local/cvsroot/pkg_graph/get_depends.pl,v 1.3 2001/04/22 18:50:19 jeff Exp $

# Tool to read from /var/db/pkg to find all pkg/port dependencies
# and eventually write out a file for dot(1)


use strict;
use POSIX qw(EXIT_FAILURE EXIT_SUCCESS);
use FileHandle;

my $usage = qq(
Usage:
$0 [-r]

Prints output for dot(1) based on installed package/port dependencies

  -r   Reverses the direction of the dependencies in the graph

);

my $reverse = 0;

if ( $#ARGV > 0 ) {
    die $usage;
}

if ( $#ARGV == 0 ) {
    $reverse = ( shift @ARGV eq "-r" );
    die $usage unless $reverse;
}

my $pkg_db_dir = '/var/db/pkg';
$pkg_db_dir =~ s/\/$//;             # prevent "trailing-slash" issue

my $required_by_filename = '+REQUIRED_BY';


#
# Open the directory that contains pkg/port information
#

opendir (VARDBPKG, $pkg_db_dir) or die "Unable to open $pkg_db_dir: $!";

#
# Get the subdirectories, and iterate through them
#

my @allfiles = readdir VARDBPKG;

die "No files read in $pkg_db_dir\n" unless $#allfiles > 1;

my $pkg;
my $rqd;
my $required_by_fqn;
my $required_by_fh;

#
# dot(1) doesn't like standard package names, 
# seeming to split then at the -
#

my %nodes;
my $node = 0;

my $pkg_node;
my $rqd_node;

#
# Write the dot(1) header
#

print 'digraph G {';
print "\n";
print qq(rankdir=LR;
color=white;
/* size="8.5,11"; */
node [color=lightgray,style=filled];
);


#
# Now deal with the rest
#

 PKG:

    foreach $pkg (sort @allfiles) {
	
	
	next PKG if $pkg =~ m/^\./;

	print qq(\t"${pkg}";\n);  # Add the node

	
#
# See if there is a +REQUIRED_BY file, open it, and process lines
#
	
	$required_by_fqn = "${pkg_db_dir}/${pkg}/${required_by_filename}";

	next PKG unless -e $required_by_fqn;
	
	$required_by_fh = new FileHandle "< $required_by_fqn";
	die "Unable to open $required_by_fqn: $!" 
	    unless defined $required_by_fh;
	
	while ($rqd = <$required_by_fh>) {

	    chomp $rqd;
	    
	    if ( $reverse ) {
		print qq(\t\t"${rqd}" -> "${pkg}";\n);
	    } else {
		print qq(\t\t"${pkg}" -> "${rqd}";\n);
	    }		
	}

    } # PKG
    

#
# Close the dot(1) output
#

print '}';
print "\n";
exit EXIT_SUCCESS;

To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-ports" in the body of the message

Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20010712215310.B21192>