diff options
author | Reid Spencer <rspencer@reidspencer.com> | 2006-08-13 19:03:06 +0000 |
---|---|---|
committer | Reid Spencer <rspencer@reidspencer.com> | 2006-08-13 19:03:06 +0000 |
commit | 321956392fa34f055f8c4a464263a3e6ad7f51f2 (patch) | |
tree | 33b824144696c8012bd3a67f5e12310dbd56ff8a /utils | |
parent | 99aa27161b3479748c0a1df79a46740b3eb4928d (diff) | |
download | llvm-321956392fa34f055f8c4a464263a3e6ad7f51f2.tar.gz llvm-321956392fa34f055f8c4a464263a3e6ad7f51f2.tar.bz2 llvm-321956392fa34f055f8c4a464263a3e6ad7f51f2.tar.xz |
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
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@29655 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'utils')
-rwxr-xr-x | utils/userloc.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/utils/userloc.pl b/utils/userloc.pl index c6972be327..944b18096d 100755 --- a/utils/userloc.pl +++ b/utils/userloc.pl @@ -47,6 +47,7 @@ while ( defined($ARGV[0]) && substr($ARGV[0],0,1) eq '-' ) } chomp(my $srcroot = `llvm-config --src-root`); +chdir($srcroot); my $llvmdo = "$srcroot/utils/llvmdo"; my %Stats; my %FileStats; @@ -62,9 +63,10 @@ sub GetCVSFiles 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 @@ sub ScanDir 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 @@ sub printStats 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 @@ if ($#ARGV > 0) { } for $Index ( 0 .. $#DIRS) { + print "Scanning Dir: $DIRS[$Index]\n" if ($debug); ScanDir($DIRS[$Index]); } |