Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
VCS_INFO_detect_bzr	326 B	-rw-r--r--
VCS_INFO_detect_cdv	335 B	-rw-r--r--
VCS_INFO_detect_cvs	325 B	-rw-r--r--
VCS_INFO_detect_darcs	333 B	-rw-r--r--
VCS_INFO_detect_fossil	341 B	-rw-r--r--
VCS_INFO_detect_git	579 B	-rw-r--r--
VCS_INFO_detect_hg	692 B	-rw-r--r--
VCS_INFO_detect_mtn	336 B	-rw-r--r--
VCS_INFO_detect_p4	2.35 KB	-rw-r--r--
VCS_INFO_detect_svk	1.43 KB	-rw-r--r--
VCS_INFO_detect_svn	354 B	-rw-r--r--
VCS_INFO_detect_tla	345 B	-rw-r--r--
VCS_INFO_get_data_bzr	3.54 KB	-rw-r--r--
VCS_INFO_get_data_cdv	305 B	-rw-r--r--
VCS_INFO_get_data_cvs	676 B	-rw-r--r--
VCS_INFO_get_data_darcs	311 B	-rw-r--r--
VCS_INFO_get_data_fossil	654 B	-rw-r--r--
VCS_INFO_get_data_git	12.02 KB	-rw-r--r--
VCS_INFO_get_data_hg	7.91 KB	-rw-r--r--
VCS_INFO_get_data_mtn	410 B	-rw-r--r--
VCS_INFO_get_data_p4	1.08 KB	-rw-r--r--
VCS_INFO_get_data_svk	728 B	-rw-r--r--
VCS_INFO_get_data_svn	2.4 KB	-rw-r--r--
VCS_INFO_get_data_tla	458 B	-rw-r--r--

Code Editor : VCS_INFO_detect_p4

## vim:ft=zsh
## perforce support by: Phil Pennock
## Distributed under the same BSD-ish license as zsh itself.

# If use-server is true in the :vcs_info:p4:... context, contact the
# server to decide whether the directory is handled by Perforce.  This can
# cause a delay if the network times out, in particular if looking up the
# server name failed.  Hence this is not the default.  If a timeout
# occurred, the server:port pair is added to the associative array
# vcs_info_p4_dead_servers and the server is never contacted again.  The
# array must be edited by hand to remove it.
#
# If use-server is false or not set, the function looks to see if there is
# a file $P4CONFIG somewhere above in the hierarchy.  This is far from
# foolproof; in fact it relies on you using the particular working practice
# of having such files in all client root directories and nowhere above.

(( ${+functions[VCS_INFO_p4_get_server]} )) ||
VCS_INFO_p4_get_server() {
  emulate -L zsh
  setopt extendedglob

local -a settings
  settings=(${(f)"$(${vcs_comm[cmd]} set)"})
  serverport=${${settings[(r)P4PORT=*]##P4PORT=}%% *}
  case $serverport in
    (''|:)
    serverport=perforce:1666
    ;;

(:*)
    serverport=perforce${serverport}
    ;;

(*:)
    serverport=${serverport}1666
    ;;

(<->)
    serverport=perforce:${serverport}
    ;;
  esac
}

VCS_INFO_detect_p4() {
  local serverport p4where

if zstyle -t ":vcs_info:p4:${usercontext}:${rrn}" use-server; then
    # Use "p4 where" to decide whether the path is under the
    # client workspace.
    if (( ${#vcs_info_p4_dead_servers} )); then
      # See if the server is in the list of defunct servers
      VCS_INFO_p4_get_server
      [[ -n $vcs_info_p4_dead_servers[$serverport] ]] && return 1
    fi
    if p4where="$(${vcs_comm[cmd]} where 2>&1)"; then
      return 0
    fi
    if [[ $p4where = *"Connect to server failed"* ]]; then
      # If the connection failed, mark the server as defunct.
      # Otherwise it worked but we weren't within a client.
      typeset -gA vcs_info_p4_dead_servers
      [[ -z $serverport ]] && VCS_INFO_p4_get_server
      vcs_info_p4_dead_servers[$serverport]=1
    fi
    return 1
  else
    [[ -n ${P4CONFIG} ]] || return 1
    VCS_INFO_check_com ${vcs_comm[cmd]} || return 1
    vcs_comm[detect_need_file]="${P4CONFIG}"
    VCS_INFO_bydir_detect .
    return $?
  fi
}

VCS_INFO_detect_p4 "$@"

${this.title}

Code Editor : VCS_INFO_detect_p4