svn commit: samba r11388 - in
branches/SAMBA_4_0/source/build/smb_build: .
jelmer at samba.org
jelmer at samba.org
Fri Oct 28 23:28:37 GMT 2005
Author: jelmer
Date: 2005-10-28 23:28:37 +0000 (Fri, 28 Oct 2005)
New Revision: 11388
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=11388
Log:
Move dot-generating to a seperate perl executable
Added:
branches/SAMBA_4_0/source/build/smb_build/dot.pl
Removed:
branches/SAMBA_4_0/source/build/smb_build/dot.pm
Modified:
branches/SAMBA_4_0/source/build/smb_build/main.pl
Changeset:
Copied: branches/SAMBA_4_0/source/build/smb_build/dot.pl (from rev 11376, branches/SAMBA_4_0/source/build/smb_build/dot.pm)
===================================================================
--- branches/SAMBA_4_0/source/build/smb_build/dot.pm 2005-10-28 16:54:18 UTC (rev 11376)
+++ branches/SAMBA_4_0/source/build/smb_build/dot.pl 2005-10-28 23:28:37 UTC (rev 11388)
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+# Samba4 Dependency Graph Generator
+# (C) 2004-2005 Jelmer Vernooij <jelmer at samba.org>
+# Published under the GNU GPL
+
+use strict;
+use lib 'build';
+use smb_build::config_mk;
+
+sub generate($)
+{
+ my $depend = shift;
+ my $res = "digraph samba4 {\n";
+
+ foreach my $part (values %{$depend}) {
+ foreach my $elem (@{$part->{REQUIRED_SUBSYSTEMS}}) {
+ $res .= "\t\"$part->{NAME}\" -> \"$elem\";\n";
+ }
+ }
+
+ return $res . "}\n";
+}
+
+my $INPUT = {};
+smb_build::config_mk::run_config_mk($INPUT, "main.mk");
+
+print __FILE__.": creating samba4-deps.dot";
+open DOTTY, ">samba4-deps.dot";
+print DOTTY generate($INPUT);
+close DOTTY;
+
+1;
Property changes on: branches/SAMBA_4_0/source/build/smb_build/dot.pl
___________________________________________________________________
Name: svn:executable
+ *
Deleted: branches/SAMBA_4_0/source/build/smb_build/dot.pm
===================================================================
--- branches/SAMBA_4_0/source/build/smb_build/dot.pm 2005-10-28 23:16:27 UTC (rev 11387)
+++ branches/SAMBA_4_0/source/build/smb_build/dot.pm 2005-10-28 23:28:37 UTC (rev 11388)
@@ -1,23 +0,0 @@
-# Samba4 Dependency Graph Generator
-# (C) 2004 Jelmer Vernooij <jelmer at 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;
Modified: branches/SAMBA_4_0/source/build/smb_build/main.pl
===================================================================
--- branches/SAMBA_4_0/source/build/smb_build/main.pl 2005-10-28 23:16:27 UTC (rev 11387)
+++ branches/SAMBA_4_0/source/build/smb_build/main.pl 2005-10-28 23:28:37 UTC (rev 11388)
@@ -12,7 +12,6 @@
use smb_build::input;
use smb_build::config_mk;
use smb_build::output;
-use smb_build::dot;
use smb_build::env;
use config;
use strict;
@@ -72,8 +71,4 @@
$mkenv->write("Makefile");
smb_build_h::create_smb_build_h($OUTPUT, "include/smb_build.h");
-open DOTTY, ">samba4-deps.dot";
-print DOTTY dot::generate($DEPEND);
-close DOTTY;
-
1;
More information about the samba-cvs
mailing list