unposted: update to _kfmclient

unposted: update to _perforce for Perforce 2009.2

1 files changed, 199 insertions, 17 deletions

diff --git a/Completion/Unix/Command/_perforce b/Completion/Unix/Command/_perforce
index d451d7002..04482be6f 100644
--- a/Completion/Unix/Command/_perforce
+++ b/Completion/Unix/Command/_perforce
@@ -414,6 +414,8 @@ _perforce() {
       '-xi[switch server database to unicode mode and quit]' \
       '-xu[run database upgrade and quit]' \
       '-c[run command and exit]:command of some sort: ' \
+      '-Id[specify description]:description: ' \
+      '-In[specify unique name]:name: ' \
       '-jc[checkpoint, save and truncate journal]::optional prefix: ' \
       '-jd[checkpoint, not saving journal]::optional file:_files' \
       '-jj[save and truncate journal]::optional prefix: ' \
@@ -487,7 +489,10 @@ _perforce_gen_cmd_list() {
   local -a unsup
   unsup=(
     "attribute:Set attributes for open file (EXPERIMENTAL)"
+    "dbschema:Report meta database information"
+    "export:Rxtract journal or checkpoint records"
     "interchanges:Report changes not yet integrated between branches"
+    "replicate:Poll for journal changes and apply to another server"
     "spec:Allows limited changes to form specifications (admin)"
   )
   for line in $unsup; do
@@ -560,6 +565,7 @@ _perforce_global_options() {
     '-s[output script tags]' \
     '-u+[user]:user name:_perforce_users' \
     '-x+[filename or -]:file:_perforce_files_or_minus' \
+    '-z+[select output format]:output format:(tag)'
   )
 
   integer i
@@ -660,6 +666,12 @@ awk '/^Client:/ { print $2 }')")
       ctype="local pending "
       ;;
 
+      # Changes that were shelved
+      (-tS)
+      cstatus=(-s shelved)
+      ctype="shelved "
+      ;;
+
       # Range allowed: append comma and supply rules for
       # removing and handling subsequent `#'.
       (-tR)
@@ -671,7 +683,9 @@ awk '/^Client:/ { print $2 }')")
   # output.
   cl=(
 ${${${${(f)"$(_perforce_call_p4 changes changes $amax $xargs $cstatus \$file)"}##Change\ }//\ on\ /:}/\ by\ /\ }
-"default:change not yet numbered")
+  )
+  # "default" can't have shelved files in it...
+  [[ $ctype = shelved* ]] || cl+=("default:change not yet numbered")
   [[ $#cl -eq 1 && $cl[1] = '' ]] && cl=()
   _describe -t changes "${ctype}change" cl -V changes-unsorted $comma
 }
@@ -764,6 +778,16 @@ _perforce_dates() {
 }
 
 
+(( $+functions[_perforce_dbtables] )) ||
+_perforce_dbtables() {