ccc-analyzer revision 940260996dfae2b6acd0466c1519b8e5083bed83
1fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek#!/usr/bin/env perl 2b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 3b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# The LLVM Compiler Infrastructure 4b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 5b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# This file is distributed under the University of Illinois Open Source 6b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# License. See LICENSE.TXT for details. 7b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 8b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek##===----------------------------------------------------------------------===## 9b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 10fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# A script designed to interpose between the build system and gcc. It invokes 11fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# both gcc and the static analyzer. 12b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 13b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek##===----------------------------------------------------------------------===## 14b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 15fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekuse strict; 16fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekuse warnings; 17fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekuse Cwd; 18b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 19fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 20fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Running the analyzer. 21fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 22b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 23fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremeneksub Analyze { 24fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my ($Clang, $Args, $Lang, $Output, $Verbose, $HtmlDir, $file, $Analyses) = @_; 25d389465f426069115a35e857ef11f1fcc5a2f69cSeo Sanghyeon 26fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Skip anything related to C++. 27fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek return if ($Lang =~ /c[+][+]/); 2861cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 29fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $RunAnalyzer = 0; 30fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cmd; 31fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my @CmdArgs; 32fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 33fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Lang =~ /header/) { 34fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek exit 0 if (!defined ($Output)); 35fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Cmd = 'cp'; 36fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,$file; 37fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Remove the PCH extension. 38fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Output =~ s/[.]gch$//; 39fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,$Output; 40fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 41fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek else { 42fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Cmd = $Clang; 43fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,(split /\s/,$Analyses); 44fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,'-DIBOutlet=__attribute__((iboutlet))'; 45fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,@$Args; 46fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $RunAnalyzer = 1; 47fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 48fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 49fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my @PrintArgs; 50fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $dir; 5161cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 52fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Verbose) { 53fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $dir = getcwd(); 54fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "\n[LOCATION]: $dir\n"; 55fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @PrintArgs,"'$Cmd'"; 56fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek foreach my $arg (@CmdArgs) { push @PrintArgs,"\'$arg\'"; } 57fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 58fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 59fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Verbose == 1) { 6061cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek # We MUST print to stderr. Some clients use the stdout output of 6161cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek # gcc for various purposes. 62fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR join(' ',@PrintArgs); 63fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "\n"; 64fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 65fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Verbose == 2) { 66fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "#SHELL (cd '$dir' && @PrintArgs)\n"; 67fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 6861cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 69fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($RunAnalyzer and defined($HtmlDir)) { 70fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,'-o'; 71fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,$HtmlDir; 72fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 7361cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 74fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek system $Cmd,@CmdArgs; 75fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 76fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 77fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 78fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Lookup tables. 79fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 80fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 81fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %CompileOptionMap = ( 82fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-nostdinc' => 0, 83fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-fobjc-gc-only' => 0, 84fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-fobjc-gc' => 0, 85fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-include' => 1, 86fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-idirafter' => 1, 87fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iprefix' => 1, 88fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iquote' => 1, 89fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-isystem' => 1, 90fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iwithprefix' => 1, 91fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iwithprefixbefore' => 1 92fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 93fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 94fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %LinkerOptionMap = ( 95fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-framework' => 1 96fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 97fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 98fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %CompilerLinkerOptionMap = ( 99fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-isysroot' => 1, 100fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-arch' => 1, 101fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-v' => 0 102fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 103fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 104fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %IgnoredOptionMap = ( 105940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek '-MT' => 1, # Ignore these preprocessor options. 106940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek '-MF' => 1, 107940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek 108fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-fsyntax-only' => 0, 109fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-save-temps' => 0, 110fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-install_name' => 1, 111fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-exported_symbols_list' => 1, 112fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-current_version' => 1, 113fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-compatibility_version' => 1, 114fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-init' => 1, 115fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-e' => 1, 116fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-seg1addr' => 1, 117fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-bundle_loader' => 1, 118fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-multiply_defined' => 1, 119fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-sectorder' => 3, 120fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '--param' => 1, 121fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-u' => 1 122fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 123fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 124fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %LangMap = ( 125fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'c' => 'c', 126fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'cpp' => 'c++', 127fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'cc' => 'c++', 128fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'i' => 'c-cpp-output', 129fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'm' => 'objective-c', 130fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'mi' => 'objective-c-cpp-output' 131fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 132fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 133fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 134fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Main Logic. 135fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 136fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 137fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Action = 'link'; 138fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @CompileOpts; 139fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @LinkOpts; 140fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @Files; 141fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Lang; 142fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Output; 143fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 144fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Forward arguments to gcc. 145fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Status = system("gcc",@ARGV); 146fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif ($Status) { exit($Status); } 147fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 148fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Get the analysis options. 149fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Analyses = $ENV{'CCC_ANALYZER_ANALYSIS'}; 150fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (!defined($Analyses)) { $Analyses = '-checker-cfref'; } 151fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 152fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Determine the level of verbosity. 153fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Verbose = 0; 154fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (defined $ENV{CCC_ANALYZER_VERBOSE}) { $Verbose = 1; } 155fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (defined $ENV{CCC_ANALYZER_LOG}) { $Verbose = 2; } 156fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 157fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Determine what clang executable to use. 158fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Clang = $ENV{'CLANG'}; 159fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (!defined $Clang) { $Clang = 'clang'; } 160fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 161fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Get the HTML output directory. 162fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $HtmlDir = $ENV{'CCC_ANALYZER_HTML'}; 163fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 164fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 165fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Process the arguments. 166fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekforeach (my $i = 0; $i < scalar(@ARGV); ++$i) { 167fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Arg = $ARGV[$i]; 16861cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 169fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Modes ccc-analyzer supports 170fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-E') { $Action = 'preprocess'; } 171fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg eq '-c') { $Action = 'compile'; } 172fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg =~ /^-print-prog-name/) { exit 0; } 17309c2ad63c3069c08efa1b4cdbc8beafcb7f1a221Ted Kremenek 174fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to compiler. 175fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (defined $CompileOptionMap{$Arg}) { 176fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cnt = $CompileOptionMap{$Arg}; 177fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Arg; 178fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { ++$i; --$Cnt; push @CompileOpts, $ARGV[$i]; } 179fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 180fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 181fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 182fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to linker. 183fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (defined $LinkerOptionMap{$Arg}) { 184fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cnt = $LinkerOptionMap{$Arg}; 185fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts,$Arg; 186fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { ++$i; --$Cnt; push @LinkOpts, $ARGV[$i]; } 187fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 188fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 189fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 190fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to both compiler 191fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # and the linker. 192fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (defined $CompilerLinkerOptionMap{$Arg}) { 193fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cnt = $CompilerLinkerOptionMap{$Arg}; 194fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Arg; 195fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts,$Arg; 196fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { 197fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; --$Cnt; 198fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts, $ARGV[$i]; 199fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts, $ARGV[$i]; 200fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 201fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 202fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 20361cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 204fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Ignored options. 205fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (defined $IgnoredOptionMap{$Arg}) { 206fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cnt = $IgnoredOptionMap{$Arg}; 207fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { 208fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; --$Cnt; 209fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 210fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 211fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 21261cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 213fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Compile mode flags. 214fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-[D,I,U](.*)$/) { 215fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Tmp = $Arg; 216fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($1 eq '') { 217fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Check if we are going off the end. 218fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 219fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Tmp = $Arg . $ARGV[$i]; 220fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 221fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Tmp; 222fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 223fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 224fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 225fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Language. 226fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-x') { 227fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Lang = $ARGV[$i+1]; 228fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; next; 229fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 230fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 231fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Output file. 232fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-o') { 233fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 234fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Output = $ARGV[$i]; 235fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 236fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 237fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 238fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Get the link mode. 239fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-[l,L,O]/) { 240fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-O') { push @LinkOpts,'-O1'; } 241fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg eq '-Os') { push @LinkOpts,'-O2'; } 242fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek else { push @LinkOpts,$Arg; } 243fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 244fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 245fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 246fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-std=/) { 247fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Arg; 248fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 249fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 250fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 251fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# if ($Arg =~ /^-f/) { 252fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# # FIXME: Not sure if the remaining -fxxxx options have no arguments. 253fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# push @CompileOpts,$Arg; 254fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# push @LinkOpts,$Arg; # FIXME: Not sure if these are link opts. 255fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# } 256fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 257fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Get the compiler/link mode. 258fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-F(.+)$/) { 259fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Tmp = $Arg; 260fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($1 eq '') { 261fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Check if we are going off the end. 262fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 263fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Tmp = $Arg . $ARGV[$i]; 264fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 265fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Tmp; 266fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts,$Tmp; 267fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 268fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 269fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 270fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Input files. 271fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-filelist') { 272fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Make sure we aren't walking off the end. 273fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek open(IN, $ARGV[$i+1]); 274fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while (<IN>) { s/\015?\012//; push @Files,$_; } 275fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek close(IN); 276fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; next; 277fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 278fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 279fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (!($Arg =~ /^-/)) { 280fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @Files,$Arg; next; 281fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 282fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 283fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 284fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif ($Action eq 'compile' or $Action eq 'link') { 285fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek foreach my $file (@Files) { 286fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Determine the language for the file. 287fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $FileLang = $Lang; 288fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 289fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (!defined($FileLang)) { 290fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Infer the language from the extension. 291fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($file =~ /[.]([^.]+)$/) { 292fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $FileLang = $LangMap{$1}; 293fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 294fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 29526681e8e3a18acebd347061e20e167a81c47a408Ted Kremenek 296fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next if (!defined $FileLang); 297fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 298fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my @AnalyzeArgs; 299fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 300fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($FileLang ne 'unknown') { 301fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @AnalyzeArgs,'-x'; 302fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @AnalyzeArgs,$FileLang; 303fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 30461cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 305fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @AnalyzeArgs,@CompileOpts; 306fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @AnalyzeArgs,$file; 307fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 308fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek Analyze($Clang, \@AnalyzeArgs, $FileLang, $Output, 309fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Verbose, $HtmlDir, $file, $Analyses); 310fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 311fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 312b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 313