blob: 37b5aa7e71eca1475ffb458cf937c16982e9bb74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/usr/bin/env perl
# This is a hack to allow per target cflags. It isn't very elegant, but it
# is the most portable idea we have come up with yet
# tridge@samba.org, July 2005
# jelmer@samba.org, March 2006
use strict;
my $target = shift;
my $vars = {};
sub check_flags($$);
sub check_flags($$)
{
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 my $key (keys %$vars) {
my $val = $vars->{$key};
$data =~ s/\$\($key\)/$val/g;
}
# Remove undefined variables
$data =~ s/\$\([A-Za-z0-9_]+\)//g;
print "$data ";
}
}
close(IN);
}
check_flags("extra_cflags.txt", $target);
print "\n";
exit 0;
|
