From 1ca0fc6b6991a96eb2635a8eb9171eff25798ca3 Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Sun, 3 Feb 2002 21:37:55 +0000 Subject: 16514: initscript completion fixes --- ChangeLog | 5 +++++ Completion/Unix/Command/_init_d | 23 +++++++++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 Completion/Unix/Command/_init_d diff --git a/ChangeLog b/ChangeLog index 4b4e8be7e..a03e2193b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2002-02-03 Clint Adams + * 16514: Completion/Unix/Command/_init_d: do not attempt + to read file if it doesn't exist, match pipe-separated lists + and characters following the parenthesis, and don't wantonly + remove hyphens from completions. + * Sven: 16507: Completion/Zsh/Type/_command_names: slight improvement for 16500 to allow completion after ./ in all cases diff --git a/Completion/Unix/Command/_init_d b/Completion/Unix/Command/_init_d new file mode 100644 index 000000000..b8bd0c61f --- /dev/null +++ b/Completion/Unix/Command/_init_d @@ -0,0 +1,23 @@ +#compdef -P */(init|rc[0-9S]#).d/* + +local magic cmds what + +# This should probably be system specific... + +# If the file starts with `#!' we hope that this is a shell script +# and get lines looking like foo|bar) with the words in $what. + +what='(st(art|op|atus)|(force-|)re(start|load)|debug_(up|down)|dump(|_stats)|add|delete|clean|list)' + +[[ -f $words[1] ]] && 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 foo). +# Some people say this might match too many lines... +# +# cmds=( ${${(j:|:s:|:)${(M)${(f)"$(< $words[1])"}:#[[:blank:]]#(\'|)[a-z_|]##(\'|)\)}}//[^a-z_]} ) + +(( $#cmds )) || zstyle -a ":completion:${curcontext}:commands" commands cmds || + cmds=(start stop) + +_sub_commands $cmds -- cgit 1.4.1