Merge from vendor branch GCC:
[dragonfly.git] / tools / tools / commitsdb / make_commit_db
1 #!/usr/bin/perl -w
2
3 # $FreeBSD: src/tools/tools/commitsdb/make_commit_db,v 1.1.2.1 2002/08/12 13:37:46 joe Exp $
4 # $DragonFly: src/tools/tools/commitsdb/make_commit_db,v 1.2 2003/06/17 04:29:11 dillon Exp $
5
6 # This script walks the tree from the current directory
7 # and spits out a database generated by md5'ing the cvs log
8 # messages of each revision of every file in the tree.
9
10 use strict;
11 use Digest::MD5 qw(md5_hex);
12
13 my $dbname = "commitsdb";
14 open DB, "> $dbname" or die "$!\n";
15
16 # Extract all the logs for the current directory.
17 my @dirs = ".";
18 while (@dirs) {
19         my $dir = shift @dirs;
20         my %logs;
21
22         opendir DIR, $dir or die $!;
23         foreach (grep { /[^\.]/ } readdir DIR) {
24                 my $filename = "$dir/$_";
25                 if (-f $filename) {
26                         my %loghash = parse_log_message($filename);
27                         next unless %loghash;
28
29                         $logs{$filename} = {%loghash};
30                 } elsif (-d $_) {
31                         next if /^CVS$/;
32                         push @dirs, $_;
33                 }
34         }
35         close DIR;
36
37         # Product a database of the commits
38         foreach my $f (keys %logs) {
39                 my $file = $logs{$f};
40                 foreach my $rev (keys %$file) {
41                         my $hash = $$file{$rev};
42
43                         print DB "$f $rev $hash\n";
44                 }
45         }
46
47         print "\r" . " " x 30 . "\r$dir";
48 }
49 print "\n";
50
51 close DB;
52
53
54
55 ##################################################
56 # Run a cvs log on a file and return a parse entry.
57 ##################################################
58 sub parse_log_message {
59         my $file = shift;
60
61         # Get a log of the file.
62         open LOG, "cvs -R log $file |" or die $!;
63         my @log = <LOG>;
64         my $log = join "", @log;
65         close LOG;
66
67         # Split the log into revisions.
68         my @entries = split /----------------------------\n/, $log;
69
70         # Throw away the first entry.
71         shift @entries;
72
73         # Record the hash of the message against the revision.
74         my %loghash = ();
75         foreach my $e (@entries) {
76                 # Get the revision number
77                 $e =~ s/^revision\s*(\S*)\n//s;
78                 my $rev = $1;
79
80                 # Strip off any other headers.
81                 while ($e =~ s/^(date|branches):[^\n]*\n//sg) {
82                 };
83
84                 my $hash = string_to_hash($e);
85                 $loghash{$rev} = $hash;
86         }
87
88         return %loghash;
89 }
90
91
92 ##################################################
93 # Convert a log message into an md5 checksum.
94 ##################################################
95 sub string_to_hash {
96         my $logmsg = shift;
97
98         return md5_hex($logmsg);
99 }
100
101
102
103 #end