diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2006-01-02 21:41:15 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:49:37 -0500 |
| commit | e25e37e0b6a9098065b5fe905f45e43e7560a58e (patch) | |
| tree | 33419abbb05abebd266619e93b0ef31e5935fd6b /source4 | |
| parent | 6fbbd471648e3d436e21a0f4fe2bdb21dbe4376d (diff) | |
| download | samba-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-x | source4/build/smb_build/dot.pl | 2 | ||||
| -rw-r--r-- | source4/build/smb_build/input.pm | 17 |
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; |