jEdit build-support props deps

gistfile1.pl

/usr/bin/perl <<'__END__' -- - plugin-build.xml|dot -Tpng -oplugin-build-deps.png                                      
use 5.010;
use XML::Twig;

say q(digraph test {); 
$t=XML::Twig->new();
$t->parsefile(shift);
$r = $t->root;
for ($r->children(q(property))) {
    if ($n1=$_->{att}{name}) {
        ($n=$n1)=~s/\./_/g;
        my $val = $_->{att}{value};
        while ($val =~ /\$\{(.*?)\}/g) {
            ($v = $v1 = $1) =~ s/\./_/g;
            say qq{$n [label="$n1"];};
            say qq{$v [label="$v1"];};
            say qq{$n -> $v [label="$val"];};
        }   
    }   
}
say q(});
__END__