[llvm-commits] CVS: llvm/utils/userloc.pl

[Reid Spencer]

Changes in directory llvm/utils:

userloc.pl updated: 1.7 -> 1.8
---
Log message:

1. fix bug by ensuring we start at the llvm source root.
2. make use of the -code-only option on llvmdo
3. Add some debug print statements to find #1


---
Diffs of the changes:  (+6 -1)

 userloc.pl |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletion(-)


Index: llvm/utils/userloc.pl
diff -u llvm/utils/userloc.pl:1.7 llvm/utils/userloc.pl:1.8
--- llvm/utils/userloc.pl:1.7	Fri Aug 11 18:50:27 2006
+++ llvm/utils/userloc.pl	Sun Aug 13 14:03:06 2006
@@ -47,6 +47,7 @@
 }
 
 chomp(my $srcroot = `llvm-config --src-root`);
+chdir($srcroot);
 my $llvmdo = "$srcroot/utils/llvmdo";
 my %Stats;
 my %FileStats;
@@ -62,9 +63,10 @@
   my $d = $_[0];
   my $files ="";
   open FILELIST, 
-    "$llvmdo -dirs \"$d\" echo |" || die "Can't get list of files with llvmdo";
+    "$llvmdo -dirs \"$d\" -code-only echo |" || die "Can't get list of files with llvmdo";
   while ( defined($line = <FILELIST>) ) {
     chomp($file = $line);
+    print "File: $file\n" if ($debug);
     $files = "$files $file";
   }
   return $files;
@@ -85,6 +87,7 @@
     if ($line =~ '^Annotations for.*') {
       $curfile = $line;
       $curfile =~ s#^Annotations for ([[:print:]]*)#$1#;
+      print "Scanning: $curfile\n" if ($debug);
     } elsif ($line =~ /^[0-9.]*[ \t]*\([^)]*\):/) {
       $uname = $line;
       $uname =~ s#^[0-9.]*[ \t]*\(([a-zA-Z0-9_.-]*) [^)]*\):.*#$1#;
@@ -108,6 +111,7 @@
   foreach $user (keys %Stats) { $total += $Stats{$user}; }
 
   if ($html) { 
+    print "<p>Total Source Lines: $total<br/></p>\n";
     print "<table>";
     print " <tr><th style=\"text-align:right\">LOC</th>\n";
     print " <th style=\"text-align:right\">\%LOC</th>\n";
@@ -192,6 +196,7 @@
 }
   
 for $Index ( 0 .. $#DIRS) { 
+  print "Scanning Dir: $DIRS[$Index]\n" if ($debug);
   ScanDir($DIRS[$Index]); 
 }