mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-09-03 10:21:46 +02:00
Code Releases Activity

complete subscript flags (14227)

Browse source
This commit is contained in:
Oliver Kiddle 2001-05-04 23:00:18 +00:00
parent f8f6c27650
commit 080155607e
2 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
2001-05-04 Oliver Kiddle <opk@zsh.org>
* 14227: Completion/Zsh/Context/_subscript, complete subscript flags
2001-05-04 Bart Schaefer <schaefer@zsh.org>
* 14224: Completion/Unix/Commmand/_cvs: Complete path prefixes for

31
Completion/Zsh/Context/_subscript
View file

@ -1,6 +1,6 @@
#compdef -subscript-
local expl ind osuf=']'
local expl ind osuf=']' flags
if [[ "$1" = -q ]]; then
osuf='] '
@ -8,10 +8,39 @@ if [[ "$1" = -q ]]; then
shift
fi
compset -P '\([^\)]##\)' # remove subscript flags
if [[ "$PREFIX" = :* ]]; then
_wanted characters expl 'character class' \
compadd -p: -S ':]' alnum alpha blank cntrl digit graph \
lower print punct space upper xdigit
elif compset -P '\('; then
compset -S '\)*'
case ${(Pt)${compstate[parameter]}} in
assoc*) flags=(
'(R k K i I)r[return first matching value]'
'(r k K i I)R[return value of first matching key]'
'(r R K i I)k[return all values with matching keys]'
'(r R k i I)K[return value of first matching key]'
'(r R k K I)i[return first matching key]'
'(r R k K i)I[return all matching keys]'
);;
(|scalar*)) flags=(
'w[make subscripting work on words of scalar]'
's[specify word separator]'
'p[recognise escape sequences in subsequent s flag]'
);&
array*) flags=($flags
'n[specify match to return]'
'b[begin with specified element]'
'(r R k K i)I[reverse subscript giving index of last match]'
'(r k K i I)R[reverse subscripting giving last match]'
'(R k K i I)r[reverse subscripting giving first match]'
);;
esac
_values -s '' 'subscript flags' $flags
elif [[ ${(Pt)${compstate[parameter]}} = assoc* ]]; then
local suf