summary refs log tree commit diff
path: root/Functions/Completion/_main_complete
blob: 003a01785a42a004df0a305a02724f151fe8f9a3 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#autoload

# The main loop of the completion code. This is what is called when 
# completion is attempted from the command line.
# The completion code gives us the special variables and the arguments
# from the command line are given as positional parameters.

local comp name

setopt localoptions nullglob rcexpandparam globdots
unsetopt markdirs globsubst shwordsplit nounset

# An entry for `-first-' is the replacement for `compctl -T'
# Completion functions may set `COMPSKIP' to any value to make the 
# main loops stop calling other completion functions.

comp="$comps[-first-]"
if [[ ! -z "$comp" ]]; then
  "$comp" "$@"
  if (( $+COMPSKIP )); then
    unset COMPSKIP
    return
  fi
fi

# For arguments we use the `_normal function.

if [[ $CONTEXT == argument || $CONTEXT == command ]]; then
  _normal "$@"
else
  # Let's see if we have a special completion definition for the other
  # possible contexts.

  comp=''

  case $CONTEXT in
  redirect)  comp="$comps[-redirect-]";;
  math)      comp="$comps[-math-]";;
  subscript) comp="$comps[-subscript-]";;
  value)     comp="$comps[-value-]";;
  condition) comp="$comps[-condition-]";;
  esac

  # If not, we use default completion, if any.

  [[ -z "$comp" ]] && comp="$comps[-default-]"
  [[ -z "$comp" ]] || "$comp" "$@"
fi