summaryrefslogtreecommitdiff
path: root/source4
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2006-01-02 21:41:15 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:49:37 -0500
commite25e37e0b6a9098065b5fe905f45e43e7560a58e (patch)
tree33419abbb05abebd266619e93b0ef31e5935fd6b /source4
parent6fbbd471648e3d436e21a0f4fe2bdb21dbe4376d (diff)
downloadsamba-e25e37e0b6a9098065b5fe905f45e43e7560a58e.tar.gz
samba-e25e37e0b6a9098065b5fe905f45e43e7560a58e.tar.bz2
samba-e25e37e0b6a9098065b5fe905f45e43e7560a58e.zip
r12680: Support setting the environment variable SMB_BUILD_VERBOSE to
print out more debug info (This used to be commit a54fefbfc5b2796cf8c47f22629ec86bca39cd39)
Diffstat (limited to 'source4')
-rwxr-xr-xsource4/build/smb_build/dot.pl2
-rw-r--r--source4/build/smb_build/input.pm17
2 files changed, 13 insertions, 6 deletions
diff --git a/source4/build/smb_build/dot.pl b/source4/build/smb_build/dot.pl
index 9ecbc8a7b1..e7b0985f11 100755
--- a/source4/build/smb_build/dot.pl
+++ b/source4/build/smb_build/dot.pl
@@ -22,7 +22,7 @@ sub generate($)
}
my $INPUT = {};
-smb_build::config_mk::run_config_mk($INPUT, "main.mk");
+smb_build::config_mk::run_config_mk($INPUT, '.', "main.mk");
print __FILE__.": creating samba4-deps.dot\n";
open DOTTY, ">samba4-deps.dot";
diff --git a/source4/build/smb_build/input.pm b/source4/build/smb_build/input.pm
index dfbd26c290..c34930f39a 100644
--- a/source4/build/smb_build/input.pm
+++ b/source4/build/smb_build/input.pm
@@ -114,21 +114,28 @@ sub check_binary($$)
$bin->{OUTPUT_TYPE} = "BINARY";
}
-sub calc_unique_deps($$)
+my $level = "";
+
+sub calc_unique_deps($$$)
{
- sub calc_unique_deps($$);
- my ($deps, $udeps) = @_;
+ sub calc_unique_deps($$$);
+ my ($name, $deps, $udeps) = @_;
+
+ print "$level-> $name\n" if ($ENV{SMB_BUILD_VERBOSE});
+ $level.=" ";
foreach my $dep (@{$deps}) {
if (not defined($udeps->{$$dep->{NAME}})) {
if (defined ($$dep->{OUTPUT_TYPE}) && (($$dep->{OUTPUT_TYPE} eq "OBJ_LIST")
or ($$dep->{OUTPUT_TYPE} eq "MERGEDOBJ"))) {
$udeps->{$$dep->{NAME}} = "BUSY";
- calc_unique_deps($$dep->{DEPENDENCIES}, $udeps);
+ calc_unique_deps($$dep->{NAME}, $$dep->{DEPENDENCIES}, $udeps);
}
$udeps->{$$dep->{NAME}} = $$dep;
}
}
+
+ $level = substr($level, 1);
}
sub check($$$$$)
@@ -185,7 +192,7 @@ sub check($$$$$)
foreach my $part (values %depend) {
$part->{UNIQUE_DEPENDENCIES} = {};
- calc_unique_deps($part->{DEPENDENCIES}, $part->{UNIQUE_DEPENDENCIES});
+ calc_unique_deps($part->{NAME}, $part->{DEPENDENCIES}, $part->{UNIQUE_DEPENDENCIES});
}
return \%depend;