wmi-1.3.16 from opsview.com

2019-02-16 00:16:52 +01:00
parent 163fdd3d1b
commit 17b3af2911
2146 changed files with 678824 additions and 0 deletions
@@ -0,0 +1,61 @@
+#!/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}},
+				  @{$part->{PRIVATE_DEPENDENCIES}}) {
+			$res .= "\t\"$part->{NAME}\" -> \"$elem\";\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, 
+		"STATIC_LIBRARY", "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;