sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-26 10:04:02 +03:00
Code

r12680: Support setting the environment variable SMB_BUILD_VERBOSE to

Browse Source 
print out more debug info
This commit is contained in:
Jelmer Vernooij 2006-01-02 21:41:15 +00:00 committed by Gerald (Jerry) Carter
parent 4c7306608c
commit a54fefbfc5
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
source/build/smb_build/dot.pl
View File

@ -22,7 +22,7 @@ sub generate($)
} }
my $INPUT = {}; 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"; print __FILE__.": creating samba4-deps.dot\n";
open DOTTY, ">samba4-deps.dot"; open DOTTY, ">samba4-deps.dot";

17
source/build/smb_build/input.pm
View File

@ -114,21 +114,28 @@ sub check_binary($$)
$bin->{OUTPUT_TYPE} = "BINARY"; $bin->{OUTPUT_TYPE} = "BINARY";
} }
sub calc_unique_deps($$) my $level = "";
sub calc_unique_deps($$$)
{ {
sub calc_unique_deps($$); sub calc_unique_deps($$$);
my ($deps, $udeps) = @_; my ($name, $deps, $udeps) = @_;
print "$level-> $name\n" if ($ENV{SMB_BUILD_VERBOSE});
$level.=" ";
foreach my $dep (@{$deps}) { foreach my $dep (@{$deps}) {
if (not defined($udeps->{$$dep->{NAME}})) { if (not defined($udeps->{$$dep->{NAME}})) {
if (defined ($$dep->{OUTPUT_TYPE}) && (($$dep->{OUTPUT_TYPE} eq "OBJ_LIST") if (defined ($$dep->{OUTPUT_TYPE}) && (($$dep->{OUTPUT_TYPE} eq "OBJ_LIST")
or ($$dep->{OUTPUT_TYPE} eq "MERGEDOBJ"))) { or ($$dep->{OUTPUT_TYPE} eq "MERGEDOBJ"))) {
$udeps->{$$dep->{NAME}} = "BUSY"; $udeps->{$$dep->{NAME}} = "BUSY";
calc_unique_deps($$dep->{DEPENDENCIES}, $udeps); calc_unique_deps($$dep->{NAME}, $$dep->{DEPENDENCIES}, $udeps);
} }
$udeps->{$$dep->{NAME}} = $$dep; $udeps->{$$dep->{NAME}} = $$dep;
} }
} }
$level = substr($level, 1);
} }
sub check($$$$$) sub check($$$$$)
@ -185,7 +192,7 @@ sub check($$$$$)
foreach my $part (values %depend) { foreach my $part (values %depend) {
$part->{UNIQUE_DEPENDENCIES} = {}; $part->{UNIQUE_DEPENDENCIES} = {};
calc_unique_deps($part->{DEPENDENCIES}, $part->{UNIQUE_DEPENDENCIES}); calc_unique_deps($part->{NAME}, $part->{DEPENDENCIES}, $part->{UNIQUE_DEPENDENCIES});
} }
return \%depend; return \%depend;