Re: [j-devel] Using arrow keys under Linux -- has anyone any advice?

[Julian F. <ay...@gm...>]

> Does someone know what I need to do to set the arrow keys (and in fact the
> other keys) on Linux? When I load abcl.jar into an xterm window the arrow
> keys don't respond correctly:
>
> Armed Bear Common Lisp 0.12.0
> Java 1.6.0 IBM Corporation
> IBM J9 VM
> Low-level initialization completed in 0.718 seconds.
> Startup completed in 2.411 seconds.
> Type ":help" for a list of available commands.
> CL-USER(1): ^[[A^[[C^[[B^[[D

1. Install rlwrap.

2. Put this script (derived from abcl.wrapper) in your PATH -- ~/bin
is a good place.

#!/bin/sh
ABCL='/usr/local/jdk-1.6.0/jre/bin/java -server -Xrs
-Djava.library.path=/opt/julian/lisp/in/abcl/src/or
g/armedbear/lisp/libabcl.so -cp /opt/julian/lisp/in/abcl/dist/abcl.jar
org.armedbear.lisp.Main'
if [ $# -eq 0 ]; then
 exec rlwrap -b "[]()'\" " --remember -c -f ~/.abcl_completions -H
~/.abcl_history -s 1000000 $ABCL
else
 exec $ABCL "$@"
fi

You may want to limit ~/.abcl_history to less than one million entries :-)

3. Generate ~/.abcl_completions
(let (symbols)
 (do-all-symbols (sym)
   (let ((package (symbol-package sym)))
     (cond
       ((not (fboundp sym)))
       ((or (eql #.(find-package :cl) package)
            (eql #.(find-package :extensions) package)
            (eql #.(find-package :cl-user) package))
        (pushnew (symbol-name sym) symbols))
       ((eql #.(find-package :keyword) package)
        (pushnew (concatenate 'string ":" (symbol-name sym)) symbols))
       (package
         (pushnew (concatenate 'string (package-name package)
                              ":"
                              (symbol-name sym))
                 symbols)))))
 (with-open-file (output #.(concatenate 'string (getenv "HOME")
                                        "/.abcl_completions")
                         :direction :output :if-exists :overwrite
                         :if-does-not-exist :create)
   (format output "~{~(~A~)~%~}" (sort symbols #'string<))))

HTH
Julian