X-Git-Url: http://demsky.eecs.uci.edu/git/?a=blobdiff_plain;f=utils%2Fuserloc.pl;h=4da2f4029250163d1cf06d25e17592e7f6e28823;hb=0a4627d71f8f836558ef05c9739b560e82412687;hp=28b6792a8e552b33b439795dbf6471fffd15a9dc;hpb=ae2e622e7452863e59cb621152e35dd16f1c4661;p=oota-llvm.git diff --git a/utils/userloc.pl b/utils/userloc.pl index 28b6792a8e5..4da2f402925 100755 --- a/utils/userloc.pl +++ b/utils/userloc.pl @@ -8,32 +8,34 @@ # then the cwd is used. The directory must be an LLVM tree checked out # from cvs. # -# Syntax: userloc.pl [-recurse|-tag=tag|-html... ... +# Syntax: userloc.pl [-tag=tag|-html... ... # # Options: -# -recurse -# Recurse through sub directories. Without this, only the -# specified directory is examined # -tag=tag # Use "tag" to select the revision (as per cvs -r option) # -filedetails # Report details about lines of code in each file for each user # -html # Generate HTML output instead of text output - -die "Usage userloc.pl [-recurse|-tag=tag|-html] ..." +# -topdir +# Specify where the top llvm source directory is. Otherwise the +# llvm-config tool is used to find it. +# Directories: +# The directories passed after the options should be relative paths to +# directories of interest from the top of the llvm source tree, e.g. "lib" +# or "include", etc. + +die "Usage userloc.pl [-tag=tag|-html] ..." if ($#ARGV < 0); my $tag = ""; -my $recurse = 0; my $html = 0; my $debug = 0; my $filedetails = ""; -while ( substr($ARGV[0],0,1) eq '-' ) +my $srcroot = ""; +while ( defined($ARGV[0]) && substr($ARGV[0],0,1) eq '-' ) { - if ($ARGV[0] eq "-recurse") { - $recurse = 1; - } elsif ($ARGV[0] =~ /-tag=.*/) { + if ($ARGV[0] =~ /-tag=.*/) { $tag = $ARGV[0]; $tag =~ s#-tag=(.*)#$1#; } elsif ($ARGV[0] =~ /-filedetails/) { @@ -42,60 +44,45 @@ while ( substr($ARGV[0],0,1) eq '-' ) $html = 1; } elsif ($ARGV[0] eq "-debug") { $debug = 1; + } elsif ($ARGV[0] eq "-topdir") { + shift; $srcroot = $ARGV[0]; shift; } else { die "Invalid option: $ARGV[0]"; } shift; } -die "Usage userloc.pl [-recurse|-tag=tag|-html] ..." - if ($#ARGV < 0); - +if (length($srcroot) == 0) { + chomp($srcroot = `llvm-config --src-root`); +} +if (! -d "$srcroot") { + die "Invalid source root: $srcroot\n"; +} +chdir($srcroot); +my $llvmdo = "$srcroot/utils/llvmdo -topdir '$srcroot'"; my %Stats; my %FileStats; -sub ValidateFile +my $annotate = "cvs -z6 annotate -lf "; +if (length($tag) > 0) { - my $f = $_[0]; - my $d = $_[1]; - - if ( $d =~ ".*autoconf.*") - { - return 1 if ($f eq "configure.ac"); - return 1 if ($f eq "AutoRegen.sh"); - return 0; - } - return 0 if ( "$f" eq "configure"); - return 0 if ( "$f" eq 'PPCPerfectShuffle.h' ); - return 0 if ( $f =~ /.*\.cvs/); - return 1; + $annotate = $annotate . " -r" . $tag; } sub GetCVSFiles { my $d = $_[0]; my $files =""; - open STATUS, "cvs -nfz6 status $d -l 2>/dev/null |" - || die "Can't 'cvs status'"; - while ( defined($line = ) ) - { - if ( $line =~ /^File:.*/ ) - { - chomp($line); - $line =~ s#^File: ([A-Za-z0-9._-]*)[ \t]*Status:.*#$1#; - $files = "$files $d/$line" if (ValidateFile($line,$d)); - } - + open FILELIST, + "$llvmdo -dirs \"$d\" -code-only echo |" || die "Can't get list of files with llvmdo"; + while ( defined($line = ) ) { + chomp($file = $line); + print "File: $file\n" if ($debug); + $files = "$files $file"; } return $files; } -my $annotate = "cvs -z6 annotate -lf "; -if (length($tag) > 0) -{ - $annotate = $annotate . " -r" . $tag; -} - sub ScanDir { my $Dir = $_[0]; @@ -111,6 +98,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#; @@ -124,39 +112,17 @@ sub ScanDir close DATA; } -sub ValidateDirectory -{ - my $d = $_[0]; - return 0 if (! -d "$d" || ! -d "$d/CVS"); - return 0 if ($d =~ /.*CVS.*/); - return 0 if ($d =~ /.*Debug.*/); - return 0 if ($d =~ /.*Release.*/); - return 0 if ($d =~ /.*Profile.*/); - return 0 if ($d =~ /.*docs\/CommandGuide\/html.*/); - return 0 if ($d =~ /.*docs\/CommandGuide\/man.*/); - return 0 if ($d =~ /.*docs\/CommandGuide\/ps.*/); - return 0 if ($d =~ /.*docs\/CommandGuide\/man.*/); - return 0 if ($d =~ /.*docs\/HistoricalNotes.*/); - return 0 if ($d =~ /.*docs\/img.*/); - return 0 if ($d =~ /.*bzip2.*/); - return 1 if ($d =~ /.*projects\/Stacker.*/); - return 1 if ($d =~ /.*projects\/sample.*/); - return 0 if ($d =~ /.*projects\/llvm-.*/); - return 0 if ($d =~ /.*win32.*/); - return 0 if ($d =~ /.*\/.libs\/.*/); - return 1; -} - sub printStats { my $dir = $_[0]; my $hash = $_[1]; - my $usr; + my $user; my $total = 0; - foreach $usr (keys %Stats) { $total += $Stats{$usr}; } + foreach $user (keys %Stats) { $total += $Stats{$user}; } if ($html) { + print "

