← Back to branch summary

~ubuntu-branches/ubuntu/maverick/clamav/maverick-backports

« back to all changes in this revision

Viewing changes to libclamav/c++/llvm/utils/userloc.pl

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Gran, Stephen Gran, Michael Tautschnig
  • Date: 2010-04-26 21:41:18 UTC
  • mfrom: (2.1.6 squeeze)
  • Revision ID: james.westby@ubuntu.com-20100426214118-i6lo606wnh7ywfj6
Tags: 0.96+dfsg-4
http://bugs.debian.org/579271
http://bugs.debian.org/579068
[ Stephen Gran ]
* Fixed typo in clamav-milter's postinst

[ Michael Tautschnig ]
* Fixed typo in clamav-freshclam's postinst (closes: #579271)
* Debconf translation updates
  - Portuguese (closes: #579068)

Show diffs side-by-side

added added

removed removed

Lines of Context:
libclamav/c++/llvm/utils/userloc.pl
 
1
#!/usr/bin/perl -w
 
2
#
 
3
# Program:  userloc.pl
 
4
#
 
5
# Synopsis: This program uses "cvs annotate" to get a summary of how many lines
 
6
#           of code the various developres are responsible for. It takes one
 
7
#           argument, the directory to process. If the argument is not specified
 
8
#           then the cwd is used. The directory must be an LLVM tree checked out
 
9
#           from cvs. 
 
10
#
 
11
# Syntax:   userloc.pl [-tag=tag|-html... <directory>...
 
12
#
 
13
# Options:
 
14
#           -tag=tag
 
15
#               Use "tag" to select the revision (as per cvs -r option)
 
16
#           -filedetails
 
17
#               Report details about lines of code in each file for each user
 
18
#           -html
 
19
#               Generate HTML output instead of text output
 
20
#           -topdir
 
21
#               Specify where the top llvm source directory is. Otherwise the
 
22
#               llvm-config tool is used to find it.
 
23
# Directories:
 
24
#   The directories passed after the options should be relative paths to
 
25
#   directories of interest from the top of the llvm source tree, e.g. "lib"
 
26
#   or "include", etc.
 
27
 
 
28
die "Usage userloc.pl [-tag=tag|-html] <directories>..." 
 
29
  if ($#ARGV < 0);
 
30
 
 
31
my $tag = "";
 
32
my $html = 0;
 
33
my $debug = 0;
 
34
my $filedetails = "";
 
35
my $srcroot = "";
 
36
while ( defined($ARGV[0]) && substr($ARGV[0],0,1) eq '-' )
 
37
{
 
38
  if ($ARGV[0] =~ /-tag=.*/) {
 
39
    $tag = $ARGV[0];
 
40
    $tag =~ s#-tag=(.*)#$1#;
 
41
  } elsif ($ARGV[0] =~ /-filedetails/) {
 
42
    $filedetails = 1;
 
43
  } elsif ($ARGV[0] eq "-html") {
 
44
    $html = 1;
 
45
  } elsif ($ARGV[0] eq "-debug") {
 
46
    $debug = 1;
 
47
  } elsif ($ARGV[0] eq "-topdir") {
 
48
    shift; $srcroot = $ARGV[0]; shift;
 
49
  } else {
 
50
    die "Invalid option: $ARGV[0]";
 
51
  }
 
52
  shift;
 
53
}
 
54
 
 
55
if (length($srcroot) == 0) {
 
56
  chomp($srcroot = `llvm-config --src-root`);
 
57
}
 
58
if (! -d "$srcroot") {
 
59
  die "Invalid source root: $srcroot\n";
 
60
}
 
61
chdir($srcroot);
 
62
my $llvmdo = "$srcroot/utils/llvmdo -topdir '$srcroot'";
 
63
my %Stats;
 
64
my %FileStats;
 
65
 
 
66
my $annotate = "cvs -z6 annotate -lf ";
 
67
if (length($tag) > 0)
 
68
{
 
69
  $annotate = $annotate . " -r" . $tag;
 
70
}
 
71
 
 
72
sub GetCVSFiles
 
73
{
 
74
  my $d = $_[0];
 
75
  my $files ="";
 
76
  open FILELIST, 
 
77
    "$llvmdo -dirs \"$d\" -code-only echo |" || die "Can't get list of files with llvmdo";
 
78
  while ( defined($line = <FILELIST>) ) {
 
79
    chomp($file = $line);
 
80
    print "File: $file\n" if ($debug);
 
81
    $files = "$files $file";
 
82
  }
 
83
  return $files;
 
84
}
 
85
 
 
86
sub ScanDir
 
87
{
 
88
  my $Dir = $_[0];
 
89
  my $files = GetCVSFiles($Dir);
 
90
 
 
91
  open (DATA,"$annotate $files 2>&1 |")
 
92
    || die "Can't read cvs annotation data";
 
93
 
 
94
  my $curfile = "";
 
95
  while ( defined($line = <DATA>) )
 
96
  {
 
97
    chomp($line);
 
98
    if ($line =~ '^Annotations for.*') {
 
99
      $curfile = $line;
 
100
      $curfile =~ s#^Annotations for ([[:print:]]*)#$1#;
 
101
      print "Scanning: $curfile\n" if ($debug);
 
102
    } elsif ($line =~ /^[0-9.]*[ \t]*\([^)]*\):/) {
 
103
      $uname = $line;
 
104
      $uname =~ s#^[0-9.]*[ \t]*\(([a-zA-Z0-9_.-]*) [^)]*\):.*#$1#;
 
105
      $Stats{$uname}++;
 
106
      if ($filedetails) {
 
107
        $FileStats{$uname} = {} unless exists $FileStats{$uname};
 
108
        ${$FileStats{$uname}}{$curfile}++;
 
109
      }
 
110
    }
 
111
  }
 
112
  close DATA;
 
113
}
 
114
 
 
115
sub printStats
 
116
{
 
117
  my $dir = $_[0];
 
118
  my $hash = $_[1];
 
119
  my $user;
 
120
  my $total = 0;
 
121
 
 
122
  foreach $user (keys %Stats) { $total += $Stats{$user}; }
 
123
 
 
124
  if ($html) { 
 
125
    print "<p>Total Source Lines: $total<br/></p>\n";
 
126
    print "<table>";
 
127
    print " <tr><th style=\"text-align:right\">LOC</th>\n";
 
128
    print " <th style=\"text-align:right\">\%LOC</th>\n";
 
129
    print " <th style=\"text-align:left\">User</th>\n";
 
130
    print "</tr>\n";
 
131
  }
 
132
 
 
133
  foreach $user ( sort keys %Stats )
 
134
  {
 
135
    my $v = $Stats{$user};
 
136
    if (defined($v))
 
137
    {
 
138
      if ($html) {
 
139
        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;
 
140
        if ($filedetails) {
 
141
          print "<a href=\"#$user\">$user</a></td></tr>";
 
142
        } else {
 
143
          print $user,"</td></tr>";
 
144
        }
 
145
      } else {
 
146
        printf "%8d  (%4.1f%%)  %s\n", $v, (100.0/$total)*$v, $user;
 
147
      }
 
148
    }
 
149
  }
 
150
  print "</table>\n" if ($html);
 
151
 
 
152
  if ($filedetails) {
 
153
    foreach $user (sort keys %FileStats) {
 
154
      my $total = 0;
 
155
      foreach $file (sort keys %{$FileStats{$user}}) { 
 
156
        $total += ${$FileStats{$user}}{$file}
 
157
      }
 
158
      if ($html) {
 
159
        print "<table><tr><th style=\"text-align:left\" colspan=\"3\"><a name=\"$user\">$user</a></th></tr>\n";
 
160
      } else {
 
161
        print $user,":\n";
 
162
      }
 
163
      foreach $file (sort keys %{$FileStats{$user}}) {
 
164
        my $v = ${$FileStats{$user}}{$file};
 
165
        if ($html) { 
 
166
          printf "<tr><td style=\"text-align:right\">&nbsp;&nbsp;%d</td><td
 
167
          style=\"text-align:right\">&nbsp;%4.1f%%</td><td
 
168
          style=\"text-align:left\">%s</td></tr>",$v, (100.0/$total)*$v,$file;
 
169
        } else {
 
170
          printf "%8d  (%4.1f%%)  %s\n", $v, (100.0/$total)*$v, $file;
 
171
        }
 
172
      }
 
173
      if ($html) { print "</table>\n"; }
 
174
    }
 
175
  }
 
176
}
 
177
 
 
178
 
 
179
if ($html)
 
180
{
 
181
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n";
 
182
print "<html>\n<head>\n";
 
183
print "  <title>LLVM LOC Based On CVS Annotation</title>\n";
 
184
print "  <link rel=\"stylesheet\" href=\"llvm.css\" type=\"text/css\"/>\n";
 
185
print "</head>\n";
 
186
print "<body><div class=\"doc_title\">LLVM LOC Based On CVS Annotation</div>\n";
 
187
print "<p>This document shows the total lines of code per user in each\n";
 
188
print "LLVM directory. Lines of code are attributed by the user that last\n";
 
189
print "committed the line. This does not necessarily reflect authorship.</p>\n";
 
190
}
 
191
 
 
192
my @DIRS;
 
193
if ($#ARGV > 0) {
 
194
  @DIRS = @ARGV;
 
195
} else {
 
196
  push @DIRS, 'include';
 
197
  push @DIRS, 'lib';
 
198
  push @DIRS, 'tools';
 
199
  push @DIRS, 'runtime';
 
200
  push @DIRS, 'docs';
 
201
  push @DIRS, 'test';
 
202
  push @DIRS, 'utils';
 
203
  push @DIRS, 'examples';
 
204
  push @DIRS, 'projects/Stacker';
 
205
  push @DIRS, 'projects/sample';
 
206
  push @DIRS, 'autoconf';
 
207
}
 
208
  
 
209
for $Index ( 0 .. $#DIRS) { 
 
210
  print "Scanning Dir: $DIRS[$Index]\n" if ($debug);
 
211
  ScanDir($DIRS[$Index]); 
 
212
}
 
213
 
 
214
printStats;
 
215
 
 
216
print "</body></html>\n" if ($html) ;