Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allowing multi-line input to (chibi repl) from Emacs and raw terminals.

Browse source
This commit is contained in:
Alex Shinn 2012-12-08 15:23:19 +09:00
parent b9bf656d2b
commit 966ece57c2
1 changed files with 18 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lib/chibi/repl.scm
View file

@ -28,11 +28,26 @@
(define (write-to-string x) (define (write-to-string x)
(call-with-output-string (lambda (out) (write x out)))) (call-with-output-string (lambda (out) (write x out))))
(define (buffer-complete-sexp? buf) (define (complete-sexp? str)
(call-with-input-string (buffer->string buf) (call-with-input-string str
(lambda (in) (lambda (in)
(let lp () (if (not (eof-object? (read/ss in))) (lp)))))) (let lp () (if (not (eof-object? (read/ss in))) (lp))))))
(define (read-line/complete-sexp in)
(let lp ((res ""))
(let ((line (read-line in)))
(cond
((eof-object? line)
(if (equal? res "") line res))
(else
(let ((res (string-append res line "\n")))
(if (guard (exn (else #f)) (complete-sexp? res))
res
(lp res))))))))
(define (buffer-complete-sexp? buf)
(complete-sexp? (buffer->string buf)))
(define module? vector?) (define module? vector?)
(define (module-env mod) (vector-ref mod 1)) (define (module-env mod) (vector-ref mod 1))
@ -149,7 +164,7 @@
(raw? (raw?
(display prompt out) (display prompt out)
(flush-output out) (flush-output out)
(read-line in)) (read-line/complete-sexp in))
(else (else
(edit-line in out (edit-line in out
'prompt: prompt 'prompt: prompt