1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-28 07:21:54 +03:00
samba-mirror/source4/script/cflags.pl
Stefan Metzmacher bb21503c43 r18296: this isn't needed anymore
metze
(This used to be commit 1ee1007597)
2007-10-10 14:18:03 -05:00

28 lines
508 B
Perl
Executable File

#!/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;
sub check_flags($)
{
my ($name)=@_;
open (IN, "extra_cflags.txt");
while (<IN> =~ /^([^:]+): (.*)$/) {
next unless (grep(/^$target$/, (split / /, $1)));
$_ = $2;
s/^CFLAGS\+=//;
print "$_ ";
}
close(IN);
print "\n";
}
check_flags($target);
exit 0;