Christophe Weblog Wiki Code Publications Music
log and fix bug #20: infinite errors on disconnect.
authorChristophe Rhodes <>
Thu, 15 Dec 2011 21:13:57 +0000 (21:13 +0000)
committerChristophe Rhodes <>
Thu, 15 Dec 2011 21:13:57 +0000 (21:13 +0000)
Check for a zero-element character vector return from readChar.  (This
is not documented as the EOF return value, no, but it makes sense).

Also commit bug reports #18 and #19, and some README rearrangement.

index f4c5bf1..46fcb4e 100644 (file)
--- a/
+++ b/
   (Almost certainly not; I suspect we naïvely use nchar() in places).
   We could either declare our encoding as latin1-unix, or make the
   server utf8ly correct.  To reproduce, simply type "ë" at the repl.
+* OPEN #18 ess-help needs to be loaded automatically                  :MINOR:
+  to reproduce: in a fresh emacs, type ?help
+* OPEN #19 base graphics don't work automatically                    :NORMAL:
+  They can be made to by passing --interactive to R on startup, but
+  I'm not sure what else that does.
+* RESOLVED #20 closing the connection causes infinite R errors    :IMPORTANT:
+  reported by "Philipp Marek" <> by private mail.
 Local Variables:
 mode: org;
diff --git a/README b/README
index ce8005c..d7dc564 100644 (file)
--- a/README
+++ b/README
    SLIME is to ILISP.  At present, ESS mode remains active in R source
    buffers, providing font-locking functionality among other things.
 * Installation
-** Running
-   To begin using swankr:
-   1. start R;
-   2. load the swank.R file:
-      source("swank.R")
-   3. at the R prompt, run
-      swank();
-   4. within emacs, load and initialize slime;
-#+BEGIN_SRC emacs-lisp
-      (require 'slime)
-      (slime-setup '(slime-repl))
-   5. run =M-x slime-connect=, accepting the default host and port,
-      and acknowledging the protocol version mismatch.
+** Emacs configuration
+*** Installing SLIME
+    SLIME is required separately from swankr.  To install slime,
+    perhaps the simplest is to pull the CVS sources into a
+    user-specific site directory, and arrange for that to be on the
+    emacs =load-path=; I did
+#+begin_src sh
+mkdir -p ~/.emacs.d/site-lisp
+cd ~/.emacs.d/site-lisp
+cvs -z3 co slime
-   At this point, an R REPL should appear.
-** Emacs customization
-   At a minimum, slime needs to be set up to function.  I've
-   used the following forms in my =~/.emacs=
-#+BEGIN_SRC emacs-lisp
-   (require 'slime)
-   (slime-setup '(slime-repl slime-scratch slime-media))
-   The =slime-media= contrib is new and (at present) R-specific,
-   allowing for image results to be embedded in the REPL.
+    Following that, I have in my =~/.emacs= (you will need to adjust
+    paths to executables and source files):
+#+begin_src emacs-lisp
+;;; ~/.emacs.d/
+(let ((default-directory (concat user-emacs-directory (convert-standard-filename "site-lisp/"))))
+  (normal-top-level-add-subdirs-to-load-path))
+;;; SLIME
+(require 'slime)
+(setq slime-net-coding-system 'utf-8-unix)
+(slime-setup '(slime-asdf slime-repl slime-scratch slime-presentations slime-media))
+(setq slime-lisp-implementations
+      '((sbcl ("sbcl" "--dynamic-space-size" "2048" "--load" "/home/csr21/src/lisp/quicklisp/setup.lisp"))
+        (git-sbcl ("sh" "/home/csr21/src/lisp/sbcl/" "--dynamic-space-size" "2048"))
+        (R ("R" "--no-save" "--max-vsize=4096M")
+           :init (lambda (port-filename coding-system) 
+                   (format
+                    "source('/home/csr21/src/R/swankr/swank.R', keep.source=TRUE, chdir=TRUE)\nstartSwank('%s')\n" port-filename)))))
+(global-set-key (kbd "s-s") 'slime-selector)
+*** Additional refinements
    In addition, for keybindings like =C-c C-c= to work properly, emacs
    needs to be told how to guess where a function definition begins.
    This can be achieved with /e.g./
                      1 font-lock-function-name-face t))
+*** Running
+    After performing the installation steps above, =M-- M-x slime RET R
+    RET= should start swank.  You will be prompted to accept a version
+    mismatch -- simply accept -- then the SLIME REPL should start up,
+    giving a prompt.  Enjoy!
+** Proof-of-concept (OBSOLETE)
+   [ The instructions here are for the seriously impatient, and do not
+   give as good an experience ]
+   To begin using swankr:
+   1. start R;
+   2. load the swank.R file:
+      source("swank.R")
+   3. at the R prompt, run
+      swank();
+   4. within emacs, load and initialize slime;
+#+BEGIN_SRC emacs-lisp
+      (require 'slime)
+      (slime-setup '(slime-repl slime-presentations slime-media))
+   5. run =M-x slime-connect=, accepting the default host and port,
+      and acknowledging the protocol version mismatch.
+   At this point, an R REPL should appear.
 * Development
   swankr's primary development repository is a git repository,
   accessible through
   <> and
-  git://; a web view of the
+  git://; a web view of the
   development history is [[][available through gitweb]].  You can also view
   the current lists of [[]] and [[]] items.
 * Acknowledgments
diff --git a/swank.R b/swank.R
index dea28cf..2031184 100644 (file)
--- a/swank.R
+++ b/swank.R
@@ -33,9 +33,10 @@ acceptConnections <- function(port, portFile) {
     cat(port, file=f)
+  ## FIXME: maybe we should support dontClose here?
   s <- socketConnection(host="localhost", server=TRUE, port=port, open="r+b")
-  serve(s)
+  tryCatch(serve(s), endOfFile=function(c) NULL)
 serve <- function(io) {
@@ -145,6 +146,11 @@ readPacket <- function(io) {
 readChunk <- function(io, len) {
   buffer <- readChar(io, len)
+  if(length(buffer) == 0) {
+    condition <- simpleCondition("End of file on io")
+    class(condition) <- c("endOfFile", class(condition))
+    signalCondition(condition)
+  }
   if(nchar(buffer) != len) {
     stop("short read in readChunk")