ccf098722f73e6a1c359d4613802528673496dc8
[samba.git] / source4 / build / smb_build / dot.pl
1 #!/usr/bin/perl
2 # Samba4 Dependency Graph Generator
3 # (C) 2004-2005 Jelmer Vernooij <jelmer@samba.org>
4 # Published under the GNU GPL
5
6 use strict;
7 use lib 'build';
8 use smb_build::config_mk;
9
10 sub generate($)
11 {
12         my $depend = shift;
13         my $res = "digraph samba4 {\n";
14
15         foreach my $part (values %{$depend}) {
16                 foreach my $elem (@{$part->{REQUIRED_SUBSYSTEMS}}) {
17                         $res .= "\t\"$part->{NAME}\" -> \"$elem\";\n";
18                 }
19         }
20
21         return $res . "}\n";
22 }
23
24 my $INPUT = {};
25 smb_build::config_mk::run_config_mk($INPUT, "main.mk");
26
27 print __FILE__.": creating samba4-deps.dot";
28 open DOTTY, ">samba4-deps.dot";
29 print DOTTY generate($INPUT);
30 close DOTTY;
31
32 1;