+ # a portable 'readlink -f'
+ # forcing a subshell, to ensure chpwd() is not removed
+ # from the calling shell (if VCS_INFO_realpath() is called
+ # manually).
+ (
+ (( ${+functions[chpwd]} )) && unfunction chpwd
+ setopt chaselinks
+ cd $1 2>/dev/null && pwd
+ )
+}
+# }}}
+VCS_INFO_reposub () { #{{{
+ setopt localoptions extendedglob
+ local base=${1%%/##}
+
+ [[ ${PWD} == ${base}/* ]] || {
+ printf '.'
+ return 1
+ }
+ printf '%s' ${PWD#$base/}
+ return 0
+}
+# }}}
+VCS_INFO_set () { #{{{
+ setopt localoptions noksharrays
+ local -i i j
+
+ if [[ $1 == '--clear' ]] ; then
+ for i in {0..9} ; do
+ unset VCS_INFO_message_${i}_
+ done
+ fi
+ if [[ $1 == '--nvcs' ]] ; then
+ [[ $2 == 'preinit' ]] && (( maxexports == 0 )) && (( maxexports = 1 ))
+ for i in {0..$((maxexports - 1))} ; do
+ typeset -gx VCS_INFO_message_${i}_=
+ done
+ VCS_INFO_nvcsformats $2
+ fi
+
+ (( ${#msgs} - 1 < 0 )) && return 0
+ for i in {0..$(( ${#msgs} - 1 ))} ; do
+ (( j = i + 1 ))
+ typeset -gx VCS_INFO_message_${i}_=${msgs[$j]}
+ done
+ return 0
+}
+# }}}
+# information gathering
+VCS_INFO_bzr_get_data () { # {{{
+ setopt localoptions noksharrays
+ local bzrbase bzrbr
+ local -a bzrinfo
+
+ if zstyle -t ":vcs_info:${vcs}:${usercontext}" "use-simple" ; then
+ bzrbase=${vcs_comm[basedir]}
+ bzrinfo[2]=${bzrbase:t}
+ if [[ -f ${bzrbase}/.bzr/branch/last-revision ]] ; then
+ bzrinfo[1]=$(< ${bzrbase}/.bzr/branch/last-revision)
+ bzrinfo[1]=${${bzrinfo[1]}%% *}
+ fi
+ else
+ bzrbase=${${(M)${(f)"$( bzr info )"}:# ##branch\ root:*}/*: ##/}
+ bzrinfo=( ${${${(M)${(f)"$( bzr version-info )"}:#(#s)(revno|branch-nick)*}/*: /}/*\//} )
+ bzrbase="$(VCS_INFO_realpath ${bzrbase})"
+ fi
+
+ zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat bzrbr || bzrbr="%b:%r"
+ zformat -f bzrbr "${bzrbr}" "b:${bzrinfo[2]}" "r:${bzrinfo[1]}"
+ VCS_INFO_formats '' "${bzrbr}" "${bzrbase}"
+ return 0
+}
+# }}}
+VCS_INFO_cdv_get_data () { # {{{
+ local cdvbase
+
+ cdvbase=${vcs_comm[basedir]}
+ VCS_INFO_formats '' "${cdvbase:t}" "${cdvbase}"
+ return 0
+}
+# }}}
+VCS_INFO_cvs_get_data () { # {{{
+ local cvsbranch cvsbase basename
+
+ cvsbase="."
+ while [[ -d "${cvsbase}/../CVS" ]]; do
+ cvsbase="${cvsbase}/.."
+ done
+ cvsbase="$(VCS_INFO_realpath ${cvsbase})"
+ cvsbranch=$(< ./CVS/Repository)
+ basename=${cvsbase:t}
+ cvsbranch=${cvsbranch##${basename}/}
+ [[ -z ${cvsbranch} ]] && cvsbranch=${basename}
+ VCS_INFO_formats '' "${cvsbranch}" "${cvsbase}"
+ return 0
+}
+# }}}
+VCS_INFO_darcs_get_data () { # {{{
+ local darcsbase
+
+ darcsbase=${vcs_comm[basedir]}
+ VCS_INFO_formats '' "${darcsbase:t}" "${darcsbase}"
+ return 0