This is a quick and dirty script that will parse an Apache Ant build file and create a dot file that will graph the dependencies using GraphViz
usage:
perl antDependencies > foo.dot
dotty foo.dot
#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
use XML::Parser;
# This is the ant build file
my $antFile = "/home/perlmoth/build.xml";
my $p = XML::Parser->new(Style => 'Tree');
my $doc = $p->parsefile( $antFile );
print "digraph G {\n\n";
process_node(@$doc);
print "\n\n}";
sub process_node {
my ($type, $content) = @_;
if ($type) {
my $attrs = shift @$content;
if ($type eq 'target') {
my @dependencies = split(/,/, $attrs->{depends});
foreach (@dependencies) {
print " $attrs->{name} -> $_\n";
}
}
while (my @node = splice(@$content, 0, 2)) {
process_node (@node);
}
}
}