From e25e37e0b6a9098065b5fe905f45e43e7560a58e Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Mon, 2 Jan 2006 21:41:15 +0000 Subject: r12680: Support setting the environment variable SMB_BUILD_VERBOSE to print out more debug info (This used to be commit a54fefbfc5b2796cf8c47f22629ec86bca39cd39) --- source4/build/smb_build/input.pm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) (limited to 'source4/build/smb_build/input.pm') 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; -- cgit