学步园

  1 #!/bin/bash
  2 # $Id: //open/util/bin/packChange#7 $
  3 #
  4 # Pack a perforce changelist into a compressed TAR file
  5 # 
  6 # Copyright (C) 2004-2004 The Eigenbase Project
  7 #
  8 # This program is free software; you can redistribute it and/or modify
  9 # it under the terms of the GNU General Public License as published by
 10 # the Free Software Foundation; either version 2 of the License, or
 11 # (at your option) any later version.
 12 #
 13 # This program is distributed in the hope that it will be useful,
 14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 16 # GNU General Public License for more details.
 17 #
 18 # You should have received a copy of the GNU General Public License
 19 # along with this program; if not, write to the Free Software
 20 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 21 
 22 usage() {
 23    echo "Usage: packChange <change-list-number>"
 24 }
 25 
 26 cygwin=false;
 27 case "`uname`" in
 28   CYGWIN*) cygwin=true ;;
 29 esac
 30 
 31 if [ "$1" = -h -o "$1" = --help ]; then
 32    usage
 33    exit 0
 34 fi
 35 
 36 set -e
 37 
 38 changeno=$1
 39 if [ ! "$changeno" ]; then
 40     echo "Error: you must specify a change number"
 41     exit 1
 42 fi
 43 if [ $changeno == DEFAULT ]; then changeno=default; fi
 44 
 45 if (p4 opened -c $changeno | egrep -i -q 'not opened on this client') ; then
 46     "Error: File(s) not opened on this client."
 47     exit 1
 48 fi
 49 
 50 # get the Perforce client name (compensate for case problems)
 51 upper_client_name=`p4 info | grep "Client name" | cut -f 3 -d " " | tr "[:lower:]" "[:upper:]"`
 52 lower_client_name=`p4 info | grep "Client name" | cut -f 3 -d " " | tr "[:upper:]" "[:lower:]"`
 53 
 54 if [ $changeno == default ]; then
 55   changefile=changelist.default.$lower_client_name
 56 else
 57   changefile=changelist${changeno}
 58 fi
 59 tarfile=${changefile}.tar.gz
 60 
 61 touch changelist.desc
 62 if [ $changeno != default ] ; then
 63   # get the description of the specified changelist
 64   p4 change -o $changeno | sed -e '
 65       s/Change:.*/Change: new/;
 66       s/Date:.*//;
 67       s/Client:.*//;
 68       s/User:.*//;
 69       s/Status:.*//;
 70       ' > changelist.desc
 71 fi
 72 
 73 # get all the files in the changelist (strip off the version numbers)
 74 p4 opened -c $changeno | cut -f 1 -d "#" > changelist.nover
 75 
 76 rm -f changelist.txt
 77 while read file; do
 78     line=`p4 opened "$file"`
 79     line=${line//default change/change default};
 80     case "$line" in
 81         *\ \-\ edit\ change\ * ) ;;
 82         *\ \-\ add\ change\ * ) ;;
 83         *\ \-\ delete\ change\ * ) ;;
 84         *\ \-\ branch\ change\ * ) 
 85             lfile=`p4 where "$file" | sed -e 's/^.* \(.:.*\)/\1/g'`;
 86             branchfrom=`p4 resolved "$lfile" | sed -e 's/^.* - branch from //g'`;
 87             line=`echo "$line" | sed -e "s;#1;#$branchfrom;"`;
 88         ;;
 89     * ) echo "ERROR: don't know how to handle this file: '$line'"; exit 1;;
 90 
 91     esac
 92     echo "$line" | sed -e "s/ change $changeno .*//g" >> changelist.txt
 93 done < changelist.nover
 94 
 95 # get all the files in the changelist EXCEPT the deleted ones and branched ones
 96 p4 opened -c $changeno | 
 97     grep -v ' - delete change ' |
 98     grep -v ' - branch change ' |
 99     cut -f 1 -d "#" > changelist.nover
100 
101 # translate the depot file names to client file names and save them in
102 # a compressed tarfile
103 if $cygwin; then
104     pwddot=` cygpath -a -w $(pwd) | sed -e s'/././g'`;
105     while read file; do
106         # convert the path into an absolute windows path, for example
107         # 'c:\open\foo\bar.xml'; todo: handle spaces in file names
108         winpath=$(p4 where "$file" | awk '{print $3}')
109         cygpath -a -m $winpath
110     done < changelist.nover | 
111         sed -e "s/^$pwddot/./g" > changelist.totar
112 else
113     pwddot=` if "$cygwin"; then cygpath $(pwd); else pwd; fi |
114          sed -e s'/././g'`;
115     while read file; do
116         p4 where "$file" | sed -e 's?^.* //.* \(/.*\)?\1?g'
117     done < changelist.nover | 
118         sed -e "s/^$pwddot/./g" > changelist.totar
119 fi
120 tar -czf $tarfile --files-from changelist.totar changelist.txt changelist.desc
121 
122 # clean up
123 rm changelist.txt changelist.desc changelist.nover changelist.totar
124 
125 echo Successfully created $tarfile
126 tar tvzf $tarfile
127 
128 # end packChange