blob: 1d279fc7552a570b2a8b42be4ad9dc4fb782266a (
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
83
84
85
86
87
88
89
90
91
92
93
|
#autoload
## usage: _regex_arguments funcname regex
## configuration key used:
# regex_arguments_path
# The path to a directory for caching. (default: ~/.zsh/regex_arguments)
##
# _regex_arguments compiles `regex' and emit the result of the state
# machine into the function `funcname'. `funcname' parses a command line
# according to `regex' and evaluate appropriate actions in `regex'. Before
# parsing the command line string is genereted by concatinating `words'
# (before `PREFIX') and `PREFIX' with a separator NUL ($'\0').
# The `regex' is defined as follows.
## regex word definition:
# pattern = "/" ( glob | "[]" ) "/" [ "+" | "-" ]
# lookahead = "%" glob "%"
# guard = "-" zsh-code-to-eval
# caction = ":" zsh-code-to-eval
# action = "{" zsh-code-to-eval "}"
## regex word sequence definition:
# element = pattern [ lookahead ] [ guard ] [ caction ]
#
# regex = element
# | "(" regex ")"
# | regex "#"
# | ( regex | action ) #
# | regex "|" regex
# example:
# compdef _tst tst
# _regex_arguments _tst /$'[^\0]#\0'/ /$'[^\0]#\0'/ :'compadd aaa'
# _tst complete `aaa' for first argument.
# First $'[^\0]#\0' is required to match with command name.
# _regex_arguments _tst /$'[^\0]#\0'/ \( /$'[^\0]#\0'/ :'compadd aaa' /$'[^\0]#\0'/ :'compadd bbb' \) \#
# _tst complete `aaa' for (2i+1)th argument and `bbb' for (2i)th argument.
# _regex_arguments _tst /$'[^\0]#\0'/ \( /$'[^\0]#\0'/ :'compadd aaa' \| /$'[^\0]#\0'/ :'compadd bbb' \) \#
# _tst complete `aaa' or `bbb'.
## Recursive decent regex parser
# return status of parser functions:
# 0 : success
# 1 : parse error
# 2 : fatal parse error
_ra_comp () {
_ra_actions=("$_ra_actions[@]" "$1")
}
_regex_arguments () {
local regex funcname="$1"
shift
regex=(${@/(#b):(*)/":_ra_comp ${(qqqq)match[1]}"})
eval \
"$funcname"' () {
local _ra_p1 _ra_p2 _ra_left _ra_right _ra_com
local _ra_actions _ra_line="${(pj:\0:)${(@)words[1,CURRENT - 1]:Q}}"$'\''\0'\''"$PREFIX"
zregexparse -c _ra_p1 _ra_p2 "$_ra_line" '"${(j: :)${(qqqq)regex[@]}}"'
case "$?" in
0|2) _message "no more arguments";;
1)
if [[ "$_ra_line[_ra_p1 + 1, -1]" = *$'\''\0'\''* ]]; then
_message "parse failed before current word"
else
_ra_left="$_ra_line[_ra_p1 + 1, _ra_p2]"
_ra_right="$_ra_line[_ra_p2 + 1, -1]"
compset -p $(( $#PREFIX - $#_ra_line + $_ra_p1 ))
for _ra_com in "$_ra_actions[@]"; do
eval "$_ra_com"
done
fi
;;
3) _message "invalid regex";;
esac
}'
}
_regex_arguments "$@"
|
