Use Text::ParseWords to make 'clang -###' parsing more robust.

git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@71504 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Ted Kremenek 2009-05-11 23:29:51 +00:00
Родитель 31ed552f8f
Коммит 1df35e310d
1 изменённых файлов: 5 добавлений и 8 удалений

Просмотреть файл

@ -18,6 +18,7 @@ use Cwd qw/ getcwd abs_path /;
use File::Temp qw/ tempfile /;
use File::Path qw / mkpath /;
use File::Basename;
use Text::ParseWords;
my $CC = $ENV{'CCC_CC'};
if (!defined $CC) { $CC = "gcc"; }
@ -115,15 +116,11 @@ sub GetCCArgs {
close(FROM_CHILD);
die "could not find clang-cc line\n" if (!defined $line);
my @items = ($line =~ /(".*?"|\S+)/g);
for (my $i = 0; $i < scalar(@items); ++$i) {
my $x = $items[$i];
$x =~ s/^"//;
$x =~ s/"$//;
$items[$i] = $x;
}
# Strip the newline and initial whitspace
chomp $line;
$line =~ s/^\s+//;
my @items = quotewords('\s+', 0, $line);
my $cmd = shift @items;
die "cannot find 'clang-cc' in 'clang' command\n" if (!($cmd =~ /clang-cc/));
return \@items;