blob: d9c7710512465dc8fa9b33f3e5cb34e7f9ddcfb2 (
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
#autoload
local all ret=1 end xor has_args had_args ostate ocontext oopt_args r
local nm="$compstate[nmatches]"
local opre="$PREFIX" oipre="$IPREFIX" ocur="$CURRENT"
local osuf="$SUFFIX" oisuf="$ISUFFIX" owords
local _ms_match _ms_opt _ms_soptmid _ms_soptmidadd _ms_soptend
local _ms_optnext _ms_optdirect _ms_optequal
_ms_soptmid=()
_ms_soptmidadd=()
_ms_soptend=()
_ms_optnext=()
_ms_optdirect=()
_ms_optequal=()
owords=("$words[@]")
end=$argv[(i)-]
[[ end -gt $# ]] && return 1
all=( "${(@)argv[1,end]}" )
shift end
xor=()
ostate=()
ocontext=()
oopt_args=()
while true; do
end=$argv[(i)-]
if [[ "$1" = \(*\) ]]; then
_arguments -m xor "${1[2,-2]}" "$all[@]" \
"$1${(@)^argv[2,end-1]:#\(*}" \
"${1[1,-2]} ${(@)${(@M)^argv[2,end-1]:#\(*}#?}"
else
_arguments -m xor "$1" "$all[@]" "${(@)argv[2,end-1]}"
fi
r=$?
oopt_args=( "$oopt_args[@]" "${(@kv)opt_args}" )
if [[ r -eq 300 ]]; then
ret=300
ostate=( "$ostate[@]" "$state[@]" )
ocontext=( "$ocontext[@]" "$context[@]" )
PREFIX="$opre" SUFFIX="$osuf"
IPREFIX="$oipre" ISUFFIX="$oisuf"
CURRENT="$ocur" words=( "$owords[@]" )
elif [[ "$r$ret" = 01 ]]; then
ret=0
fi
[[ end -gt $# ]] && break
shift end
done
[[ -n "$_ms_opt" ]] &&
_describe -o option \
_ms_soptmid _ms_soptmidadd -Q -S '' -- \
_ms_soptend -Q -- \
_ms_optnext -Q -M "$_ms_match" -- \
_ms_optdirect -QS '' -M "$_ms_match" -- \
_ms_optequal -QqS= -M "$_ms_match" && [[ ret -eq 1 ]] && ret=0
opt_args=( "$oopt_args[@]" )
if [[ ret -eq 300 ]]; then
state=( "$ostate[@]" )
context=( "$ocontext[@]" )
elif [[ -z "$has_args" ]]; then
if [[ -n "$had_args" ]]; then
_message "no more arguments"
else
_message "no arguments"
fi
fi
return ret
|
