try to find out the sub commands to complete in _init_d (13591)

2 files changed, 23 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 92f9083a7..1712ee895 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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
diff --git a/Completion/User/_init_d b/Completion/User/_init_d
index 134b91cc5..239388591 100755
--- a/Completion/User/_init_d
+++ b/Completion/User/_init_d
@@ -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