#!/usr/bin/perl

my $ARBHOME = $ENV{ARBHOME};
if (not -d $ARBHOME) {
  die "ARBHOME has to be defined and has to mark a directory";
}
chdir($ARBHOME);

sub make_suffix($) {
  my ($name) = @_;

  $name =~ s/[\/\.]/_/g;

  $name =~ s/needs_libs//;

  $name =~ s/__*/_/g;
  $name =~ s/^_//;
  $name =~ s/_$//;

  return $name;
}

sub execute($) {
  my ($cmd) = @_;
  system($cmd)==0 || die "error calling '$cmd'";
}

sub main() {
  my @dep_files = map {
    if (/\.(svn|git)/o) { ; }
    else { chomp; s/^\.\///; $_; }
  } `cd $ARBHOME;find . -name "needs_libs*"`;

  my %gif_suffix = map { $_ => make_suffix($_); } @dep_files;

  my $dest = 'dep_graphs';
  if (not -d $dest) {
    mkdir($dest) || die "can't create dir '$dest' (Reason: $!)";
  }

  my @childs = ();
  foreach (@dep_files) {
    my $pid = fork();
    while (not defined $pid) {
      print "Warning: could not fork\n";
      sleep(1);
      $pid = fork(); # retry
    }
    if ($pid == 0) { # child
      my $destgif = "$dest/".$gif_suffix{$_}.".gif";
      execute("SOURCE_TOOLS/needed_libs.pl -G $destgif -U -B -S $_");
      exit(0);
    }

    push @childs, $pid;
  }

  # ----------------------------------------
  # create custom dependency gifs:
  my $custom_gifbase = "$dest/custom";

  # my $custom_libs = "SL/ITEMS/ITEMS.a SL/DB_QUERY/DB_QUERY.a SL/DB_UI/DB_UI.a";
  # my $custom_libs = "SL/PVP/PVP.a SL/TREE_READ/TREE_READ.a";
  # my $custom_libs = "arb_edit4 arb_ntree";
  # my $custom_libs = "AWTI/AWTI.a MERGE/MERGE.a SL/ITEMS/ITEMS.a";
  # my $custom_libs = "lib/libAW.so SL/MACROS/MACROS.a";
  # my $custom_libs = "ARB_GDE/ARB_GDE.a SL/MACROS/MACROS.a";
  # my $custom_libs = "SL/APP/APP.a SL/MACROS/MACROS.a";
  my $custom_libs = "SL/APP/APP.a SL/MACROS/MACROS.a SL/MASKS/MASKS.a SL/ARB_SPEC/ARB_SPEC.a SL/CANVAS/CANVAS.a SL/MAPKEY/MAPKEY.a SL/GUI_TK/GUI_TK.a";

  execute("SOURCE_TOOLS/needed_libs.pl -G ${custom_gifbase}_all.gif           -U -B -S           $custom_libs");
  execute("SOURCE_TOOLS/needed_libs.pl -G ${custom_gifbase}_inherits.gif      -U -I -S           $custom_libs");
  execute("SOURCE_TOOLS/needed_libs.pl -G ${custom_gifbase}_depends.gif       -U    -S           $custom_libs");
  execute("SOURCE_TOOLS/needed_libs.pl -G ${custom_gifbase}_surround.gif      -U -B -S -N 2 -n 1 $custom_libs");
  execute("SOURCE_TOOLS/needed_libs.pl -G ${custom_gifbase}_near_inherits.gif -U -I -S -N 3      $custom_libs");
  execute("SOURCE_TOOLS/needed_libs.pl -G ${custom_gifbase}_near_depends.gif  -U    -S      -n 2 $custom_libs");

  # ----------------------------------------

  print "Waiting for childs...\n";
  foreach (@childs) {
    waitpid($_, 0);
  }
  print "All childs terminated\n";
}
main();