From ff100e6a94f46995c8a0ec0f085da1667f5ee0c3 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Fri, 16 Apr 2010 21:05:42 -0400
Subject: [PATCH] Only run external commands as necessary, also make sure we
 only recognize commands in the right places (for example, 'rico planet planet
 ' shouldn't cause planet tab-completion).

---
 .../contrib/completion/racket-completion.bash | 37 ++++++++++---------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/collects/meta/contrib/completion/racket-completion.bash b/collects/meta/contrib/completion/racket-completion.bash
index e2f267cf75..9ca309f8e5 100644
--- a/collects/meta/contrib/completion/racket-completion.bash
+++ b/collects/meta/contrib/completion/racket-completion.bash
@@ -82,31 +82,31 @@ complete  -F _racket $filenames racket
 complete  -F _racket $filenames gracket
 complete  -F _racket $filenames gracket-text
 
+# Expects ${cur} as arg 1
+_rico_planet()
+{
+    local cur="${COMP_WORDS[COMP_CWORD]}"
+    local planetcmds=$( echo '' '--help' ;  for x in `rico planet --help 2>&1 | sed -n -e 's/^  \(.[^ ]*\).*/\1/p'` ; do echo ${x} ; done )
+    COMPREPLY=( $(compgen -W "${planetcmds}" -- ${cur}) )
+}
+
 _rico()
 {
-    local cur prev opts base cmds makeopts tmpoutput
     COMPREPLY=()
-    cur="${COMP_WORDS[COMP_CWORD]}"
-    prev="${COMP_WORDS[COMP_CWORD-1]}"
-
-    #
-    #  The basic commands we'll complete.
-    #
-    #local cmds="make setup planet exe pack c-ext decompile distribute expand --help docs"
-    tmpoutput=`rico --help 2>&1 | sed -n -e 's/^  \(.[^ ]*\).*/\1/p'`
-    if [ $? -ne 0 ]; then
-      return 1
-    fi
-    # removing the empty string on the next line breaks things.  such as my brain.
-    cmds=$( echo '' '--help' ;  for x in ${tmpoutput} ; do echo ${x} ; done )
-    makeopts="--disable-inline --no-deps -p --prefix --no-prim -v -vv --help -h"
+    local cur="${COMP_WORDS[COMP_CWORD]}"
 
     #
     #  Complete the arguments to some of the basic commands.
     #
+    local makeopts="--disable-inline --no-deps -p --prefix --no-prim -v -vv --help -h"
+
     if [ $COMP_CWORD -eq 1 ]; then
+      # removing the empty string on the next line breaks things.  such as my brain.
+      local cmds=$( echo '' '--help' ;  for x in `rico --help 2>&1 | sed -n -e 's/^  \(.[^ ]*\).*/\1/p'` ; do echo ${x} ; done )
       COMPREPLY=($(compgen -W "${cmds}" -- ${cur}))  
-    else
+    elif [ $COMP_CWORD -eq 2 ]; then
+      # Here we'll handle the main rico commands
+      local prev="${COMP_WORDS[1]}"
       case "${prev}" in
         make)
           case "${cur}" in
@@ -119,8 +119,7 @@ _rico()
           esac
           ;;
         planet)
-          planetcmds=$( echo '' '--help' ;  for x in `rico planet --help 2>&1 | sed -n -e 's/^  \(.[^ ]*\).*/\1/p'` ; do echo ${x} ; done )
-          COMPREPLY=( $(compgen -W "${planetcmds}" -- ${cur}) )
+          _rico_planet
           ;;
         --help)
           ;;
@@ -128,6 +127,8 @@ _rico()
           _filedir
           ;;
       esac
+    else
+      _filedir
     fi
     return 0
 }