# SVK completion
listsvkfiles() { set -A reply $( [ "$1" ] && svk ls -f `echo $1 | perl -lpe 's@[^/]+$@@'` 2> /dev/null || svk ls -f "//") }
svkdepot() { set -A reply $( svk ls -f "//") }
svkmirror() { set -A reply $(svk mi -l | awk '/\//{print $1}' ) }
svkcheckout() { set -A reply $(svk co -l | awk '/\//{print $1}') }

svkcommands='help co ls mi log up add admin annotate cat checkout cleanup cmerge commit copy delete depotmap describe diff help import info list log merge mirror mkdir move patch propdel propedit propget proplist propset pull push resolved revert smerge status switch sync update verify'

svkhelptopics="intro environment commands $svkcommands"

compctl -k "($svkcommands)" -x \
       'c[-1,help]' -k "($svkhelptopics)" - \
       'C[-1,(ls|list)]' -k '(-r -R -d -f -v)' -f -K listsvkfiles - \
       'C[-1,(mi|mirror)]' -f -k '(-d -l --relocate --recover --unlock --upgrade)' - \
       'C[-2,(mi|mirror)] c[-1,-d]' -K svkmirror - \
       'C[-2,(mi|mirror)]' -K svkdepot - \
       'C[-1,(co|checkout)]' -k '(-r -l -d -q --export --relocate)' -K listsvkfiles - \
       'C[-2,(co|checkout)] c[-1,-d]' -K svkcheckout - \
       'C[-1,(ci|commit)]' -k '(-m -F -C -P -S -N --encoding --import --direct)' -f - \
       'C[-1,(depot|depotmap)]' -f -k '(-i -l -d --relocate)' -K svkdepot - \
       'C[-2,(depot|depotmap)]' -f - \
       'c[-1,copy]' -k '(-r -m -F -p -P -C -S)' -K svkdepot - \
       'c[-2,copy]' -f -K svkdepot - \
       'c[-1,add]' -k '(-N -q)' -f - \
       'c[-1,mkdir]' -k '(-m -F -p -C -P -S)' -f -K svkdepot - \
       -- svk