mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-09-20 19:05:11 +02:00
try to find out the sub commands to complete in _init_d (13591)
This commit is contained in:
parent
c97203ac11
commit
c93f38253f
@ -1,3 +1,8 @@
|
||||
2001-03-08 Sven Wischnowsky <wischnow@zsh.org>
|
||||
|
||||
* 13591: Completion/User/_init_d: try to find out the sub commands
|
||||
to complete in _init_d
|
||||
|
||||
2001-03-07 Felix Rosencrantz <f_rosencrantz@yahoo.com>
|
||||
|
||||
* 13590: Test/54compmatch.ztst: Added another test case
|
||||
|
@ -1,5 +1,22 @@
|
||||
#compdef -P */(init|rc[0-9]#).d/*
|
||||
|
||||
local magic cmds what
|
||||
|
||||
# This should probably be system specific...
|
||||
|
||||
_sub_commands start stop
|
||||
# If the file starts with `#!' we hope that this is a shell script
|
||||
# and get lines looking like <space>foo|bar) with the words in $what.
|
||||
|
||||
what='(st(art|op|atus)|re(start|load)|debug_(up|down)|dump(|_stats)|add|delete|clean|list)'
|
||||
|
||||
read -u0k 2 magic < $words[1] && [[ $magic = '#!' ]] &&
|
||||
cmds=( ${${(j:|:s:|:)${(M)${(f)"$(< $words[1])"}:#[[:blank:]]#(\'|)${~what}(|${~what})#(\'|)\)}}//[^a-z_]} )
|
||||
|
||||
# This would be the pattern to use every line of the form <space>foo).
|
||||
# Some people say this might match too many lines...
|
||||
#
|
||||
# cmds=( ${${(j:|:s:|:)${(M)${(f)"$(< $words[1])"}:#[[:blank:]]#(\'|)[a-z_|]##(\'|)\)}}//[^a-z_]} )
|
||||
|
||||
(( $#cmds )) || cmds=(start stop)
|
||||
|
||||
_sub_commands $cmds
|
||||
|
Loading…
Reference in New Issue
Block a user