r253074 - [scan-build] Make scan-build work whether it's installed or not
Jonathan Roelofs via cfe-commits
cfe-commits at lists.llvm.org
Fri Nov 13 12:34:15 PST 2015
Author: jroelofs
Date: Fri Nov 13 14:34:15 2015
New Revision: 253074
URL: http://llvm.org/viewvc/llvm-project?rev=253074&view=rev
Log:
[scan-build] Make scan-build work whether it's installed or not
Added:
cfe/trunk/tools/scan-build/bin/
cfe/trunk/tools/scan-build/bin/scan-build
- copied, changed from r253068, cfe/trunk/tools/scan-build/scan-build
cfe/trunk/tools/scan-build/bin/scan-build.bat
- copied unchanged from r253046, cfe/trunk/tools/scan-build/scan-build.bat
cfe/trunk/tools/scan-build/bin/set-xcode-analyzer
- copied unchanged from r253046, cfe/trunk/tools/scan-build/set-xcode-analyzer
cfe/trunk/tools/scan-build/libexec/
cfe/trunk/tools/scan-build/libexec/c++-analyzer
- copied unchanged from r253046, cfe/trunk/tools/scan-build/c++-analyzer
cfe/trunk/tools/scan-build/libexec/c++-analyzer.bat
- copied unchanged from r253046, cfe/trunk/tools/scan-build/c++-analyzer.bat
cfe/trunk/tools/scan-build/libexec/ccc-analyzer
- copied unchanged from r253046, cfe/trunk/tools/scan-build/ccc-analyzer
cfe/trunk/tools/scan-build/libexec/ccc-analyzer.bat
- copied unchanged from r253046, cfe/trunk/tools/scan-build/ccc-analyzer.bat
cfe/trunk/tools/scan-build/man/
cfe/trunk/tools/scan-build/man/scan-build.1
- copied unchanged from r253046, cfe/trunk/tools/scan-build/scan-build.1
cfe/trunk/tools/scan-build/share/scan-build/
cfe/trunk/tools/scan-build/share/scan-build/scanview.css
- copied unchanged from r253046, cfe/trunk/tools/scan-build/share/scanview.css
cfe/trunk/tools/scan-build/share/scan-build/sorttable.js
- copied unchanged from r253046, cfe/trunk/tools/scan-build/share/sorttable.js
cfe/trunk/tools/scan-view/bin/
cfe/trunk/tools/scan-view/bin/scan-view
- copied, changed from r253068, cfe/trunk/tools/scan-view/scan-view
Removed:
cfe/trunk/tools/scan-build/c++-analyzer
cfe/trunk/tools/scan-build/c++-analyzer.bat
cfe/trunk/tools/scan-build/ccc-analyzer
cfe/trunk/tools/scan-build/ccc-analyzer.bat
cfe/trunk/tools/scan-build/scan-build
cfe/trunk/tools/scan-build/scan-build.1
cfe/trunk/tools/scan-build/scan-build.bat
cfe/trunk/tools/scan-build/set-xcode-analyzer
cfe/trunk/tools/scan-build/share/scanview.css
cfe/trunk/tools/scan-build/share/sorttable.js
cfe/trunk/tools/scan-view/scan-view
Modified:
cfe/trunk/tools/scan-build/CMakeLists.txt
cfe/trunk/tools/scan-build/Makefile
cfe/trunk/tools/scan-view/CMakeLists.txt
cfe/trunk/tools/scan-view/Makefile
Modified: cfe/trunk/tools/scan-build/CMakeLists.txt
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/CMakeLists.txt?rev=253074&r1=253073&r2=253074&view=diff
==============================================================================
--- cfe/trunk/tools/scan-build/CMakeLists.txt (original)
+++ cfe/trunk/tools/scan-build/CMakeLists.txt Fri Nov 13 14:34:15 2015
@@ -32,11 +32,11 @@ if(CLANG_INSTALL_SCANBUILD)
COMMAND ${CMAKE_COMMAND} -E make_directory
${CMAKE_BINARY_DIR}/bin
COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_CURRENT_SOURCE_DIR}/${BinFile}
+ ${CMAKE_CURRENT_SOURCE_DIR}/bin/${BinFile}
${CMAKE_BINARY_DIR}/bin/
- DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${BinFile})
+ DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/bin/${BinFile})
list(APPEND Depends ${CMAKE_BINARY_DIR}/bin/${BinFile})
- install(PROGRAMS ${BinFile} DESTINATION bin)
+ install(PROGRAMS bin/${BinFile} DESTINATION bin)
endforeach()
foreach(LibexecFile ${LibexecFiles})
@@ -44,11 +44,11 @@ if(CLANG_INSTALL_SCANBUILD)
COMMAND ${CMAKE_COMMAND} -E make_directory
${CMAKE_BINARY_DIR}/libexec
COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_CURRENT_SOURCE_DIR}/${LibexecFile}
+ ${CMAKE_CURRENT_SOURCE_DIR}/libexec/${LibexecFile}
${CMAKE_BINARY_DIR}/libexec/
- DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${LibexecFile})
+ DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/libexec/${LibexecFile})
list(APPEND Depends ${CMAKE_BINARY_DIR}/libexec/${LibexecFile})
- install(PROGRAMS ${LibexecFile} DESTINATION libexec)
+ install(PROGRAMS libexec/${LibexecFile} DESTINATION libexec)
endforeach()
foreach(ManPage ${ManPages})
@@ -56,11 +56,11 @@ if(CLANG_INSTALL_SCANBUILD)
COMMAND ${CMAKE_COMMAND} -E make_directory
${CMAKE_BINARY_DIR}/share/man/man1
COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_CURRENT_SOURCE_DIR}/${ManPage}
+ ${CMAKE_CURRENT_SOURCE_DIR}/man/${ManPage}
${CMAKE_BINARY_DIR}/share/man/man1/
- DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${ManPage})
+ DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/man/${ManPage})
list(APPEND Depends ${CMAKE_BINARY_DIR}/share/man/man1/${ManPage})
- install(PROGRAMS ${ManPage} DESTINATION share/man/man1)
+ install(PROGRAMS man/${ManPage} DESTINATION share/man/man1)
endforeach()
foreach(ShareFile ${ShareFiles})
@@ -68,11 +68,11 @@ if(CLANG_INSTALL_SCANBUILD)
COMMAND ${CMAKE_COMMAND} -E make_directory
${CMAKE_BINARY_DIR}/share/scan-build
COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_CURRENT_SOURCE_DIR}/share/${ShareFile}
+ ${CMAKE_CURRENT_SOURCE_DIR}/share/scan-build/${ShareFile}
${CMAKE_BINARY_DIR}/share/scan-build/
- DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/share/${ShareFile})
+ DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/share/scan-build/${ShareFile})
list(APPEND Depends ${CMAKE_BINARY_DIR}/share/scan-build/${ShareFile})
- install(FILES share/${ShareFile} DESTINATION share/scan-build)
+ install(FILES share/scan-build/${ShareFile} DESTINATION share/scan-build)
endforeach()
add_custom_target(scan-build ALL DEPENDS ${Depends})
Modified: cfe/trunk/tools/scan-build/Makefile
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/Makefile?rev=253074&r1=253073&r2=253074&view=diff
==============================================================================
--- cfe/trunk/tools/scan-build/Makefile (original)
+++ cfe/trunk/tools/scan-build/Makefile Fri Nov 13 14:34:15 2015
@@ -33,18 +33,18 @@ endif
all:: $(InstallTargets)
-$(ToolDir)/%: % Makefile $(ToolDir)/.dir
+$(ToolDir)/%: bin/% Makefile $(ToolDir)/.dir
$(Echo) "Copying $(notdir $<) to the 'bin' directory..."
$(Verb)cp $< $@
$(Verb)chmod +x $@
-$(LibexecDir)/%: % Makefile $(LibexecDir)/.dir
+$(LibexecDir)/%: libexec/% Makefile $(LibexecDir)/.dir
$(Echo) "Copying $(notdir $<) to the 'libexec' directory..."
$(Verb)cp $< $@
$(Verb)chmod +x $@
-$(ShareDir)/man/man1/%: % Makefile $(ShareDir)/man/man1/.dir
- $(Echo) "Copying $(notdir $<) to the 'share' directory..."
+$(ShareDir)/man/man1/%: man/% Makefile $(ShareDir)/man/man1/.dir
+ $(Echo) "Copying $(notdir $<) to the 'man' directory..."
$(Verb)cp $< $@
$(ShareDir)/scan-build/%: share/% Makefile $(ShareDir)/scan-build/.dir
Copied: cfe/trunk/tools/scan-build/bin/scan-build (from r253068, cfe/trunk/tools/scan-build/scan-build)
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/bin/scan-build?p2=cfe/trunk/tools/scan-build/bin/scan-build&p1=cfe/trunk/tools/scan-build/scan-build&r1=253068&r2=253074&rev=253074&view=diff
==============================================================================
--- cfe/trunk/tools/scan-build/scan-build (original)
+++ cfe/trunk/tools/scan-build/bin/scan-build Fri Nov 13 14:34:15 2015
@@ -1818,6 +1818,7 @@ if (defined $Options{OutputFormat}) {
Diag "Viewing analysis results in '$Options{OutputDir}' using scan-view.\n";
my $ScanView = Cwd::realpath("$RealBin/scan-view");
if (! -x $ScanView) { $ScanView = "scan-view"; }
+ if (! -x $ScanView) { $ScanView = Cwd::realpath("$RealBin/../../scan-view/bin/scan-view"); }
exec $ScanView, "$Options{OutputDir}";
}
Removed: cfe/trunk/tools/scan-build/c++-analyzer
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/c%2B%2B-analyzer?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/c++-analyzer (original)
+++ cfe/trunk/tools/scan-build/c++-analyzer (removed)
@@ -1,8 +0,0 @@
-#!/usr/bin/env perl
-
-use Cwd qw/ abs_path /;
-use File::Basename qw/ dirname /;
-# Add scan-build dir to the list of places where perl looks for modules.
-use lib dirname(abs_path($0));
-
-do 'ccc-analyzer';
Removed: cfe/trunk/tools/scan-build/c++-analyzer.bat
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/c%2B%2B-analyzer.bat?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/c++-analyzer.bat (original)
+++ cfe/trunk/tools/scan-build/c++-analyzer.bat (removed)
@@ -1 +0,0 @@
-perl -S c++-analyzer %*
Removed: cfe/trunk/tools/scan-build/ccc-analyzer
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/ccc-analyzer?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/ccc-analyzer (original)
+++ cfe/trunk/tools/scan-build/ccc-analyzer (removed)
@@ -1,777 +0,0 @@
-#!/usr/bin/env perl
-#
-# The LLVM Compiler Infrastructure
-#
-# This file is distributed under the University of Illinois Open Source
-# License. See LICENSE.TXT for details.
-#
-##===----------------------------------------------------------------------===##
-#
-# A script designed to interpose between the build system and gcc. It invokes
-# both gcc and the static analyzer.
-#
-##===----------------------------------------------------------------------===##
-
-use strict;
-use warnings;
-use FindBin;
-use Cwd qw/ getcwd abs_path /;
-use File::Temp qw/ tempfile /;
-use File::Path qw / mkpath /;
-use File::Basename;
-use Text::ParseWords;
-
-##===----------------------------------------------------------------------===##
-# List form 'system' with STDOUT and STDERR captured.
-##===----------------------------------------------------------------------===##
-
-sub silent_system {
- my $HtmlDir = shift;
- my $Command = shift;
-
- # Save STDOUT and STDERR and redirect to a temporary file.
- open OLDOUT, ">&", \*STDOUT;
- open OLDERR, ">&", \*STDERR;
- my ($TmpFH, $TmpFile) = tempfile("temp_buf_XXXXXX",
- DIR => $HtmlDir,
- UNLINK => 1);
- open(STDOUT, ">$TmpFile");
- open(STDERR, ">&", \*STDOUT);
-
- # Invoke 'system', STDOUT and STDERR are output to a temporary file.
- system $Command, @_;
-
- # Restore STDOUT and STDERR.
- open STDOUT, ">&", \*OLDOUT;
- open STDERR, ">&", \*OLDERR;
-
- return $TmpFH;
-}
-
-##===----------------------------------------------------------------------===##
-# Compiler command setup.
-##===----------------------------------------------------------------------===##
-
-# Search in the PATH if the compiler exists
-sub SearchInPath {
- my $file = shift;
- foreach my $dir (split (':', $ENV{PATH})) {
- if (-x "$dir/$file") {
- return 1;
- }
- }
- return 0;
-}
-
-my $Compiler;
-my $Clang;
-my $DefaultCCompiler;
-my $DefaultCXXCompiler;
-my $IsCXX;
-my $AnalyzerTarget;
-
-# If on OSX, use xcrun to determine the SDK root.
-my $UseXCRUN = 0;
-
-if (`uname -a` =~ m/Darwin/) {
- $DefaultCCompiler = 'clang';
- $DefaultCXXCompiler = 'clang++';
- # Older versions of OSX do not have xcrun to
- # query the SDK location.
- if (-x "/usr/bin/xcrun") {
- $UseXCRUN = 1;
- }
-} else {
- $DefaultCCompiler = 'gcc';
- $DefaultCXXCompiler = 'g++';
-}
-
-if ($FindBin::Script =~ /c\+\+-analyzer/) {
- $Compiler = $ENV{'CCC_CXX'};
- if (!defined $Compiler || (! -x $Compiler && ! SearchInPath($Compiler))) { $Compiler = $DefaultCXXCompiler; }
-
- $Clang = $ENV{'CLANG_CXX'};
- if (!defined $Clang || ! -x $Clang) { $Clang = 'clang++'; }
-
- $IsCXX = 1
-}
-else {
- $Compiler = $ENV{'CCC_CC'};
- if (!defined $Compiler || (! -x $Compiler && ! SearchInPath($Compiler))) { $Compiler = $DefaultCCompiler; }
-
- $Clang = $ENV{'CLANG'};
- if (!defined $Clang || ! -x $Clang) { $Clang = 'clang'; }
-
- $IsCXX = 0
-}
-
-$AnalyzerTarget = $ENV{'CLANG_ANALYZER_TARGET'};
-
-##===----------------------------------------------------------------------===##
-# Cleanup.
-##===----------------------------------------------------------------------===##
-
-my $ReportFailures = $ENV{'CCC_REPORT_FAILURES'};
-if (!defined $ReportFailures) { $ReportFailures = 1; }
-
-my $CleanupFile;
-my $ResultFile;
-
-# Remove any stale files at exit.
-END {
- if (defined $ResultFile && -z $ResultFile) {
- unlink($ResultFile);
- }
- if (defined $CleanupFile) {
- unlink($CleanupFile);
- }
-}
-
-##----------------------------------------------------------------------------##
-# Process Clang Crashes.
-##----------------------------------------------------------------------------##
-
-sub GetPPExt {
- my $Lang = shift;
- if ($Lang =~ /objective-c\+\+/) { return ".mii" };
- if ($Lang =~ /objective-c/) { return ".mi"; }
- if ($Lang =~ /c\+\+/) { return ".ii"; }
- return ".i";
-}
-
-# Set this to 1 if we want to include 'parser rejects' files.
-my $IncludeParserRejects = 0;
-my $ParserRejects = "Parser Rejects";
-my $AttributeIgnored = "Attribute Ignored";
-my $OtherError = "Other Error";
-
-sub ProcessClangFailure {
- my ($Clang, $Lang, $file, $Args, $HtmlDir, $ErrorType, $ofile) = @_;
- my $Dir = "$HtmlDir/failures";
- mkpath $Dir;
-
- my $prefix = "clang_crash";
- if ($ErrorType eq $ParserRejects) {
- $prefix = "clang_parser_rejects";
- }
- elsif ($ErrorType eq $AttributeIgnored) {
- $prefix = "clang_attribute_ignored";
- }
- elsif ($ErrorType eq $OtherError) {
- $prefix = "clang_other_error";
- }
-
- # Generate the preprocessed file with Clang.
- my ($PPH, $PPFile) = tempfile( $prefix . "_XXXXXX",
- SUFFIX => GetPPExt($Lang),
- DIR => $Dir);
- close ($PPH);
- system $Clang, @$Args, "-E", "-o", $PPFile;
-
- # Create the info file.
- open (OUT, ">", "$PPFile.info.txt") or die "Cannot open $PPFile.info.txt\n";
- print OUT abs_path($file), "\n";
- print OUT "$ErrorType\n";
- print OUT "@$Args\n";
- close OUT;
- `uname -a >> $PPFile.info.txt 2>&1`;
- `"$Compiler" -v >> $PPFile.info.txt 2>&1`;
- rename($ofile, "$PPFile.stderr.txt");
- return (basename $PPFile);
-}
-
-##----------------------------------------------------------------------------##
-# Running the analyzer.
-##----------------------------------------------------------------------------##
-
-sub GetCCArgs {
- my $HtmlDir = shift;
- my $mode = shift;
- my $Args = shift;
- my $line;
- my $OutputStream = silent_system($HtmlDir, $Clang, "-###", $mode, @$Args);
- while (<$OutputStream>) {
- next if (!/\s"?-cc1"?\s/);
- $line = $_;
- }
- die "could not find clang line\n" if (!defined $line);
- # Strip leading and trailing whitespace characters.
- $line =~ s/^\s+|\s+$//g;
- my @items = quotewords('\s+', 0, $line);
- my $cmd = shift @items;
- die "cannot find 'clang' in 'clang' command\n" if (!($cmd =~ /clang/));
- return \@items;
-}
-
-sub Analyze {
- my ($Clang, $OriginalArgs, $AnalyzeArgs, $Lang, $Output, $Verbose, $HtmlDir,
- $file) = @_;
-
- my @Args = @$OriginalArgs;
- my $Cmd;
- my @CmdArgs;
- my @CmdArgsSansAnalyses;
-
- if ($Lang =~ /header/) {
- exit 0 if (!defined ($Output));
- $Cmd = 'cp';
- push @CmdArgs, $file;
- # Remove the PCH extension.
- $Output =~ s/[.]gch$//;
- push @CmdArgs, $Output;
- @CmdArgsSansAnalyses = @CmdArgs;
- }
- else {
- $Cmd = $Clang;
-
- # Create arguments for doing regular parsing.
- my $SyntaxArgs = GetCCArgs($HtmlDir, "-fsyntax-only", \@Args);
- @CmdArgsSansAnalyses = @$SyntaxArgs;
-
- # Create arguments for doing static analysis.
- if (defined $ResultFile) {
- push @Args, '-o', $ResultFile;
- }
- elsif (defined $HtmlDir) {
- push @Args, '-o', $HtmlDir;
- }
- if ($Verbose) {
- push @Args, "-Xclang", "-analyzer-display-progress";
- }
-
- foreach my $arg (@$AnalyzeArgs) {
- push @Args, "-Xclang", $arg;
- }
-
- # Display Ubiviz graph?
- if (defined $ENV{'CCC_UBI'}) {
- push @Args, "-Xclang", "-analyzer-viz-egraph-ubigraph";
- }
-
- if (defined $AnalyzerTarget) {
- push @Args, "-target", $AnalyzerTarget;
- }
-
- my $AnalysisArgs = GetCCArgs($HtmlDir, "--analyze", \@Args);
- @CmdArgs = @$AnalysisArgs;
- }
-
- my @PrintArgs;
- my $dir;
-
- if ($Verbose) {
- $dir = getcwd();
- print STDERR "\n[LOCATION]: $dir\n";
- push @PrintArgs,"'$Cmd'";
- foreach my $arg (@CmdArgs) {
- push @PrintArgs,"\'$arg\'";
- }
- }
- if ($Verbose == 1) {
- # We MUST print to stderr. Some clients use the stdout output of
- # gcc for various purposes.
- print STDERR join(' ', @PrintArgs);
- print STDERR "\n";
- }
- elsif ($Verbose == 2) {
- print STDERR "#SHELL (cd '$dir' && @PrintArgs)\n";
- }
-
- # Save STDOUT and STDERR of clang to a temporary file and reroute
- # all clang output to ccc-analyzer's STDERR.
- # We save the output file in the 'crashes' directory if clang encounters
- # any problems with the file.
- my ($ofh, $ofile) = tempfile("clang_output_XXXXXX", DIR => $HtmlDir);
-
- my $OutputStream = silent_system($HtmlDir, $Cmd, @CmdArgs);
- while ( <$OutputStream> ) {
- print $ofh $_;
- print STDERR $_;
- }
- my $Result = $?;
- close $ofh;
-
- # Did the command die because of a signal?
- if ($ReportFailures) {
- if ($Result & 127 and $Cmd eq $Clang and defined $HtmlDir) {
- ProcessClangFailure($Clang, $Lang, $file, \@CmdArgsSansAnalyses,
- $HtmlDir, "Crash", $ofile);
- }
- elsif ($Result) {
- if ($IncludeParserRejects && !($file =~/conftest/)) {
- ProcessClangFailure($Clang, $Lang, $file, \@CmdArgsSansAnalyses,
- $HtmlDir, $ParserRejects, $ofile);
- } else {
- ProcessClangFailure($Clang, $Lang, $file, \@CmdArgsSansAnalyses,
- $HtmlDir, $OtherError, $ofile);
- }
- }
- else {
- # Check if there were any unhandled attributes.
- if (open(CHILD, $ofile)) {
- my %attributes_not_handled;
-
- # Don't flag warnings about the following attributes that we
- # know are currently not supported by Clang.
- $attributes_not_handled{"cdecl"} = 1;
-
- my $ppfile;
- while (<CHILD>) {
- next if (! /warning: '([^\']+)' attribute ignored/);
-
- # Have we already spotted this unhandled attribute?
- next if (defined $attributes_not_handled{$1});
- $attributes_not_handled{$1} = 1;
-
- # Get the name of the attribute file.
- my $dir = "$HtmlDir/failures";
- my $afile = "$dir/attribute_ignored_$1.txt";
-
- # Only create another preprocessed file if the attribute file
- # doesn't exist yet.
- next if (-e $afile);
-
- # Add this file to the list of files that contained this attribute.
- # Generate a preprocessed file if we haven't already.
- if (!(defined $ppfile)) {
- $ppfile = ProcessClangFailure($Clang, $Lang, $file,
- \@CmdArgsSansAnalyses,
- $HtmlDir, $AttributeIgnored, $ofile);
- }
-
- mkpath $dir;
- open(AFILE, ">$afile");
- print AFILE "$ppfile\n";
- close(AFILE);
- }
- close CHILD;
- }
- }
- }
-
- unlink($ofile);
-}
-
-##----------------------------------------------------------------------------##
-# Lookup tables.
-##----------------------------------------------------------------------------##
-
-my %CompileOptionMap = (
- '-nostdinc' => 0,
- '-include' => 1,
- '-idirafter' => 1,
- '-imacros' => 1,
- '-iprefix' => 1,
- '-iquote' => 1,
- '-iwithprefix' => 1,
- '-iwithprefixbefore' => 1
-);
-
-my %LinkerOptionMap = (
- '-framework' => 1,
- '-fobjc-link-runtime' => 0
-);
-
-my %CompilerLinkerOptionMap = (
- '-Wwrite-strings' => 0,
- '-ftrapv-handler' => 1, # specifically call out separated -f flag
- '-mios-simulator-version-min' => 0, # This really has 1 argument, but always has '='
- '-isysroot' => 1,
- '-arch' => 1,
- '-m32' => 0,
- '-m64' => 0,
- '-stdlib' => 0, # This is really a 1 argument, but always has '='
- '--sysroot' => 1,
- '-target' => 1,
- '-v' => 0,
- '-mmacosx-version-min' => 0, # This is really a 1 argument, but always has '='
- '-miphoneos-version-min' => 0 # This is really a 1 argument, but always has '='
-);
-
-my %IgnoredOptionMap = (
- '-MT' => 1, # Ignore these preprocessor options.
- '-MF' => 1,
-
- '-fsyntax-only' => 0,
- '-save-temps' => 0,
- '-install_name' => 1,
- '-exported_symbols_list' => 1,
- '-current_version' => 1,
- '-compatibility_version' => 1,
- '-init' => 1,
- '-e' => 1,
- '-seg1addr' => 1,
- '-bundle_loader' => 1,
- '-multiply_defined' => 1,
- '-sectorder' => 3,
- '--param' => 1,
- '-u' => 1,
- '--serialize-diagnostics' => 1
-);
-
-my %LangMap = (
- 'c' => $IsCXX ? 'c++' : 'c',
- 'cp' => 'c++',
- 'cpp' => 'c++',
- 'cxx' => 'c++',
- 'txx' => 'c++',
- 'cc' => 'c++',
- 'C' => 'c++',
- 'ii' => 'c++-cpp-output',
- 'i' => $IsCXX ? 'c++-cpp-output' : 'c-cpp-output',
- 'm' => 'objective-c',
- 'mi' => 'objective-c-cpp-output',
- 'mm' => 'objective-c++',
- 'mii' => 'objective-c++-cpp-output',
-);
-
-my %UniqueOptions = (
- '-isysroot' => 0
-);
-
-##----------------------------------------------------------------------------##
-# Languages accepted.
-##----------------------------------------------------------------------------##
-
-my %LangsAccepted = (
- "objective-c" => 1,
- "c" => 1,
- "c++" => 1,
- "objective-c++" => 1,
- "c-cpp-output" => 1,
- "objective-c-cpp-output" => 1,
- "c++-cpp-output" => 1
-);
-
-##----------------------------------------------------------------------------##
-# Main Logic.
-##----------------------------------------------------------------------------##
-
-my $Action = 'link';
-my @CompileOpts;
-my @LinkOpts;
-my @Files;
-my $Lang;
-my $Output;
-my %Uniqued;
-
-# Forward arguments to gcc.
-my $Status = system($Compiler, at ARGV);
-if (defined $ENV{'CCC_ANALYZER_LOG'}) {
- print STDERR "$Compiler @ARGV\n";
-}
-if ($Status) { exit($Status >> 8); }
-
-# Get the analysis options.
-my $Analyses = $ENV{'CCC_ANALYZER_ANALYSIS'};
-
-# Get the plugins to load.
-my $Plugins = $ENV{'CCC_ANALYZER_PLUGINS'};
-
-# Get the store model.
-my $StoreModel = $ENV{'CCC_ANALYZER_STORE_MODEL'};
-
-# Get the constraints engine.
-my $ConstraintsModel = $ENV{'CCC_ANALYZER_CONSTRAINTS_MODEL'};
-
-#Get the internal stats setting.
-my $InternalStats = $ENV{'CCC_ANALYZER_INTERNAL_STATS'};
-
-# Get the output format.
-my $OutputFormat = $ENV{'CCC_ANALYZER_OUTPUT_FORMAT'};
-if (!defined $OutputFormat) { $OutputFormat = "html"; }
-
-# Get the config options.
-my $ConfigOptions = $ENV{'CCC_ANALYZER_CONFIG'};
-
-# Determine the level of verbosity.
-my $Verbose = 0;
-if (defined $ENV{'CCC_ANALYZER_VERBOSE'}) { $Verbose = 1; }
-if (defined $ENV{'CCC_ANALYZER_LOG'}) { $Verbose = 2; }
-
-# Get the HTML output directory.
-my $HtmlDir = $ENV{'CCC_ANALYZER_HTML'};
-
-my %DisabledArchs = ('ppc' => 1, 'ppc64' => 1);
-my %ArchsSeen;
-my $HadArch = 0;
-my $HasSDK = 0;
-
-# Process the arguments.
-foreach (my $i = 0; $i < scalar(@ARGV); ++$i) {
- my $Arg = $ARGV[$i];
- my ($ArgKey) = split /=/,$Arg,2;
-
- # Be friendly to "" in the argument list.
- if (!defined($ArgKey)) {
- next;
- }
-
- # Modes ccc-analyzer supports
- if ($Arg =~ /^-(E|MM?)$/) { $Action = 'preprocess'; }
- elsif ($Arg eq '-c') { $Action = 'compile'; }
- elsif ($Arg =~ /^-print-prog-name/) { exit 0; }
-
- # Specially handle duplicate cases of -arch
- if ($Arg eq "-arch") {
- my $arch = $ARGV[$i+1];
- # We don't want to process 'ppc' because of Clang's lack of support
- # for Altivec (also some #defines won't likely be defined correctly, etc.)
- if (!(defined $DisabledArchs{$arch})) { $ArchsSeen{$arch} = 1; }
- $HadArch = 1;
- ++$i;
- next;
- }
-
- # On OSX/iOS, record if an SDK path was specified. This
- # is innocuous for other platforms, so the check just happens.
- if ($Arg =~ /^-isysroot/) {
- $HasSDK = 1;
- }
-
- # Options with possible arguments that should pass through to compiler.
- if (defined $CompileOptionMap{$ArgKey}) {
- my $Cnt = $CompileOptionMap{$ArgKey};
- push @CompileOpts,$Arg;
- while ($Cnt > 0) { ++$i; --$Cnt; push @CompileOpts, $ARGV[$i]; }
- next;
- }
- # Handle the case where there isn't a space after -iquote
- if ($Arg =~ /^-iquote.*/) {
- push @CompileOpts,$Arg;
- next;
- }
-
- # Options with possible arguments that should pass through to linker.
- if (defined $LinkerOptionMap{$ArgKey}) {
- my $Cnt = $LinkerOptionMap{$ArgKey};
- push @LinkOpts,$Arg;
- while ($Cnt > 0) { ++$i; --$Cnt; push @LinkOpts, $ARGV[$i]; }
- next;
- }
-
- # Options with possible arguments that should pass through to both compiler
- # and the linker.
- if (defined $CompilerLinkerOptionMap{$ArgKey}) {
- my $Cnt = $CompilerLinkerOptionMap{$ArgKey};
-
- # Check if this is an option that should have a unique value, and if so
- # determine if the value was checked before.
- if ($UniqueOptions{$Arg}) {
- if (defined $Uniqued{$Arg}) {
- $i += $Cnt;
- next;
- }
- $Uniqued{$Arg} = 1;
- }
-
- push @CompileOpts,$Arg;
- push @LinkOpts,$Arg;
-
- while ($Cnt > 0) {
- ++$i; --$Cnt;
- push @CompileOpts, $ARGV[$i];
- push @LinkOpts, $ARGV[$i];
- }
- next;
- }
-
- # Ignored options.
- if (defined $IgnoredOptionMap{$ArgKey}) {
- my $Cnt = $IgnoredOptionMap{$ArgKey};
- while ($Cnt > 0) {
- ++$i; --$Cnt;
- }
- next;
- }
-
- # Compile mode flags.
- if ($Arg =~ /^-(?:[DIU]|isystem)(.*)$/) {
- my $Tmp = $Arg;
- if ($1 eq '') {
- # FIXME: Check if we are going off the end.
- ++$i;
- $Tmp = $Arg . $ARGV[$i];
- }
- push @CompileOpts,$Tmp;
- next;
- }
-
- if ($Arg =~ /^-m.*/) {
- push @CompileOpts,$Arg;
- next;
- }
-
- # Language.
- if ($Arg eq '-x') {
- $Lang = $ARGV[$i+1];
- ++$i; next;
- }
-
- # Output file.
- if ($Arg eq '-o') {
- ++$i;
- $Output = $ARGV[$i];
- next;
- }
-
- # Get the link mode.
- if ($Arg =~ /^-[l,L,O]/) {
- if ($Arg eq '-O') { push @LinkOpts,'-O1'; }
- elsif ($Arg eq '-Os') { push @LinkOpts,'-O2'; }
- else { push @LinkOpts,$Arg; }
-
- # Must pass this along for the __OPTIMIZE__ macro
- if ($Arg =~ /^-O/) { push @CompileOpts,$Arg; }
- next;
- }
-
- if ($Arg =~ /^-std=/) {
- push @CompileOpts,$Arg;
- next;
- }
-
- # Get the compiler/link mode.
- if ($Arg =~ /^-F(.+)$/) {
- my $Tmp = $Arg;
- if ($1 eq '') {
- # FIXME: Check if we are going off the end.
- ++$i;
- $Tmp = $Arg . $ARGV[$i];
- }
- push @CompileOpts,$Tmp;
- push @LinkOpts,$Tmp;
- next;
- }
-
- # Input files.
- if ($Arg eq '-filelist') {
- # FIXME: Make sure we aren't walking off the end.
- open(IN, $ARGV[$i+1]);
- while (<IN>) { s/\015?\012//; push @Files,$_; }
- close(IN);
- ++$i;
- next;
- }
-
- if ($Arg =~ /^-f/) {
- push @CompileOpts,$Arg;
- push @LinkOpts,$Arg;
- next;
- }
-
- # Handle -Wno-. We don't care about extra warnings, but
- # we should suppress ones that we don't want to see.
- if ($Arg =~ /^-Wno-/) {
- push @CompileOpts, $Arg;
- next;
- }
-
- # Handle -Xclang some-arg. Add both arguments to the compiler options.
- if ($Arg =~ /^-Xclang$/) {
- # FIXME: Check if we are going off the end.
- ++$i;
- push @CompileOpts, $Arg;
- push @CompileOpts, $ARGV[$i];
- next;
- }
-
- if (!($Arg =~ /^-/)) {
- push @Files, $Arg;
- next;
- }
-}
-
-# If we are on OSX and have an installation where the
-# default SDK is inferred by xcrun use xcrun to infer
-# the SDK.
-if (not $HasSDK and $UseXCRUN) {
- my $sdk = `/usr/bin/xcrun --show-sdk-path -sdk macosx`;
- chomp $sdk;
- push @CompileOpts, "-isysroot", $sdk;
-}
-
-if ($Action eq 'compile' or $Action eq 'link') {
- my @Archs = keys %ArchsSeen;
- # Skip the file if we don't support the architectures specified.
- exit 0 if ($HadArch && scalar(@Archs) == 0);
-
- foreach my $file (@Files) {
- # Determine the language for the file.
- my $FileLang = $Lang;
-
- if (!defined($FileLang)) {
- # Infer the language from the extension.
- if ($file =~ /[.]([^.]+)$/) {
- $FileLang = $LangMap{$1};
- }
- }
-
- # FileLang still not defined? Skip the file.
- next if (!defined $FileLang);
-
- # Language not accepted?
- next if (!defined $LangsAccepted{$FileLang});
-
- my @CmdArgs;
- my @AnalyzeArgs;
-
- if ($FileLang ne 'unknown') {
- push @CmdArgs, '-x', $FileLang;
- }
-
- if (defined $StoreModel) {
- push @AnalyzeArgs, "-analyzer-store=$StoreModel";
- }
-
- if (defined $ConstraintsModel) {
- push @AnalyzeArgs, "-analyzer-constraints=$ConstraintsModel";
- }
-
- if (defined $InternalStats) {
- push @AnalyzeArgs, "-analyzer-stats";
- }
-
- if (defined $Analyses) {
- push @AnalyzeArgs, split '\s+', $Analyses;
- }
-
- if (defined $Plugins) {
- push @AnalyzeArgs, split '\s+', $Plugins;
- }
-
- if (defined $OutputFormat) {
- push @AnalyzeArgs, "-analyzer-output=" . $OutputFormat;
- if ($OutputFormat =~ /plist/) {
- # Change "Output" to be a file.
- my ($h, $f) = tempfile("report-XXXXXX", SUFFIX => ".plist",
- DIR => $HtmlDir);
- $ResultFile = $f;
- # If the HtmlDir is not set, we should clean up the plist files.
- if (!defined $HtmlDir || -z $HtmlDir) {
- $CleanupFile = $f;
- }
- }
- }
- if (defined $ConfigOptions) {
- push @AnalyzeArgs, split '\s+', $ConfigOptions;
- }
-
- push @CmdArgs, @CompileOpts;
- push @CmdArgs, $file;
-
- if (scalar @Archs) {
- foreach my $arch (@Archs) {
- my @NewArgs;
- push @NewArgs, '-arch', $arch;
- push @NewArgs, @CmdArgs;
- Analyze($Clang, \@NewArgs, \@AnalyzeArgs, $FileLang, $Output,
- $Verbose, $HtmlDir, $file);
- }
- }
- else {
- Analyze($Clang, \@CmdArgs, \@AnalyzeArgs, $FileLang, $Output,
- $Verbose, $HtmlDir, $file);
- }
- }
-}
Removed: cfe/trunk/tools/scan-build/ccc-analyzer.bat
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/ccc-analyzer.bat?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/ccc-analyzer.bat (original)
+++ cfe/trunk/tools/scan-build/ccc-analyzer.bat (removed)
@@ -1 +0,0 @@
-perl -S ccc-analyzer %*
Removed: cfe/trunk/tools/scan-build/scan-build
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/scan-build?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/scan-build (original)
+++ cfe/trunk/tools/scan-build/scan-build (removed)
@@ -1,1831 +0,0 @@
-#!/usr/bin/env perl
-#
-# The LLVM Compiler Infrastructure
-#
-# This file is distributed under the University of Illinois Open Source
-# License. See LICENSE.TXT for details.
-#
-##===----------------------------------------------------------------------===##
-#
-# A script designed to wrap a build so that all calls to gcc are intercepted
-# and piped to the static analyzer.
-#
-##===----------------------------------------------------------------------===##
-
-use strict;
-use warnings;
-use FindBin qw($RealBin);
-use Digest::MD5;
-use File::Basename;
-use File::Find;
-use File::Copy qw(copy);
-use File::Path qw( rmtree mkpath );
-use Term::ANSIColor;
-use Term::ANSIColor qw(:constants);
-use Cwd qw/ getcwd abs_path /;
-use Sys::Hostname;
-use Hash::Util qw(lock_keys);
-
-my $Prog = "scan-build";
-my $BuildName;
-my $BuildDate;
-
-my $TERM = $ENV{'TERM'};
-my $UseColor = (defined $TERM and $TERM =~ 'xterm-.*color' and -t STDOUT
- and defined $ENV{'SCAN_BUILD_COLOR'});
-
-# Portability: getpwuid is not implemented for Win32 (see Perl language
-# reference, perlport), use getlogin instead.
-my $UserName = HtmlEscape(getlogin() || getpwuid($<) || 'unknown');
-my $HostName = HtmlEscape(hostname() || 'unknown');
-my $CurrentDir = HtmlEscape(getcwd());
-
-my $CmdArgs;
-
-my $Date = localtime();
-
-# Command-line/config arguments.
-my %Options = (
- Verbose => 0, # Verbose output from this script.
- AnalyzeHeaders => 0,
- OutputDir => undef, # Parent directory to store HTML files.
- HtmlTitle => basename($CurrentDir)." - scan-build results",
- IgnoreErrors => 0, # Ignore build errors.
- ViewResults => 0, # View results when the build terminates.
- ExitStatusFoundBugs => 0, # Exit status reflects whether bugs were found
- KeepEmpty => 0, # Don't remove output directory even with 0 results.
- EnableCheckers => {},
- DisableCheckers => {},
- UseCC => undef, # C compiler to use for compilation.
- UseCXX => undef, # C++ compiler to use for compilation.
- AnalyzerTarget => undef,
- StoreModel => undef,
- ConstraintsModel => undef,
- InternalStats => undef,
- OutputFormat => "html",
- ConfigOptions => [], # Options to pass through to the analyzer's -analyzer-config flag.
- ReportFailures => undef,
- AnalyzerStats => 0,
- MaxLoop => 0,
- PluginsToLoad => [],
- AnalyzerDiscoveryMethod => undef,
- OverrideCompiler => 0 # The flag corresponding to the --override-compiler command line option.
-);
-lock_keys(%Options);
-
-##----------------------------------------------------------------------------##
-# Diagnostics
-##----------------------------------------------------------------------------##
-
-sub Diag {
- if ($UseColor) {
- print BOLD, MAGENTA "$Prog: @_";
- print RESET;
- }
- else {
- print "$Prog: @_";
- }
-}
-
-sub ErrorDiag {
- if ($UseColor) {
- print STDERR BOLD, RED "$Prog: ";
- print STDERR RESET, RED @_;
- print STDERR RESET;
- } else {
- print STDERR "$Prog: @_";
- }
-}
-
-sub DiagCrashes {
- my $Dir = shift;
- Diag ("The analyzer encountered problems on some source files.\n");
- Diag ("Preprocessed versions of these sources were deposited in '$Dir/failures'.\n");
- Diag ("Please consider submitting a bug report using these files:\n");
- Diag (" http://clang-analyzer.llvm.org/filing_bugs.html\n")
-}
-
-sub DieDiag {
- if ($UseColor) {
- print STDERR BOLD, RED "$Prog: ";
- print STDERR RESET, RED @_;
- print STDERR RESET;
- }
- else {
- print STDERR "$Prog: ", @_;
- }
- exit 1;
-}
-
-##----------------------------------------------------------------------------##
-# Print default checker names
-##----------------------------------------------------------------------------##
-
-if (grep /^--help-checkers$/, @ARGV) {
- my @options = qx($0 -h);
- foreach (@options) {
- next unless /^ \+/;
- s/^\s*//;
- my ($sign, $name, @text) = split ' ', $_;
- print $name, $/ if $sign eq '+';
- }
- exit 0;
-}
-
-##----------------------------------------------------------------------------##
-# Declaration of Clang options. Populated later.
-##----------------------------------------------------------------------------##
-
-my $Clang;
-my $ClangSB;
-my $ClangCXX;
-my $ClangVersion;
-
-##----------------------------------------------------------------------------##
-# GetHTMLRunDir - Construct an HTML directory name for the current sub-run.
-##----------------------------------------------------------------------------##
-
-sub GetHTMLRunDir {
- die "Not enough arguments." if (@_ == 0);
- my $Dir = shift @_;
- my $TmpMode = 0;
- if (!defined $Dir) {
- $Dir = $ENV{'TMPDIR'} || $ENV{'TEMP'} || $ENV{'TMP'} || "/tmp";
- $TmpMode = 1;
- }
-
- # Chop off any trailing '/' characters.
- while ($Dir =~ /\/$/) { chop $Dir; }
-
- # Get current date and time.
- my @CurrentTime = localtime();
- my $year = $CurrentTime[5] + 1900;
- my $day = $CurrentTime[3];
- my $month = $CurrentTime[4] + 1;
- my $hour = $CurrentTime[2];
- my $min = $CurrentTime[1];
- my $sec = $CurrentTime[0];
-
- my $TimeString = sprintf("%02d%02d%02d", $hour, $min, $sec);
- my $DateString = sprintf("%d-%02d-%02d-%s-$$",
- $year, $month, $day, $TimeString);
-
- # Determine the run number.
- my $RunNumber;
-
- if (-d $Dir) {
- if (! -r $Dir) {
- DieDiag("directory '$Dir' exists but is not readable.\n");
- }
- # Iterate over all files in the specified directory.
- my $max = 0;
- opendir(DIR, $Dir);
- my @FILES = grep { -d "$Dir/$_" } readdir(DIR);
- closedir(DIR);
-
- foreach my $f (@FILES) {
- # Strip the prefix '$Prog-' if we are dumping files to /tmp.
- if ($TmpMode) {
- next if (!($f =~ /^$Prog-(.+)/));
- $f = $1;
- }
-
- my @x = split/-/, $f;
- next if (scalar(@x) != 4);
- next if ($x[0] != $year);
- next if ($x[1] != $month);
- next if ($x[2] != $day);
- next if ($x[3] != $TimeString);
- next if ($x[4] != $$);
-
- if ($x[5] > $max) {
- $max = $x[5];
- }
- }
-
- $RunNumber = $max + 1;
- }
- else {
-
- if (-x $Dir) {
- DieDiag("'$Dir' exists but is not a directory.\n");
- }
-
- if ($TmpMode) {
- DieDiag("The directory '/tmp' does not exist or cannot be accessed.\n");
- }
-
- # $Dir does not exist. It will be automatically created by the
- # clang driver. Set the run number to 1.
-
- $RunNumber = 1;
- }
-
- die "RunNumber must be defined!" if (!defined $RunNumber);
-
- # Append the run number.
- my $NewDir;
- if ($TmpMode) {
- $NewDir = "$Dir/$Prog-$DateString-$RunNumber";
- }
- else {
- $NewDir = "$Dir/$DateString-$RunNumber";
- }
-
- # Make sure that the directory does not exist in order to avoid hijack.
- if (-e $NewDir) {
- DieDiag("The directory '$NewDir' already exists.\n");
- }
-
- mkpath($NewDir);
- return $NewDir;
-}
-
-sub SetHtmlEnv {
-
- die "Wrong number of arguments." if (scalar(@_) != 2);
-
- my $Args = shift;
- my $Dir = shift;
-
- die "No build command." if (scalar(@$Args) == 0);
-
- my $Cmd = $$Args[0];
-
- if ($Cmd =~ /configure/ || $Cmd =~ /autogen/) {
- return;
- }
-
- if ($Options{Verbose}) {
- Diag("Emitting reports for this run to '$Dir'.\n");
- }
-
- $ENV{'CCC_ANALYZER_HTML'} = $Dir;
-}
-
-##----------------------------------------------------------------------------##
-# ComputeDigest - Compute a digest of the specified file.
-##----------------------------------------------------------------------------##
-
-sub ComputeDigest {
- my $FName = shift;
- DieDiag("Cannot read $FName to compute Digest.\n") if (! -r $FName);
-
- # Use Digest::MD5. We don't have to be cryptographically secure. We're
- # just looking for duplicate files that come from a non-malicious source.
- # We use Digest::MD5 because it is a standard Perl module that should
- # come bundled on most systems.
- open(FILE, $FName) or DieDiag("Cannot open $FName when computing Digest.\n");
- binmode FILE;
- my $Result = Digest::MD5->new->addfile(*FILE)->hexdigest;
- close(FILE);
-
- # Return the digest.
- return $Result;
-}
-
-##----------------------------------------------------------------------------##
-# UpdatePrefix - Compute the common prefix of files.
-##----------------------------------------------------------------------------##
-
-my $Prefix;
-
-sub UpdatePrefix {
- my $x = shift;
- my $y = basename($x);
- $x =~ s/\Q$y\E$//;
-
- if (!defined $Prefix) {
- $Prefix = $x;
- return;
- }
-
- chop $Prefix while (!($x =~ /^\Q$Prefix/));
-}
-
-sub GetPrefix {
- return $Prefix;
-}
-
-##----------------------------------------------------------------------------##
-# UpdateInFilePath - Update the path in the report file.
-##----------------------------------------------------------------------------##
-
-sub UpdateInFilePath {
- my $fname = shift;
- my $regex = shift;
- my $newtext = shift;
-
- open (RIN, $fname) or die "cannot open $fname";
- open (ROUT, ">", "$fname.tmp") or die "cannot open $fname.tmp";
-
- while (<RIN>) {
- s/$regex/$newtext/;
- print ROUT $_;
- }
-
- close (ROUT);
- close (RIN);
- rename("$fname.tmp", $fname)
-}
-
-##----------------------------------------------------------------------------##
-# AddStatLine - Decode and insert a statistics line into the database.
-##----------------------------------------------------------------------------##
-
-sub AddStatLine {
- my $Line = shift;
- my $Stats = shift;
- my $File = shift;
-
- print $Line . "\n";
-
- my $Regex = qr/(.*?)\ ->\ Total\ CFGBlocks:\ (\d+)\ \|\ Unreachable
- \ CFGBlocks:\ (\d+)\ \|\ Exhausted\ Block:\ (yes|no)\ \|\ Empty\ WorkList:
- \ (yes|no)/x;
-
- if ($Line !~ $Regex) {
- return;
- }
-
- # Create a hash of the interesting fields
- my $Row = {
- Filename => $File,
- Function => $1,
- Total => $2,
- Unreachable => $3,
- Aborted => $4,
- Empty => $5
- };
-
- # Add them to the stats array
- push @$Stats, $Row;
-}
-
-##----------------------------------------------------------------------------##
-# ScanFile - Scan a report file for various identifying attributes.
-##----------------------------------------------------------------------------##
-
-# Sometimes a source file is scanned more than once, and thus produces
-# multiple error reports. We use a cache to solve this problem.
-
-my %AlreadyScanned;
-
-sub ScanFile {
-
- my $Index = shift;
- my $Dir = shift;
- my $FName = shift;
- my $Stats = shift;
-
- # Compute a digest for the report file. Determine if we have already
- # scanned a file that looks just like it.
-
- my $digest = ComputeDigest("$Dir/$FName");
-
- if (defined $AlreadyScanned{$digest}) {
- # Redundant file. Remove it.
- unlink("$Dir/$FName");
- return;
- }
-
- $AlreadyScanned{$digest} = 1;
-
- # At this point the report file is not world readable. Make it happen.
- chmod(0644, "$Dir/$FName");
-
- # Scan the report file for tags.
- open(IN, "$Dir/$FName") or DieDiag("Cannot open '$Dir/$FName'\n");
-
- my $BugType = "";
- my $BugFile = "";
- my $BugFunction = "";
- my $BugCategory = "";
- my $BugDescription = "";
- my $BugPathLength = 1;
- my $BugLine = 0;
-
- while (<IN>) {
- last if (/<!-- BUGMETAEND -->/);
-
- if (/<!-- BUGTYPE (.*) -->$/) {
- $BugType = $1;
- }
- elsif (/<!-- BUGFILE (.*) -->$/) {
- $BugFile = abs_path($1);
- if (!defined $BugFile) {
- # The file no longer exists: use the original path.
- $BugFile = $1;
- }
- UpdatePrefix($BugFile);
- }
- elsif (/<!-- BUGPATHLENGTH (.*) -->$/) {
- $BugPathLength = $1;
- }
- elsif (/<!-- BUGLINE (.*) -->$/) {
- $BugLine = $1;
- }
- elsif (/<!-- BUGCATEGORY (.*) -->$/) {
- $BugCategory = $1;
- }
- elsif (/<!-- BUGDESC (.*) -->$/) {
- $BugDescription = $1;
- }
- elsif (/<!-- FUNCTIONNAME (.*) -->$/) {
- $BugFunction = $1;
- }
-
- }
-
-
- close(IN);
-
- if (!defined $BugCategory) {
- $BugCategory = "Other";
- }
-
- # Don't add internal statistics to the bug reports
- if ($BugCategory =~ /statistics/i) {
- AddStatLine($BugDescription, $Stats, $BugFile);
- return;
- }
-
- push @$Index,[ $FName, $BugCategory, $BugType, $BugFile, $BugFunction, $BugLine,
- $BugPathLength ];
-}
-
-##----------------------------------------------------------------------------##
-# CopyFiles - Copy resource files to target directory.
-##----------------------------------------------------------------------------##
-
-sub CopyFiles {
-
- my $Dir = shift;
-
- my $JS = Cwd::realpath("$RealBin/../share/scan-build/sorttable.js");
-
- DieDiag("Cannot find 'sorttable.js'.\n")
- if (! -r $JS);
-
- copy($JS, "$Dir");
-
- DieDiag("Could not copy 'sorttable.js' to '$Dir'.\n")
- if (! -r "$Dir/sorttable.js");
-
- my $CSS = Cwd::realpath("$RealBin/../share/scan-build/scanview.css");
-
- DieDiag("Cannot find 'scanview.css'.\n")
- if (! -r $CSS);
-
- copy($CSS, "$Dir");
-
- DieDiag("Could not copy 'scanview.css' to '$Dir'.\n")
- if (! -r $CSS);
-}
-
-##----------------------------------------------------------------------------##
-# CalcStats - Calculates visitation statistics and returns the string.
-##----------------------------------------------------------------------------##
-
-sub CalcStats {
- my $Stats = shift;
-
- my $TotalBlocks = 0;
- my $UnreachedBlocks = 0;
- my $TotalFunctions = scalar(@$Stats);
- my $BlockAborted = 0;
- my $WorkListAborted = 0;
- my $Aborted = 0;
-
- # Calculate the unique files
- my $FilesHash = {};
-
- foreach my $Row (@$Stats) {
- $FilesHash->{$Row->{Filename}} = 1;
- $TotalBlocks += $Row->{Total};
- $UnreachedBlocks += $Row->{Unreachable};
- $BlockAborted++ if $Row->{Aborted} eq 'yes';
- $WorkListAborted++ if $Row->{Empty} eq 'no';
- $Aborted++ if $Row->{Aborted} eq 'yes' || $Row->{Empty} eq 'no';
- }
-
- my $TotalFiles = scalar(keys(%$FilesHash));
-
- # Calculations
- my $PercentAborted = sprintf("%.2f", $Aborted / $TotalFunctions * 100);
- my $PercentBlockAborted = sprintf("%.2f", $BlockAborted / $TotalFunctions
- * 100);
- my $PercentWorkListAborted = sprintf("%.2f", $WorkListAborted /
- $TotalFunctions * 100);
- my $PercentBlocksUnreached = sprintf("%.2f", $UnreachedBlocks / $TotalBlocks
- * 100);
-
- my $StatsString = "Analyzed $TotalBlocks blocks in $TotalFunctions functions"
- . " in $TotalFiles files\n"
- . "$Aborted functions aborted early ($PercentAborted%)\n"
- . "$BlockAborted had aborted blocks ($PercentBlockAborted%)\n"
- . "$WorkListAborted had unfinished worklists ($PercentWorkListAborted%)\n"
- . "$UnreachedBlocks blocks were never reached ($PercentBlocksUnreached%)\n";
-
- return $StatsString;
-}
-
-##----------------------------------------------------------------------------##
-# Postprocess - Postprocess the results of an analysis scan.
-##----------------------------------------------------------------------------##
-
-my @filesFound;
-my $baseDir;
-sub FileWanted {
- my $baseDirRegEx = quotemeta $baseDir;
- my $file = $File::Find::name;
-
- # The name of the file is generated by clang binary (HTMLDiagnostics.cpp)
- if ($file =~ /report-.*\.html$/) {
- my $relative_file = $file;
- $relative_file =~ s/$baseDirRegEx//g;
- push @filesFound, $relative_file;
- }
-}
-
-sub Postprocess {
-
- my $Dir = shift;
- my $BaseDir = shift;
- my $AnalyzerStats = shift;
- my $KeepEmpty = shift;
-
- die "No directory specified." if (!defined $Dir);
-
- if (! -d $Dir) {
- Diag("No bugs found.\n");
- return 0;
- }
-
- $baseDir = $Dir . "/";
- find({ wanted => \&FileWanted, follow => 0}, $Dir);
-
- if (scalar(@filesFound) == 0 and ! -e "$Dir/failures") {
- if (! $KeepEmpty) {
- Diag("Removing directory '$Dir' because it contains no reports.\n");
- rmtree($Dir) or die "Cannot rmtree '$Dir' : $!";
- }
- Diag("No bugs found.\n");
- return 0;
- }
-
- # Scan each report file and build an index.
- my @Index;
- my @Stats;
- foreach my $file (@filesFound) { ScanFile(\@Index, $Dir, $file, \@Stats); }
-
- # Scan the failures directory and use the information in the .info files
- # to update the common prefix directory.
- my @failures;
- my @attributes_ignored;
- if (-d "$Dir/failures") {
- opendir(DIR, "$Dir/failures");
- @failures = grep { /[.]info.txt$/ && !/attribute_ignored/; } readdir(DIR);
- closedir(DIR);
- opendir(DIR, "$Dir/failures");
- @attributes_ignored = grep { /^attribute_ignored/; } readdir(DIR);
- closedir(DIR);
- foreach my $file (@failures) {
- open IN, "$Dir/failures/$file" or DieDiag("cannot open $file\n");
- my $Path = <IN>;
- if (defined $Path) { UpdatePrefix($Path); }
- close IN;
- }
- }
-
- # Generate an index.html file.
- my $FName = "$Dir/index.html";
- open(OUT, ">", $FName) or DieDiag("Cannot create file '$FName'\n");
-
- # Print out the header.
-
-print OUT <<ENDTEXT;
-<html>
-<head>
-<title>${Options{HtmlTitle}}</title>
-<link type="text/css" rel="stylesheet" href="scanview.css"/>
-<script src="sorttable.js"></script>
-<script language='javascript' type="text/javascript">
-function SetDisplay(RowClass, DisplayVal)
-{
- var Rows = document.getElementsByTagName("tr");
- for ( var i = 0 ; i < Rows.length; ++i ) {
- if (Rows[i].className == RowClass) {
- Rows[i].style.display = DisplayVal;
- }
- }
-}
-
-function CopyCheckedStateToCheckButtons(SummaryCheckButton) {
- var Inputs = document.getElementsByTagName("input");
- for ( var i = 0 ; i < Inputs.length; ++i ) {
- if (Inputs[i].type == "checkbox") {
- if(Inputs[i] != SummaryCheckButton) {
- Inputs[i].checked = SummaryCheckButton.checked;
- Inputs[i].onclick();
- }
- }
- }
-}
-
-function returnObjById( id ) {
- if (document.getElementById)
- var returnVar = document.getElementById(id);
- else if (document.all)
- var returnVar = document.all[id];
- else if (document.layers)
- var returnVar = document.layers[id];
- return returnVar;
-}
-
-var NumUnchecked = 0;
-
-function ToggleDisplay(CheckButton, ClassName) {
- if (CheckButton.checked) {
- SetDisplay(ClassName, "");
- if (--NumUnchecked == 0) {
- returnObjById("AllBugsCheck").checked = true;
- }
- }
- else {
- SetDisplay(ClassName, "none");
- NumUnchecked++;
- returnObjById("AllBugsCheck").checked = false;
- }
-}
-</script>
-<!-- SUMMARYENDHEAD -->
-</head>
-<body>
-<h1>${Options{HtmlTitle}}</h1>
-
-<table>
-<tr><th>User:</th><td>${UserName}\@${HostName}</td></tr>
-<tr><th>Working Directory:</th><td>${CurrentDir}</td></tr>
-<tr><th>Command Line:</th><td>${CmdArgs}</td></tr>
-<tr><th>Clang Version:</th><td>${ClangVersion}</td></tr>
-<tr><th>Date:</th><td>${Date}</td></tr>
-ENDTEXT
-
-print OUT "<tr><th>Version:</th><td>${BuildName} (${BuildDate})</td></tr>\n"
- if (defined($BuildName) && defined($BuildDate));
-
-print OUT <<ENDTEXT;
-</table>
-ENDTEXT
-
- if (scalar(@filesFound)) {
- # Print out the summary table.
- my %Totals;
-
- for my $row ( @Index ) {
- my $bug_type = ($row->[2]);
- my $bug_category = ($row->[1]);
- my $key = "$bug_category:$bug_type";
-
- if (!defined $Totals{$key}) { $Totals{$key} = [1,$bug_category,$bug_type]; }
- else { $Totals{$key}->[0]++; }
- }
-
- print OUT "<h2>Bug Summary</h2>";
-
- if (defined $BuildName) {
- print OUT "\n<p>Results in this analysis run are based on analyzer build <b>$BuildName</b>.</p>\n"
- }
-
- my $TotalBugs = scalar(@Index);
-print OUT <<ENDTEXT;
-<table>
-<thead><tr><td>Bug Type</td><td>Quantity</td><td class="sorttable_nosort">Display?</td></tr></thead>
-<tr style="font-weight:bold"><td class="SUMM_DESC">All Bugs</td><td class="Q">$TotalBugs</td><td><center><input type="checkbox" id="AllBugsCheck" onClick="CopyCheckedStateToCheckButtons(this);" checked/></center></td></tr>
-ENDTEXT
-
- my $last_category;
-
- for my $key (
- sort {
- my $x = $Totals{$a};
- my $y = $Totals{$b};
- my $res = $x->[1] cmp $y->[1];
- $res = $x->[2] cmp $y->[2] if ($res == 0);
- $res
- } keys %Totals )
- {
- my $val = $Totals{$key};
- my $category = $val->[1];
- if (!defined $last_category or $last_category ne $category) {
- $last_category = $category;
- print OUT "<tr><th>$category</th><th colspan=2></th></tr>\n";
- }
- my $x = lc $key;
- $x =~ s/[ ,'":\/()]+/_/g;
- print OUT "<tr><td class=\"SUMM_DESC\">";
- print OUT $val->[2];
- print OUT "</td><td class=\"Q\">";
- print OUT $val->[0];
- print OUT "</td><td><center><input type=\"checkbox\" onClick=\"ToggleDisplay(this,'bt_$x');\" checked/></center></td></tr>\n";
- }
-
- # Print out the table of errors.
-
-print OUT <<ENDTEXT;
-</table>
-<h2>Reports</h2>
-
-<table class="sortable" style="table-layout:automatic">
-<thead><tr>
- <td>Bug Group</td>
- <td class="sorttable_sorted">Bug Type<span id="sorttable_sortfwdind"> ▾</span></td>
- <td>File</td>
- <td>Function/Method</td>
- <td class="Q">Line</td>
- <td class="Q">Path Length</td>
- <td class="sorttable_nosort"></td>
- <!-- REPORTBUGCOL -->
-</tr></thead>
-<tbody>
-ENDTEXT
-
- my $prefix = GetPrefix();
- my $regex;
- my $InFileRegex;
- my $InFilePrefix = "File:</td><td>";
-
- if (defined $prefix) {
- $regex = qr/^\Q$prefix\E/is;
- $InFileRegex = qr/\Q$InFilePrefix$prefix\E/is;
- }
-
- for my $row ( sort { $a->[2] cmp $b->[2] } @Index ) {
- my $x = "$row->[1]:$row->[2]";
- $x = lc $x;
- $x =~ s/[ ,'":\/()]+/_/g;
-
- my $ReportFile = $row->[0];
-
- print OUT "<tr class=\"bt_$x\">";
- print OUT "<td class=\"DESC\">";
- print OUT $row->[1];
- print OUT "</td>";
- print OUT "<td class=\"DESC\">";
- print OUT $row->[2];
- print OUT "</td>";
-
- # Update the file prefix.
- my $fname = $row->[3];
-
- if (defined $regex) {
- $fname =~ s/$regex//;
- UpdateInFilePath("$Dir/$ReportFile", $InFileRegex, $InFilePrefix)
- }
-
- print OUT "<td>";
- my @fname = split /\//,$fname;
- if ($#fname > 0) {
- while ($#fname >= 0) {
- my $x = shift @fname;
- print OUT $x;
- if ($#fname >= 0) {
- print OUT "/";
- }
- }
- }
- else {
- print OUT $fname;
- }
- print OUT "</td>";
-
- print OUT "<td class=\"DESC\">";
- print OUT $row->[4];
- print OUT "</td>";
-
- # Print out the quantities.
- for my $j ( 5 .. 6 ) {
- print OUT "<td class=\"Q\">$row->[$j]</td>";
- }
-
- # Print the rest of the columns.
- for (my $j = 7; $j <= $#{$row}; ++$j) {
- print OUT "<td>$row->[$j]</td>"
- }
-
- # Emit the "View" link.
- print OUT "<td><a href=\"$ReportFile#EndPath\">View Report</a></td>";
-
- # Emit REPORTBUG markers.
- print OUT "\n<!-- REPORTBUG id=\"$ReportFile\" -->\n";
-
- # End the row.
- print OUT "</tr>\n";
- }
-
- print OUT "</tbody>\n</table>\n\n";
- }
-
- if (scalar (@failures) || scalar(@attributes_ignored)) {
- print OUT "<h2>Analyzer Failures</h2>\n";
-
- if (scalar @attributes_ignored) {
- print OUT "The analyzer's parser ignored the following attributes:<p>\n";
- print OUT "<table>\n";
- print OUT "<thead><tr><td>Attribute</td><td>Source File</td><td>Preprocessed File</td><td>STDERR Output</td></tr></thead>\n";
- foreach my $file (sort @attributes_ignored) {
- die "cannot demangle attribute name\n" if (! ($file =~ /^attribute_ignored_(.+).txt/));
- my $attribute = $1;
- # Open the attribute file to get the first file that failed.
- next if (!open (ATTR, "$Dir/failures/$file"));
- my $ppfile = <ATTR>;
- chomp $ppfile;
- close ATTR;
- next if (! -e "$Dir/failures/$ppfile");
- # Open the info file and get the name of the source file.
- open (INFO, "$Dir/failures/$ppfile.info.txt") or
- die "Cannot open $Dir/failures/$ppfile.info.txt\n";
- my $srcfile = <INFO>;
- chomp $srcfile;
- close (INFO);
- # Print the information in the table.
- my $prefix = GetPrefix();
- if (defined $prefix) { $srcfile =~ s/^\Q$prefix//; }
- print OUT "<tr><td>$attribute</td><td>$srcfile</td><td><a href=\"failures/$ppfile\">$ppfile</a></td><td><a href=\"failures/$ppfile.stderr.txt\">$ppfile.stderr.txt</a></td></tr>\n";
- my $ppfile_clang = $ppfile;
- $ppfile_clang =~ s/[.](.+)$/.clang.$1/;
- print OUT " <!-- REPORTPROBLEM src=\"$srcfile\" file=\"failures/$ppfile\" clangfile=\"failures/$ppfile_clang\" stderr=\"failures/$ppfile.stderr.txt\" info=\"failures/$ppfile.info.txt\" -->\n";
- }
- print OUT "</table>\n";
- }
-
- if (scalar @failures) {
- print OUT "<p>The analyzer had problems processing the following files:</p>\n";
- print OUT "<table>\n";
- print OUT "<thead><tr><td>Problem</td><td>Source File</td><td>Preprocessed File</td><td>STDERR Output</td></tr></thead>\n";
- foreach my $file (sort @failures) {
- $file =~ /(.+).info.txt$/;
- # Get the preprocessed file.
- my $ppfile = $1;
- # Open the info file and get the name of the source file.
- open (INFO, "$Dir/failures/$file") or
- die "Cannot open $Dir/failures/$file\n";
- my $srcfile = <INFO>;
- chomp $srcfile;
- my $problem = <INFO>;
- chomp $problem;
- close (INFO);
- # Print the information in the table.
- my $prefix = GetPrefix();
- if (defined $prefix) { $srcfile =~ s/^\Q$prefix//; }
- print OUT "<tr><td>$problem</td><td>$srcfile</td><td><a href=\"failures/$ppfile\">$ppfile</a></td><td><a href=\"failures/$ppfile.stderr.txt\">$ppfile.stderr.txt</a></td></tr>\n";
- my $ppfile_clang = $ppfile;
- $ppfile_clang =~ s/[.](.+)$/.clang.$1/;
- print OUT " <!-- REPORTPROBLEM src=\"$srcfile\" file=\"failures/$ppfile\" clangfile=\"failures/$ppfile_clang\" stderr=\"failures/$ppfile.stderr.txt\" info=\"failures/$ppfile.info.txt\" -->\n";
- }
- print OUT "</table>\n";
- }
- print OUT "<p>Please consider submitting preprocessed files as <a href=\"http://clang-analyzer.llvm.org/filing_bugs.html\">bug reports</a>. <!-- REPORTCRASHES --> </p>\n";
- }
-
- print OUT "</body></html>\n";
- close(OUT);
- CopyFiles($Dir);
-
- # Make sure $Dir and $BaseDir are world readable/executable.
- chmod(0755, $Dir);
- if (defined $BaseDir) { chmod(0755, $BaseDir); }
-
- # Print statistics
- print CalcStats(\@Stats) if $AnalyzerStats;
-
- my $Num = scalar(@Index);
- if ($Num == 1) {
- Diag("$Num bug found.\n");
- } else {
- Diag("$Num bugs found.\n");
- }
- if ($Num > 0 && -r "$Dir/index.html") {
- Diag("Run 'scan-view $Dir' to examine bug reports.\n");
- }
-
- DiagCrashes($Dir) if (scalar @failures || scalar @attributes_ignored);
-
- return $Num;
-}
-
-##----------------------------------------------------------------------------##
-# RunBuildCommand - Run the build command.
-##----------------------------------------------------------------------------##
-
-sub AddIfNotPresent {
- my $Args = shift;
- my $Arg = shift;
- my $found = 0;
-
- foreach my $k (@$Args) {
- if ($k eq $Arg) {
- $found = 1;
- last;
- }
- }
-
- if ($found == 0) {
- push @$Args, $Arg;
- }
-}
-
-sub SetEnv {
- my $EnvVars = shift @_;
- foreach my $var ('CC', 'CXX', 'CLANG', 'CLANG_CXX',
- 'CCC_ANALYZER_ANALYSIS', 'CCC_ANALYZER_PLUGINS',
- 'CCC_ANALYZER_CONFIG') {
- die "$var is undefined\n" if (!defined $var);
- $ENV{$var} = $EnvVars->{$var};
- }
- foreach my $var ('CCC_ANALYZER_STORE_MODEL',
- 'CCC_ANALYZER_CONSTRAINTS_MODEL',
- 'CCC_ANALYZER_INTERNAL_STATS',
- 'CCC_ANALYZER_OUTPUT_FORMAT',
- 'CCC_CC',
- 'CCC_CXX',
- 'CCC_REPORT_FAILURES',
- 'CLANG_ANALYZER_TARGET') {
- my $x = $EnvVars->{$var};
- if (defined $x) { $ENV{$var} = $x }
- }
- my $Verbose = $EnvVars->{'VERBOSE'};
- if ($Verbose >= 2) {
- $ENV{'CCC_ANALYZER_VERBOSE'} = 1;
- }
- if ($Verbose >= 3) {
- $ENV{'CCC_ANALYZER_LOG'} = 1;
- }
-}
-
-sub RunXcodebuild {
- my $Args = shift;
- my $IgnoreErrors = shift;
- my $CCAnalyzer = shift;
- my $CXXAnalyzer = shift;
- my $EnvVars = shift;
-
- if ($IgnoreErrors) {
- AddIfNotPresent($Args,"-PBXBuildsContinueAfterErrors=YES");
- }
-
- # Detect the version of Xcode. If Xcode 4.6 or higher, use new
- # in situ support for analyzer interposition without needed to override
- # the compiler.
- open(DETECT_XCODE, "-|", $Args->[0], "-version") or
- die "error: cannot detect version of xcodebuild\n";
-
- my $oldBehavior = 1;
-
- while(<DETECT_XCODE>) {
- if (/^Xcode (.+)$/) {
- my $ver = $1;
- if ($ver =~ /^([0-9]+[.][0-9]+)[^0-9]?/) {
- if ($1 >= 4.6) {
- $oldBehavior = 0;
- last;
- }
- }
- }
- }
- close(DETECT_XCODE);
-
- # If --override-compiler is explicitely requested, resort to the old
- # behavior regardless of Xcode version.
- if ($Options{OverrideCompiler}) {
- $oldBehavior = 1;
- }
-
- if ($oldBehavior == 0) {
- my $OutputDir = $EnvVars->{"OUTPUT_DIR"};
- my $CLANG = $EnvVars->{"CLANG"};
- my $OtherFlags = $EnvVars->{"CCC_ANALYZER_ANALYSIS"};
- push @$Args,
- "RUN_CLANG_STATIC_ANALYZER=YES",
- "CLANG_ANALYZER_OUTPUT=plist-html",
- "CLANG_ANALYZER_EXEC=$CLANG",
- "CLANG_ANALYZER_OUTPUT_DIR=$OutputDir",
- "CLANG_ANALYZER_OTHER_FLAGS=$OtherFlags";
-
- return (system(@$Args) >> 8);
- }
-
- # Default to old behavior where we insert a bogus compiler.
- SetEnv($EnvVars);
-
- # Check if using iPhone SDK 3.0 (simulator). If so the compiler being
- # used should be gcc-4.2.
- if (!defined $ENV{"CCC_CC"}) {
- for (my $i = 0 ; $i < scalar(@$Args); ++$i) {
- if ($Args->[$i] eq "-sdk" && $i + 1 < scalar(@$Args)) {
- if (@$Args[$i+1] =~ /^iphonesimulator3/) {
- $ENV{"CCC_CC"} = "gcc-4.2";
- $ENV{"CCC_CXX"} = "g++-4.2";
- }
- }
- }
- }
-
- # Disable PCH files until clang supports them.
- AddIfNotPresent($Args,"GCC_PRECOMPILE_PREFIX_HEADER=NO");
-
- # When 'CC' is set, xcodebuild uses it to do all linking, even if we are
- # linking C++ object files. Set 'LDPLUSPLUS' so that xcodebuild uses 'g++'
- # (via c++-analyzer) when linking such files.
- $ENV{"LDPLUSPLUS"} = $CXXAnalyzer;
-
- return (system(@$Args) >> 8);
-}
-
-sub RunBuildCommand {
- my $Args = shift;
- my $IgnoreErrors = shift;
- my $Cmd = $Args->[0];
- my $CCAnalyzer = shift;
- my $CXXAnalyzer = shift;
- my $EnvVars = shift;
-
- if ($Cmd =~ /\bxcodebuild$/) {
- return RunXcodebuild($Args, $IgnoreErrors, $CCAnalyzer, $CXXAnalyzer, $EnvVars);
- }
-
- # Setup the environment.
- SetEnv($EnvVars);
-
- if ($Cmd =~ /(.*\/?gcc[^\/]*$)/ or
- $Cmd =~ /(.*\/?cc[^\/]*$)/ or
- $Cmd =~ /(.*\/?llvm-gcc[^\/]*$)/ or
- $Cmd =~ /(.*\/?clang$)/ or
- $Cmd =~ /(.*\/?ccc-analyzer[^\/]*$)/) {
-
- if (!($Cmd =~ /ccc-analyzer/) and !defined $ENV{"CCC_CC"}) {
- $ENV{"CCC_CC"} = $1;
- }
-
- shift @$Args;
- unshift @$Args, $CCAnalyzer;
- }
- elsif ($Cmd =~ /(.*\/?g\+\+[^\/]*$)/ or
- $Cmd =~ /(.*\/?c\+\+[^\/]*$)/ or
- $Cmd =~ /(.*\/?llvm-g\+\+[^\/]*$)/ or
- $Cmd =~ /(.*\/?clang\+\+$)/ or
- $Cmd =~ /(.*\/?c\+\+-analyzer[^\/]*$)/) {
- if (!($Cmd =~ /c\+\+-analyzer/) and !defined $ENV{"CCC_CXX"}) {
- $ENV{"CCC_CXX"} = $1;
- }
- shift @$Args;
- unshift @$Args, $CXXAnalyzer;
- }
- elsif ($Cmd eq "make" or $Cmd eq "gmake" or $Cmd eq "mingw32-make") {
- AddIfNotPresent($Args, "CC=$CCAnalyzer");
- AddIfNotPresent($Args, "CXX=$CXXAnalyzer");
- if ($IgnoreErrors) {
- AddIfNotPresent($Args,"-k");
- AddIfNotPresent($Args,"-i");
- }
- }
-
- return (system(@$Args) >> 8);
-}
-
-##----------------------------------------------------------------------------##
-# DisplayHelp - Utility function to display all help options.
-##----------------------------------------------------------------------------##
-
-sub DisplayHelp {
-
- my $ArgClangNotFoundErrMsg = shift;
-print <<ENDTEXT;
-USAGE: $Prog [options] <build command> [build options]
-
-ENDTEXT
-
- if (defined $BuildName) {
- print "ANALYZER BUILD: $BuildName ($BuildDate)\n\n";
- }
-
-print <<ENDTEXT;
-OPTIONS:
-
- -analyze-headers
-
- Also analyze functions in #included files. By default, such functions
- are skipped unless they are called by functions within the main source file.
-
- -o <output location>
-
- Specifies the output directory for analyzer reports. Subdirectories will be
- created as needed to represent separate "runs" of the analyzer. If this
- option is not specified, a directory is created in /tmp (TMPDIR on Mac OS X)
- to store the reports.
-
- -h
- --help
-
- Display this message.
-
- -k
- --keep-going
-
- Add a "keep on going" option to the specified build command. This option
- currently supports make and xcodebuild. This is a convenience option; one
- can specify this behavior directly using build options.
-
- --html-title [title]
- --html-title=[title]
-
- Specify the title used on generated HTML pages. If not specified, a default
- title will be used.
-
- -plist
-
- By default the output of scan-build is a set of HTML files. This option
- outputs the results as a set of .plist files.
-
- -plist-html
-
- By default the output of scan-build is a set of HTML files. This option
- outputs the results as a set of HTML and .plist files.
-
- --status-bugs
-
- By default, the exit status of scan-build is the same as the executed build
- command. Specifying this option causes the exit status of scan-build to be 1
- if it found potential bugs and 0 otherwise.
-
- --use-cc [compiler path]
- --use-cc=[compiler path]
-
- scan-build analyzes a project by interposing a "fake compiler", which
- executes a real compiler for compilation and the static analyzer for analysis.
- Because of the current implementation of interposition, scan-build does not
- know what compiler your project normally uses. Instead, it simply overrides
- the CC environment variable, and guesses your default compiler.
-
- In the future, this interposition mechanism to be improved, but if you need
- scan-build to use a specific compiler for *compilation* then you can use
- this option to specify a path to that compiler.
-
- If the given compiler is a cross compiler, you may also need to provide
- --analyzer-target option to properly analyze the source code because static
- analyzer runs as if the code is compiled for the host machine by default.
-
- --use-c++ [compiler path]
- --use-c++=[compiler path]
-
- This is the same as "--use-cc" but for C++ code.
-
- --analyzer-target [target triple name for analysis]
- --analyzer-target=[target triple name for analysis]
-
- This provides target triple information to clang static analyzer.
- It only changes the target for analysis but doesn't change the target of a
- real compiler given by --use-cc and --use-c++ options.
-
- -v
-
- Enable verbose output from scan-build. A second and third '-v' increases
- verbosity.
-
- -V
- --view
-
- View analysis results in a web browser when the build completes.
-
-ADVANCED OPTIONS:
-
- -no-failure-reports
-
- Do not create a 'failures' subdirectory that includes analyzer crash reports
- and preprocessed source files.
-
- -stats
-
- Generates visitation statistics for the project being analyzed.
-
- -maxloop <loop count>
-
- Specifiy the number of times a block can be visited before giving up.
- Default is 4. Increase for more comprehensive coverage at a cost of speed.
-
- -internal-stats
-
- Generate internal analyzer statistics.
-
- --use-analyzer [Xcode|path to clang]
- --use-analyzer=[Xcode|path to clang]
-
- scan-build uses the 'clang' executable relative to itself for static
- analysis. One can override this behavior with this option by using the
- 'clang' packaged with Xcode (on OS X) or from the PATH.
-
- --keep-empty
-
- Don't remove the build results directory even if no issues were reported.
-
- --override-compiler
- Always resort to the ccc-analyzer even when better interposition methods
- are available.
-
- -analyzer-config <options>
-
- Provide options to pass through to the analyzer's -analyzer-config flag.
- Several options are separated with comma: 'key1=val1,key2=val2'
-
- Available options:
- * stable-report-filename=true or false (default)
- Switch the page naming to:
- report-<filename>-<function/method name>-<id>.html
- instead of report-XXXXXX.html
-
-CONTROLLING CHECKERS:
-
- A default group of checkers are always run unless explicitly disabled.
- Checkers may be enabled/disabled using the following options:
-
- -enable-checker [checker name]
- -disable-checker [checker name]
-
-LOADING CHECKERS:
-
- Loading external checkers using the clang plugin interface:
-
- -load-plugin [plugin library]
-ENDTEXT
-
- if (defined $Clang && -x $Clang) {
- # Query clang for list of checkers that are enabled.
-
- # create a list to load the plugins via the 'Xclang' command line
- # argument
- my @PluginLoadCommandline_xclang;
- foreach my $param ( @{$Options{PluginsToLoad}} ) {
- push ( @PluginLoadCommandline_xclang, "-Xclang" );
- push ( @PluginLoadCommandline_xclang, "-load" );
- push ( @PluginLoadCommandline_xclang, "-Xclang" );
- push ( @PluginLoadCommandline_xclang, $param );
- }
-
- my %EnabledCheckers;
- foreach my $lang ("c", "objective-c", "objective-c++", "c++") {
- my $ExecLine = join(' ', qq/"$Clang"/, @PluginLoadCommandline_xclang, "--analyze", "-x", $lang, "-", "-###", "2>&1", "|");
- open(PS, $ExecLine);
- while (<PS>) {
- foreach my $val (split /\s+/) {
- $val =~ s/\"//g;
- if ($val =~ /-analyzer-checker\=([^\s]+)/) {
- $EnabledCheckers{$1} = 1;
- }
- }
- }
- }
-
- # Query clang for complete list of checkers.
- my @PluginLoadCommandline;
- foreach my $param ( @{$Options{PluginsToLoad}} ) {
- push ( @PluginLoadCommandline, "-load" );
- push ( @PluginLoadCommandline, $param );
- }
-
- my $ExecLine = join(' ', qq/"$Clang"/, "-cc1", @PluginLoadCommandline, "-analyzer-checker-help", "2>&1", "|");
- open(PS, $ExecLine);
- my $foundCheckers = 0;
- while (<PS>) {
- if (/CHECKERS:/) {
- $foundCheckers = 1;
- last;
- }
- }
- if (!$foundCheckers) {
- print " *** Could not query Clang for the list of available checkers.";
- }
- else {
- print("\nAVAILABLE CHECKERS:\n\n");
- my $skip = 0;
- while(<PS>) {
- if (/experimental/) {
- $skip = 1;
- next;
- }
- if ($skip) {
- next if (!/^\s\s[^\s]/);
- $skip = 0;
- }
- s/^\s\s//;
- if (/^([^\s]+)/) {
- # Is the checker enabled?
- my $checker = $1;
- my $enabled = 0;
- my $aggregate = "";
- foreach my $domain (split /\./, $checker) {
- $aggregate .= $domain;
- if ($EnabledCheckers{$aggregate}) {
- $enabled =1;
- last;
- }
- # append a dot, if an additional domain is added in the next iteration
- $aggregate .= ".";
- }
-
- if ($enabled) {
- print " + ";
- }
- else {
- print " ";
- }
- }
- else {
- print " ";
- }
- print $_;
- }
- print "\nNOTE: \"+\" indicates that an analysis is enabled by default.\n";
- }
- close PS;
- }
- else {
- print " *** Could not query Clang for the list of available checkers.\n";
- if (defined $ArgClangNotFoundErrMsg) {
- print " *** Reason: $ArgClangNotFoundErrMsg\n";
- }
- }
-
-print <<ENDTEXT
-
-BUILD OPTIONS
-
- You can specify any build option acceptable to the build command.
-
-EXAMPLE
-
- scan-build -o /tmp/myhtmldir make -j4
-
-The above example causes analysis reports to be deposited into a subdirectory
-of "/tmp/myhtmldir" and to run "make" with the "-j4" option. A different
-subdirectory is created each time scan-build analyzes a project. The analyzer
-should support most parallel builds, but not distributed builds.
-
-ENDTEXT
-}
-
-##----------------------------------------------------------------------------##
-# HtmlEscape - HTML entity encode characters that are special in HTML
-##----------------------------------------------------------------------------##
-
-sub HtmlEscape {
- # copy argument to new variable so we don't clobber the original
- my $arg = shift || '';
- my $tmp = $arg;
- $tmp =~ s/&/&/g;
- $tmp =~ s/</</g;
- $tmp =~ s/>/>/g;
- return $tmp;
-}
-
-##----------------------------------------------------------------------------##
-# ShellEscape - backslash escape characters that are special to the shell
-##----------------------------------------------------------------------------##
-
-sub ShellEscape {
- # copy argument to new variable so we don't clobber the original
- my $arg = shift || '';
- if ($arg =~ /["\s]/) { return "'" . $arg . "'"; }
- return $arg;
-}
-
-##----------------------------------------------------------------------------##
-# FindClang - searches for 'clang' executable.
-##----------------------------------------------------------------------------##
-
-sub FindClang {
- if (!defined $Options{AnalyzerDiscoveryMethod}) {
- $Clang = Cwd::realpath("$RealBin/bin/clang") if (-f "$RealBin/bin/clang");
- if (!defined $Clang || ! -x $Clang) {
- $Clang = Cwd::realpath("$RealBin/clang") if (-f "$RealBin/clang");
- }
- if (!defined $Clang || ! -x $Clang) {
- return "error: Cannot find an executable 'clang' relative to" .
- " scan-build. Consider using --use-analyzer to pick a version of" .
- " 'clang' to use for static analysis.\n";
- }
- }
- else {
- if ($Options{AnalyzerDiscoveryMethod} =~ /^[Xx]code$/) {
- my $xcrun = `which xcrun`;
- chomp $xcrun;
- if ($xcrun eq "") {
- return "Cannot find 'xcrun' to find 'clang' for analysis.\n";
- }
- $Clang = `$xcrun -toolchain XcodeDefault -find clang`;
- chomp $Clang;
- if ($Clang eq "") {
- return "No 'clang' executable found by 'xcrun'\n";
- }
- }
- else {
- $Clang = $Options{AnalyzerDiscoveryMethod};
- if (!defined $Clang or not -x $Clang) {
- return "Cannot find an executable clang at '$Options{AnalyzerDiscoveryMethod}'\n";
- }
- }
- }
- return undef;
-}
-
-##----------------------------------------------------------------------------##
-# Process command-line arguments.
-##----------------------------------------------------------------------------##
-
-my $RequestDisplayHelp = 0;
-my $ForceDisplayHelp = 0;
-
-sub ProcessArgs {
- my $Args = shift;
- my $NumArgs = 0;
-
- while (@$Args) {
-
- $NumArgs++;
-
- # Scan for options we recognize.
-
- my $arg = $Args->[0];
-
- if ($arg eq "-h" or $arg eq "--help") {
- $RequestDisplayHelp = 1;
- shift @$Args;
- next;
- }
-
- if ($arg eq '-analyze-headers') {
- shift @$Args;
- $Options{AnalyzeHeaders} = 1;
- next;
- }
-
- if ($arg eq "-o") {
- shift @$Args;
-
- if (!@$Args) {
- DieDiag("'-o' option requires a target directory name.\n");
- }
-
- # Construct an absolute path. Uses the current working directory
- # as a base if the original path was not absolute.
- my $OutDir = shift @$Args;
- mkpath($OutDir) unless (-e $OutDir); # abs_path wants existing dir
- $Options{OutputDir} = abs_path($OutDir);
-
- next;
- }
-
- if ($arg =~ /^--html-title(=(.+))?$/) {
- shift @$Args;
-
- if (!defined $2 || $2 eq '') {
- if (!@$Args) {
- DieDiag("'--html-title' option requires a string.\n");
- }
-
- $Options{HtmlTitle} = shift @$Args;
- } else {
- $Options{HtmlTitle} = $2;
- }
-
- next;
- }
-
- if ($arg eq "-k" or $arg eq "--keep-going") {
- shift @$Args;
- $Options{IgnoreErrors} = 1;
- next;
- }
-
- if ($arg =~ /^--use-cc(=(.+))?$/) {
- shift @$Args;
- my $cc;
-
- if (!defined $2 || $2 eq "") {
- if (!@$Args) {
- DieDiag("'--use-cc' option requires a compiler executable name.\n");
- }
- $cc = shift @$Args;
- }
- else {
- $cc = $2;
- }
-
- $Options{UseCC} = $cc;
- next;
- }
-
- if ($arg =~ /^--use-c\+\+(=(.+))?$/) {
- shift @$Args;
- my $cxx;
-
- if (!defined $2 || $2 eq "") {
- if (!@$Args) {
- DieDiag("'--use-c++' option requires a compiler executable name.\n");
- }
- $cxx = shift @$Args;
- }
- else {
- $cxx = $2;
- }
-
- $Options{UseCXX} = $cxx;
- next;
- }
-
- if ($arg =~ /^--analyzer-target(=(.+))?$/) {
- shift @ARGV;
- my $AnalyzerTarget;
-
- if (!defined $2 || $2 eq "") {
- if (!@ARGV) {
- DieDiag("'--analyzer-target' option requires a target triple name.\n");
- }
- $AnalyzerTarget = shift @ARGV;
- }
- else {
- $AnalyzerTarget = $2;
- }
-
- $Options{AnalyzerTarget} = $AnalyzerTarget;
- next;
- }
-
- if ($arg eq "-v") {
- shift @$Args;
- $Options{Verbose}++;
- next;
- }
-
- if ($arg eq "-V" or $arg eq "--view") {
- shift @$Args;
- $Options{ViewResults} = 1;
- next;
- }
-
- if ($arg eq "--status-bugs") {
- shift @$Args;
- $Options{ExitStatusFoundBugs} = 1;
- next;
- }
-
- if ($arg eq "-store") {
- shift @$Args;
- $Options{StoreModel} = shift @$Args;
- next;
- }
-
- if ($arg eq "-constraints") {
- shift @$Args;
- $Options{ConstraintsModel} = shift @$Args;
- next;
- }
-
- if ($arg eq "-internal-stats") {
- shift @$Args;
- $Options{InternalStats} = 1;
- next;
- }
-
- if ($arg eq "-plist") {
- shift @$Args;
- $Options{OutputFormat} = "plist";
- next;
- }
-
- if ($arg eq "-plist-html") {
- shift @$Args;
- $Options{OutputFormat} = "plist-html";
- next;
- }
-
- if ($arg eq "-analyzer-config") {
- shift @$Args;
- push @{$Options{ConfigOptions}}, shift @$Args;
- next;
- }
-
- if ($arg eq "-no-failure-reports") {
- shift @$Args;
- $Options{ReportFailures} = 0;
- next;
- }
-
- if ($arg eq "-stats") {
- shift @$Args;
- $Options{AnalyzerStats} = 1;
- next;
- }
-
- if ($arg eq "-maxloop") {
- shift @$Args;
- $Options{MaxLoop} = shift @$Args;
- next;
- }
-
- if ($arg eq "-enable-checker") {
- shift @$Args;
- my $Checker = shift @$Args;
- # Store $NumArgs to preserve the order the checkers were enabled.
- $Options{EnableCheckers}{$Checker} = $NumArgs;
- delete $Options{DisableCheckers}{$Checker};
- next;
- }
-
- if ($arg eq "-disable-checker") {
- shift @$Args;
- my $Checker = shift @$Args;
- # Store $NumArgs to preserve the order the checkers were disabled.
- $Options{DisableCheckers}{$Checker} = $NumArgs;
- delete $Options{EnableCheckers}{$Checker};
- next;
- }
-
- if ($arg eq "-load-plugin") {
- shift @$Args;
- push @{$Options{PluginsToLoad}}, shift @$Args;
- next;
- }
-
- if ($arg eq "--use-analyzer") {
- shift @$Args;
- $Options{AnalyzerDiscoveryMethod} = shift @$Args;
- next;
- }
-
- if ($arg =~ /^--use-analyzer=(.+)$/) {
- shift @$Args;
- $Options{AnalyzerDiscoveryMethod} = $1;
- next;
- }
-
- if ($arg eq "--keep-empty") {
- shift @$Args;
- $Options{KeepEmpty} = 1;
- next;
- }
-
- if ($arg eq "--override-compiler") {
- shift @$Args;
- $Options{OverrideCompiler} = 1;
- next;
- }
-
- DieDiag("unrecognized option '$arg'\n") if ($arg =~ /^-/);
-
- $NumArgs--;
- last;
- }
- return $NumArgs;
-}
-
-if (!@ARGV) {
- $ForceDisplayHelp = 1
-}
-
-ProcessArgs(\@ARGV);
-# All arguments are now shifted from @ARGV. The rest is a build command, if any.
-
-if (!@ARGV and !$RequestDisplayHelp) {
- ErrorDiag("No build command specified.\n\n");
- $ForceDisplayHelp = 1;
-}
-
-my $ClangNotFoundErrMsg = FindClang();
-
-if ($ForceDisplayHelp || $RequestDisplayHelp) {
- DisplayHelp($ClangNotFoundErrMsg);
- exit $ForceDisplayHelp;
-}
-
-DieDiag($ClangNotFoundErrMsg) if (defined $ClangNotFoundErrMsg);
-
-$ClangCXX = $Clang;
-if ($Clang !~ /\+\+(\.exe)?$/) {
- # If $Clang holds the name of the clang++ executable then we leave
- # $ClangCXX and $Clang equal, otherwise construct the name of the clang++
- # executable from the clang executable name.
-
- # Determine operating system under which this copy of Perl was built.
- my $IsWinBuild = ($^O =~/msys|cygwin|MSWin32/);
- if($IsWinBuild) {
- $ClangCXX =~ s/.exe$/++.exe/;
- }
- else {
- $ClangCXX =~ s/\-\d+\.\d+$//;
- $ClangCXX .= "++";
- }
-}
-
-# Make sure to use "" to handle paths with spaces.
-$ClangVersion = HtmlEscape(`"$Clang" --version`);
-
-# Determine where results go.
-$CmdArgs = HtmlEscape(join(' ', map(ShellEscape($_), @ARGV)));
-
-# Determine the output directory for the HTML reports.
-my $BaseDir = $Options{OutputDir};
-$Options{OutputDir} = GetHTMLRunDir($Options{OutputDir});
-
-# Determine the location of ccc-analyzer.
-my $AbsRealBin = Cwd::realpath($RealBin);
-my $Cmd = "$AbsRealBin/../libexec/ccc-analyzer";
-my $CmdCXX = "$AbsRealBin/../libexec/c++-analyzer";
-
-# Portability: use less strict but portable check -e (file exists) instead of
-# non-portable -x (file is executable). On some windows ports -x just checks
-# file extension to determine if a file is executable (see Perl language
-# reference, perlport)
-if (!defined $Cmd || ! -e $Cmd) {
- $Cmd = "$AbsRealBin/ccc-analyzer";
- DieDiag("'ccc-analyzer' does not exist at '$Cmd'\n") if(! -e $Cmd);
-}
-if (!defined $CmdCXX || ! -e $CmdCXX) {
- $CmdCXX = "$AbsRealBin/c++-analyzer";
- DieDiag("'c++-analyzer' does not exist at '$CmdCXX'\n") if(! -e $CmdCXX);
-}
-
-Diag("Using '$Clang' for static analysis\n");
-
-SetHtmlEnv(\@ARGV, $Options{OutputDir});
-
-my @AnalysesToRun;
-foreach (sort { $Options{EnableCheckers}{$a} <=> $Options{EnableCheckers}{$b} }
- keys %{$Options{EnableCheckers}}) {
- # Push checkers in order they were enabled.
- push @AnalysesToRun, "-analyzer-checker", $_;
-}
-foreach (sort { $Options{DisableCheckers}{$a} <=> $Options{DisableCheckers}{$b} }
- keys %{$Options{DisableCheckers}}) {
- # Push checkers in order they were disabled.
- push @AnalysesToRun, "-analyzer-disable-checker", $_;
-}
-if ($Options{AnalyzeHeaders}) { push @AnalysesToRun, "-analyzer-opt-analyze-headers"; }
-if ($Options{AnalyzerStats}) { push @AnalysesToRun, '-analyzer-checker=debug.Stats'; }
-if ($Options{MaxLoop} > 0) { push @AnalysesToRun, "-analyzer-max-loop $Options{MaxLoop}"; }
-
-# Delay setting up other environment variables in case we can do true
-# interposition.
-my $CCC_ANALYZER_ANALYSIS = join ' ', @AnalysesToRun;
-my $CCC_ANALYZER_PLUGINS = join ' ', map { "-load ".$_ } @{$Options{PluginsToLoad}};
-my $CCC_ANALYZER_CONFIG = join ' ', map { "-analyzer-config ".$_ } @{$Options{ConfigOptions}};
-my %EnvVars = (
- 'CC' => $Cmd,
- 'CXX' => $CmdCXX,
- 'CLANG' => $Clang,
- 'CLANG_CXX' => $ClangCXX,
- 'VERBOSE' => $Options{Verbose},
- 'CCC_ANALYZER_ANALYSIS' => $CCC_ANALYZER_ANALYSIS,
- 'CCC_ANALYZER_PLUGINS' => $CCC_ANALYZER_PLUGINS,
- 'CCC_ANALYZER_CONFIG' => $CCC_ANALYZER_CONFIG,
- 'OUTPUT_DIR' => $Options{OutputDir},
- 'CCC_CC' => $Options{UseCC},
- 'CCC_CXX' => $Options{UseCXX},
- 'CCC_REPORT_FAILURES' => $Options{ReportFailures},
- 'CCC_ANALYZER_STORE_MODEL' => $Options{StoreModel},
- 'CCC_ANALYZER_CONSTRAINTS_MODEL' => $Options{ConstraintsModel},
- 'CCC_ANALYZER_INTERNAL_STATS' => $Options{InternalStats},
- 'CCC_ANALYZER_OUTPUT_FORMAT' => $Options{OutputFormat},
- 'CLANG_ANALYZER_TARGET' => $Options{AnalyzerTarget}
-);
-
-# Run the build.
-my $ExitStatus = RunBuildCommand(\@ARGV, $Options{IgnoreErrors}, $Cmd, $CmdCXX,
- \%EnvVars);
-
-if (defined $Options{OutputFormat}) {
- if ($Options{OutputFormat} =~ /plist/) {
- Diag "Analysis run complete.\n";
- Diag "Analysis results (plist files) deposited in '$Options{OutputDir}'\n";
- }
- if ($Options{OutputFormat} =~ /html/) {
- # Postprocess the HTML directory.
- my $NumBugs = Postprocess($Options{OutputDir}, $BaseDir,
- $Options{AnalyzerStats}, $Options{KeepEmpty});
-
- if ($Options{ViewResults} and -r "$Options{OutputDir}/index.html") {
- Diag "Analysis run complete.\n";
- Diag "Viewing analysis results in '$Options{OutputDir}' using scan-view.\n";
- my $ScanView = Cwd::realpath("$RealBin/scan-view");
- if (! -x $ScanView) { $ScanView = "scan-view"; }
- exec $ScanView, "$Options{OutputDir}";
- }
-
- if ($Options{ExitStatusFoundBugs}) {
- exit 1 if ($NumBugs > 0);
- exit 0;
- }
- }
-}
-
-exit $ExitStatus;
Removed: cfe/trunk/tools/scan-build/scan-build.1
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/scan-build.1?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/scan-build.1 (original)
+++ cfe/trunk/tools/scan-build/scan-build.1 (removed)
@@ -1,349 +0,0 @@
-.\" This file is distributed under the University of Illinois Open Source
-.\" License. See LICENSE.TXT for details.
-.\" $Id$
-.Dd May 25, 2012
-.Dt SCAN-BUILD 1
-.Os "clang" "3.5"
-.Sh NAME
-.Nm scan-build
-.Nd Clang static analyzer
-.Sh SYNOPSIS
-.Nm
-.Op Fl ohkvV
-.Op Fl analyze-headers
-.Op Fl enable-checker Op Ar checker_name
-.Op Fl disable-checker Op Ar checker_name
-.Op Fl Fl help
-.Op Fl Fl help-checkers
-.Op Fl Fl html-title Op Ar =title
-.Op Fl Fl keep-going
-.Op Fl plist
-.Op Fl plist-html
-.Op Fl Fl status-bugs
-.Op Fl Fl use-c++ Op Ar =compiler_path
-.Op Fl Fl use-cc Op Ar =compiler_path
-.Op Fl Fl view
-.Op Fl constraints Op Ar model
-.Op Fl maxloop Ar N
-.Op Fl no-failure-reports
-.Op Fl stats
-.Op Fl store Op Ar model
-.Ar build_command
-.Op build_options
-.\"
-.\" Sh DESCRIPTION
-.Sh DESCRIPTION
-.Nm
-is a Perl script that invokes the Clang static analyzer. Options used by
-.Nm
-or by the analyzer appear first, followed by the
-.Ar build_command
-and any
-.Ar build_options
-normally used to build the target system.
-.Pp
-The static analyzer employs a long list of checking algorithms, see
-.Sx CHECKERS .
-Output can be written in standard
-.Li .plist
-and/or HTML format.
-.Pp
-The following options are supported:
-.Bl -tag -width indent
-.It Fl analyze-headers
-Also analyze functions in #included files.
-.It Fl enable-checker Ar checker_name , Fl disable-checker Ar checker_name
-Enable/disable
-.Ar checker_name .
-See
-.Sx CHECKERS .
-.It Fl h , Fl Fl help
-Display this message.
-.It Fl Fl help-checkers
-List default checkers, see
-.Sx CHECKERS .
-.It Fl Fl html-title Ns Op = Ns Ar title
-Specify the title used on generated HTML pages.
-A default title is generated if
-.Ar title
-is not specified.
-.It Fl k , Fl Fl keep-going
-Add a
-.Dq keep on going
-option to
-.Ar build_command .
-Currently supports make and xcodebuild. This is a convenience option;
-one can specify this behavior directly using build options.
-.It Fl o
-Target directory for HTML report files. Subdirectories will be
-created as needed to represent separate invocations
-of the analyzer. If this option is not specified, a directory is
-created in /tmp (TMPDIR on Mac OS X) to store the reports.
-.It Fl plist
-Output the results as a set of
-.Li .plist
-files. (By default the output of
-.Nm
-is a set of HTML files.)
-.It Fl plist-html
-Output the results as a set of HTML and .plist files
-.It Fl Fl status-bugs
-Set exit status to 1 if it found potential bugs and 0 otherwise. By
-default the exit status of
-.Nm
-is that returned by
-.Ar build_command .
-.It Fl Fl use-c++ Ns Op = Ns Ar compiler_path
-Guess the default compiler for your C++ and Objective-C++ code. Use this
-option to specify an alternate compiler.
-.It Fl Fl use-cc Ns Op = Ns Ar compiler_path
-Guess the default compiler for your C and Objective-C code. Use this
-option to specify an alternate compiler.
-.It Fl v
-Verbose output from
-.Nm
-and the analyzer. A second and
-third
-.Ar v
-increases verbosity.
-.It Fl V , Fl Fl view
-View analysis results in a web browser when the build completes.
-.It Fl constraints Op Ar model
-Specify the contraint engine used by the analyzer. By default the
-.Ql range
-model is used. Specifying
-.Ql basic
-uses a simpler, less powerful constraint model used by checker-0.160
-and earlier.
-.It Fl maxloop Ar N
-Specifiy the number of times a block can be visited before giving
-up. Default is 4. Increase for more comprehensive coverage at a
-cost of speed.
-.It Fl no-failure-reports
-Do not create a
-.Ql failures
-subdirectory that includes analyzer crash reports and preprocessed
-source files.
-.It Fl stats
-Generates visitation statistics for the project being analyzed.
-.It Fl store Op Ar model
-Specify the store model used by the analyzer. By default, the
-.Ql region
-store model is used.
-.Ql region
-specifies a field-
-sensitive store model. Users can also specify
-.Ql basic
-which is far less precise but can more quickly analyze code.
-.Ql basic
-was the default store model for checker-0.221 and earlier.
-.\"
-.El
-.Sh EXIT STATUS
-.Nm
-returns the value returned by
-.Ar build_command
-unless
-.Fl Fl status-bugs
-or
-.Fl Fl keep-going
-is used.
-.\"
-.\" Other sections not yet used ...
-.\" .Sh ENVIRONMENT
-.\" .Sh FILES
-.\" .Sh DIAGNOSTICS
-.\" .Sh COMPATIBILITY
-.\" .Sh HISTORY
-.\" .Sh BUGS
-.\"
-.Sh CHECKERS
-The checkers listed below may be enabled/disabled using the
-.Fl enable-checker
-and
-.Fl disable-checker
-options.
-A default group of checkers is run unless explicitly disabled.
-Exactly which checkers constitute the default group is a function
-of the operating system in use; they are listed with
-.Fl Fl help-checkers .
-.Bl -tag -width indent.
-.It core.AdjustedReturnValue
-Check to see if the return value of a function call is different than
-the caller expects (e.g., from calls through function pointers).
-.It core.AttributeNonNull
-Check for null pointers passed as arguments to a function whose arguments are marked with the
-.Ql nonnull
-attribute.
-.It core.CallAndMessage
-Check for logical errors for function calls and Objective-C message expressions (e.g., uninitialized arguments, null function pointers).
-.It core.DivideZero
-Check for division by zero.
-.It core.NullDereference
-Check for dereferences of null pointers.
-.It core.StackAddressEscape
-Check that addresses to stack memory do not escape the function.
-.It core.UndefinedBinaryOperatorResult
-Check for undefined results of binary operators.
-.It core.VLASize
-Check for declarations of VLA of undefined or zero size.
-.It core.builtin.BuiltinFunctions
-Evaluate compiler builtin functions, e.g.
-.Fn alloca .
-.It core.builtin.NoReturnFunctions
-Evaluate
-.Ql panic
-functions that are known to not return to the caller.
-.It core.uninitialized.ArraySubscript
-Check for uninitialized values used as array subscripts.
-.It core.uninitialized.Assign
-Check for assigning uninitialized values.
-.It core.uninitialized.Branch
-Check for uninitialized values used as branch conditions.
-.It core.uninitialized.CapturedBlockVariable
-Check for blocks that capture uninitialized values.
-.It core.uninitialized.UndefReturn
-Check for uninitialized values being returned to the caller.
-.It deadcode.DeadStores
-Check for values stored to variables that are never read afterwards.
-.It debug.DumpCFG
-Display Control-Flow Graphs.
-.It debug.DumpCallGraph
-Display Call Graph.
-.It debug.DumpDominators
-Print the dominance tree for a given Control-Flow Graph.
-.It debug.DumpLiveVars
-Print results of live variable analysis.
-.It debug.Stats
-Emit warnings with analyzer statistics.
-.It debug.TaintTest
-Mark tainted symbols as such.
-.It debug.ViewCFG
-View Control-Flow Graphs using
-.Ic GraphViz .
-.It debug.ViewCallGraph
-View Call Graph using
-.Ic GraphViz .
-.It llvm.Conventions
-Check code for LLVM codebase conventions.
-.It osx.API
-Check for proper uses of various Mac OS X APIs.
-.It osx.AtomicCAS
-Evaluate calls to
-.Vt OSAtomic
-functions.
-.It osx.SecKeychainAPI
-Check for proper uses of Secure Keychain APIs.
-.It osx.cocoa.AtSync
-Check for null pointers used as mutexes for @synchronized.
-.It osx.cocoa.ClassRelease
-Check for sending
-.Ql retain ,
-.Ql release,
-or
-.Ql autorelease
-directly to a Class.
-.It osx.cocoa.IncompatibleMethodTypes
-Warn about Objective-C method signatures with type incompatibilities.
-.It osx.cocoa.NSAutoreleasePool
-Warn for suboptimal uses of
-.Vt NSAutoreleasePool
-in Objective-C GC mode.
-.It osx.cocoa.NSError
-Check usage of NSError** parameters.
-.It osx.cocoa.NilArg
-Check for prohibited nil arguments to Objective-C method calls.
-.It osx.cocoa.RetainCount
-Check for leaks and improper reference count management.
-.It osx.cocoa.SelfInit
-Check that
-.Ql self
-is properly initialized inside an initializer method.
-.It osx.cocoa.UnusedIvars
-Warn about private ivars that are never used.
-.It osx.cocoa.VariadicMethodTypes
-Check for passing non-Objective-C types to variadic methods that expect only Objective-C types.
-.It osx.coreFoundation.CFError
-Check usage of CFErrorRef* parameters.
-.It osx.coreFoundation.CFNumber
-Check for proper uses of
-.Fn CFNumberCreate .
-.It osx.coreFoundation.CFRetainRelease
-Check for null arguments to
-.Fn CFRetain ,
-.Fn CFRelease ,
-and
-.Fn CFMakeCollectable .
-.It osx.coreFoundation.containers.OutOfBounds
-Checks for index out-of-bounds when using the
-.Vt CFArray
-API.
-.It osx.coreFoundation.containers.PointerSizedValues
-Warns if
-.Vt CFArray ,
-.Vt CFDictionary ,
-or
-.Vt CFSet
-are created with non-pointer-size values.
-.It security.FloatLoopCounter
-Warn on using a floating point value as a loop counter (CERT: FLP30-C, FLP30-CPP).
-.It security.insecureAPI.UncheckedReturn
-Warn on uses of functions whose return values must be always checked.
-.It security.insecureAPI.getpw
-Warn on uses of
-.Fn getpw .
-.It security.insecureAPI.gets
-Warn on uses of
-.Fn gets .
-.It security.insecureAPI.mkstemp
-Warn when
-.Fn mkstemp
-is passed fewer than 6 X's in the format string.
-.It security.insecureAPI.mktemp
-Warn on uses of
-.Fn mktemp .
-.It security.insecureAPI.rand
-Warn on uses of
-.Fn rand ,
-.Fn random ,
-and related functions.
-.It security.insecureAPI.strcpy
-Warn on uses of
-.Fn strcpy
-and
-.Fn strcat .
-.It security.insecureAPI.vfork
-Warn on uses of
-.Fn vfork .
-.It unix.API
-Check calls to various UNIX/Posix functions.
-.It unix.Malloc
-Check for memory leaks, double free, and use-after-free.
-.It unix.cstring.BadSizeArg
-Check the size argument passed into C string functions for common
-erroneous patterns.
-.It unix.cstring.NullArg
-Check for null pointers being passed as arguments to C string functions.
-.El
-.\"
-.Sh EXAMPLE
-.Ic scan-build -o /tmp/myhtmldir make -j4
-.Pp
-The above example causes analysis reports to be deposited into
-a subdirectory of
-.Pa /tmp/myhtmldir
-and to run
-.Ic make
-with the
-.Fl j4
-option.
-A different subdirectory is created each time
-.Nm
-analyzes a project.
-The analyzer should support most parallel builds, but not distributed builds.
-.Sh AUTHORS
-.Nm
-was written by
-.An "Ted Kremenek" .
-Documentation contributed by
-.An "James K. Lowden" Aq jklowden at schemamania.org .
Removed: cfe/trunk/tools/scan-build/scan-build.bat
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/scan-build.bat?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/scan-build.bat (original)
+++ cfe/trunk/tools/scan-build/scan-build.bat (removed)
@@ -1 +0,0 @@
-perl -S scan-build %*
Removed: cfe/trunk/tools/scan-build/set-xcode-analyzer
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/set-xcode-analyzer?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/set-xcode-analyzer (original)
+++ cfe/trunk/tools/scan-build/set-xcode-analyzer (removed)
@@ -1,114 +0,0 @@
-#!/usr/bin/python
-
-# [PR 11661] Note that we hardwire to /usr/bin/python because we
-# want to the use the system version of Python on Mac OS X.
-# This one has the scripting bridge enabled.
-
-import sys
-if sys.version_info < (2, 7):
- print "set-xcode-analyzer requires Python 2.7 or later"
- sys.exit(1)
-
-import os
-import subprocess
-import re
-import tempfile
-import shutil
-import stat
-from AppKit import *
-
-def FindClangSpecs(path):
- print "(+) Searching for xcspec file in: ", path
- for root, dirs, files in os.walk(path):
- for f in files:
- if f.endswith(".xcspec") and f.startswith("Clang LLVM"):
- yield os.path.join(root, f)
-
-def ModifySpec(path, isBuiltinAnalyzer, pathToChecker):
- t = tempfile.NamedTemporaryFile(delete=False)
- foundAnalyzer = False
- with open(path) as f:
- if isBuiltinAnalyzer:
- # First search for CLANG_ANALYZER_EXEC. Newer
- # versions of Xcode set EXEC_PATH to be CLANG_ANALYZER_EXEC.
- with open(path) as f2:
- for line in f2:
- if line.find("CLANG_ANALYZER_EXEC") >= 0:
- pathToChecker = "$(CLANG_ANALYZER_EXEC)"
- break
- # Now create a new file.
- for line in f:
- if not foundAnalyzer:
- if line.find("Static Analyzer") >= 0:
- foundAnalyzer = True
- else:
- m = re.search('^(\s*ExecPath\s*=\s*")', line)
- if m:
- line = "".join([m.group(0), pathToChecker, '";\n'])
- # Do not modify further ExecPath's later in the xcspec.
- foundAnalyzer = False
- t.write(line)
- t.close()
- print "(+) processing:", path
- try:
- shutil.copy(t.name, path)
- os.chmod(path, stat.S_IRUSR | stat.S_IWUSR | stat.S_IRGRP | stat.S_IROTH)
- except IOError, why:
- print " (-) Cannot update file:", why, "\n"
- except OSError, why:
- print " (-) Cannot update file:", why, "\n"
- os.unlink(t.name)
-
-def main():
- from optparse import OptionParser
- parser = OptionParser('usage: %prog [options]')
- parser.set_description(__doc__)
- parser.add_option("--use-checker-build", dest="path",
- help="Use the Clang located at the provided absolute path, e.g. /Users/foo/checker-1")
- parser.add_option("--use-xcode-clang", action="store_const",
- const="$(CLANG)", dest="default",
- help="Use the Clang bundled with Xcode")
- (options, args) = parser.parse_args()
- if options.path is None and options.default is None:
- parser.error("You must specify a version of Clang to use for static analysis. Specify '-h' for details")
-
- # determine if Xcode is running
- for x in NSWorkspace.sharedWorkspace().runningApplications():
- if x.localizedName().find("Xcode") >= 0:
- print "(-) You must quit Xcode first before modifying its configuration files."
- sys.exit(1)
-
- isBuiltinAnalyzer = False
- if options.path:
- # Expand tildes.
- path = os.path.expanduser(options.path)
- if not path.endswith("clang"):
- print "(+) Using Clang bundled with checker build:", path
- path = os.path.join(path, "bin", "clang");
- else:
- print "(+) Using Clang located at:", path
- else:
- print "(+) Using the Clang bundled with Xcode"
- path = options.default
- isBuiltinAnalyzer = True
-
- try:
- xcode_path = subprocess.check_output(["xcode-select", "-print-path"])
- except AttributeError:
- # Fall back to the default install location when using Python < 2.7.0
- xcode_path = "/Developer"
- if (xcode_path.find(".app/") != -1):
- # Cut off the 'Developer' dir, as the xcspec lies in another part
- # of the Xcode.app subtree.
- xcode_path = xcode_path.rsplit('/Developer', 1)[0]
-
- foundSpec = False
- for x in FindClangSpecs(xcode_path):
- foundSpec = True
- ModifySpec(x, isBuiltinAnalyzer, path)
-
- if foundSpec == False:
- print "(-) No compiler configuration file was found. Xcode's analyzer has not been updated."
-
-if __name__ == '__main__':
- main()
Removed: cfe/trunk/tools/scan-build/share/scanview.css
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/share/scanview.css?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/share/scanview.css (original)
+++ cfe/trunk/tools/scan-build/share/scanview.css (removed)
@@ -1,62 +0,0 @@
-body { color:#000000; background-color:#ffffff }
-body { font-family: Helvetica, sans-serif; font-size:9pt }
-h1 { font-size: 14pt; }
-h2 { font-size: 12pt; }
-table { font-size:9pt }
-table { border-spacing: 0px; border: 1px solid black }
-th, table thead {
- background-color:#eee; color:#666666;
- font-weight: bold; cursor: default;
- text-align:center;
- font-weight: bold; font-family: Verdana;
- white-space:nowrap;
-}
-.W { font-size:0px }
-th, td { padding:5px; padding-left:8px; text-align:left }
-td.SUMM_DESC { padding-left:12px }
-td.DESC { white-space:pre }
-td.Q { text-align:right }
-td { text-align:left }
-tbody.scrollContent { overflow:auto }
-
-table.form_group {
- background-color: #ccc;
- border: 1px solid #333;
- padding: 2px;
-}
-
-table.form_inner_group {
- background-color: #ccc;
- border: 1px solid #333;
- padding: 0px;
-}
-
-table.form {
- background-color: #999;
- border: 1px solid #333;
- padding: 2px;
-}
-
-td.form_label {
- text-align: right;
- vertical-align: top;
-}
-/* For one line entires */
-td.form_clabel {
- text-align: right;
- vertical-align: center;
-}
-td.form_value {
- text-align: left;
- vertical-align: top;
-}
-td.form_submit {
- text-align: right;
- vertical-align: top;
-}
-
-h1.SubmitFail {
- color: #f00;
-}
-h1.SubmitOk {
-}
Removed: cfe/trunk/tools/scan-build/share/sorttable.js
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-build/share/sorttable.js?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-build/share/sorttable.js (original)
+++ cfe/trunk/tools/scan-build/share/sorttable.js (removed)
@@ -1,492 +0,0 @@
-/*
- SortTable
- version 2
- 7th April 2007
- Stuart Langridge, http://www.kryogenix.org/code/browser/sorttable/
-
- Instructions:
- Download this file
- Add <script src="sorttable.js"></script> to your HTML
- Add class="sortable" to any table you'd like to make sortable
- Click on the headers to sort
-
- Thanks to many, many people for contributions and suggestions.
- Licenced as X11: http://www.kryogenix.org/code/browser/licence.html
- This basically means: do what you want with it.
-*/
-
-
-var stIsIE = /*@cc_on!@*/false;
-
-sorttable = {
- init: function() {
- // quit if this function has already been called
- if (arguments.callee.done) return;
- // flag this function so we don't do the same thing twice
- arguments.callee.done = true;
- // kill the timer
- if (_timer) clearInterval(_timer);
-
- if (!document.createElement || !document.getElementsByTagName) return;
-
- sorttable.DATE_RE = /^(\d\d?)[\/\.-](\d\d?)[\/\.-]((\d\d)?\d\d)$/;
-
- forEach(document.getElementsByTagName('table'), function(table) {
- if (table.className.search(/\bsortable\b/) != -1) {
- sorttable.makeSortable(table);
- }
- });
-
- },
-
- makeSortable: function(table) {
- if (table.getElementsByTagName('thead').length == 0) {
- // table doesn't have a tHead. Since it should have, create one and
- // put the first table row in it.
- the = document.createElement('thead');
- the.appendChild(table.rows[0]);
- table.insertBefore(the,table.firstChild);
- }
- // Safari doesn't support table.tHead, sigh
- if (table.tHead == null) table.tHead = table.getElementsByTagName('thead')[0];
-
- if (table.tHead.rows.length != 1) return; // can't cope with two header rows
-
- // Sorttable v1 put rows with a class of "sortbottom" at the bottom (as
- // "total" rows, for example). This is B&R, since what you're supposed
- // to do is put them in a tfoot. So, if there are sortbottom rows,
- // for backward compatibility, move them to tfoot (creating it if needed).
- sortbottomrows = [];
- for (var i=0; i<table.rows.length; i++) {
- if (table.rows[i].className.search(/\bsortbottom\b/) != -1) {
- sortbottomrows[sortbottomrows.length] = table.rows[i];
- }
- }
- if (sortbottomrows) {
- if (table.tFoot == null) {
- // table doesn't have a tfoot. Create one.
- tfo = document.createElement('tfoot');
- table.appendChild(tfo);
- }
- for (var i=0; i<sortbottomrows.length; i++) {
- tfo.appendChild(sortbottomrows[i]);
- }
- delete sortbottomrows;
- }
-
- // work through each column and calculate its type
- headrow = table.tHead.rows[0].cells;
- for (var i=0; i<headrow.length; i++) {
- // manually override the type with a sorttable_type attribute
- if (!headrow[i].className.match(/\bsorttable_nosort\b/)) { // skip this col
- mtch = headrow[i].className.match(/\bsorttable_([a-z0-9]+)\b/);
- if (mtch) { override = mtch[1]; }
- if (mtch && typeof sorttable["sort_"+override] == 'function') {
- headrow[i].sorttable_sortfunction = sorttable["sort_"+override];
- } else {
- headrow[i].sorttable_sortfunction = sorttable.guessType(table,i);
- }
- // make it clickable to sort
- headrow[i].sorttable_columnindex = i;
- headrow[i].sorttable_tbody = table.tBodies[0];
- dean_addEvent(headrow[i],"click", function(e) {
-
- if (this.className.search(/\bsorttable_sorted\b/) != -1) {
- // if we're already sorted by this column, just
- // reverse the table, which is quicker
- sorttable.reverse(this.sorttable_tbody);
- this.className = this.className.replace('sorttable_sorted',
- 'sorttable_sorted_reverse');
- this.removeChild(document.getElementById('sorttable_sortfwdind'));
- sortrevind = document.createElement('span');
- sortrevind.id = "sorttable_sortrevind";
- sortrevind.innerHTML = stIsIE ? ' <font face="webdings">5</font>' : ' ▴';
- this.appendChild(sortrevind);
- return;
- }
- if (this.className.search(/\bsorttable_sorted_reverse\b/) != -1) {
- // if we're already sorted by this column in reverse, just
- // re-reverse the table, which is quicker
- sorttable.reverse(this.sorttable_tbody);
- this.className = this.className.replace('sorttable_sorted_reverse',
- 'sorttable_sorted');
- this.removeChild(document.getElementById('sorttable_sortrevind'));
- sortfwdind = document.createElement('span');
- sortfwdind.id = "sorttable_sortfwdind";
- sortfwdind.innerHTML = stIsIE ? ' <font face="webdings">6</font>' : ' ▾';
- this.appendChild(sortfwdind);
- return;
- }
-
- // remove sorttable_sorted classes
- theadrow = this.parentNode;
- forEach(theadrow.childNodes, function(cell) {
- if (cell.nodeType == 1) { // an element
- cell.className = cell.className.replace('sorttable_sorted_reverse','');
- cell.className = cell.className.replace('sorttable_sorted','');
- }
- });
- sortfwdind = document.getElementById('sorttable_sortfwdind');
- if (sortfwdind) { sortfwdind.parentNode.removeChild(sortfwdind); }
- sortrevind = document.getElementById('sorttable_sortrevind');
- if (sortrevind) { sortrevind.parentNode.removeChild(sortrevind); }
-
- this.className += ' sorttable_sorted';
- sortfwdind = document.createElement('span');
- sortfwdind.id = "sorttable_sortfwdind";
- sortfwdind.innerHTML = stIsIE ? ' <font face="webdings">6</font>' : ' ▾';
- this.appendChild(sortfwdind);
-
- // build an array to sort. This is a Schwartzian transform thing,
- // i.e., we "decorate" each row with the actual sort key,
- // sort based on the sort keys, and then put the rows back in order
- // which is a lot faster because you only do getInnerText once per row
- row_array = [];
- col = this.sorttable_columnindex;
- rows = this.sorttable_tbody.rows;
- for (var j=0; j<rows.length; j++) {
- row_array[row_array.length] = [sorttable.getInnerText(rows[j].cells[col]), rows[j]];
- }
- /* If you want a stable sort, uncomment the following line */
- sorttable.shaker_sort(row_array, this.sorttable_sortfunction);
- /* and comment out this one */
- //row_array.sort(this.sorttable_sortfunction);
-
- tb = this.sorttable_tbody;
- for (var j=0; j<row_array.length; j++) {
- tb.appendChild(row_array[j][1]);
- }
-
- delete row_array;
- });
- }
- }
- },
-
- guessType: function(table, column) {
- // guess the type of a column based on its first non-blank row
- sortfn = sorttable.sort_alpha;
- for (var i=0; i<table.tBodies[0].rows.length; i++) {
- text = sorttable.getInnerText(table.tBodies[0].rows[i].cells[column]);
- if (text != '') {
- if (text.match(/^-?[£$¤]?[\d,.]+%?$/)) {
- return sorttable.sort_numeric;
- }
- // check for a date: dd/mm/yyyy or dd/mm/yy
- // can have / or . or - as separator
- // can be mm/dd as well
- possdate = text.match(sorttable.DATE_RE)
- if (possdate) {
- // looks like a date
- first = parseInt(possdate[1]);
- second = parseInt(possdate[2]);
- if (first > 12) {
- // definitely dd/mm
- return sorttable.sort_ddmm;
- } else if (second > 12) {
- return sorttable.sort_mmdd;
- } else {
- // looks like a date, but we can't tell which, so assume
- // that it's dd/mm (English imperialism!) and keep looking
- sortfn = sorttable.sort_ddmm;
- }
- }
- }
- }
- return sortfn;
- },
-
- getInnerText: function(node) {
- // gets the text we want to use for sorting for a cell.
- // strips leading and trailing whitespace.
- // this is *not* a generic getInnerText function; it's special to sorttable.
- // for example, you can override the cell text with a customkey attribute.
- // it also gets .value for <input> fields.
-
- hasInputs = (typeof node.getElementsByTagName == 'function') &&
- node.getElementsByTagName('input').length;
-
- if (node.getAttribute("sorttable_customkey") != null) {
- return node.getAttribute("sorttable_customkey");
- }
- else if (typeof node.textContent != 'undefined' && !hasInputs) {
- return node.textContent.replace(/^\s+|\s+$/g, '');
- }
- else if (typeof node.innerText != 'undefined' && !hasInputs) {
- return node.innerText.replace(/^\s+|\s+$/g, '');
- }
- else if (typeof node.text != 'undefined' && !hasInputs) {
- return node.text.replace(/^\s+|\s+$/g, '');
- }
- else {
- switch (node.nodeType) {
- case 3:
- if (node.nodeName.toLowerCase() == 'input') {
- return node.value.replace(/^\s+|\s+$/g, '');
- }
- case 4:
- return node.nodeValue.replace(/^\s+|\s+$/g, '');
- break;
- case 1:
- case 11:
- var innerText = '';
- for (var i = 0; i < node.childNodes.length; i++) {
- innerText += sorttable.getInnerText(node.childNodes[i]);
- }
- return innerText.replace(/^\s+|\s+$/g, '');
- break;
- default:
- return '';
- }
- }
- },
-
- reverse: function(tbody) {
- // reverse the rows in a tbody
- newrows = [];
- for (var i=0; i<tbody.rows.length; i++) {
- newrows[newrows.length] = tbody.rows[i];
- }
- for (var i=newrows.length-1; i>=0; i--) {
- tbody.appendChild(newrows[i]);
- }
- delete newrows;
- },
-
- /* sort functions
- each sort function takes two parameters, a and b
- you are comparing a[0] and b[0] */
- sort_numeric: function(a,b) {
- aa = parseFloat(a[0].replace(/[^0-9.-]/g,''));
- if (isNaN(aa)) aa = 0;
- bb = parseFloat(b[0].replace(/[^0-9.-]/g,''));
- if (isNaN(bb)) bb = 0;
- return aa-bb;
- },
- sort_alpha: function(a,b) {
- if (a[0]==b[0]) return 0;
- if (a[0]<b[0]) return -1;
- return 1;
- },
- sort_ddmm: function(a,b) {
- mtch = a[0].match(sorttable.DATE_RE);
- y = mtch[3]; m = mtch[2]; d = mtch[1];
- if (m.length == 1) m = '0'+m;
- if (d.length == 1) d = '0'+d;
- dt1 = y+m+d;
- mtch = b[0].match(sorttable.DATE_RE);
- y = mtch[3]; m = mtch[2]; d = mtch[1];
- if (m.length == 1) m = '0'+m;
- if (d.length == 1) d = '0'+d;
- dt2 = y+m+d;
- if (dt1==dt2) return 0;
- if (dt1<dt2) return -1;
- return 1;
- },
- sort_mmdd: function(a,b) {
- mtch = a[0].match(sorttable.DATE_RE);
- y = mtch[3]; d = mtch[2]; m = mtch[1];
- if (m.length == 1) m = '0'+m;
- if (d.length == 1) d = '0'+d;
- dt1 = y+m+d;
- mtch = b[0].match(sorttable.DATE_RE);
- y = mtch[3]; d = mtch[2]; m = mtch[1];
- if (m.length == 1) m = '0'+m;
- if (d.length == 1) d = '0'+d;
- dt2 = y+m+d;
- if (dt1==dt2) return 0;
- if (dt1<dt2) return -1;
- return 1;
- },
-
- shaker_sort: function(list, comp_func) {
- // A stable sort function to allow multi-level sorting of data
- // see: http://en.wikipedia.org/wiki/Cocktail_sort
- // thanks to Joseph Nahmias
- var b = 0;
- var t = list.length - 1;
- var swap = true;
-
- while(swap) {
- swap = false;
- for(var i = b; i < t; ++i) {
- if ( comp_func(list[i], list[i+1]) > 0 ) {
- var q = list[i]; list[i] = list[i+1]; list[i+1] = q;
- swap = true;
- }
- } // for
- t--;
-
- if (!swap) break;
-
- for(var i = t; i > b; --i) {
- if ( comp_func(list[i], list[i-1]) < 0 ) {
- var q = list[i]; list[i] = list[i-1]; list[i-1] = q;
- swap = true;
- }
- } // for
- b++;
-
- } // while(swap)
- }
-}
-
-/* ******************************************************************
- Supporting functions: bundled here to avoid depending on a library
- ****************************************************************** */
-
-// Dean Edwards/Matthias Miller/John Resig
-
-/* for Mozilla/Opera9 */
-if (document.addEventListener) {
- document.addEventListener("DOMContentLoaded", sorttable.init, false);
-}
-
-/* for Internet Explorer */
-/*@cc_on @*/
-/*@if (@_win32)
- document.write("<script id=__ie_onload defer src=javascript:void(0)><\/script>");
- var script = document.getElementById("__ie_onload");
- script.onreadystatechange = function() {
- if (this.readyState == "complete") {
- sorttable.init(); // call the onload handler
- }
- };
-/*@end @*/
-
-/* for Safari */
-if (/WebKit/i.test(navigator.userAgent)) { // sniff
- var _timer = setInterval(function() {
- if (/loaded|complete/.test(document.readyState)) {
- sorttable.init(); // call the onload handler
- }
- }, 10);
-}
-
-/* for other browsers */
-window.onload = sorttable.init;
-
-// written by Dean Edwards, 2005
-// with input from Tino Zijdel, Matthias Miller, Diego Perini
-
-// http://dean.edwards.name/weblog/2005/10/add-event/
-
-function dean_addEvent(element, type, handler) {
- if (element.addEventListener) {
- element.addEventListener(type, handler, false);
- } else {
- // assign each event handler a unique ID
- if (!handler.$$guid) handler.$$guid = dean_addEvent.guid++;
- // create a hash table of event types for the element
- if (!element.events) element.events = {};
- // create a hash table of event handlers for each element/event pair
- var handlers = element.events[type];
- if (!handlers) {
- handlers = element.events[type] = {};
- // store the existing event handler (if there is one)
- if (element["on" + type]) {
- handlers[0] = element["on" + type];
- }
- }
- // store the event handler in the hash table
- handlers[handler.$$guid] = handler;
- // assign a global event handler to do all the work
- element["on" + type] = handleEvent;
- }
-};
-// a counter used to create unique IDs
-dean_addEvent.guid = 1;
-
-function removeEvent(element, type, handler) {
- if (element.removeEventListener) {
- element.removeEventListener(type, handler, false);
- } else {
- // delete the event handler from the hash table
- if (element.events && element.events[type]) {
- delete element.events[type][handler.$$guid];
- }
- }
-};
-
-function handleEvent(event) {
- var returnValue = true;
- // grab the event object (IE uses a global event object)
- event = event || fixEvent(((this.ownerDocument || this.document || this).parentWindow || window).event);
- // get a reference to the hash table of event handlers
- var handlers = this.events[event.type];
- // execute each event handler
- for (var i in handlers) {
- this.$$handleEvent = handlers[i];
- if (this.$$handleEvent(event) === false) {
- returnValue = false;
- }
- }
- return returnValue;
-};
-
-function fixEvent(event) {
- // add W3C standard event methods
- event.preventDefault = fixEvent.preventDefault;
- event.stopPropagation = fixEvent.stopPropagation;
- return event;
-};
-fixEvent.preventDefault = function() {
- this.returnValue = false;
-};
-fixEvent.stopPropagation = function() {
- this.cancelBubble = true;
-}
-
-// Dean's forEach: http://dean.edwards.name/base/forEach.js
-/*
- forEach, version 1.0
- Copyright 2006, Dean Edwards
- License: http://www.opensource.org/licenses/mit-license.php
-*/
-
-// array-like enumeration
-if (!Array.forEach) { // mozilla already supports this
- Array.forEach = function(array, block, context) {
- for (var i = 0; i < array.length; i++) {
- block.call(context, array[i], i, array);
- }
- };
-}
-
-// generic enumeration
-Function.prototype.forEach = function(object, block, context) {
- for (var key in object) {
- if (typeof this.prototype[key] == "undefined") {
- block.call(context, object[key], key, object);
- }
- }
-};
-
-// character enumeration
-String.forEach = function(string, block, context) {
- Array.forEach(string.split(""), function(chr, index) {
- block.call(context, chr, index, string);
- });
-};
-
-// globally resolve forEach enumeration
-var forEach = function(object, block, context) {
- if (object) {
- var resolve = Object; // default
- if (object instanceof Function) {
- // functions have a "length" property
- resolve = Function;
- } else if (object.forEach instanceof Function) {
- // the object implements a custom forEach method so use that
- object.forEach(block, context);
- return;
- } else if (typeof object == "string") {
- // the object is a string
- resolve = String;
- } else if (typeof object.length == "number") {
- // the object is array-like
- resolve = Array;
- }
- resolve.forEach(object, block, context);
- }
-};
Modified: cfe/trunk/tools/scan-view/CMakeLists.txt
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-view/CMakeLists.txt?rev=253074&r1=253073&r2=253074&view=diff
==============================================================================
--- cfe/trunk/tools/scan-view/CMakeLists.txt (original)
+++ cfe/trunk/tools/scan-view/CMakeLists.txt Fri Nov 13 14:34:15 2015
@@ -17,11 +17,11 @@ if(CLANG_INSTALL_SCANVIEW)
COMMAND ${CMAKE_COMMAND} -E make_directory
${CMAKE_BINARY_DIR}/bin
COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_CURRENT_SOURCE_DIR}/${BinFile}
+ ${CMAKE_CURRENT_SOURCE_DIR}/bin/${BinFile}
${CMAKE_BINARY_DIR}/bin/
- DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${BinFile})
+ DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/bin/${BinFile})
list(APPEND Depends ${CMAKE_BINARY_DIR}/bin/${BinFile})
- install(PROGRAMS ${BinFile} DESTINATION bin)
+ install(PROGRAMS bin/${BinFile} DESTINATION bin)
endforeach()
foreach(ShareFile ${ShareFiles})
Modified: cfe/trunk/tools/scan-view/Makefile
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-view/Makefile?rev=253074&r1=253073&r2=253074&view=diff
==============================================================================
--- cfe/trunk/tools/scan-view/Makefile (original)
+++ cfe/trunk/tools/scan-view/Makefile Fri Nov 13 14:34:15 2015
@@ -26,7 +26,7 @@ endif
all:: $(InstallTargets)
-$(ToolDir)/%: % Makefile $(ToolDir)/.dir
+$(ToolDir)/%: bin/% Makefile $(ToolDir)/.dir
$(Echo) "Copying $(notdir $<) to the 'bin' directory..."
$(Verb)cp $< $@
$(Verb)chmod +x $@
Copied: cfe/trunk/tools/scan-view/bin/scan-view (from r253068, cfe/trunk/tools/scan-view/scan-view)
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-view/bin/scan-view?p2=cfe/trunk/tools/scan-view/bin/scan-view&p1=cfe/trunk/tools/scan-view/scan-view&r1=253068&r2=253074&rev=253074&view=diff
==============================================================================
--- cfe/trunk/tools/scan-view/scan-view (original)
+++ cfe/trunk/tools/scan-view/bin/scan-view Fri Nov 13 14:34:15 2015
@@ -56,7 +56,13 @@ def start_browser(port, options):
webbrowser.open(url)
def run(port, options, root):
- sys.path.append(os.path.dirname(__file__) + "/../share/scan-view")
+ # Prefer to look relative to the installed binary
+ share = os.path.dirname(__file__) + "/../share/scan-view"
+ if not os.path.isdir(share):
+ # Otherwise look relative to the source
+ share = os.path.dirname(__file__) + "/../../scan-view/share"
+ sys.path.append(share)
+
import ScanView
try:
print 'Starting scan-view at: http://%s:%d'%(options.host,
Removed: cfe/trunk/tools/scan-view/scan-view
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/tools/scan-view/scan-view?rev=253073&view=auto
==============================================================================
--- cfe/trunk/tools/scan-view/scan-view (original)
+++ cfe/trunk/tools/scan-view/scan-view (removed)
@@ -1,134 +0,0 @@
-#!/usr/bin/env python
-
-"""The clang static analyzer results viewer.
-"""
-
-import sys
-import imp
-import os
-import posixpath
-import thread
-import time
-import urllib
-import webbrowser
-
-# How long to wait for server to start.
-kSleepTimeout = .05
-kMaxSleeps = int(60 / kSleepTimeout)
-
-# Default server parameters
-
-kDefaultHost = '127.0.0.1'
-kDefaultPort = 8181
-kMaxPortsToTry = 100
-
-###
-
-def url_is_up(url):
- try:
- o = urllib.urlopen(url)
- except IOError:
- return False
- o.close()
- return True
-
-def start_browser(port, options):
- import urllib, webbrowser
-
- url = 'http://%s:%d'%(options.host, port)
-
- # Wait for server to start...
- if options.debug:
- sys.stderr.write('%s: Waiting for server.' % sys.argv[0])
- sys.stderr.flush()
- for i in range(kMaxSleeps):
- if url_is_up(url):
- break
- if options.debug:
- sys.stderr.write('.')
- sys.stderr.flush()
- time.sleep(kSleepTimeout)
- else:
- print >>sys.stderr,'WARNING: Unable to detect that server started.'
-
- if options.debug:
- print >>sys.stderr,'%s: Starting webbrowser...' % sys.argv[0]
- webbrowser.open(url)
-
-def run(port, options, root):
- sys.path.append(os.path.dirname(__file__) + "/../share/scan-view")
- import ScanView
- try:
- print 'Starting scan-view at: http://%s:%d'%(options.host,
- port)
- print ' Use Ctrl-C to exit.'
- httpd = ScanView.create_server((options.host, port),
- options, root)
- httpd.serve_forever()
- except KeyboardInterrupt:
- pass
-
-def port_is_open(port):
- import SocketServer
- try:
- t = SocketServer.TCPServer((kDefaultHost,port),None)
- except:
- return False
- t.server_close()
- return True
-
-def main():
- from optparse import OptionParser
- parser = OptionParser('usage: %prog [options] <results directory>')
- parser.set_description(__doc__)
- parser.add_option(
- '--host', dest="host", default=kDefaultHost, type="string",
- help="Host interface to listen on. (default=%s)" % kDefaultHost)
- parser.add_option(
- '--port', dest="port", default=None, type="int",
- help="Port to listen on. (default=%s)" % kDefaultPort)
- parser.add_option("--debug", dest="debug", default=0,
- action="count",
- help="Print additional debugging information.")
- parser.add_option("--auto-reload", dest="autoReload", default=False,
- action="store_true",
- help="Automatically update module for each request.")
- parser.add_option("--no-browser", dest="startBrowser", default=True,
- action="store_false",
- help="Don't open a webbrowser on startup.")
- parser.add_option("--allow-all-hosts", dest="onlyServeLocal", default=True,
- action="store_false",
- help='Allow connections from any host (access restricted to "127.0.0.1" by default)')
- (options, args) = parser.parse_args()
-
- if len(args) != 1:
- parser.error('No results directory specified.')
- root, = args
-
- # Make sure this directory is in a reasonable state to view.
- if not posixpath.exists(posixpath.join(root,'index.html')):
- parser.error('Invalid directory, analysis results not found!')
-
- # Find an open port. We aren't particularly worried about race
- # conditions here. Note that if the user specified a port we only
- # use that one.
- if options.port is not None:
- port = options.port
- else:
- for i in range(kMaxPortsToTry):
- if port_is_open(kDefaultPort + i):
- port = kDefaultPort + i
- break
- else:
- parser.error('Unable to find usable port in [%d,%d)'%(kDefaultPort,
- kDefaultPort+kMaxPortsToTry))
-
- # Kick off thread to wait for server and start web browser, if
- # requested.
- if options.startBrowser:
- t = thread.start_new_thread(start_browser, (port,options))
-
- run(port, options, root)
-
-if __name__ == '__main__':
- main()
More information about the cfe-commits
mailing list