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\n";
  28 open DOTTY, ">samba4-deps.dot";
  29 print DOTTY generate($INPUT);
  30 close DOTTY;
  31
  32 1;