[cfe-commits] r56598 - in /cfe/trunk/utils: ccc-analyzer scan-build

[Ted Kremenek]

Author: kremenek
Date: Wed Sep 24 19:25:16 2008
New Revision: 56598

URL: http://llvm.org/viewvc/llvm-project?rev=56598&view=rev
Log:
Use .txt extension for info files.

Modified:
    cfe/trunk/utils/ccc-analyzer
    cfe/trunk/utils/scan-build

Modified: cfe/trunk/utils/ccc-analyzer
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/utils/ccc-analyzer?rev=56598&r1=56597&r2=56598&view=diff

==============================================================================
--- cfe/trunk/utils/ccc-analyzer (original)
+++ cfe/trunk/utils/ccc-analyzer Wed Sep 24 19:25:16 2008
@@ -41,13 +41,13 @@
 
   system $CC, @$Args, "-E", "-o", $PPFile;
   close ($PPH);
-  open (OUT, ">", "$PPFile.info") or die "Cannot open $PPFile.info\n";
+  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 2>&1`;
-  `$CC -v >> $PPFile.info 2>&1`;
+  `uname -a >> $PPFile.info.txt 2>&1`;
+  `$CC -v >> $PPFile.info.txt 2>&1`;
   system 'mv',$ofile,"$PPFile.stderr.txt";
 }
 

Modified: cfe/trunk/utils/scan-build
URL: http://llvm.org/viewvc/llvm-project/cfe/trunk/utils/scan-build?rev=56598&r1=56597&r2=56598&view=diff

==============================================================================
--- cfe/trunk/utils/scan-build (original)
+++ cfe/trunk/utils/scan-build Wed Sep 24 19:25:16 2008
@@ -452,7 +452,7 @@
   # to update the common prefix directory.
   if (-d "$Dir/crashes") {
     opendir(DIR, "$Dir/crashes");
-    my @files = grep { /[.]info$/; } readdir(DIR);
+    my @files = grep { /[.]info.txt$/; } readdir(DIR);
     closedir(DIR);
     foreach my $file (@files) {
       open IN, "$Dir/crashes/$file" or DieDiag("cannot open $file\n");
@@ -656,7 +656,7 @@
   if ($Crashes) {
     # Read the crash directory for files.
     opendir(DIR, "$Dir/crashes");
-    my @files = grep { /[.]info$/ } readdir(DIR);
+    my @files = grep { /[.]info.txt$/ } readdir(DIR);
     closedir(DIR);
 
     if (scalar(@files)) {
@@ -670,7 +670,7 @@
 ENDTEXT
   
       foreach my $file (sort @files) {
-        $file =~ /(.+).info$/;
+        $file =~ /(.+).info.txt$/;
         # Get the preprocessed file.
         my $ppfile = $1;
         # Open the info file and get the name of the source file.