debauchee/barrier
1
1
Fork 0
mirror of https://github.com/debauchee/barrier.git synced 2024-11-27 10:38:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

Added ability to filter out filespec prefixes and removed @...

Browse Source 
from user on each change.
This commit is contained in:
crs 2002-12-25 19:20:12 +00:00
parent fd5625ba99
commit d2a871d0d9
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
nodist/p4tolog
View File

@ -8,6 +8,21 @@
# location of perforce client # location of perforce client
P4=/home/perforce/bin/p4 P4=/home/perforce/bin/p4
prefix=""
while [ -n "$1" ]; do
case "$1" in
-p)
# get depot filespec prefix to strip and escape slashes
prefix=`echo $2 | sed -e 's#/#\\\\/#g'`
shift
;;
*)
break
;;
esac
shift
done
# get relevant changes # get relevant changes
changes=`$P4 changes $* | sed -e 's/Change \([0-9]*\).*/\1/'` changes=`$P4 changes $* | sed -e 's/Change \([0-9]*\).*/\1/'`
if test -z "$changes"; then if test -z "$changes"; then
@ -18,10 +33,10 @@ fi
# convert each change # convert each change
for change in $changes; do for change in $changes; do
$P4 describe -s $change | head -1 | \ $P4 describe -s $change | head -1 | \
sed -e 's/.*by \([^ ]*\) on \([^ ]*\) \([^ ]*\)/\2 \3 \1/' sed -e 's/.*by \([^ @]*\)[^ ]* on \([^ ]*\) \([^ ]*\)/\2 \3 \1/'
$P4 describe -s $change | \ $P4 describe -s $change | \
awk 'p==1 && !/^$/;/^Affected/{p=1}' | \ awk 'p==1 && !/^$/;/^Affected/{p=1}' | \
sed -e 's/^[^ ]* \([^#]*\)#.*$/\1/' sed -e 's/^[^ ]* \([^#]*\)#.*$/\1/' | sed -e "s/^$prefix//"
echo echo
$P4 describe -s $change | \ $P4 describe -s $change | \
awk 'p==1 && !/$^/;/^$/{if (p==1) exit; else p=1}' | \ awk 'p==1 && !/$^/;/^$/{if (p==1) exit; else p=1}' | \