1 files changed, 23 insertions, 0 deletions
diff --git a/source4/build/smb_build/dot.pm b/source4/build/smb_build/dot.pm
new file mode 100644
index 0000000000..c8720f1a8d
--- /dev/null
+++ b/source4/build/smb_build/dot.pm
@@ -0,0 +1,23 @@
+# Samba4 Dependency Graph Generator
+# (C) 2004 Jelmer Vernooij <jelmer@samba.org>
+# Published under the GNU GPL
+
+package dot;
+use strict;
+
+sub generate($)
+{
+	my $depend = shift;
+	my $res = "digraph samba4 {\n";
+
+	foreach my $part (values %{$depend}) {
+		foreach my $elem (@{$part->{DEPENDENCIES}}) {
+			next if $part == $elem;
+			$res .= "\t\"$part->{NAME}\" -> \"$$elem->{NAME}\";\n";
+		}
+	}
+
+	return $res . "}\n";
+}
+
+1;