suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lots more smarts

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-04-16 18:40:39 -04:00
parent 29b7ae4f9f
commit 1321a766c0
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/meta/contrib/completion/racket-completion.bash
View File

@ -79,10 +79,12 @@ _racket()
return 0 return 0
} }
complete -F _racket $filenames racket complete -F _racket $filenames racket
complete -F _racket $filenames gracket
complete -F _racket $filenames gracket-text
_rico() _rico()
{ {
local cur prev opts base local cur prev opts base cmds makeopts tmpoutput
COMPREPLY=() COMPREPLY=()
cur="${COMP_WORDS[COMP_CWORD]}" cur="${COMP_WORDS[COMP_CWORD]}"
prev="${COMP_WORDS[COMP_CWORD-1]}" prev="${COMP_WORDS[COMP_CWORD-1]}"
@ -90,14 +92,21 @@ _rico()
# #
# The basic commands we'll complete. # The basic commands we'll complete.
# #
opts="make setup planet exe pack c-ext decompile distribute expand --help docs" #local cmds="make setup planet exe pack c-ext decompile distribute expand --help docs"
local makeopts="--disable-inline --no-deps -p --prefix --no-prim -v -vv --help -h" 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"
planetcmds=$( echo '' '--help' ; for x in `rico planet --help 2>&1 | sed -n -e 's/^ \(.[^ ]*\).*/\1/p'` ; do echo ${x} ; done )
# #
# Complete the arguments to some of the basic commands. # Complete the arguments to some of the basic commands.
# #
if [ $COMP_CWORD -eq 1 ]; then if [ $COMP_CWORD -eq 1 ]; then
COMPREPLY=($(compgen -W "${opts}" -- ${cur})) COMPREPLY=($(compgen -W "${cmds}" -- ${cur}))
else else
case "${prev}" in case "${prev}" in
make) make)
@ -108,7 +117,10 @@ _rico()
*) *)
_filedir _filedir
;; ;;
esac esac
;;
planet)
COMPREPLY=( $(compgen -W "${planetcmds}" -- ${cur}) )
;; ;;
--help) --help)
;; ;;