blob: c76441cde1e283aa191efdc32f587774191ab179 [file] [log] [blame]
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +00001#!/usr/bin/env perl
2#
3# The LLVM Compiler Infrastructure
4#
5# This file is distributed under the University of Illinois Open Source
6# License. See LICENSE.TXT for details.
7#
8##===----------------------------------------------------------------------===##
9#
10# A script designed to wrap a build so that all calls to gcc are intercepted
11# and piped to the static analyzer.
12#
13##===----------------------------------------------------------------------===##
14
15use strict;
16use warnings;
Ted Kremenek22d6a632008-04-02 20:43:36 +000017use FindBin qw($RealBin);
Ted Kremeneka6e24812008-04-19 18:05:48 +000018use Digest::MD5;
Ted Kremenek7a4648d2008-05-02 22:04:53 +000019use File::Basename;
Ted Kremenek23cfca32008-06-16 22:40:14 +000020use Term::ANSIColor;
21use Term::ANSIColor qw(:constants);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +000022
23my $Verbose = 0; # Verbose output from this script.
24my $Prog = "scan-build";
Ted Kremenekf4cdf412008-05-23 18:17:05 +000025my $BuildName;
26my $BuildDate;
Ted Kremenek95aa1052008-09-04 17:52:41 +000027my $CXX; # Leave undefined initially.
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +000028
Ted Kremenek0e689382008-09-11 18:17:51 +000029my $TERM = $ENV{'TERM'};
30my $UseColor = (defined $TERM and $TERM eq 'xterm-color' and -t STDOUT
31 and defined $ENV{'SCAN_BUILD_COLOR'});
Ted Kremenek23cfca32008-06-16 22:40:14 +000032
Ted Kremenekb7770c02008-07-15 17:06:13 +000033##----------------------------------------------------------------------------##
34# Diagnostics
35##----------------------------------------------------------------------------##
36
Ted Kremenek23cfca32008-06-16 22:40:14 +000037sub Diag {
38 if ($UseColor) {
39 print BOLD, MAGENTA "$Prog: @_";
40 print RESET;
41 }
42 else {
43 print "$Prog: @_";
44 }
45}
46
Ted Kremenek991c54b2008-08-08 20:46:42 +000047sub DiagCrashes {
48 my $Dir = shift;
49 Diag ("The analyzer crashed on some source files.\n");
Ted Kremenek386c6932008-09-03 17:59:35 +000050 Diag ("Preprocessed versions of crashed files were deposited in '$Dir/crashes'.\n");
Ted Kremenek991c54b2008-08-08 20:46:42 +000051 Diag ("Please consider submitting a bug report using these files:\n");
52 Diag (" http://clang.llvm.org/StaticAnalysisUsage.html#filingbugs\n")
53}
54
Ted Kremenek23cfca32008-06-16 22:40:14 +000055sub DieDiag {
56 if ($UseColor) {
57 print BOLD, RED "$Prog: ";
58 print RESET, RED @_;
59 print RESET;
60 }
61 else {
62 print "$Prog: ", @_;
63 }
64 exit(0);
65}
66
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +000067##----------------------------------------------------------------------------##
Ted Kremenekb7770c02008-07-15 17:06:13 +000068# Some initial preprocessing of Clang options.
69##----------------------------------------------------------------------------##
70
71my $ClangSB = "$RealBin/clang";
72my $Clang = $ClangSB;
73
74if (! -x $ClangSB) {
75 $Clang = "clang";
76}
77
78my %AvailableAnalyses;
79
80# Query clang for analysis options.
Ted Kremenek63c20172008-08-04 17:34:06 +000081open(PIPE, "-|", $Clang, "--help") or
Ted Kremenekb7770c02008-07-15 17:06:13 +000082 DieDiag("Cannot execute '$Clang'");
Ted Kremenek63c20172008-08-04 17:34:06 +000083
Ted Kremenekb7770c02008-07-15 17:06:13 +000084my $FoundAnalysis = 0;
85
86while(<PIPE>) {
87 if ($FoundAnalysis == 0) {
88 if (/Available Source Code Analyses/) {
89 $FoundAnalysis = 1;
90 }
Ted Kremenek991c54b2008-08-08 20:46:42 +000091
Ted Kremenekb7770c02008-07-15 17:06:13 +000092 next;
93 }
94
95 if (/^\s\s\s\s([^\s]+)\s(.+)$/) {
96 next if ($1 =~ /-dump/ or $1 =~ /-view/
97 or $1 =~ /-checker-simple/ or $1 =~ /-warn-uninit/);
98
99 $AvailableAnalyses{$1} = $2;
100 next;
101 }
102
103 last;
104}
105
106close (PIPE);
107
108my %AnalysesDefaultEnabled = (
109 '-warn-dead-stores' => 1,
110 '-checker-cfref' => 1,
Ted Kremenek90125992008-07-15 23:41:32 +0000111 '-warn-objc-methodsigs' => 1,
Ted Kremenekbde3a052008-07-25 20:35:01 +0000112 '-warn-objc-missing-dealloc' => 1,
Ted Kremenek5d443492008-09-18 06:34:16 +0000113 '-warn-objc-unused-ivars' => 1,
Ted Kremenekb7770c02008-07-15 17:06:13 +0000114);
115
116##----------------------------------------------------------------------------##
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000117# GetHTMLRunDir - Construct an HTML directory name for the current sub-run.
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000118##----------------------------------------------------------------------------##
119
Sam Bishopa0e22662008-04-02 03:35:43 +0000120sub GetHTMLRunDir {
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000121
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000122 die "Not enough arguments." if (@_ == 0);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000123 my $Dir = shift @_;
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000124
125 my $TmpMode = 0;
126 if (!defined $Dir) {
127 $Dir = "/tmp";
128 $TmpMode = 1;
129 }
130
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000131 # Get current date and time.
132
133 my @CurrentTime = localtime();
134
135 my $year = $CurrentTime[5] + 1900;
136 my $day = $CurrentTime[3];
137 my $month = $CurrentTime[4] + 1;
138
Ted Kremenek9d7405f2008-05-14 17:23:56 +0000139 my $DateString = sprintf("%d-%02d-%02d", $year, $month, $day);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000140
141 # Determine the run number.
142
143 my $RunNumber;
144
145 if (-d $Dir) {
146
147 if (! -r $Dir) {
Ted Kremenek23cfca32008-06-16 22:40:14 +0000148 DieDiag("directory '$Dir' exists but is not readable.\n");
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000149 }
150
151 # Iterate over all files in the specified directory.
152
153 my $max = 0;
154
155 opendir(DIR, $Dir);
Ted Kremenek29da6c52008-08-07 17:57:34 +0000156 my @FILES = grep { -d "$Dir/$_" } readdir(DIR);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000157 closedir(DIR);
158
159 foreach my $f (@FILES) {
160
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000161 # Strip the prefix '$Prog-' if we are dumping files to /tmp.
162 if ($TmpMode) {
163 next if (!($f =~ /^$Prog-(.+)/));
164 $f = $1;
165 }
166
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000167 my @x = split/-/, $f;
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000168
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000169 next if (scalar(@x) != 4);
170 next if ($x[0] != $year);
171 next if ($x[1] != $month);
172 next if ($x[2] != $day);
173
174 if ($x[3] > $max) {
175 $max = $x[3];
176 }
177 }
178
179 $RunNumber = $max + 1;
180 }
181 else {
182
183 if (-x $Dir) {
Ted Kremenek23cfca32008-06-16 22:40:14 +0000184 DieDiag("'$Dir' exists but is not a directory.\n");
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000185 }
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000186
187 if ($TmpMode) {
188 DieDiag("The directory '/tmp' does not exist or cannot be accessed.");
189 }
190
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000191 # $Dir does not exist. It will be automatically created by the
192 # clang driver. Set the run number to 1.
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000193
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000194 $RunNumber = 1;
195 }
196
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000197 die "RunNumber must be defined!" if (!defined $RunNumber);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000198
199 # Append the run number.
Ted Kremenekfc0898a2008-09-04 23:56:36 +0000200 my $NewDir;
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000201 if ($TmpMode) {
Ted Kremenekfc0898a2008-09-04 23:56:36 +0000202 $NewDir = "$Dir/$Prog-$DateString-$RunNumber";
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000203 }
204 else {
Ted Kremenekfc0898a2008-09-04 23:56:36 +0000205 $NewDir = "$Dir/$DateString-$RunNumber";
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000206 }
Ted Kremenekfc0898a2008-09-04 23:56:36 +0000207 system 'mkdir','-p',$NewDir;
208 return $NewDir;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000209}
210
Sam Bishopa0e22662008-04-02 03:35:43 +0000211sub SetHtmlEnv {
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000212
213 die "Wrong number of arguments." if (scalar(@_) != 2);
214
215 my $Args = shift;
216 my $Dir = shift;
217
218 die "No build command." if (scalar(@$Args) == 0);
219
220 my $Cmd = $$Args[0];
221
222 if ($Cmd =~ /configure/) {
223 return;
224 }
225
226 if ($Verbose) {
Ted Kremenek23cfca32008-06-16 22:40:14 +0000227 Diag("Emitting reports for this run to '$Dir'.\n");
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000228 }
229
230 $ENV{'CCC_ANALYZER_HTML'} = $Dir;
231}
232
233##----------------------------------------------------------------------------##
Ted Kremenek57cf4462008-04-18 15:09:30 +0000234# ComputeDigest - Compute a digest of the specified file.
235##----------------------------------------------------------------------------##
236
237sub ComputeDigest {
238 my $FName = shift;
Ted Kremenek23cfca32008-06-16 22:40:14 +0000239 DieDiag("Cannot read $FName to compute Digest.\n") if (! -r $FName);
Ted Kremeneka6e24812008-04-19 18:05:48 +0000240
241 # Use Digest::MD5. We don't have to be cryptographically secure. We're
Ted Kremenek7ea02e62008-04-19 18:07:44 +0000242 # just looking for duplicate files that come from a non-malicious source.
243 # We use Digest::MD5 because it is a standard Perl module that should
Ted Kremenek63c20172008-08-04 17:34:06 +0000244 # come bundled on most systems.
Ted Kremenek23cfca32008-06-16 22:40:14 +0000245 open(FILE, $FName) or DieDiag("Cannot open $FName when computing Digest.\n");
Ted Kremeneka6e24812008-04-19 18:05:48 +0000246 binmode FILE;
247 my $Result = Digest::MD5->new->addfile(*FILE)->hexdigest;
248 close(FILE);
249
Ted Kremenek63c20172008-08-04 17:34:06 +0000250 # Return the digest.
Ted Kremeneka6e24812008-04-19 18:05:48 +0000251 return $Result;
Ted Kremenek57cf4462008-04-18 15:09:30 +0000252}
253
254##----------------------------------------------------------------------------##
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000255# UpdatePrefix - Compute the common prefix of files.
256##----------------------------------------------------------------------------##
257
258my $Prefix;
259
260sub UpdatePrefix {
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000261 my $x = shift;
262 my $y = basename($x);
263 $x =~ s/\Q$y\E$//;
264
265 # Ignore /usr, /Library, /System, /Developer
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000266 return if ( $x =~ /^\/usr/ or $x =~ /^\/Library/
267 or $x =~ /^\/System/ or $x =~ /^\/Developer/);
268
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000269 if (!defined $Prefix) {
270 $Prefix = $x;
271 return;
272 }
273
Ted Kremenek20b2bae2008-09-11 21:15:10 +0000274 chop $Prefix while (!($x =~ /^\Q$Prefix/));
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000275}
276
277sub GetPrefix {
278 return $Prefix;
279}
280
281##----------------------------------------------------------------------------##
282# UpdateInFilePath - Update the path in the report file.
283##----------------------------------------------------------------------------##
284
285sub UpdateInFilePath {
286 my $fname = shift;
287 my $regex = shift;
288 my $newtext = shift;
Ted Kremenek63c20172008-08-04 17:34:06 +0000289
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000290 open (RIN, $fname) or die "cannot open $fname";
Ted Kremenek63c20172008-08-04 17:34:06 +0000291 open (ROUT, ">", "$fname.tmp") or die "cannot open $fname.tmp";
292
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000293 while (<RIN>) {
294 s/$regex/$newtext/;
295 print ROUT $_;
296 }
Ted Kremenek63c20172008-08-04 17:34:06 +0000297
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000298 close (ROUT);
299 close (RIN);
Ted Kremenek20161e92008-07-15 20:18:21 +0000300 system("mv", "$fname.tmp", $fname);
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000301}
302
303##----------------------------------------------------------------------------##
Ted Kremenek5744dc22008-04-02 18:03:36 +0000304# ScanFile - Scan a report file for various identifying attributes.
305##----------------------------------------------------------------------------##
306
Ted Kremenek57cf4462008-04-18 15:09:30 +0000307# Sometimes a source file is scanned more than once, and thus produces
308# multiple error reports. We use a cache to solve this problem.
309
310my %AlreadyScanned;
311
Ted Kremenek5744dc22008-04-02 18:03:36 +0000312sub ScanFile {
313
314 my $Index = shift;
315 my $Dir = shift;
316 my $FName = shift;
317
Ted Kremenek57cf4462008-04-18 15:09:30 +0000318 # Compute a digest for the report file. Determine if we have already
319 # scanned a file that looks just like it.
320
321 my $digest = ComputeDigest("$Dir/$FName");
322
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000323 if (defined $AlreadyScanned{$digest}) {
Ted Kremenek57cf4462008-04-18 15:09:30 +0000324 # Redundant file. Remove it.
Ted Kremenek20161e92008-07-15 20:18:21 +0000325 system ("rm", "-f", "$Dir/$FName");
Ted Kremenek57cf4462008-04-18 15:09:30 +0000326 return;
327 }
328
329 $AlreadyScanned{$digest} = 1;
330
Ted Kremenek809709f2008-04-18 16:58:34 +0000331 # At this point the report file is not world readable. Make it happen.
Ted Kremenek20161e92008-07-15 20:18:21 +0000332 system ("chmod", "644", "$Dir/$FName");
Ted Kremenek684bb092008-04-18 15:18:20 +0000333
334 # Scan the report file for tags.
Ted Kremenek23cfca32008-06-16 22:40:14 +0000335 open(IN, "$Dir/$FName") or DieDiag("Cannot open '$Dir/$FName'\n");
Ted Kremenek5744dc22008-04-02 18:03:36 +0000336
337 my $BugDesc = "";
Ted Kremenek22d6a632008-04-02 20:43:36 +0000338 my $BugFile = "";
339 my $BugPathLength = 1;
340 my $BugLine = 0;
Ted Kremenek5744dc22008-04-02 18:03:36 +0000341
342 while (<IN>) {
343
344 if (/<!-- BUGDESC (.*) -->$/) {
345 $BugDesc = $1;
Ted Kremenek5744dc22008-04-02 18:03:36 +0000346 }
Ted Kremenek22d6a632008-04-02 20:43:36 +0000347 elsif (/<!-- BUGFILE (.*) -->$/) {
348 $BugFile = $1;
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000349 UpdatePrefix($BugFile);
Ted Kremenek22d6a632008-04-02 20:43:36 +0000350 }
351 elsif (/<!-- BUGPATHLENGTH (.*) -->$/) {
352 $BugPathLength = $1;
353 }
354 elsif (/<!-- BUGLINE (.*) -->$/) {
355 $BugLine = $1;
356 }
Ted Kremenek5744dc22008-04-02 18:03:36 +0000357 }
358
359 close(IN);
360
Ted Kremenek22d6a632008-04-02 20:43:36 +0000361 push @$Index,[ $FName, $BugDesc, $BugFile, $BugLine, $BugPathLength ];
362}
363
364##----------------------------------------------------------------------------##
365# CopyJS - Copy JavaScript code to target directory.
366##----------------------------------------------------------------------------##
367
368sub CopyJS {
369
370 my $Dir = shift;
371
Ted Kremenek23cfca32008-06-16 22:40:14 +0000372 DieDiag("Cannot find 'sorttable.js'.\n")
Ted Kremenek22d6a632008-04-02 20:43:36 +0000373 if (! -r "$RealBin/sorttable.js");
374
Ted Kremenek20161e92008-07-15 20:18:21 +0000375 system ("cp", "$RealBin/sorttable.js", "$Dir");
Ted Kremenek22d6a632008-04-02 20:43:36 +0000376
Ted Kremenek23cfca32008-06-16 22:40:14 +0000377 DieDiag("Could not copy 'sorttable.js' to '$Dir'.\n")
Ted Kremenek22d6a632008-04-02 20:43:36 +0000378 if (! -r "$Dir/sorttable.js");
Ted Kremenek5744dc22008-04-02 18:03:36 +0000379}
380
381##----------------------------------------------------------------------------##
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000382# Postprocess - Postprocess the results of an analysis scan.
383##----------------------------------------------------------------------------##
384
Sam Bishopa0e22662008-04-02 03:35:43 +0000385sub Postprocess {
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000386
387 my $Dir = shift;
Ted Kremenek684bb092008-04-18 15:18:20 +0000388 my $BaseDir = shift;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000389
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000390 die "No directory specified." if (!defined $Dir);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000391
392 if (! -d $Dir) {
Ted Kremenek23cfca32008-06-16 22:40:14 +0000393 Diag("No bugs found.\n");
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000394 return 0;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000395 }
396
397 opendir(DIR, $Dir);
Ted Kremenek991c54b2008-08-08 20:46:42 +0000398 my $Crashes = 0;
399 my @files = grep { if ($_ eq "crashes") { $Crashes++; }
400 /^report-.*\.html$/; } readdir(DIR);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000401 closedir(DIR);
402
Ted Kremenek991c54b2008-08-08 20:46:42 +0000403 if (scalar(@files) == 0 and $Crashes == 0) {
Ted Kremenek23cfca32008-06-16 22:40:14 +0000404 Diag("Removing directory '$Dir' because it contains no reports.\n");
Ted Kremenek20161e92008-07-15 20:18:21 +0000405 system ("rm", "-fR", $Dir);
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000406 return 0;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000407 }
Ted Kremenek5744dc22008-04-02 18:03:36 +0000408
Ted Kremenek991c54b2008-08-08 20:46:42 +0000409 # Scan each report file and build an index.
410 my @Index;
Ted Kremenek5744dc22008-04-02 18:03:36 +0000411 foreach my $file (@files) { ScanFile(\@Index, $Dir, $file); }
412
Ted Kremenekd52e4252008-08-25 20:45:07 +0000413 # Scan the crashes directory and use the information in the .info files
414 # to update the common prefix directory.
415 if (-d "$Dir/crashes") {
416 opendir(DIR, "$Dir/crashes");
417 my @files = grep { /[.]info$/; } readdir(DIR);
418 closedir(DIR);
419 foreach my $file (@files) {
420 open IN, "$Dir/crashes/$file" or DieDiag("cannot open $file\n");
421 my $Path = <IN>;
422 if (defined $Path) { UpdatePrefix($Path); }
423 close IN;
424 }
425 }
426
Ted Kremenek63c20172008-08-04 17:34:06 +0000427 # Generate an index.html file.
428 my $FName = "$Dir/index.html";
429 open(OUT, ">", $FName) or DieDiag("Cannot create file '$FName'\n");
Ted Kremenek5744dc22008-04-02 18:03:36 +0000430
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000431 # Print out the header.
432
Ted Kremenek5744dc22008-04-02 18:03:36 +0000433print OUT <<ENDTEXT;
434<html>
435<head>
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000436<style type="text/css">
437 body { color:#000000; background-color:#ffffff }
Ted Kremenek22d6a632008-04-02 20:43:36 +0000438 body { font-family: Helvetica, sans-serif; font-size:9pt }
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000439 h1 { font-size:12pt }
Ted Kremenek991c54b2008-08-08 20:46:42 +0000440 table thead {
Ted Kremenek22d6a632008-04-02 20:43:36 +0000441 background-color:#eee; color:#666666;
442 font-weight: bold; cursor: default;
Ted Kremenekbba1cf52008-04-03 05:50:51 +0000443 text-align:center;
444 border-top: 2px solid #000000;
445 border-bottom: 2px solid #000000;
446 font-weight: bold; font-family: Verdana
447 }
Ted Kremenek991c54b2008-08-08 20:46:42 +0000448 table { border: 1px #000000 solid }
449 table { border-collapse: collapse; border-spacing: 0px }
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000450 td { border-bottom: 1px #000000 dotted }
Ted Kremenek22d6a632008-04-02 20:43:36 +0000451 td { padding:5px; padding-left:8px; padding-right:8px }
Ted Kremenekd8c6d0c2008-04-07 23:50:07 +0000452 td { text-align:left; font-size:9pt }
Ted Kremenek22d6a632008-04-02 20:43:36 +0000453 td.View { padding-left: 10px }
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000454</style>
Ted Kremenek22d6a632008-04-02 20:43:36 +0000455<script src="sorttable.js"></script>
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000456<script language='javascript' type="text/javascript">
457function SetDisplay(RowClass, DisplayVal)
458{
459 var Rows = document.getElementsByTagName("tr");
460 for ( var i = 0 ; i < Rows.length; ++i ) {
461 if (Rows[i].className == RowClass) {
462 Rows[i].style.display = DisplayVal;
463 }
464 }
465}
466
467function ToggleDisplay(CheckButton, ClassName) {
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000468 if (CheckButton.checked) {
469 SetDisplay(ClassName, "");
470 }
471 else {
472 SetDisplay(ClassName, "none");
473 }
474}
475</script>
476</head>
477<body>
478ENDTEXT
479
Ted Kremenek991c54b2008-08-08 20:46:42 +0000480 if (scalar(@files)) {
481 # Print out the summary table.
482 my %Totals;
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000483
Ted Kremenek991c54b2008-08-08 20:46:42 +0000484 for my $row ( @Index ) {
485 #my $bug_type = lc($row->[1]);
486 my $bug_type = ($row->[1]);
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000487
Ted Kremenek991c54b2008-08-08 20:46:42 +0000488 if (!defined $Totals{$bug_type}) { $Totals{$bug_type} = 1; }
489 else { $Totals{$bug_type}++; }
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000490 }
Ted Kremenek991c54b2008-08-08 20:46:42 +0000491
492 print OUT "<h3>Bug Summary</h3>";
493
494 if (defined $BuildName) {
495 print OUT "\n<p>Results in this analysis run are based on analyzer build <b>$BuildName</b>.</p>\n"
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000496 }
Ted Kremenekf4cdf412008-05-23 18:17:05 +0000497
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000498print OUT <<ENDTEXT;
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000499<table class="sortable">
500<tr>
501 <td>Bug Type</td>
502 <td>Quantity</td>
Ted Kremenek2645c772008-07-07 16:58:44 +0000503 <td class="sorttable_nosort">Display?</td>
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000504</tr>
505ENDTEXT
506
Ted Kremenek991c54b2008-08-08 20:46:42 +0000507 for my $key ( sort { $a cmp $b } keys %Totals ) {
508 my $x = lc($key);
509 $x =~ s/[ ,'"]+/_/g;
510 print OUT "<tr><td>$key</td><td>$Totals{$key}</td><td><input type=\"checkbox\" onClick=\"ToggleDisplay(this,'bt_$x');\" checked/></td></tr>\n";
511 }
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000512
513 # Print out the table of errors.
514
515print OUT <<ENDTEXT;
516</table>
517<h3>Reports</h3>
Ted Kremenek22d6a632008-04-02 20:43:36 +0000518<table class="sortable">
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000519<tr>
Ted Kremenek88a96d62008-07-07 17:23:32 +0000520 <td class="sorttable_sorted">Bug Type<span id="sorttable_sortfwdind">&nbsp;&#x25BE;</span>
Ted Kremenekbba1cf52008-04-03 05:50:51 +0000521 <td>File</td>
522 <td>Line</td>
523 <td>Path Length</td>
Ted Kremenek2645c772008-07-07 16:58:44 +0000524 <td class="sorttable_nosort"></td>
Daniel Dunbare43038e2008-09-19 23:18:44 +0000525 <td class="sorttable_nosort"></td>
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000526</tr>
Ted Kremenek5744dc22008-04-02 18:03:36 +0000527ENDTEXT
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000528
Ted Kremenek991c54b2008-08-08 20:46:42 +0000529 my $prefix = GetPrefix();
530 my $regex;
531 my $InFileRegex;
532 my $InFilePrefix = "File:</td><td>";
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000533
Ted Kremenek991c54b2008-08-08 20:46:42 +0000534 if (defined $prefix) {
535 $regex = qr/^\Q$prefix\E/is;
536 $InFileRegex = qr/\Q$InFilePrefix$prefix\E/is;
537 }
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000538
Ted Kremenek991c54b2008-08-08 20:46:42 +0000539 for my $row ( sort { $a->[1] cmp $b->[1] } @Index ) {
Ted Kremenek5744dc22008-04-02 18:03:36 +0000540
Ted Kremenek991c54b2008-08-08 20:46:42 +0000541 my $x = lc($row->[1]);
542 $x =~ s/[ ,'"]+/_/g;
Ted Kremenek6e6eff72008-04-15 20:47:02 +0000543
Ted Kremenek991c54b2008-08-08 20:46:42 +0000544 print OUT "<tr class=\"bt_$x\">\n";
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000545
Ted Kremenek991c54b2008-08-08 20:46:42 +0000546 my $ReportFile = $row->[0];
Ted Kremenek5744dc22008-04-02 18:03:36 +0000547
Ted Kremenek991c54b2008-08-08 20:46:42 +0000548 print OUT " <td class=\"DESC\">";
549 #print OUT lc($row->[1]);
550 print OUT $row->[1];
551 print OUT "</td>\n";
Ted Kremenek5744dc22008-04-02 18:03:36 +0000552
Ted Kremenek991c54b2008-08-08 20:46:42 +0000553 # Update the file prefix.
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000554
Ted Kremenek991c54b2008-08-08 20:46:42 +0000555 my $fname = $row->[2];
556 if (defined $regex) {
557 $fname =~ s/$regex//;
558 UpdateInFilePath("$Dir/$ReportFile", $InFileRegex, $InFilePrefix)
559 }
Ted Kremenek3e56e0b2008-05-02 23:40:49 +0000560
Ted Kremenek991c54b2008-08-08 20:46:42 +0000561 print OUT "<td>$fname</td>\n";
Ted Kremenek7a4648d2008-05-02 22:04:53 +0000562
Ted Kremenek991c54b2008-08-08 20:46:42 +0000563 # Print the rest of the columns.
564 for my $j ( 3 .. $#{$row} ) {
565 print OUT "<td>$row->[$j]</td>\n"
566 }
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000567
Ted Kremenek991c54b2008-08-08 20:46:42 +0000568 # Emit the "View" link.
569 print OUT " <td class=\"View\"><a href=\"$ReportFile#EndPath\">View</a></td>\n";
Ted Kremenek3cea9ee2008-07-30 17:58:08 +0000570
Daniel Dunbare43038e2008-09-19 23:18:44 +0000571 # Emit REPORTBUG markers.
572 print OUT " <td class=\"ReportBug\"><!-- REPORTBUG id=\"$ReportFile\" --></td>\n";
573
Ted Kremenek991c54b2008-08-08 20:46:42 +0000574 # End the row.
575 print OUT "</tr>\n";
576 }
577
578 print OUT "</table>\n";
579 }
580
581 if ($Crashes) {
582 # Read the crash directory for files.
583 opendir(DIR, "$Dir/crashes");
584 my @files = grep { /[.]info$/ } readdir(DIR);
585 closedir(DIR);
586
587 if (scalar(@files)) {
588 print OUT <<ENDTEXT;
Ted Kremenek5d31f832008-08-18 18:38:29 +0000589<h3>Analyzer Failures</h3>
Ted Kremenek991c54b2008-08-08 20:46:42 +0000590
Ted Kremenek5d31f832008-08-18 18:38:29 +0000591<p>The analyzer had problems processing the following files:</p>
Ted Kremenek991c54b2008-08-08 20:46:42 +0000592
593<table>
Ted Kremenek9f9b1fd2008-09-12 22:49:36 +0000594<thead><tr><td>Problem</td><td>Source File</td><td>Preprocessed File</td><td>STDERR Output</td></tr></thead>
Ted Kremenek991c54b2008-08-08 20:46:42 +0000595ENDTEXT
596
597 foreach my $file (sort @files) {
598 $file =~ /(.+).info$/;
599 # Get the preprocessed file.
600 my $ppfile = $1;
601 # Open the info file and get the name of the source file.
602 open (INFO, "$Dir/crashes/$file") or
603 die "Cannot open $Dir/crashes/$file\n";
604 my $srcfile = <INFO>;
Ted Kremenek5d31f832008-08-18 18:38:29 +0000605 chomp $srcfile;
606 my $problem = <INFO>;
607 chomp $problem;
Ted Kremenek991c54b2008-08-08 20:46:42 +0000608 close (INFO);
609 # Print the information in the table.
Ted Kremenekd52e4252008-08-25 20:45:07 +0000610 my $prefix = GetPrefix();
Ted Kremenek9f9b1fd2008-09-12 22:49:36 +0000611 if (defined $prefix) { $srcfile =~ s/^\Q$prefix//; }
612 print OUT "<tr><td>$problem</td><td>$srcfile</td><td><a href=\"crashes/$ppfile\">$ppfile</a></td><td><a href=\"crashes/$ppfile.stderr.txt\">$ppfile.stderr.txt</a></td></tr>\n";
Ted Kremenek991c54b2008-08-08 20:46:42 +0000613 }
614
615 print OUT <<ENDTEXT;
616</table>
617<p>Please consider submitting preprocessed files as <a href="http://clang.llvm.org/StaticAnalysisUsage.html#filingbugs">bug reports</a>.</p>
618ENDTEXT
619 }
Ted Kremenek5744dc22008-04-02 18:03:36 +0000620 }
621
Ted Kremenek991c54b2008-08-08 20:46:42 +0000622 print OUT "</body></html>\n";
Ted Kremenek5744dc22008-04-02 18:03:36 +0000623 close(OUT);
Ted Kremenek22d6a632008-04-02 20:43:36 +0000624 CopyJS($Dir);
Ted Kremenek20161e92008-07-15 20:18:21 +0000625
626 # Make sure $Dir and $BaseDir are world readable/executable.
627 system("chmod", "755", $Dir);
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000628 if (defined $BaseDir) { system("chmod", "755", $BaseDir); }
Ted Kremenek20161e92008-07-15 20:18:21 +0000629
Ted Kremenek23cfca32008-06-16 22:40:14 +0000630 my $Num = scalar(@Index);
Ted Kremenek150c2122008-07-11 19:15:05 +0000631 Diag("$Num bugs found.\n");
632 if ($Num > 0 && -r "$Dir/index.html") {
633 Diag("Open '$Dir/index.html' to examine bug reports.\n");
634 }
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000635
Ted Kremenek991c54b2008-08-08 20:46:42 +0000636 DiagCrashes($Dir) if ($Crashes);
637
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000638 return $Num;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000639}
640
641##----------------------------------------------------------------------------##
Ted Kremenekdab11102008-04-02 04:43:42 +0000642# RunBuildCommand - Run the build command.
643##----------------------------------------------------------------------------##
644
Ted Kremenek6b628982008-04-30 23:47:12 +0000645sub AddIfNotPresent {
646 my $Args = shift;
647 my $Arg = shift;
648 my $found = 0;
649
650 foreach my $k (@$Args) {
651 if ($k eq $Arg) {
652 $found = 1;
653 last;
654 }
655 }
656
657 if ($found == 0) {
658 push @$Args, $Arg;
659 }
660}
661
Ted Kremenekdab11102008-04-02 04:43:42 +0000662sub RunBuildCommand {
663
664 my $Args = shift;
Ted Kremenek7442ca62008-04-02 16:04:51 +0000665 my $IgnoreErrors = shift;
Ted Kremenekdab11102008-04-02 04:43:42 +0000666 my $Cmd = $Args->[0];
Ted Kremenek6195c372008-06-02 21:52:47 +0000667 my $CCAnalyzer = shift;
Ted Kremenekdab11102008-04-02 04:43:42 +0000668
Ted Kremenek3301cb12008-06-30 18:18:16 +0000669 # Get only the part of the command after the last '/'.
670 if ($Cmd =~ /\/([^\/]+)$/) {
671 $Cmd = $1;
672 }
673
Ted Kremenek63c20172008-08-04 17:34:06 +0000674 if ($Cmd eq "gcc" or $Cmd eq "cc" or $Cmd eq "llvm-gcc"
675 or $Cmd eq "ccc-analyzer") {
Ted Kremenekdab11102008-04-02 04:43:42 +0000676 shift @$Args;
Ted Kremenek6195c372008-06-02 21:52:47 +0000677 unshift @$Args, $CCAnalyzer;
Ted Kremenekdab11102008-04-02 04:43:42 +0000678 }
Ted Kremenek7442ca62008-04-02 16:04:51 +0000679 elsif ($IgnoreErrors) {
680 if ($Cmd eq "make" or $Cmd eq "gmake") {
Ted Kremenek6b628982008-04-30 23:47:12 +0000681 AddIfNotPresent($Args,"-k");
Ted Kremenek8912b542008-05-13 21:28:02 +0000682 AddIfNotPresent($Args,"-i");
Ted Kremenek7442ca62008-04-02 16:04:51 +0000683 }
684 elsif ($Cmd eq "xcodebuild") {
Ted Kremenek6b628982008-04-30 23:47:12 +0000685 AddIfNotPresent($Args,"-PBXBuildsContinueAfterErrors=YES");
Ted Kremenek7442ca62008-04-02 16:04:51 +0000686 }
Ted Kremenek6b628982008-04-30 23:47:12 +0000687 }
688
Ted Kremenek6b628982008-04-30 23:47:12 +0000689 if ($Cmd eq "xcodebuild") {
Ted Kremenekcfd4c7b2008-05-23 22:18:16 +0000690 # Disable distributed builds for xcodebuild.
Ted Kremenek6b628982008-04-30 23:47:12 +0000691 AddIfNotPresent($Args,"-nodistribute");
Ted Kremenekcfd4c7b2008-05-23 22:18:16 +0000692
693 # Disable PCH files until clang supports them.
694 AddIfNotPresent($Args,"GCC_PRECOMPILE_PREFIX_HEADER=NO");
Ted Kremenek915e9722008-05-27 23:18:07 +0000695
696 # When 'CC' is set, xcodebuild uses it to do all linking, even if we are
697 # linking C++ object files. Set 'LDPLUSPLUS' so that xcodebuild uses 'g++'
698 # when linking such files.
Ted Kremenek95aa1052008-09-04 17:52:41 +0000699 die if (!defined $CXX);
700 my $LDPLUSPLUS = `which $CXX`;
Ted Kremenek915e9722008-05-27 23:18:07 +0000701 $LDPLUSPLUS =~ s/\015?\012//; # strip newlines
702 $ENV{'LDPLUSPLUS'} = $LDPLUSPLUS;
Ted Kremenek6b628982008-04-30 23:47:12 +0000703 }
Ted Kremenekdab11102008-04-02 04:43:42 +0000704
Ted Kremenek5a4ddaf2008-08-25 20:10:45 +0000705 return (system(@$Args) >> 8);
Ted Kremenekdab11102008-04-02 04:43:42 +0000706}
707
Ted Kremenekdab11102008-04-02 04:43:42 +0000708##----------------------------------------------------------------------------##
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000709# DisplayHelp - Utility function to display all help options.
710##----------------------------------------------------------------------------##
711
Sam Bishopa0e22662008-04-02 03:35:43 +0000712sub DisplayHelp {
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000713
Ted Kremenek5744dc22008-04-02 18:03:36 +0000714print <<ENDTEXT;
Sam Bishopa0e22662008-04-02 03:35:43 +0000715USAGE: $Prog [options] <build command> [build options]
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000716
Ted Kremenekf4cdf412008-05-23 18:17:05 +0000717ENDTEXT
718
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000719 if (defined $BuildName) {
Ted Kremenekf4cdf412008-05-23 18:17:05 +0000720 print "ANALYZER BUILD: $BuildName ($BuildDate)\n\n";
721 }
722
723print <<ENDTEXT;
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000724OPTIONS:
725
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000726 -o - Target directory for HTML report files. Subdirectories
Sam Bishopa0e22662008-04-02 03:35:43 +0000727 will be created as needed to represent separate "runs" of
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000728 the analyzer. If this option is not specified, a directory
729 is created in /tmp to store the reports.
Ted Kremenek1262fc42008-05-14 20:10:33 +0000730
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000731 -h - Display this message.
732 --help
Ted Kremenek1262fc42008-05-14 20:10:33 +0000733
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000734 -k - Add a "keep on going" option to the specified build command.
735 --keep-going This option currently supports make and xcodebuild.
Ted Kremenekf02e8db2008-04-02 16:41:25 +0000736 This is a convenience option; one can specify this
737 behavior directly using build options.
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000738
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000739 --status-bugs - By default, the exit status of $Prog is the same as the
740 executed build command. Specifying this option causes the
741 exit status of $Prog to be 1 if it found potential bugs
742 and 0 otherwise.
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000743
Ted Kremenek386c6932008-09-03 17:59:35 +0000744 --use-cc [compiler path] - By default, $Prog uses 'gcc' to compile and link
745 --use-cc=[compiler path] your C and Objective-C code. Use this option
746 to specify an alternate compiler.
747
748 --use-c++ [compiler path] - By default, $Prog uses 'g++' to compile and link
749 --use-c++=[compiler path] your C++ and Objective-C++ code. Use this option
750 to specify an alternate compiler.
Ted Kremenekf17ef3c2008-08-21 21:47:09 +0000751
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000752 -v - Verbose output from $Prog and the analyzer.
Ted Kremenek386c6932008-09-03 17:59:35 +0000753 A second and third '-v' increases verbosity.
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000754
755 -V - View analysis results in a web browser when the build
756 --view completes.
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000757
Ted Kremenekb7770c02008-07-15 17:06:13 +0000758
Ted Kremenek386c6932008-09-03 17:59:35 +0000759AVAILABLE ANALYSES (multiple analyses may be specified):
Ted Kremenekd52e4252008-08-25 20:45:07 +0000760
761ENDTEXT
Ted Kremenekb7770c02008-07-15 17:06:13 +0000762
763 foreach my $Analysis (sort keys %AvailableAnalyses) {
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000764 if (defined $AnalysesDefaultEnabled{$Analysis}) {
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000765 print " (+)";
Ted Kremenekb7770c02008-07-15 17:06:13 +0000766 }
767 else {
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000768 print " ";
Ted Kremenekb7770c02008-07-15 17:06:13 +0000769 }
770
771 print " $Analysis $AvailableAnalyses{$Analysis}\n";
772 }
773
774print <<ENDTEXT
775
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000776 NOTE: "(+)" indicates that an analysis is enabled by default unless one
777 or more analysis options are specified
Ted Kremenekb7770c02008-07-15 17:06:13 +0000778
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000779BUILD OPTIONS
780
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000781 You can specify any build option acceptable to the build command.
Ted Kremenek39eefde2008-04-02 16:47:27 +0000782
Ted Kremenek5744dc22008-04-02 18:03:36 +0000783EXAMPLE
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000784
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000785 $Prog -o /tmp/myhtmldir make -j4
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000786
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000787 The above example causes analysis reports to be deposited into
788 a subdirectory of "/tmp/myhtmldir" and to run "make" with the "-j4" option.
789 A different subdirectory is created each time $Prog analyzes a project.
790 The analyzer should support most parallel builds, but not distributed builds.
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000791
792ENDTEXT
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000793}
794
795##----------------------------------------------------------------------------##
796# Process command-line arguments.
797##----------------------------------------------------------------------------##
798
799my $HtmlDir; # Parent directory to store HTML files.
800my $IgnoreErrors = 0; # Ignore build errors.
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000801my $ViewResults = 0; # View results when the build terminates.
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000802my $ExitStatusFoundBugs = 0; # Exit status reflects whether bugs were found
Ted Kremenekb7770c02008-07-15 17:06:13 +0000803my @AnalysesToRun;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000804
805if (!@ARGV) {
806 DisplayHelp();
Sam Bishopa0e22662008-04-02 03:35:43 +0000807 exit 1;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000808}
809
810while (@ARGV) {
811
812 # Scan for options we recognize.
813
814 my $arg = $ARGV[0];
815
Sam Bishop2f2418e2008-04-03 14:29:47 +0000816 if ($arg eq "-h" or $arg eq "--help") {
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000817 DisplayHelp();
Sam Bishopa0e22662008-04-02 03:35:43 +0000818 exit 0;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000819 }
820
Ted Kremenekfc1d3402008-08-04 18:15:26 +0000821 if (defined $AvailableAnalyses{$arg}) {
Ted Kremenek1262fc42008-05-14 20:10:33 +0000822 shift @ARGV;
Ted Kremenekb7770c02008-07-15 17:06:13 +0000823 push @AnalysesToRun, $arg;
Ted Kremenek1262fc42008-05-14 20:10:33 +0000824 next;
825 }
826
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000827 if ($arg eq "-o") {
828 shift @ARGV;
829
830 if (!@ARGV) {
Ted Kremenek23cfca32008-06-16 22:40:14 +0000831 DieDiag("'-o' option requires a target directory name.\n");
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000832 }
833
834 $HtmlDir = shift @ARGV;
835 next;
836 }
837
Ted Kremenek2b74ab62008-04-01 21:22:03 +0000838 if ($arg eq "-k" or $arg eq "--keep-going") {
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000839 shift @ARGV;
840 $IgnoreErrors = 1;
841 next;
842 }
843
Ted Kremenekf17ef3c2008-08-21 21:47:09 +0000844 if ($arg =~ /^--use-cc(=(.+))?$/) {
845 shift @ARGV;
846 my $cc;
847
848 if ($2 eq "") {
849 if (!@ARGV) {
850 DieDiag("'--use-cc' option requires a compiler executable name.\n");
851 }
852 $cc = shift @ARGV;
853 }
854 else {
855 $cc = $2;
856 }
857
858 $ENV{"CCC_CC"} = $cc;
859 next;
860 }
861
Ted Kremenek386c6932008-09-03 17:59:35 +0000862 if ($arg =~ /^--use-c[+][+](=(.+))?$/) {
863 shift @ARGV;
864
865 if ($2 eq "") {
866 if (!@ARGV) {
867 DieDiag("'--use-c++' option requires a compiler executable name.\n");
868 }
869 $CXX = shift @ARGV;
870 }
871 else {
872 $CXX = $2;
873 }
874 next;
875 }
876
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000877 if ($arg eq "-v") {
878 shift @ARGV;
879 $Verbose++;
880 next;
881 }
882
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000883 if ($arg eq "-V" or $arg eq "--view") {
884 shift @ARGV;
885 $ViewResults = 1;
886 next;
887 }
888
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000889 if ($arg eq "--status-bugs") {
890 shift @ARGV;
891 $ExitStatusFoundBugs = 1;
892 next;
893 }
894
Ted Kremenek23cfca32008-06-16 22:40:14 +0000895 DieDiag("unrecognized option '$arg'\n") if ($arg =~ /^-/);
Ted Kremenek0062ad42008-04-02 16:35:01 +0000896
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000897 last;
898}
899
900if (!@ARGV) {
Ted Kremenek23cfca32008-06-16 22:40:14 +0000901 Diag("No build command specified.\n\n");
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000902 DisplayHelp();
Sam Bishopa0e22662008-04-02 03:35:43 +0000903 exit 1;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000904}
905
Ted Kremenek386c6932008-09-03 17:59:35 +0000906
907
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000908# Determine the output directory for the HTML reports.
Ted Kremenek684bb092008-04-18 15:18:20 +0000909my $BaseDir = $HtmlDir;
Sam Bishopa0e22662008-04-02 03:35:43 +0000910$HtmlDir = GetHTMLRunDir($HtmlDir);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000911
912# Set the appropriate environment variables.
Sam Bishopa0e22662008-04-02 03:35:43 +0000913SetHtmlEnv(\@ARGV, $HtmlDir);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000914
Ted Kremenek0b6c1532008-04-08 20:22:12 +0000915my $Cmd = "$RealBin/ccc-analyzer";
916
Ted Kremenek23cfca32008-06-16 22:40:14 +0000917DieDiag("Executable 'ccc-analyzer' does not exist at '$Cmd'\n")
Ted Kremenek0b6c1532008-04-08 20:22:12 +0000918 if (! -x $Cmd);
Ted Kremenekf22eacb2008-04-18 22:00:56 +0000919
Ted Kremenekb7770c02008-07-15 17:06:13 +0000920if (! -x $ClangSB) {
921 Diag("'clang' executable not found in '$RealBin'.\n");
922 Diag("Using 'clang' from path.\n");
Ted Kremenekf22eacb2008-04-18 22:00:56 +0000923}
Ted Kremenek0b6c1532008-04-08 20:22:12 +0000924
Ted Kremenek95aa1052008-09-04 17:52:41 +0000925if (defined $CXX) {
926 $ENV{'CXX'} = $CXX;
927}
928else {
929 $CXX = 'g++'; # This variable is used by other parts of scan-build
930 # that need to know a default C++ compiler to fall back to.
931}
932
Ted Kremenek4f4b17d2008-04-03 20:08:18 +0000933$ENV{'CC'} = $Cmd;
Ted Kremenekf22eacb2008-04-18 22:00:56 +0000934$ENV{'CLANG'} = $Clang;
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000935
936if ($Verbose >= 2) {
937 $ENV{'CCC_ANALYZER_VERBOSE'} = 1;
938}
939
Ted Kremeneka9525c92008-05-12 22:07:14 +0000940if ($Verbose >= 3) {
941 $ENV{'CCC_ANALYZER_LOG'} = 1;
942}
943
Ted Kremenek90125992008-07-15 23:41:32 +0000944if (scalar(@AnalysesToRun) == 0) {
945 foreach my $key (keys %AnalysesDefaultEnabled) {
946 push @AnalysesToRun,$key;
947 }
Ted Kremenek01006782008-07-02 23:16:10 +0000948}
Ted Kremenek1262fc42008-05-14 20:10:33 +0000949
Ted Kremenek90125992008-07-15 23:41:32 +0000950$ENV{'CCC_ANALYZER_ANALYSIS'} = join ' ',@AnalysesToRun;
951
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000952# Run the build.
Ted Kremenek5656a982008-07-15 17:09:28 +0000953my $ExitStatus = RunBuildCommand(\@ARGV, $IgnoreErrors, $Cmd);
Ted Kremenek9cc8c2c2008-04-01 20:47:38 +0000954
955# Postprocess the HTML directory.
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000956my $NumBugs = Postprocess($HtmlDir, $BaseDir);
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000957
958if ($ViewResults and -r "$HtmlDir/index.html") {
959 # Only works on Mac OS X (for now).
960 print "Viewing analysis results: '$HtmlDir/index.html'\n";
Ted Kremenek20161e92008-07-15 20:18:21 +0000961 system("open", "$HtmlDir/index.html");
Ted Kremenek7f8a3252008-04-02 18:42:49 +0000962}
Ted Kremenek5656a982008-07-15 17:09:28 +0000963
Ted Kremenek363dc3f2008-07-15 22:03:09 +0000964if ($ExitStatusFoundBugs) {
965 exit 1 if ($NumBugs > 0);
966 exit 0;
967}
968
Ted Kremenek5656a982008-07-15 17:09:28 +0000969exit $ExitStatus;
970