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";