1
0
mirror of https://github.com/samba-team/samba.git synced 2025-11-26 04:23:49 +03:00
Files
samba-mirror/source/build/smb_build/dot.pm
Jelmer Vernooij 64826da834 r3733: More build system fixes/features:
- Use .mk files directly (no need for a SMB_*_MK() macro when adding a new SUBSYSTEM, MODULE or BINARY). This allows addition of new modules and subsystems without running configure
 - Add support for generating .dot files with the Samba4 dependency tree (as used by the graphviz and springgraph utilities)
2007-10-10 13:05:47 -05:00

24 lines
422 B
Perl

# Samba4 Dependency Graph Generator
# (C) 2004 Jelmer Vernooij <jelmer@samba.org>
# Published under the GNU GPL
package dot;
use strict;
sub generate($)
{
my $depend = shift;
my $res = "digraph samba4 {\n";
foreach my $part (values %{$depend}) {
foreach my $elem (@{$part->{DEPENDENCIES}}) {
next if $part == $elem;
$res .= "\t\"$part->{NAME}\" -> \"$$elem->{NAME}\";\n";
}
}
return $res . "}\n";
}
1;