default construct MCInst's ctor to 0, which is "PHI" which is invalid for MCInsts.
[llvm/avr.git] / utils / userloc.pl
blob4da2f4029250163d1cf06d25e17592e7f6e28823
1 #!/usr/bin/perl -w
3 # Program: userloc.pl
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.
11 # Syntax: userloc.pl [-tag=tag|-html... <directory>...
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.
28 die "Usage userloc.pl [-tag=tag|-html] <directories>..."
29 if ($#ARGV < 0);
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 '-' )
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]";
52 shift;
55 if (length($srcroot) == 0) {
56 chomp($srcroot = `llvm-config --src-root`);
58 if (! -d "$srcroot") {
59 die "Invalid source root: $srcroot\n";
61 chdir($srcroot);
62 my $llvmdo = "$srcroot/utils/llvmdo -topdir '$srcroot'";
63 my %Stats;
64 my %FileStats;
66 my $annotate = "cvs -z6 annotate -lf ";
67 if (length($tag) > 0)
69 $annotate = $annotate . " -r" . $tag;
72 sub GetCVSFiles
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";
83 return $files;
86 sub ScanDir
88 my $Dir = $_[0];
89 my $files = GetCVSFiles($Dir);
91 open (DATA,"$annotate $files 2>&1 |")
92 || die "Can't read cvs annotation data";
94 my $curfile = "";
95 while ( defined($line = <DATA>) )
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}++;
112 close DATA;
115 sub printStats
117 my $dir = $_[0];
118 my $hash = $_[1];
119 my $user;
120 my $total = 0;
122 foreach $user (keys %Stats) { $total += $Stats{$user}; }
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";
133 foreach $user ( sort keys %Stats )
135 my $v = $Stats{$user};
136 if (defined($v))
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>";
145 } else {
146 printf "%8d (%4.1f%%) %s\n", $v, (100.0/$total)*$v, $user;
150 print "</table>\n" if ($html);
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}
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";
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;
173 if ($html) { print "</table>\n"; }
179 if ($html)
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";
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';
209 for $Index ( 0 .. $#DIRS) {
210 print "Scanning Dir: $DIRS[$Index]\n" if ($debug);
211 ScanDir($DIRS[$Index]);
214 printStats;
216 print "</body></html>\n" if ($html) ;