Whamcloud - gitweb
Branch HEAD
[fs/lustre-release.git] / build / cvs-modified-files.pl
1 #!/usr/bin/env perl
2
3 my $mode = "NONE";
4 my @modified, @added, @removed;
5
6 while($line = <>) {
7   if ($line =~ /Modified Files:/) {
8     $mode = "MODIFIED";
9     next;
10   }
11
12   if ($line =~ /Added Files:/) {
13     $mode = "ADDED";
14     next;
15   }
16
17   if ($line =~ /Removed Files:/) {
18     $mode = "REMOVED";
19     next;
20   }
21
22   if ($mode eq "NONE") { next; }
23   if ($line =~ /-------/) { next; }
24
25   chop($line);
26   $line =~ s/^CVS:\s+//;
27   $line =~ s/\s+$//;
28   # print "processing $line for $mode\n";
29   @files = split(/ /, $line);
30   # print "new files for $mode: ", join(', ', @files), "\n";
31
32   if ($mode eq "MODIFIED") {
33     push(@modified, @files);
34   } elsif ($mode eq "ADDED") {
35     push(@added, @files);
36   } elsif ($mode eq "REMOVED") {
37     push(@removed, @files);
38   } else {
39     die "Unknown mode $mode!";
40   }
41 }
42
43 print join(' ', @modified);
44 if ($ENV{"SHOW_ALL_FILES"} ne "no") {
45   print ' ', join(' ', @added), ' ', join(' ', @removed);
46 }
47 print "\n";