2004-03-30 18:56:02 +00:00
|
|
|
# bash programmable completion for various Common Lisp implementations by
|
|
|
|
# Nikodemus Siivola <nikodemus@random-state.net>
|
|
|
|
|
2011-04-05 00:35:51 +03:00
|
|
|
have gcl || return
|
|
|
|
|
2004-03-30 18:56:02 +00:00
|
|
|
_gcl()
|
|
|
|
{
|
2011-04-20 17:02:27 +03:00
|
|
|
local cur prev words cword
|
|
|
|
_init_completion || return
|
2004-03-30 18:56:02 +00:00
|
|
|
|
|
|
|
# completing an option (may or may not be separated by a space)
|
|
|
|
if [[ "$cur" == -* ]]; then
|
2009-10-04 19:42:50 +02:00
|
|
|
COMPREPLY=( $( compgen -W '-eval -load -f -batch -dir -libdir \
|
|
|
|
-compile -o-file -c-file -h-file -data-file -system-p '-- "$cur" ) )
|
2004-03-30 18:56:02 +00:00
|
|
|
else
|
2009-10-04 19:42:50 +02:00
|
|
|
_filedir
|
2004-03-30 18:56:02 +00:00
|
|
|
fi
|
|
|
|
|
|
|
|
return 0
|
2009-06-08 21:22:43 +03:00
|
|
|
} &&
|
2009-10-22 12:04:29 +03:00
|
|
|
complete -F _gcl -o default gcl
|
2009-10-01 20:54:51 +03:00
|
|
|
|
|
|
|
# Local variables:
|
|
|
|
# mode: shell-script
|
2009-10-04 19:42:50 +02:00
|
|
|
# sh-basic-offset: 4
|
2009-10-01 20:54:51 +03:00
|
|
|
# sh-indent-comment: t
|
2009-10-04 19:42:50 +02:00
|
|
|
# indent-tabs-mode: nil
|
2009-10-01 20:54:51 +03:00
|
|
|
# End:
|
2009-10-04 19:42:50 +02:00
|
|
|
# ex: ts=4 sw=4 et filetype=sh
|