summaryrefslogtreecommitdiff
authorkergoth <kergoth>2002-11-29 18:59:06 (UTC)
committer kergoth <kergoth>2002-11-29 18:59:06 (UTC)
commitbd692f7ebe04e23151cce39baf311b925ccf91b1 (patch) (unidiff)
treed573648934c2aa230a44ebecac29f3af097dd381
parentbd0a4c6311c55370fa7e00255f919537d81801dc (diff)
downloadopie-bd692f7ebe04e23151cce39baf311b925ccf91b1.zip
opie-bd692f7ebe04e23151cce39baf311b925ccf91b1.tar.gz
opie-bd692f7ebe04e23151cce39baf311b925ccf91b1.tar.bz2
Silence some of those annoying errors in dependency generation
Diffstat (more/less context) (ignore whitespace changes)
-rwxr-xr-xscripts/deps.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/scripts/deps.pl b/scripts/deps.pl
index 56c4e77..feced6e 100755
--- a/scripts/deps.pl
+++ b/scripts/deps.pl
@@ -37,28 +37,32 @@ sub makedepends ($$)
37 my ($depends, $tokenpath, $token, $depword, $mustbesep, $state); 37 my ($depends, $tokenpath, $token, $depword, $mustbesep, $state);
38 $depends = shift || return; 38 $depends = shift || return;
39 $tokenpath = shift || return; 39 $tokenpath = shift || return;
40 $mustbesep = 0; 40 $mustbesep = 0;
41 41
42 for $token (keys %$depends){ 42 for $token (keys %$depends){
43 print ${$tokenpath}{$token} . " : "; 43 print ${$tokenpath}{$token} . " : ";
44 for (split(/\s+/, ${$depends}{$token})){ 44 for (split(/\s+/, ${$depends}{$token})){
45 /^\s+$/ && next; 45 /^\s+$/ && next;
46 /\&\&/ && next; 46 /\&\&/ && next;
47 /\|\|/ && next; 47 /\|\|/ && next;
48 /^$/ && next; 48 /^$/ && next;
49 /^\($/ && next;
50 /^\)$/ && next;
51 /^on$/ && next;
52 /^!$/ && next;
49 if(defined(${$tokenpath}{"CONFIG_" . $_})){ 53 if(defined(${$tokenpath}{"CONFIG_" . $_})){
50 print '$(if $(CONFIG_' . $_ . '),' . ${$tokenpath}{"CONFIG_" . $_} . ') '; 54 print '$(if $(CONFIG_' . $_ . '),' . ${$tokenpath}{"CONFIG_" . $_} . ') ';
51 } else { 55 } else {
52 print STDERR "ERROR in dependency generation, unable to locate path for token CONFIG_$_\n"; 56 print STDERR "Warning: unable to locate path for token CONFIG_$_\n";
53 } 57 }
54 } 58 }
55 print "\n"; 59 print "\n";
56 } 60 }
57} 61}
58 62
59while( <> ) { 63while( <> ) {
60 my $dep; 64 my $dep;
61 my ($token, $path, $pro); 65 my ($token, $path, $pro);
62 chomp; 66 chomp;
63 s/^\s*//g; 67 s/^\s*//g;
64 s/\s*$//g; 68 s/\s*$//g;