From 32a3e243bfcd011ee3ec41275629f7e75fb23c6c Mon Sep 17 00:00:00 2001
From: ianmacd <>
Date: Tue, 30 Mar 2004 18:56:02 +0000
Subject: [PATCH] - Lisp completions by Nikodemus Siivola <tsiivola@cc.hut.fi>

---
 contrib/clisp | 24 ++++++++++++++++++++++++
 contrib/gcl   | 23 +++++++++++++++++++++++
 contrib/lisp  | 24 ++++++++++++++++++++++++
 contrib/sbcl  | 25 +++++++++++++++++++++++++
 4 files changed, 96 insertions(+)
 create mode 100644 contrib/clisp
 create mode 100644 contrib/gcl
 create mode 100644 contrib/lisp
 create mode 100644 contrib/sbcl

diff --git a/contrib/clisp b/contrib/clisp
new file mode 100644
index 00000000..0a071842
--- /dev/null
+++ b/contrib/clisp
@@ -0,0 +1,24 @@
+# bash brogrammable completion for various Common Lisp implementations by
+# Nikodemus Siivola <nikodemus@random-state.net>
+#
+
+_clisp()
+{
+    local cur
+
+    COMPREPLY=()
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    # completing an option (may or may not be separated by a space)
+    if [[ "$cur" == -* ]]; then
+	COMPREPLY=( $( compgen -W '-h --help --version --license -B -K \
+                     -M -m -L -N -E -q --quiet --silent -w -I -ansi \
+                     -traditional -p -C -norc -i -c -l -o -x ' \
+                     -- $cur ) )
+    else
+	_filedir
+    fi
+
+    return 0
+}
+complete -F _clisp -o default clisp
diff --git a/contrib/gcl b/contrib/gcl
new file mode 100644
index 00000000..0c64b8ee
--- /dev/null
+++ b/contrib/gcl
@@ -0,0 +1,23 @@
+# bash programmable completion for various Common Lisp implementations by
+# Nikodemus Siivola <nikodemus@random-state.net>
+#
+
+_gcl()
+{
+    local cur
+
+    COMPREPLY=()
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    # completing an option (may or may not be separated by a space)
+    if [[ "$cur" == -* ]]; then
+	COMPREPLY=( $( compgen -W '-eval -load -f -batch -dir -libdir \
+                     -compile -o-file -c-file -h-file -data-file -system-p '\
+                     -- $cur ) )
+    else
+	_filedir
+    fi
+
+    return 0
+}
+complete -F _gcl -o default gcl
diff --git a/contrib/lisp b/contrib/lisp
new file mode 100644
index 00000000..5e01ce98
--- /dev/null
+++ b/contrib/lisp
@@ -0,0 +1,24 @@
+# bash programmable completion for various Common Lisp implementations by
+# Nikodemus Siivola <nikodemus@random-state.net>
+#
+
+_lisp()
+{
+    local cur
+
+    COMPREPLY=()
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    # completing an option (may or may not be separated by a space)
+    if [[ "$cur" == -* ]]; then
+	COMPREPLY=( $( compgen -W '-core -lib -batch -quit -edit -eval -init \
+                     -dynamic-space-size -hinit -noinit -nositeinit -load \
+                     -slave ' \
+                     -- $cur ) )
+    else
+	_filedir
+    fi
+
+    return 0
+}
+complete -F _lisp -o default lisp
diff --git a/contrib/sbcl b/contrib/sbcl
new file mode 100644
index 00000000..25798c12
--- /dev/null
+++ b/contrib/sbcl
@@ -0,0 +1,25 @@
+# -*- sh -*-
+#
+# bash programmable completion for various Common Lisp implementations by
+# Nikodemus Siivola <nikodemus@random-state.net>
+#
+
+_sbcl()
+{
+    local cur
+
+    COMPREPLY=()
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    # completing an option (may or may not be separated by a space)
+    if [[ "$cur" == -* ]]; then
+	COMPREPLY=( $( compgen -W '--core --noinform --help --version \
+                     --sysinit --userinit --eval --noprint --disable-debugger \
+                     --end-runtime-options --end-toplevel-options ' -- $cur ) )
+    else
+	_filedir
+    fi
+
+    return 0
+}
+complete -F _sbcl -o default sbcl sbcl-mt