summaryrefslogtreecommitdiff
path: root/source4/build/smb_build/dot.pl
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2010-10-31 02:17:29 +0100
committerJelmer Vernooij <jelmer@samba.org>2010-10-31 02:01:44 +0000
commit3deece559159150a0710d8160f39583ba7f2e582 (patch)
tree861600d7060d1ca8764c26f7ecc2cb82a4a44bec /source4/build/smb_build/dot.pl
parent9401189d5435632bcc6a177845ce03beaa804113 (diff)
downloadsamba-3deece559159150a0710d8160f39583ba7f2e582.tar.gz
samba-3deece559159150a0710d8160f39583ba7f2e582.tar.bz2
samba-3deece559159150a0710d8160f39583ba7f2e582.zip
s4: Remove the old perl/m4/make/mk-based build system.
The new waf-based build system now has all the same functionality, and the old build system has been broken for quite some time. Autobuild-User: Jelmer Vernooij <jelmer@samba.org> Autobuild-Date: Sun Oct 31 02:01:44 UTC 2010 on sn-devel-104
Diffstat (limited to 'source4/build/smb_build/dot.pl')
-rwxr-xr-xsource4/build/smb_build/dot.pl63
1 files changed, 0 insertions, 63 deletions
diff --git a/source4/build/smb_build/dot.pl b/source4/build/smb_build/dot.pl
deleted file mode 100755
index b30c320c6e..0000000000
--- a/source4/build/smb_build/dot.pl
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/usr/bin/perl
-# Samba4 Dependency Graph Generator
-# (C) 2004-2005 Jelmer Vernooij <jelmer@samba.org>
-# Published under the GNU GPL
-
-use strict;
-use lib 'build';
-use smb_build::config_mk;
-
-my $subsys = shift @ARGV;
-
-sub contains($$)
-{
- my ($haystack,$needle) = @_;
- foreach (@$haystack) {
- return 1 if ($_ eq $needle);
- }
- return 0;
-}
-
-sub generate($$$)
-{
- my ($depend,$only,$name) = @_;
- my $res = "digraph $name {\n";
-
- foreach my $part (values %{$depend}) {
- next if (defined($only) and not contains($only,$part->{NAME}));
- foreach my $elem (@{$part->{PUBLIC_DEPENDENCIES}}) {
- $res .= "\t\"$part->{NAME}\" -> \"$elem\" [style=filled]; /* public */\n";
- }
- foreach my $elem (@{$part->{PRIVATE_DEPENDENCIES}}) {
- $res .= "\t\"$part->{NAME}\" -> \"$elem\" [style=dotted]; /* private */\n";
- }
- }
-
- return $res . "}\n";
-}
-
-my $INPUT = {};
-smb_build::config_mk::run_config_mk($INPUT, '.', '.', "main.mk");
-
-my $name = "samba4";
-
-my $only;
-if (defined($subsys)) {
- my $DEPEND = smb_build::input::check($INPUT, \%config::enabled,
- "MERGED_OBJ", "SHARED_LIBRARY", "SHARED_LIBRARY");
-
- die("No such subsystem $subsys") unless (defined($DEPEND->{$subsys}));
-
- $only = $DEPEND->{$subsys}->{UNIQUE_DEPENDENCIES_ALL};
- push (@$only, "$subsys");
-
- $name = $subsys;
-}
-
-my $fname = "$name-deps.dot";
-print __FILE__.": creating $fname\n";
-open DOTTY, ">$fname";
-print DOTTY generate($INPUT, $only, $name);
-close DOTTY;
-
-1;