PATCH: completion for software collections on Redhat

[Oliver Kiddle <okiddle@yahoo.co.uk>]

scl is a Redhat thing for using newer versions of stuff like gcc and
maven than the those the system comes with.

Oliver

diff --git a/Completion/Redhat/Command/_scl b/Completion/Redhat/Command/_scl
new file mode 100644
index 0000000..4b9c53b
--- /dev/null
+++ b/Completion/Redhat/Command/_scl
@@ -0,0 +1,38 @@
+#compdef scl
+
+local curcontext="$curcontext" dashes ret=1
+local -a state line force alts cmd
+
+[[ $words[2] = deregister ]] &&
+    force=( '--force[deregister even SCL installed as packages]' )
+
+_arguments -C $force \
+  '(- 1)'{-l,--list}'[list installed software collections or packages within a collection]' \
+  '(-l --list)1:action:(enable register deregister)' \
+  '(-)*:collections:->collections' && ret=0
+
+if [[ -n $state ]]; then
+  (( $#line > 1 )) && curcontext="${curcontext%:*}-$line[1]:"
+  if [[ $line[1] = register ]]; then
+    _directories -P / -W /
+    return
+  fi
+  if (( ${dashes:=$words[(I)--]} )); then
+    shift dashes words
+    (( CURRENT -= dashes ))
+    _normal
+    return
+  fi
+  if [[ $CURRENT -gt 3 && $words[CURRENT] = - ]]; then
+    compadd - --
+    return
+  fi
+  [[ $line[1] = enable && $CURRENT -gt 3 ]] &&
+    cmd='command:command:_cmdstring'
+
+  _alternative 'collections:collection:compadd
+      $(_call_program collections ${words[1]} -l)' \
+      $cmd && ret=0
+fi
+
+return ret