Porting/p4desc

   1 #!/l/local/bin/perl -wpi.bak
   2
   3 #
   4 # Munge "p4 describe ..." output to include new files.
   5 #
   6 # Gurusamy Sarathy <gsar@umich.edu>
   7 #
   8
   9 use vars qw($thisfile $change $file $fnum $h $v $p4port @addfiles);
  10
  11 BEGIN {
  12     $0 =~ s|^.*/||;
  13     $p4port = $ENV{P4PORT} || 'localhost:1666';
  14     for (@ARGV) {
  15         if ($p4port =~ /^\s+$/) {
  16            $p4port = $_;
  17         }
  18         elsif (/^-p(.*)$/) {
  19             $p4port = $1 || ' ';
  20         }
  21         elsif (/^-v$/) {
  22             $v++;
  23         }
  24         elsif (/^-h/) {
  25             $h++;
  26         }
  27         else {
  28             push @files, $_;
  29         }
  30     }
  31     unless (@files) { @files = '-'; undef $^I; }
  32     @ARGV = @files;
  33     if ($h) {
  34         print STDERR <<USAGE;
  35 Usage: $0 [-p \$P4PORT] [-v] [-h] [files]
  36
  37         -p host:port    p4 port (e.g. myhost:1666)
  38         -h              print this help
  39         -v              output progress messages
  40
  41 A smart 'cat'.  When fed the spew from "p4 describe ..." on STDIN,
  42 spits it right out on STDOUT, followed by patches for any new files
  43 detected in the spew.  Can also be used to edit insitu a bunch of
  44 files containing said spew.
  45
  46 WARNING: Currently only emits unified diffs.
  47
  48 Examples:
  49         p4 describe -du 123 | $0 > change-123.desc
  50         p4 describe -du 123 | $0 | p4d2p > change-123.patch
  51
  52 USAGE
  53         exit(0);
  54     }
  55     $thisfile = "";
  56 }
  57
  58
  59 if ($ARGV ne $thisfile) {
  60     warn "processing patchfile [$ARGV]\n" unless $ARGV eq '-';
  61     $thisfile = $ARGV;
  62 }
  63
  64 my $cur = m|^Affected files| ... m|^Differences|;
  65
  66 # while we are within range
  67 if ($cur) {
  68     if (m|^\.\.\. (//depot/.+?#\d+) add$|) {
  69         my $newfile = $1;
  70         push @addfiles, $newfile;
  71         warn "$newfile add, revision != 1!\n" unless $newfile =~ /#1$/;
  72     }
  73     warn "file [$file] line [$cur] file# [$fnum]\n" if $v;
  74 }
  75
  76 if (/^Change (\d+) by/) {
  77     $_ = "\n\n" . $_ if $change;        # start of a new change list
  78     $change = $1;
  79     my $new = newfiles();
  80     if ($new) {
  81         $_ = $new . $_;
  82     }
  83 }
  84
  85 if (eof) {
  86     $_ .= newfiles();
  87 }
  88
  89 sub newfiles {
  90     my $addfile;
  91     my $ret = "";
  92     for $addfile (@addfiles) {
  93         my @new = `p4 -p $p4port print $addfile`;
  94         if ($?) {
  95             die "$0: `p4 -p $p4port print $addfile` failed, status[$?]\n";
  96         }
  97         my $desc = shift @new;          # discard initial description
  98         $ret .= "\n==== $addfile (text) ====\n\n";
  99         my $lines = "," . @new;
 100         $lines = "" if @new < 2;
 101         $ret .= "\@\@ -0,0 +1$lines \@\@\n";
 102         $ret .= join("+","",@new);
 103     }
 104     @addfiles = ();
 105     return $ret;
 106 }