mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-12-05 02:07:56 +00:00
7f2ce5b626
source dir for LLVM to be specified explicitly. This removes the dependency on the llvm-config script. If the option is not given, then the scripts use llvm-config which should be both built and in the PATH. This arrangement provides a useful default for most developers but also allows the nightly tester to execute countloc.sh before llvm-config is built and without altering the PATH. llvm-svn: 29663
217 lines
5.9 KiB
Perl
Executable File
217 lines
5.9 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# Program: userloc.pl
|
|
#
|
|
# Synopsis: This program uses "cvs annotate" to get a summary of how many lines
|
|
# of code the various developres are responsible for. It takes one
|
|
# argument, the directory to process. If the argument is not specified
|
|
# then the cwd is used. The directory must be an LLVM tree checked out
|
|
# from cvs.
|
|
#
|
|
# Syntax: userloc.pl [-tag=tag|-html... <directory>...
|
|
#
|
|
# Options:
|
|
# -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
|
|
# -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] <directories>..."
|
|
if ($#ARGV < 0);
|
|
|
|
my $tag = "";
|
|
my $html = 0;
|
|
my $debug = 0;
|
|
my $filedetails = "";
|
|
my $srcroot = "";
|
|
while ( defined($ARGV[0]) && substr($ARGV[0],0,1) eq '-' )
|
|
{
|
|
if ($ARGV[0] =~ /-tag=.*/) {
|
|
$tag = $ARGV[0];
|
|
$tag =~ s#-tag=(.*)#$1#;
|
|
} elsif ($ARGV[0] =~ /-filedetails/) {
|
|
$filedetails = 1;
|
|
} elsif ($ARGV[0] eq "-html") {
|
|
$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;
|
|
}
|
|
|
|
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;
|
|
|
|
my $annotate = "cvs -z6 annotate -lf ";
|
|
if (length($tag) > 0)
|
|
{
|
|
$annotate = $annotate . " -r" . $tag;
|
|
}
|
|
|
|
sub GetCVSFiles
|
|
{
|
|
my $d = $_[0];
|
|
my $files ="";
|
|
open FILELIST,
|
|
"$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;
|
|
}
|
|
|
|
sub ScanDir
|
|
{
|
|
my $Dir = $_[0];
|
|
my $files = GetCVSFiles($Dir);
|
|
|
|
open (DATA,"$annotate $files 2>&1 |")
|
|
|| die "Can't read cvs annotation data";
|
|
|
|
my $curfile = "";
|
|
while ( defined($line = <DATA>) )
|
|
{
|
|
chomp($line);
|
|
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#;
|
|
$Stats{$uname}++;
|
|
if ($filedetails) {
|
|
$FileStats{$uname} = {} unless exists $FileStats{$uname};
|
|
${$FileStats{$uname}}{$curfile}++;
|
|
}
|
|
}
|
|
}
|
|
close DATA;
|
|
}
|
|
|
|
sub printStats
|
|
{
|
|
my $dir = $_[0];
|
|
my $hash = $_[1];
|
|
my $user;
|
|
my $total = 0;
|
|
|
|
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";
|
|
print " <th style=\"text-align:left\">User</th>\n";
|
|
print "</tr>\n";
|
|
}
|
|
|
|
foreach $user ( sort keys %Stats )
|
|
{
|
|
my $v = $Stats{$user};
|
|
if (defined($v))
|
|
{
|
|
if ($html) {
|
|
printf "<tr><td style=\"text-align:right\">%d</td><td style=\"text-align:right\">(%4.1f%%)</td><td style=\"text-align:left\">", $v, (100.0/$total)*$v;
|
|
if ($filedetails) {
|
|
print "<a href=\"#$user\">$user</a></td></tr>";
|
|
} else {
|
|
print $user,"</td></tr>";
|
|
}
|
|
} else {
|
|
printf "%8d (%4.1f%%) %s\n", $v, (100.0/$total)*$v, $user;
|
|
}
|
|
}
|
|
}
|
|
print "</table>\n" if ($html);
|
|
|
|
if ($filedetails) {
|
|
foreach $user (sort keys %FileStats) {
|
|
my $total = 0;
|
|
foreach $file (sort keys %{$FileStats{$user}}) {
|
|
$total += ${$FileStats{$user}}{$file}
|
|
}
|
|
if ($html) {
|
|
print "<table><tr><th style=\"text-align:left\" colspan=\"3\"><a name=\"$user\">$user</a></th></tr>\n";
|
|
} else {
|
|
print $user,":\n";
|
|
}
|
|
foreach $file (sort keys %{$FileStats{$user}}) {
|
|
my $v = ${$FileStats{$user}}{$file};
|
|
if ($html) {
|
|
printf "<tr><td style=\"text-align:right\"> %d</td><td
|
|
style=\"text-align:right\"> %4.1f%%</td><td
|
|
style=\"text-align:left\">%s</td></tr>",$v, (100.0/$total)*$v,$file;
|
|
} else {
|
|
printf "%8d (%4.1f%%) %s\n", $v, (100.0/$total)*$v, $file;
|
|
}
|
|
}
|
|
if ($html) { print "</table>\n"; }
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
if ($html)
|
|
{
|
|
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n";
|
|
print "<html>\n<head>\n";
|
|
print " <title>LLVM LOC Based On CVS Annotation</title>\n";
|
|
print " <link rel=\"stylesheet\" href=\"llvm.css\" type=\"text/css\"/>\n";
|
|
print "</head>\n";
|
|
print "<body><div class=\"doc_title\">LLVM LOC Based On CVS Annotation</div>\n";
|
|
print "<p>This document shows the total lines of code per user in each\n";
|
|
print "LLVM directory. Lines of code are attributed by the user that last\n";
|
|
print "committed the line. This does not necessarily reflect authorship.</p>\n";
|
|
}
|
|
|
|
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;
|
|
|
|
print "</body></html>\n" if ($html) ;
|