tools/p4_integrate_deleted.pl

   1 #!/usr/bin/perl
   2
   3 # handle command line arguments
   4 die "usage: perl p4_integrate_deleted.pl branch-name\n" if (scalar(@ARGV) != 1);
   5
   6 # read in the branch view
   7 $branch = $ARGV[0];
   8 print STDERR "processing branch $branch\n";
   9 open(BRANCH, "p4 branch -o $branch |");
  10 @branch = <BRANCH>;
  11 shift @branch while ($branch[0] ne "View:\n");
  12 shift @branch;
  13 close(BRANCH);
  14
  15 foreach $mapping (@branch)
  16 {
  17         # process all the positive line in the mapping
  18         chomp;
  19         $mapping =~ s/^\s+//;
  20         next if ($mapping eq "");
  21         ($from, $to) = split(/\s+/, $mapping);
  22         next if ($from =~ /^-/);
  23
  24         print STDERR "processing mapping $from -> $to\n";
  25
  26         undef %file;
  27
  28         # read in all the deleted source files
  29         open(FILES, "p4 files $from |");
  30         $count = 0;
  31         print STDERR "processing files";
  32         while (<FILES>)
  33         {
  34                 chomp;
  35                 $count += 1;
  36                 if ($count == 10000)
  37                 {
  38                         print STDERR ".";
  39                         $count = 0;
  40                 }
  41                 next if (!/ - delete change /);
  42                 s/#[^#]+//;
  43                 $file{$_} = 1;
  44
  45         }
  46         close(FILES);
  47         print STDERR "\n";
  48
  49         # read in the set of source files we have.  subtract them from the list of deleted files
  50         open(HAVE, "p4 files $from#have |");
  51         $count = 0;
  52         print STDERR "processing have";
  53         while (<HAVE>)
  54         {
  55                 chomp;
  56                 $count += 1;
  57                 if ($count == 10000)
  58                 {
  59                         print STDERR ".";
  60                         $count = 0;
  61                 }
  62                 s/#[^#]+//;
  63                 delete $file{$_};
  64         }
  65         close(HAVE);
  66         print STDERR "\n";
  67
  68         print STDERR "integrating ", scalar(keys %file), " files\n";
  69         foreach (sort keys %file)
  70         {
  71                 system("p4 integrate -b $branch -s \"$_\"");
  72         }
  73 }