diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2008-02-11 19:10:21 +0100 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2008-02-11 19:10:21 +0100 |
commit | 6c7a4009458b4b005b3c5f19dc284f0fcc459bcc (patch) | |
tree | 3a84992c18f27f141196ec6fcb50afc119a407d9 /source4/script | |
parent | 5aa0a70b06317b7ae77385210fe41bbc2d3c6c5c (diff) | |
download | samba-6c7a4009458b4b005b3c5f19dc284f0fcc459bcc.tar.gz samba-6c7a4009458b4b005b3c5f19dc284f0fcc459bcc.tar.bz2 samba-6c7a4009458b4b005b3c5f19dc284f0fcc459bcc.zip |
Support including files in the cflags.pl script.
(This used to be commit 742e50aeb54d779d383cbf73132224bad3b09777)
Diffstat (limited to 'source4/script')
-rwxr-xr-x | source4/script/cflags.pl | 31 |
1 files changed, 21 insertions, 10 deletions
diff --git a/source4/script/cflags.pl b/source4/script/cflags.pl index 7f435d46f5..f083cefb39 100755 --- a/source4/script/cflags.pl +++ b/source4/script/cflags.pl @@ -8,20 +8,31 @@ use strict; my $target = shift; -sub check_flags($) +my $vars = {}; + +sub check_flags($$) { - my ($name)=@_; - open (IN, "extra_cflags.txt"); - while (<IN> =~ /^([^:]+): (.*)$/) { - next unless (grep(/^$target$/, (split / /, $1))); - $_ = $2; - s/^CFLAGS\+=//; - print "$_ "; + my ($path, $name)=@_; + open (IN, $path); + foreach my $line (<IN>) { + if ($line =~ /^include (.*)$/) { + check_flags($1, $name); + } elsif ($line =~ /^([A-Za-z0-9_]+) = (.*)$/) { + $vars->{$1} = $2; + } elsif ($line =~ /^([^:]+): (.*)$/) { + next unless (grep(/^$target$/, (split / /, $1))); + my $data = $2; + $data =~ s/^CFLAGS\+=//; + foreach (keys %$vars) { + $data =~ s/\$($_)/$vars->{$_}/g; + } + print "$data "; + } } close(IN); - print "\n"; } -check_flags($target); +check_flags("extra_cflags.txt", $target); +print "\n"; exit 0; |