Total Source Lines: $total

\n"; print ""; print " \n"; print " \n"; @@ -164,15 +130,20 @@ sub printStats print "\n"; } - foreach $usr ( sort keys %Stats ) + foreach $user ( sort keys %Stats ) { - my $v = $Stats{$usr}; + my $v = $Stats{$user}; if (defined($v)) { if ($html) { - printf "", $v, (100.0/$total)*$v,$usr; + printf ""; + } else { + print $user,""; + } } else { - printf "%8d (%4.1f%%) %s\n", $v, (100.0/$total)*$v, $usr; + printf "%8d (%4.1f%%) %s\n", $v, (100.0/$total)*$v, $user; } } } @@ -185,7 +156,7 @@ sub printStats $total += ${$FileStats{$user}}{$file} } if ($html) { - print "
LOC\%LOC
%d(%4.1f%%)%s
%d(%4.1f%%)", $v, (100.0/$total)*$v; + if ($filedetails) { + print "$user
\n"; + print "
$user
\n"; } else { print $user,":\n"; } @@ -204,14 +175,6 @@ sub printStats } } -my @ALLDIRS = @ARGV; - -if ($recurse) -{ - $Dirs = join(" ", @ARGV); - $Dirs = `find $Dirs -type d \! -name CVS -print`; - @ALLDIRS = split(' ',$Dirs); -} if ($html) { @@ -226,31 +189,28 @@ print "LLVM directory. Lines of code are attributed by the user that last\n"; print "committed the line. This does not necessarily reflect authorship.

\n"; } -my @ignored_dirs; - -for $Dir (@ALLDIRS) -{ - if ( ValidateDirectory($Dir) ) - { - ScanDir($Dir); - } - elsif ($html) - { - push @ignored_dirs, $Dir; - } +my @DIRS; +if ($#ARGV > 0) { + @DIRS = @ARGV; +} else { + push @DIRS, 'include'; + push @DIRS, 'lib'; + push @DIRS, 'tools'; + push @DIRS, 'runtime'; + push @DIRS, 'docs'; + push @DIRS, 'test'; + push @DIRS, 'utils'; + push @DIRS, 'examples'; + push @DIRS, 'projects/Stacker'; + push @DIRS, 'projects/sample'; + push @DIRS, 'autoconf'; +} + +for $Index ( 0 .. $#DIRS) { + print "Scanning Dir: $DIRS[$Index]\n" if ($debug); + ScanDir($DIRS[$Index]); } printStats; -if ($html) -{ - if (scalar @ignored_dirs > 0) { - print "

The following directories were skipped:

\n"; - print "
    \n"; - foreach $index (0 .. $#ignored_dirs) { - print "
  1. ", $ignored_dirs[$index], "
    2. \n"; - } - print "
\n"; - } - print "\n"; -} +print "\n" if ($html) ;
$user