moved to Completion/Base/Completer/_complete

1 files changed, 0 insertions, 144 deletions

diff --git a/Completion/Core/_complete b/Completion/Core/_complete
deleted file mode 100644
index 28bb008ca..000000000
--- a/Completion/Core/_complete
+++ /dev/null
@@ -1,144 +0,0 @@
-#autoload
-
-# Generate all possible completions. Note that this is not intended as
-# a normal completion function, but as one possible value for the
-# completer style.
-
-local comp name oldcontext ret=1 service
-typeset -T curcontext="$curcontext" ccarray
-
-oldcontext="$curcontext"
-
-# If we have a user-supplied context name, use only that.
-
-if [[ -n "$compcontext" ]]; then
-
-  if [[ "${(t)compcontext}" = *array* ]]; then
-    local expl
-
-    _wanted values expl value compadd -a - compcontext
-
-  elif [[ "${(t)compcontext}" = *assoc* ]]; then
-    local expl tmp i
-
-    tmp=()
-    for i in "${(@k)compcontext[(R)*[^[:blank:]]]}"; do
-      tmp=( "$tmp[@]" "${i}:${compcontext[$i]}" )
-    done
-    tmp=( "$tmp[@]" "${(k@)compcontext[(R)[[:blank:]]#]}" )
-
-    _describe -t values value tmp
-
-  elif [[ "$compcontext" = *:*:* ]]; then
-    local tag="${${compcontext%%:*}:-values}"
-    local descr="${${${compcontext#${tag}:}%%:*}:-value}"
-    local action="${compcontext#${tag}:${descr}:}" expl ws ret=1
-
-    case "$action" in
-    \ #)
-      _message "$descr";;
-
-    \(\(*\)\))
-      eval ws\=\( "${action[3,-3]}" \)
-
-      _describe -t "$tag" "$descr" ws;;
-
-    \(*\))
-      eval ws\=\( "${action[2,-2]}" \)
-
-      _wanted "$tag" expl "$descr" compadd -a - ws;;
-
-    \{*\})
-      _tags "$tag"
-      while _tags; do
-        while _next_label "$tag" expl "$descr"; do
-          eval "$action[2,-2]" && ret=0
-	done
-	(( ret )) || break
-      done;;
-
-    \ *)
-      eval ws\=\( "$action" \)
-
-      _tags "$tag"
-      while _tags; do
-        while _next_label "$tag" expl "$descr"; do
-          "$ws[@]"
-	done
-	(( ret )) || break
-      done;;
-
-    *)
-      eval ws\=\( "$action" \)
-
-      _tags "$tag"
-      while _tags; do
-        while _next_label "$tag" expl "$descr"; do
-          "$ws[1]" "$expl[@]" "${(@)ws[2,-1]}"
-	done
-	(( ret )) || break
-      done;;
-
-    esac
-
-  else
-    ccarray[3]="$compcontext"
-
-    comp="$_comps[$compcontext]"
-    [[ -z "$comp" ]] || "$comp"
-  fi
-
-  return
-fi
-
-# An entry for `-first-' is the replacement for `compctl -T'
-
-comp="$_comps[-first-]"
-if [[ ! -z "$comp" ]]; then
-  service="${_services[-first-]:--first-}"
-  ccarray[3]=-first-
-  "$comp" && ret=0
-  if [[ "$_compskip" = all ]]; then
-    _compskip=
-    return ret
-  fi
-fi
-
-# If we are inside `vared' and we don't have a $compcontext, we treat
-# this like a parameter assignment. Which it is.
-
-[[ -n $compstate[vared] ]] && compstate[context]=vared
-
-# For arguments and command names we use the `_normal' function.
-
-ret=1
-if [[ "$compstate[context]" = command ]]; then
-  curcontext="$oldcontext"
-  _normal -s && ret=0
-else
-  # Let's see if we have a special completion definition for the other
-  # possible contexts.
-
-  local cname="-${compstate[context]:s/_/-/}-"
-
-  ccarray[3]="$cname"
-
-  comp="$_comps[$cname]"
-  service="${_services[$cname]:-$cname}"
-
-  # If not, we use default completion, if any.
-
-  if [[ -z "$comp" ]]; then
-    if [[ "$_compskip" = *default* ]]; then
-      _compskip=
-      return 1
-    fi
-    comp="$_comps[-default-]"
-  fi
-  [[ -z "$comp" ]] ||
-      service="${_services[-default-]:--default-}" && "$comp" && ret=0
-fi
-
-_compskip=
-
-return ret