diff options
| -rw-r--r-- | Completion/Base/_regex_arguments | 93 |
1 files changed, 0 insertions, 93 deletions
diff --git a/Completion/Base/_regex_arguments b/Completion/Base/_regex_arguments deleted file mode 100644 index 635cd0e5f..000000000 --- a/Completion/Base/_regex_arguments +++ /dev/null @@ -1,93 +0,0 @@ -#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 = ":" tag ":" descr ":" 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 expl tmp nm="$compstate[nmatches]" - local _ra_actions _ra_line="${(pj:\0:)${(@)words[1,CURRENT - 1]:Q}}"$'\''\0'\''"$PREFIX" - _ra_actions=() - 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 )) - (( $#_ra_actions )) && _alternative "$_ra_actions[@]" - fi - ;; - 3) _message "invalid regex";; - esac - [[ nm -ne "$compstate[nmatches]" ]] - }' -} - -_regex_arguments "$@" |