blob: dcc6f6cc87a9da863f0a46bc37d92002fa1e37ba (
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
|
#compdef tcp_open
local context line expl nm=$compstate[nmatches]
local -a state argargs sesslist
local -A opt_args
case $service in
(tcp_open)
argargs=(
'(-a -f -l)-s[open session(s)]'
'(-a -f -s)-l[open list of sessions]'
'(-f -s -l)-a[open session for accept on fd]:fd:->fd'
'(-a -s -l)-f[open session for accept on fd]:fd:->fd'
'-q[quiet mode]'
'-z[no zle handler]'
)
if [[ -n $words[(R)-(a|f)*] ]]; then
argargs+=(':session:->session')
elif [[ -n $words[(R)-(l|s)*] ]]; then
argargs+=('*:session:->session')
else
argargs+=(':host:->host' ':port:->port' '*:session:->session')
fi
_arguments -C $argargs
;;
esac
while (( $#state )); do
case "$state[1]" in
(host)
_hosts
;;
(port)
_ports
;;
(sessionlist)
compset -P '*,'
;&
(session)
sesslist=(${${${(f)"$(<~/.ztcp_sessions)"}:#[[:space:]]#\#*}/ /:})
_describe -t sessions 'TCP session' sesslist && return
;;
esac
shift state
done
|
