ccc-analyzer revision 7fe679f300bd063d7edf7071d14c7f3823ef8cce
1fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek#!/usr/bin/env perl 2b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 3b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# The LLVM Compiler Infrastructure 4b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 5b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# This file is distributed under the University of Illinois Open Source 6b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# License. See LICENSE.TXT for details. 7b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 8b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek##===----------------------------------------------------------------------===## 9b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 10fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# A script designed to interpose between the build system and gcc. It invokes 11fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# both gcc and the static analyzer. 12b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 13b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek##===----------------------------------------------------------------------===## 14b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 15fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekuse strict; 16fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekuse warnings; 1751365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenekuse FindBin; 18b315a3940f804cf9fc67f4e3314aac6a44d623eeTed Kremenekuse Cwd qw/ getcwd abs_path /; 19991c54b9b7409656e5593364e065878b5210d556Ted Kremenekuse File::Temp qw/ tempfile /; 20991c54b9b7409656e5593364e065878b5210d556Ted Kremenekuse File::Path qw / mkpath /; 21ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenekuse File::Basename; 221df35e310d3402879857dd78f6fa9aaeb94b35c4Ted Kremenekuse Text::ParseWords; 232ec5cd553542ec54652fb2ae2395e46795b1af84Ted Kremenek 2451365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek##===----------------------------------------------------------------------===## 2551365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek# Compiler command setup. 2651365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek##===----------------------------------------------------------------------===## 2751365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek 2851365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenekmy $Compiler; 2951365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenekmy $Clang; 3051365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek 3151365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenekif ($FindBin::Script =~ /c\+\+-analyzer/) { 3251365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek $Compiler = $ENV{'CCC_CXX'}; 3351365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek if (!defined $Compiler) { $Compiler = "g++"; } 3451365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek 3551365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek $Clang = $ENV{'CLANG_CXX'}; 3651365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek if (!defined $Clang) { $Clang = 'clang++'; } 3751365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek} 3851365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenekelse { 3951365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek $Compiler = $ENV{'CCC_CC'}; 4051365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek if (!defined $Compiler) { $Compiler = "gcc"; } 4151365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek 4251365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek $Clang = $ENV{'CLANG'}; 4351365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek if (!defined $Clang) { $Clang = 'clang'; } 4451365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek} 4551365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek 4651365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek##===----------------------------------------------------------------------===## 4751365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek# Cleanup. 4851365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek##===----------------------------------------------------------------------===## 49e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek 50e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenekmy $ReportFailures = $ENV{'CCC_REPORT_FAILURES'}; 51e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenekif (!defined $ReportFailures) { $ReportFailures = 1; } 52e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek 53ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenekmy $CleanupFile; 54ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenekmy $ResultFile; 55ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek 56ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek# Remove any stale files at exit. 57ddf32dabe71f00aa0943449f67201f587f0a04d6Ted KremenekEND { 58ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek if (defined $CleanupFile && -z $CleanupFile) { 59ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek `rm -f $CleanupFile`; 60ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek } 61ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek} 62ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek 63991c54b9b7409656e5593364e065878b5210d556Ted Kremenek##----------------------------------------------------------------------------## 64991c54b9b7409656e5593364e065878b5210d556Ted Kremenek# Process Clang Crashes. 65991c54b9b7409656e5593364e065878b5210d556Ted Kremenek##----------------------------------------------------------------------------## 66991c54b9b7409656e5593364e065878b5210d556Ted Kremenek 67991c54b9b7409656e5593364e065878b5210d556Ted Kremeneksub GetPPExt { 68991c54b9b7409656e5593364e065878b5210d556Ted Kremenek my $Lang = shift; 6979433b59915859126a774fcd09fa32d7d5a1a3efTed Kremenek if ($Lang =~ /objective-c\+\+/) { return ".mii" }; 70991c54b9b7409656e5593364e065878b5210d556Ted Kremenek if ($Lang =~ /objective-c/) { return ".mi"; } 7151b939fe14b833d920c294e8343845003d7a856cTed Kremenek if ($Lang =~ /c\+\+/) { return ".ii"; } 72991c54b9b7409656e5593364e065878b5210d556Ted Kremenek return ".i"; 73991c54b9b7409656e5593364e065878b5210d556Ted Kremenek} 74991c54b9b7409656e5593364e065878b5210d556Ted Kremenek 75a4d8cde6584aa6c1aee241faf671eb4bac93defbTed Kremenek# Set this to 1 if we want to include 'parser rejects' files. 76a4d8cde6584aa6c1aee241faf671eb4bac93defbTed Kremenekmy $IncludeParserRejects = 0; 775daa3be1bf9db399aa7510bbcf2bfc8c7701b6daTed Kremenekmy $ParserRejects = "Parser Rejects"; 78a4d8cde6584aa6c1aee241faf671eb4bac93defbTed Kremenek 79938eef139ad43345248235da31f78a759dd18f13Ted Kremenekmy $AttributeIgnored = "Attribute Ignored"; 805daa3be1bf9db399aa7510bbcf2bfc8c7701b6daTed Kremenek 815d31f83bbe990aeb070ce6c8d919d229d4eb5052Ted Kremeneksub ProcessClangFailure { 822a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek my ($Clang, $Lang, $file, $Args, $HtmlDir, $ErrorType, $ofile) = @_; 83938eef139ad43345248235da31f78a759dd18f13Ted Kremenek my $Dir = "$HtmlDir/failures"; 84991c54b9b7409656e5593364e065878b5210d556Ted Kremenek mkpath $Dir; 855daa3be1bf9db399aa7510bbcf2bfc8c7701b6daTed Kremenek 865daa3be1bf9db399aa7510bbcf2bfc8c7701b6daTed Kremenek my $prefix = "clang_crash"; 87938eef139ad43345248235da31f78a759dd18f13Ted Kremenek if ($ErrorType eq $ParserRejects) { 88938eef139ad43345248235da31f78a759dd18f13Ted Kremenek $prefix = "clang_parser_rejects"; 89938eef139ad43345248235da31f78a759dd18f13Ted Kremenek } 90938eef139ad43345248235da31f78a759dd18f13Ted Kremenek elsif ($ErrorType eq $AttributeIgnored) { 91938eef139ad43345248235da31f78a759dd18f13Ted Kremenek $prefix = "clang_attribute_ignored"; 92938eef139ad43345248235da31f78a759dd18f13Ted Kremenek } 93c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek 943386c8a510abc6f55ce25ef5e22c72e5d0c47a70Ted Kremenek # Generate the preprocessed file with Clang. 955daa3be1bf9db399aa7510bbcf2bfc8c7701b6daTed Kremenek my ($PPH, $PPFile) = tempfile( $prefix . "_XXXXXX", 965daa3be1bf9db399aa7510bbcf2bfc8c7701b6daTed Kremenek SUFFIX => GetPPExt($Lang), 975daa3be1bf9db399aa7510bbcf2bfc8c7701b6daTed Kremenek DIR => $Dir); 982a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek system $Clang, @$Args, "-E", "-o", $PPFile; 99991c54b9b7409656e5593364e065878b5210d556Ted Kremenek close ($PPH); 100c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek 101c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek # Create the info file. 10282a1253077cd0832e4d347062b911cd305ab62d1Ted Kremenek open (OUT, ">", "$PPFile.info.txt") or die "Cannot open $PPFile.info.txt\n"; 1035f2825f6fa24a792c11cf96accd76538a2fd951eTed Kremenek print OUT abs_path($file), "\n"; 1045d31f83bbe990aeb070ce6c8d919d229d4eb5052Ted Kremenek print OUT "$ErrorType\n"; 1052dd7ad13bbbd43cb940040725a30cb7789bd2774Ted Kremenek print OUT "@$Args\n"; 106991c54b9b7409656e5593364e065878b5210d556Ted Kremenek close OUT; 10782a1253077cd0832e4d347062b911cd305ab62d1Ted Kremenek `uname -a >> $PPFile.info.txt 2>&1`; 10851365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenek `$Compiler -v >> $PPFile.info.txt 2>&1`; 1099f9b1fded49acff77e61b3ed1afc8bbaaefe6f34Ted Kremenek system 'mv',$ofile,"$PPFile.stderr.txt"; 110938eef139ad43345248235da31f78a759dd18f13Ted Kremenek return (basename $PPFile); 111991c54b9b7409656e5593364e065878b5210d556Ted Kremenek} 112b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 113fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 114fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Running the analyzer. 115fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 116b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 117fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremeneksub GetCCArgs { 1187fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek my $mode = shift; 119fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek my $Args = shift; 120fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek 121fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek pipe (FROM_CHILD, TO_PARENT); 122fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek my $pid = fork(); 123fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek if ($pid == 0) { 124fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek close FROM_CHILD; 125fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek open(STDOUT,">&", \*TO_PARENT); 126fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek open(STDERR,">&", \*TO_PARENT); 1277fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek exec $Clang, "-###", $mode, @$Args; 128fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek } 129fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek close(TO_PARENT); 130fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek my $line; 131fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek while (<FROM_CHILD>) { 13232317b214f58001b2fd4aa9ec140b85c80db33a5Ted Kremenek next if (!/-cc1/); 133fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek $line = $_; 134fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek } 135fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek 136fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek waitpid($pid,0); 137fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek close(FROM_CHILD); 138fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek 13932317b214f58001b2fd4aa9ec140b85c80db33a5Ted Kremenek die "could not find clang line\n" if (!defined $line); 1401df35e310d3402879857dd78f6fa9aaeb94b35c4Ted Kremenek # Strip the newline and initial whitspace 1417fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek chomp $line; 1421df35e310d3402879857dd78f6fa9aaeb94b35c4Ted Kremenek $line =~ s/^\s+//; 1432aefcb2e8b8b37529807945b3ecedda76e75c831Ted Kremenek my @items = quotewords('\s+', 0, $line); 144fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek my $cmd = shift @items; 14532317b214f58001b2fd4aa9ec140b85c80db33a5Ted Kremenek die "cannot find 'clang' in 'clang' command\n" if (!($cmd =~ /clang/)); 146fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek return \@items; 147fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek} 148fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek 149fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremeneksub Analyze { 1502a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek my ($Clang, $Args, $AnalyzeArgs, $Lang, $Output, $Verbose, $HtmlDir, 1517fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek $file) = @_; 152d389465f426069115a35e857ef11f1fcc5a2f69cSeo Sanghyeon 153fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cmd; 154fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my @CmdArgs; 155991c54b9b7409656e5593364e065878b5210d556Ted Kremenek my @CmdArgsSansAnalyses; 1567fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 157fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Lang =~ /header/) { 158fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek exit 0 if (!defined ($Output)); 159fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Cmd = 'cp'; 1607fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @CmdArgs, $file; 161fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Remove the PCH extension. 162fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Output =~ s/[.]gch$//; 1637fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @CmdArgs, $Output; 1647fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek @CmdArgsSansAnalyses = @CmdArgs; 165fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 166fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek else { 1672a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek $Cmd = $Clang; 1687fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek if ($Lang eq "objective-c" || $Lang eq "objective-c++") { 1697fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args,'-DIBOutlet=__attribute__((iboutlet))'; 1707fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args,'-DIBOutletCollection(ClassName)=__attribute__((iboutletcollection)))'; 1717fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args,'-DIBAction=void)__attribute__((ibaction)'; 1728382cf57b722f130f1a6b45380639871c07271c1Ted Kremenek } 17363fe5ecfd158d77b04498a6ef1956877ebf0e455Ted Kremenek 1747fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek # Create arguments for doing regular parsing. 1757fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek my $SyntaxArgs = GetCCArgs("-fsyntax-only", $Args); 1767fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek @CmdArgsSansAnalyses = @CmdArgs; 1777fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @CmdArgsSansAnalyses, @$SyntaxArgs; 1787fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 1797fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek # Create arguments for doing static analysis. 18063fe5ecfd158d77b04498a6ef1956877ebf0e455Ted Kremenek if (defined $ResultFile) { 1817fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args,'-o'; 1827fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args, $ResultFile; 18363fe5ecfd158d77b04498a6ef1956877ebf0e455Ted Kremenek } 18463fe5ecfd158d77b04498a6ef1956877ebf0e455Ted Kremenek elsif (defined $HtmlDir) { 1857fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args,'-o'; 1867fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args, $HtmlDir; 1877fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek } 1887fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args,"-Xclang"; 1897fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args,"-analyzer-display-progress"; 1907fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 1917fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek foreach my $arg (@$AnalyzeArgs) { 1927fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args, "-Xclang"; 1937fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args, $arg; 19463fe5ecfd158d77b04498a6ef1956877ebf0e455Ted Kremenek } 1957fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 1967fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek # Display Ubiviz graph? 1977fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek if (defined $ENV{'CCC_UBI'}) { 1987fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args, "-Xclang"; 1997fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @$Args,"-analyzer-viz-egraph-ubigraph"; 2007fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek } 2017fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 2027fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek my $AnalysisArgs = GetCCArgs("--analyze", $Args); 2037fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @CmdArgs, @$AnalysisArgs; 20463fe5ecfd158d77b04498a6ef1956877ebf0e455Ted Kremenek } 2057fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 2067fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek my @PrintArgs; 2077fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek my $dir; 2087fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 209fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Verbose) { 210fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $dir = getcwd(); 211fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "\n[LOCATION]: $dir\n"; 212fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @PrintArgs,"'$Cmd'"; 2137fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek foreach my $arg (@CmdArgs) { 2147fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @PrintArgs,"\'$arg\'"; 2157fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek } 216fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 217fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Verbose == 1) { 21861cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek # We MUST print to stderr. Some clients use the stdout output of 21961cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek # gcc for various purposes. 220fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR join(' ',@PrintArgs); 221fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "\n"; 222fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 223fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Verbose == 2) { 224fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "#SHELL (cd '$dir' && @PrintArgs)\n"; 225fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 2267fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 2279a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # Capture the STDERR of clang and send it to a temporary file. 2289a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # Capture the STDOUT of clang and reroute it to ccc-analyzer's STDERR. 2299a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # We save the output file in the 'crashes' directory if clang encounters 2309a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # any problems with the file. 2311346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek pipe (FROM_CHILD, TO_PARENT); 2329a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek my $pid = fork(); 2339a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek if ($pid == 0) { 2341346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek close FROM_CHILD; 2351346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek open(STDOUT,">&", \*TO_PARENT); 2361346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek open(STDERR,">&", \*TO_PARENT); 2379a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek exec $Cmd, @CmdArgs; 2389a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek } 2397fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 2401346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek close TO_PARENT; 2411346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek my ($ofh, $ofile) = tempfile("clang_output_XXXXXX", DIR => $HtmlDir); 2421346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek 2431346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek while (<FROM_CHILD>) { 2441346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek print $ofh $_; 2457fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek print STDERR $_; 2461346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek } 2471346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek 2481346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek waitpid($pid,0); 249fd9df0eddd7d2b190f740f33a3d08f611c0be3f0Ted Kremenek close(FROM_CHILD); 2509a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek my $Result = $?; 2519a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek 2529a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # Did the command die because of a signal? 253e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek if ($ReportFailures) { 2542a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek if ($Result & 127 and $Cmd eq $Clang and defined $HtmlDir) { 2552a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek ProcessClangFailure($Clang, $Lang, $file, \@CmdArgsSansAnalyses, 256e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek $HtmlDir, "Crash", $ofile); 2575de4092946373af0c8caca64a281e8080c9d8a34Ted Kremenek } 258e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek elsif ($Result) { 259e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek if ($IncludeParserRejects && !($file =~/conftest/)) { 2602a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek ProcessClangFailure($Clang, $Lang, $file, \@CmdArgsSansAnalyses, 261e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek $HtmlDir, $ParserRejects, $ofile); 262e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek } 263e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek } 264e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek else { 265e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # Check if there were any unhandled attributes. 266e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek if (open(CHILD, $ofile)) { 267e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek my %attributes_not_handled; 2687fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 269e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # Don't flag warnings about the following attributes that we 270e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # know are currently not supported by Clang. 271e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek $attributes_not_handled{"cdecl"} = 1; 2727fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 273e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek my $ppfile; 274e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek while (<CHILD>) { 275e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek next if (! /warning: '([^\']+)' attribute ignored/); 276938eef139ad43345248235da31f78a759dd18f13Ted Kremenek 277e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # Have we already spotted this unhandled attribute? 278e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek next if (defined $attributes_not_handled{$1}); 279e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek $attributes_not_handled{$1} = 1; 280938eef139ad43345248235da31f78a759dd18f13Ted Kremenek 281e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # Get the name of the attribute file. 282e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek my $dir = "$HtmlDir/failures"; 283e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek my $afile = "$dir/attribute_ignored_$1.txt"; 2847e5bd6f061c549dca0c1aeedfdd4009b853264eaTed Kremenek 285e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # Only create another preprocessed file if the attribute file 286e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # doesn't exist yet. 287e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek next if (-e $afile); 2887e5bd6f061c549dca0c1aeedfdd4009b853264eaTed Kremenek 289e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # Add this file to the list of files that contained this attribute. 290e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek # Generate a preprocessed file if we haven't already. 291e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek if (!(defined $ppfile)) { 2922a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek $ppfile = ProcessClangFailure($Clang, $Lang, $file, 293e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek \@CmdArgsSansAnalyses, 294e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek $HtmlDir, $AttributeIgnored, $ofile); 295e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek } 296938eef139ad43345248235da31f78a759dd18f13Ted Kremenek 297e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek mkpath $dir; 298e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek open(AFILE, ">$afile"); 299e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek print AFILE "$ppfile\n"; 300e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek close(AFILE); 301e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek } 302e600bedcfea91622a0003fdb5f66c500b2f9f17dTed Kremenek close CHILD; 303938eef139ad43345248235da31f78a759dd18f13Ted Kremenek } 304938eef139ad43345248235da31f78a759dd18f13Ted Kremenek } 305938eef139ad43345248235da31f78a759dd18f13Ted Kremenek } 3069a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek 307e3bf8a8ab4eecc2746e2f8a35d7bc365c88ff674Ted Kremenek unlink($ofile); 308fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 309fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 310fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 311fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Lookup tables. 312fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 313fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 314fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %CompileOptionMap = ( 315fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-nostdinc' => 0, 31606c58b191f969e2ae5308cc9b6540bad9511f4efAnders Carlsson '-fblocks' => 0, 317d9d97265f9f34b20f174591d88a11a97502c9dbeShantonu Sen '-fno-builtin' => 0, 318fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-fobjc-gc-only' => 0, 3196c4312d17015755213a8e1c1003517f94786dfa4Ted Kremenek '-fobjc-gc' => 0, 3206c4312d17015755213a8e1c1003517f94786dfa4Ted Kremenek '-ffreestanding' => 0, 321fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-include' => 1, 322fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-idirafter' => 1, 32355d7d36f48b9b113e30de1721e83a639d14094b0Ted Kremenek '-imacros' => 1, 324fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iprefix' => 1, 325fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iquote' => 1, 326fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-isystem' => 1, 327fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iwithprefix' => 1, 328fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iwithprefixbefore' => 1 329fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 330fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 331fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %LinkerOptionMap = ( 332fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-framework' => 1 333fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 334fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 335fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %CompilerLinkerOptionMap = ( 336fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-isysroot' => 1, 337fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-arch' => 1, 338a1359ba1a50d833d55a680ccdc8128d16b399052Charles Davis '-m32' => 0, 339a1359ba1a50d833d55a680ccdc8128d16b399052Charles Davis '-m64' => 0, 340e4f6952831d2b42b99f4a28825e87012d93eb8c0Ted Kremenek '-v' => 0, 341b10362acd971b84d4525334b275fcbfb4e42cb85Ted Kremenek '-fpascal-strings' => 0, 3428d33cd77dc1086f70f1699ea012702d0df7eba1aDaniel Dunbar '-mmacosx-version-min' => 0, # This is really a 1 argument, but always has '=' 3438d33cd77dc1086f70f1699ea012702d0df7eba1aDaniel Dunbar '-miphoneos-version-min' => 0 # This is really a 1 argument, but always has '=' 344fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 345fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 346fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %IgnoredOptionMap = ( 347940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek '-MT' => 1, # Ignore these preprocessor options. 348940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek '-MF' => 1, 349940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek 350fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-fsyntax-only' => 0, 351fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-save-temps' => 0, 352fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-install_name' => 1, 353fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-exported_symbols_list' => 1, 354fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-current_version' => 1, 355fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-compatibility_version' => 1, 356fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-init' => 1, 357fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-e' => 1, 358fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-seg1addr' => 1, 359fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-bundle_loader' => 1, 360fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-multiply_defined' => 1, 361fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-sectorder' => 3, 362fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '--param' => 1, 363fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-u' => 1 364fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 365fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 366fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %LangMap = ( 367fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'c' => 'c', 368d9d97265f9f34b20f174591d88a11a97502c9dbeShantonu Sen 'cp' => 'c++', 369fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'cpp' => 'c++', 370fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'cc' => 'c++', 371fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'i' => 'c-cpp-output', 372fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'm' => 'objective-c', 373fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'mi' => 'objective-c-cpp-output' 374fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 375fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 376a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenekmy %UniqueOptions = ( 377a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek '-isysroot' => 0 378a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek); 379a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek 380f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek##----------------------------------------------------------------------------## 381f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek# Languages accepted. 382f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek##----------------------------------------------------------------------------## 383f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek 384efaf1915d5734efa957f47f025fe81f76d9dbb82Ted Kremenekmy %LangsAccepted = ( 385efaf1915d5734efa957f47f025fe81f76d9dbb82Ted Kremenek "objective-c" => 1, 386f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek "c" => 1 387efaf1915d5734efa957f47f025fe81f76d9dbb82Ted Kremenek); 388efaf1915d5734efa957f47f025fe81f76d9dbb82Ted Kremenek 389f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenekif (defined $ENV{'CCC_ANALYZER_CPLUSPLUS'}) { 390f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek $LangsAccepted{"c++"} = 1; 391f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek $LangsAccepted{"objective-c++"} = 1; 392f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek} 393f6f8d5a47c314ee9ffeca744250f3430540bdf36Ted Kremenek 394fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 395fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Main Logic. 396fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 397fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 398fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Action = 'link'; 399fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @CompileOpts; 400fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @LinkOpts; 401fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @Files; 402fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Lang; 403fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Output; 404a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenekmy %Uniqued; 405fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 406fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Forward arguments to gcc. 40751365b5f74977c13c4902991c076dff8fddc96b7Ted Kremenekmy $Status = system($Compiler,@ARGV); 408a716f639a6fd4cdadd33853918f1115b3be37cfeTom Careif (defined $ENV{'CCC_ANALYZER_LOG'}) { 409a716f639a6fd4cdadd33853918f1115b3be37cfeTom Care print "$Compiler @ARGV\n"; 410a716f639a6fd4cdadd33853918f1115b3be37cfeTom Care} 411cb344d0f9b9f4b9114ab2b35a34017e89d8b0c17Ted Kremenekif ($Status) { exit($Status >> 8); } 412fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 413fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Get the analysis options. 414fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Analyses = $ENV{'CCC_ANALYZER_ANALYSIS'}; 415fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 41607c3767be59472e19183c7b51fae76481465cb51Zhongxing Xu# Get the store model. 41707c3767be59472e19183c7b51fae76481465cb51Zhongxing Xumy $StoreModel = $ENV{'CCC_ANALYZER_STORE_MODEL'}; 418be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek 419be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek# Get the constraints engine. 420be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenekmy $ConstraintsModel = $ENV{'CCC_ANALYZER_CONSTRAINTS_MODEL'}; 42107c3767be59472e19183c7b51fae76481465cb51Zhongxing Xu 422db4f5f26182c522e659af655e2582cc5ea35a971Ted Kremenek# Get the output format. 423db4f5f26182c522e659af655e2582cc5ea35a971Ted Kremenekmy $OutputFormat = $ENV{'CCC_ANALYZER_OUTPUT_FORMAT'}; 4243891a157cc1504b1e8558077ed852fa4a9fb6ebcTed Kremenekif (!defined $OutputFormat) { $OutputFormat = "html"; } 425db4f5f26182c522e659af655e2582cc5ea35a971Ted Kremenek 426fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Determine the level of verbosity. 427fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Verbose = 0; 428fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (defined $ENV{CCC_ANALYZER_VERBOSE}) { $Verbose = 1; } 429fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (defined $ENV{CCC_ANALYZER_LOG}) { $Verbose = 2; } 430fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 431fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Get the HTML output directory. 432fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $HtmlDir = $ENV{'CCC_ANALYZER_HTML'}; 433fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 4348459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenekmy %DisabledArchs = ('ppc' => 1, 'ppc64' => 1); 43527783eb8a030afd153280a15afdede29819d90d2Ted Kremenekmy %ArchsSeen; 4368459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenekmy $HadArch = 0; 437fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 438fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Process the arguments. 439fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekforeach (my $i = 0; $i < scalar(@ARGV); ++$i) { 44089c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek my $Arg = $ARGV[$i]; 44189c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek my ($ArgKey) = split /=/,$Arg,2; 44289c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek 443fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Modes ccc-analyzer supports 444d732a7b771f8ab758411881126a83b7ca4db34a9Ted Kremenek if ($Arg =~ /^-(E|MM?)$/) { $Action = 'preprocess'; } 445fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg eq '-c') { $Action = 'compile'; } 446fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg =~ /^-print-prog-name/) { exit 0; } 44727783eb8a030afd153280a15afdede29819d90d2Ted Kremenek 44827783eb8a030afd153280a15afdede29819d90d2Ted Kremenek # Specially handle duplicate cases of -arch 44927783eb8a030afd153280a15afdede29819d90d2Ted Kremenek if ($Arg eq "-arch") { 45027783eb8a030afd153280a15afdede29819d90d2Ted Kremenek my $arch = $ARGV[$i+1]; 4518459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenek # We don't want to process 'ppc' because of Clang's lack of support 4528459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenek # for Altivec (also some #defines won't likely be defined correctly, etc.) 4538459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenek if (!(defined $DisabledArchs{$arch})) { $ArchsSeen{$arch} = 1; } 4548459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenek $HadArch = 1; 45527783eb8a030afd153280a15afdede29819d90d2Ted Kremenek ++$i; 45627783eb8a030afd153280a15afdede29819d90d2Ted Kremenek next; 45727783eb8a030afd153280a15afdede29819d90d2Ted Kremenek } 45827783eb8a030afd153280a15afdede29819d90d2Ted Kremenek 459fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to compiler. 46089c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek if (defined $CompileOptionMap{$ArgKey}) { 46189c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek my $Cnt = $CompileOptionMap{$ArgKey}; 462fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Arg; 463fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { ++$i; --$Cnt; push @CompileOpts, $ARGV[$i]; } 464fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 465fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 466fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 467fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to linker. 46889c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek if (defined $LinkerOptionMap{$ArgKey}) { 46989c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek my $Cnt = $LinkerOptionMap{$ArgKey}; 470fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts,$Arg; 471fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { ++$i; --$Cnt; push @LinkOpts, $ARGV[$i]; } 472fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 473fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 474fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 475fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to both compiler 476fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # and the linker. 47789c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek if (defined $CompilerLinkerOptionMap{$ArgKey}) { 47889c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek my $Cnt = $CompilerLinkerOptionMap{$ArgKey}; 47947fc25f0c18bb68d4f41789b7b52b34ec6d39d76Ted Kremenek 480a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek # Check if this is an option that should have a unique value, and if so 481a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek # determine if the value was checked before. 482a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek if ($UniqueOptions{$Arg}) { 483a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek if (defined $Uniqued{$Arg}) { 484a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek $i += $Cnt; 485a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek next; 486a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek } 487a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek $Uniqued{$Arg} = 1; 488a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek } 489a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek 49047fc25f0c18bb68d4f41789b7b52b34ec6d39d76Ted Kremenek push @CompileOpts,$Arg; 49147fc25f0c18bb68d4f41789b7b52b34ec6d39d76Ted Kremenek push @LinkOpts,$Arg; 49247fc25f0c18bb68d4f41789b7b52b34ec6d39d76Ted Kremenek 493fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { 494fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; --$Cnt; 495fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts, $ARGV[$i]; 496fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts, $ARGV[$i]; 497fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 498fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 499fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 50061cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 501fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Ignored options. 50289c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek if (defined $IgnoredOptionMap{$ArgKey}) { 50389c4fcfd056e65a47d713798bcd22d0273162c8aTed Kremenek my $Cnt = $IgnoredOptionMap{$ArgKey}; 504fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { 505fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; --$Cnt; 506fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 507fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 508fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 50961cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 510fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Compile mode flags. 511fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-[D,I,U](.*)$/) { 512fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Tmp = $Arg; 513fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($1 eq '') { 514fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Check if we are going off the end. 515fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 516fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Tmp = $Arg . $ARGV[$i]; 517fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 518fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Tmp; 519fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 520fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 521fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 522fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Language. 523fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-x') { 524fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Lang = $ARGV[$i+1]; 525fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; next; 526fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 527fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 528fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Output file. 529fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-o') { 530fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 531fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Output = $ARGV[$i]; 532fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 533fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 534fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 535fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Get the link mode. 536fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-[l,L,O]/) { 537fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-O') { push @LinkOpts,'-O1'; } 538fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg eq '-Os') { push @LinkOpts,'-O2'; } 539fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek else { push @LinkOpts,$Arg; } 540fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 541fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 542fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 543fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-std=/) { 544fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Arg; 545fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 546fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 547fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 548fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# if ($Arg =~ /^-f/) { 549fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# # FIXME: Not sure if the remaining -fxxxx options have no arguments. 550fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# push @CompileOpts,$Arg; 551fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# push @LinkOpts,$Arg; # FIXME: Not sure if these are link opts. 552fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# } 553fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 554fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Get the compiler/link mode. 555fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-F(.+)$/) { 556fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Tmp = $Arg; 557fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($1 eq '') { 558fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Check if we are going off the end. 559fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 560fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Tmp = $Arg . $ARGV[$i]; 561fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 562fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Tmp; 563fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts,$Tmp; 564fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 565fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 566fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 567fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Input files. 568fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-filelist') { 569fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Make sure we aren't walking off the end. 570fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek open(IN, $ARGV[$i+1]); 571fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while (<IN>) { s/\015?\012//; push @Files,$_; } 572fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek close(IN); 5730895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek ++$i; 5740895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek next; 575fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 576fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 5770895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek # Handle -Wno-. We don't care about extra warnings, but 5780895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek # we should suppress ones that we don't want to see. 5790895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek if ($Arg =~ /^-Wno-/) { 5800895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek push @CompileOpts, $Arg; 5810895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek next; 5820895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek } 5830895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek 584fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (!($Arg =~ /^-/)) { 5850895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek push @Files, $Arg; 5860895937d2ce1e73926b42e71f076be3071de68d9Ted Kremenek next; 587fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 588fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 589fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 590fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif ($Action eq 'compile' or $Action eq 'link') { 5918459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenek my @Archs = keys %ArchsSeen; 5928459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenek # Skip the file if we don't support the architectures specified. 5930e0eb8b051b2917aef85b24bb68297b8c234dbb5Ted Kremenek exit 0 if ($HadArch && scalar(@Archs) == 0); 5948459132b0302cde7eb2a21eb2c6ffca9e66e3aeaTed Kremenek 595fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek foreach my $file (@Files) { 596fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Determine the language for the file. 597fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $FileLang = $Lang; 598fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 599fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (!defined($FileLang)) { 600fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Infer the language from the extension. 601fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($file =~ /[.]([^.]+)$/) { 602fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $FileLang = $LangMap{$1}; 603fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 604fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 60526681e8e3a18acebd347061e20e167a81c47a408Ted Kremenek 6061d81ed94386198ffe6ba4493aacf198deccd3a18Ted Kremenek # FileLang still not defined? Skip the file. 607fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next if (!defined $FileLang); 6081d81ed94386198ffe6ba4493aacf198deccd3a18Ted Kremenek 6091d81ed94386198ffe6ba4493aacf198deccd3a18Ted Kremenek # Language not accepted? 610efaf1915d5734efa957f47f025fe81f76d9dbb82Ted Kremenek next if (!defined $LangsAccepted{$FileLang}); 6111d81ed94386198ffe6ba4493aacf198deccd3a18Ted Kremenek 6129a9e0d41e228c72f719757bc1c988f3e2b65a52eTed Kremenek my @CmdArgs; 6139a9e0d41e228c72f719757bc1c988f3e2b65a52eTed Kremenek my @AnalyzeArgs; 614fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 615fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($FileLang ne 'unknown') { 6169a9e0d41e228c72f719757bc1c988f3e2b65a52eTed Kremenek push @CmdArgs,'-x'; 6179a9e0d41e228c72f719757bc1c988f3e2b65a52eTed Kremenek push @CmdArgs,$FileLang; 618fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 61961cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 62007c3767be59472e19183c7b51fae76481465cb51Zhongxing Xu if (defined $StoreModel) { 621be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek push @AnalyzeArgs, "-analyzer-store=$StoreModel"; 62207c3767be59472e19183c7b51fae76481465cb51Zhongxing Xu } 623be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek 624be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek if (defined $ConstraintsModel) { 625be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek push @AnalyzeArgs, "-analyzer-constraints=$ConstraintsModel"; 626be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek } 6277fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek 6287fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek# if (defined $Analyses) { 6297fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek# push @AnalyzeArgs, split '\s+', $Analyses; 6307fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek# } 631be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek 632db4f5f26182c522e659af655e2582cc5ea35a971Ted Kremenek if (defined $OutputFormat) { 633be1fe1eb12a1cb91c8e3a9fcc2db4dfe989def6cTed Kremenek push @AnalyzeArgs, "-analyzer-output=" . $OutputFormat; 6347753b352366778d01c5cda4117356f181d3dd468Ted Kremenek if ($OutputFormat =~ /plist/) { 635ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek # Change "Output" to be a file. 636ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek my ($h, $f) = tempfile("report-XXXXXX", SUFFIX => ".plist", 637ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek DIR => $HtmlDir); 638ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek $ResultFile = $f; 639ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek $CleanupFile = $f; 640ddf32dabe71f00aa0943449f67201f587f0a04d6Ted Kremenek } 641db4f5f26182c522e659af655e2582cc5ea35a971Ted Kremenek } 64207c3767be59472e19183c7b51fae76481465cb51Zhongxing Xu 6437fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @CmdArgs, @CompileOpts; 6447fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek push @CmdArgs, $file; 64507c3767be59472e19183c7b51fae76481465cb51Zhongxing Xu 64627783eb8a030afd153280a15afdede29819d90d2Ted Kremenek if (scalar @Archs) { 64727783eb8a030afd153280a15afdede29819d90d2Ted Kremenek foreach my $arch (@Archs) { 64827783eb8a030afd153280a15afdede29819d90d2Ted Kremenek my @NewArgs; 64927783eb8a030afd153280a15afdede29819d90d2Ted Kremenek push @NewArgs, '-arch'; 65027783eb8a030afd153280a15afdede29819d90d2Ted Kremenek push @NewArgs, $arch; 6519a9e0d41e228c72f719757bc1c988f3e2b65a52eTed Kremenek push @NewArgs, @CmdArgs; 6522a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek Analyze($Clang, \@NewArgs, \@AnalyzeArgs, $FileLang, $Output, 6537fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek $Verbose, $HtmlDir, $file); 65427783eb8a030afd153280a15afdede29819d90d2Ted Kremenek } 65527783eb8a030afd153280a15afdede29819d90d2Ted Kremenek } 65627783eb8a030afd153280a15afdede29819d90d2Ted Kremenek else { 6572a3a8b9f47b0a8f3fdd57bc4fbd08684feb4fa85Ted Kremenek Analyze($Clang, \@CmdArgs, \@AnalyzeArgs, $FileLang, $Output, 6587fe679f300bd063d7edf7071d14c7f3823ef8cceTed Kremenek $Verbose, $HtmlDir, $file); 65927783eb8a030afd153280a15afdede29819d90d2Ted Kremenek } 660fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 661fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 662b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 663948e06babdf81033517b54910fedda8079f29ff9Ted Kremenekexit($Status >> 8); 664948e06babdf81033517b54910fedda8079f29ff9Ted Kremenek 665