mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-12-13 04:30:23 +00:00
Sometimes tab completion is *not* your friend. Added the wrong file, by
accident so now I'm correcting it. The script is userloc.pl not userloc.html git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@22093 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Reid Spencer
parent
d5de2c8ede
commit
4dd4e6ae1b
@ -1,21 +0,0 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
|
||||
<html>
|
||||
<head>
|
||||
<title>LLVM LOC Based On CVS Annotation</title>
|
||||
<link rel="stylesheet" href="llvm.css" type="text/css"/>
|
||||
</head>
|
||||
<body><div class="doc_title">LLVM LOC Based On CVS Annotation</div>
|
||||
<p>This document shows the total lines of code per user in each
|
||||
LLVM directory. Lines of code are attributed by the user that last
|
||||
committed the line. This does not necessarily reflect authorship.</p>
|
||||
<table>
|
||||
<tr><th style="text-align:left">Directory</th>
|
||||
<th style="text-align:right">brukman</th>
|
||||
<th style="text-align:right">hldnbrnd</th>
|
||||
<th style="text-align:right">reid</th>
|
||||
<th style="text-align:right">foo</th>
|
||||
<th style="text-align:right">lattner</th>
|
||||
<tr><td>fpcmp</td><td style="text-align:right"> 2 ( 3.5) </td><td style="text-align:right">- </td><td style="text-align:right">- </td><td style="text-align:right"> 53 (93.0) </td><td style="text-align:right"> 2 ( 3.5) </td></tr>
|
||||
<tr><td>vim</td><td style="text-align:right"> 131 (70.4) </td><td style="text-align:right"> 1 ( 0.5) </td><td style="text-align:right"> 47 (25.3) </td><td style="text-align:right"> 7 ( 3.8) </td><td style="text-align:right">- </td></tr>
|
||||
<tr><td>Total</td><td style="text-align:right"> 133 (54.7) </td><td style="text-align:right"> 1 ( 0.4) </td><td style="text-align:right"> 47 (19.3) </td><td style="text-align:right"> 60 (24.7) </td><td style="text-align:right"> 2 ( 0.8) </td></tr>
|
||||
</table></body></html>
|
||||
257
utils/userloc.pl
Executable file
257
utils/userloc.pl
Executable file
@ -0,0 +1,257 @@
|
||||
#!/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 [-details|-recurse|-tag=tag|-html... <directory>...
|
||||
#
|
||||
# Options:
|
||||
# -details
|
||||
# Print detailed per-directory information.
|
||||
# -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)
|
||||
# -html
|
||||
# Generate HTML output instead of text output
|
||||
|
||||
die "Usage userloc.pl [-details|-recurse|-tag=tag|-html] <directories>..."
|
||||
if ($#ARGV < 0);
|
||||
|
||||
my $tag = "";
|
||||
my $details = 0;
|
||||
my $recurse = 0;
|
||||
my $html = 0;
|
||||
while ( substr($ARGV[0],0,1) eq '-' )
|
||||
{
|
||||
if ($ARGV[0] eq "-details")
|
||||
{
|
||||
$details = 1 ;
|
||||
}
|
||||
elsif ($ARGV[0] eq "-recurse")
|
||||
{
|
||||
$recurse = 1;
|
||||
}
|
||||
elsif ($ARGV[0] =~ /-tag=.*/)
|
||||
{
|
||||
$tag = $ARGV[0];
|
||||
$tag =~ s#-tag=(.*)#$1#;
|
||||
}
|
||||
elsif ($ARGV[0] eq "-html")
|
||||
{
|
||||
$html = 1;
|
||||
}
|
||||
else
|
||||
{
|
||||
die "Invalid option: $ARGV[0]";
|
||||
}
|
||||
shift;
|
||||
}
|
||||
|
||||
die "Usage userloc.pl [-details|-recurse|-tag=tag|-html] <directories>..."
|
||||
if ($#ARGV < 0);
|
||||
|
||||
my %Stats;
|
||||
my %StatsDetails;
|
||||
|
||||
sub ValidateFile
|
||||
{
|
||||
my $f = $_[0];
|
||||
my $d = $_[1];
|
||||
|
||||
return 0 if ( "$f" eq "configure");
|
||||
if ( $d =~ ".*autoconf.*")
|
||||
{
|
||||
return 1 if ($f eq "configure.ac");
|
||||
return 1 if ($f eq "AutoRegen.sh");
|
||||
return 0;
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
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 = <STATUS>) )
|
||||
{
|
||||
if ( $line =~ /^File:.*/ )
|
||||
{
|
||||
chomp($line);
|
||||
$line =~ s#^File: ([A-Za-z0-9._-]*)[ \t]*Status:.*#$1#;
|
||||
$files = "$files $d/$line" if (ValidateFile($line,$d));
|
||||
}
|
||||
|
||||
}
|
||||
return $files;
|
||||
}
|
||||
|
||||
my $annotate = "cvs annotate -lf ";
|
||||
if (length($tag) > 0)
|
||||
{
|
||||
$annotate = $annotate . " -r " . $tag;
|
||||
}
|
||||
|
||||
sub ScanDir
|
||||
{
|
||||
my $Dir = $_[0];
|
||||
my $files = GetCVSFiles($Dir);
|
||||
|
||||
open (DATA,"$annotate $files 2>/dev/null |")
|
||||
|| die "Can't read cvs annotation data";
|
||||
|
||||
my %st;
|
||||
while ( defined($line = <DATA>) )
|
||||
{
|
||||
if ($line =~ /^[0-9.]*[ \t]*\(/)
|
||||
{
|
||||
$line =~ s#^[0-9.]*[ \t]*\(([a-zA-Z0-9_.-]*).*#$1#;
|
||||
chomp($line);
|
||||
$st{$line}++;
|
||||
$Stats{$line}++;
|
||||
}
|
||||
}
|
||||
|
||||
$StatsDetails{$Dir} = { %st };
|
||||
|
||||
close DATA;
|
||||
}
|
||||
|
||||
sub ValidateDirectory
|
||||
{
|
||||
my $d = $_[0];
|
||||
return 0 if ($d =~ /.*CVS.*/);
|
||||
return 0 if ($d =~ /.*Debug.*/);
|
||||
return 0 if ($d =~ /.*Release.*/);
|
||||
return 0 if ($d =~ /.*Profile.*/);
|
||||
return 0 if ($d =~ /.*utils\/Burg.*/);
|
||||
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 1;
|
||||
}
|
||||
|
||||
my $RowCount = 0;
|
||||
sub printStats
|
||||
{
|
||||
my $dir = $_[0];
|
||||
my $hash = $_[1];
|
||||
my $user;
|
||||
my $total = 0;
|
||||
|
||||
if ($RowCount % 10 == 0)
|
||||
{
|
||||
print " <tr><th style=\"text-align:left\">Directory</th>\n";
|
||||
foreach $user (keys %Stats)
|
||||
{
|
||||
print "<th style=\"text-align:right\">",$user,"</th></tr>\n";
|
||||
}
|
||||
}
|
||||
|
||||
$RowCount++;
|
||||
|
||||
foreach $user (keys %{$hash}) { $total += $hash->{$user}; }
|
||||
|
||||
if ($html)
|
||||
{ print "<tr><td style=\"text-align:left\">",$dir,"</td>"; }
|
||||
else
|
||||
{ print $dir,"\n"; }
|
||||
|
||||
foreach $user ( sort keys %Stats )
|
||||
{
|
||||
my $v = $hash->{$user};
|
||||
if (defined($v))
|
||||
{
|
||||
if ($html)
|
||||
{
|
||||
printf "<td style=\"text-align:right\">%d<br/>(%2.1f%%)</td>", $v,
|
||||
(100.0/$total)*$v;
|
||||
}
|
||||
else
|
||||
{
|
||||
printf "%8d (%4.1f%%): %s\n", $v, (100.0/$total)*$v, $user;
|
||||
}
|
||||
}
|
||||
elsif ($html)
|
||||
{
|
||||
print "<td style=\"text-align:right\">- </td>";
|
||||
}
|
||||
}
|
||||
print "</tr>\n" if ($html);
|
||||
}
|
||||
|
||||
my @ALLDIRS = @ARGV;
|
||||
|
||||
if ($recurse)
|
||||
{
|
||||
$Dirs = join(" ", @ARGV);
|
||||
$Dirs = `find $Dirs -type d \! -name CVS -print`;
|
||||
@ALLDIRS = split(' ',$Dirs);
|
||||
}
|
||||
|
||||
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";
|
||||
print "<p>The following directories were skipped:</p>\n";
|
||||
print "<ol>\n";
|
||||
}
|
||||
|
||||
for $Dir (@ALLDIRS)
|
||||
{
|
||||
if ( -d "$Dir" && -d "$Dir/CVS" && ValidateDirectory($Dir) )
|
||||
{
|
||||
ScanDir($Dir);
|
||||
}
|
||||
elsif ($html)
|
||||
{
|
||||
print "<li>$Dir</li>\n";
|
||||
}
|
||||
}
|
||||
|
||||
if ($html)
|
||||
{
|
||||
print "</ol>\n";
|
||||
print "<table>\n";
|
||||
}
|
||||
|
||||
if ($details)
|
||||
{
|
||||
foreach $dir (sort keys %StatsDetails)
|
||||
{
|
||||
printStats($dir,$StatsDetails{$dir});
|
||||
}
|
||||
}
|
||||
|
||||
printStats("Total",\%Stats);
|
||||
|
||||
|
||||
if ($html)
|
||||
{
|
||||
print "</table></body></html>\n";
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user