Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

keeping track of history in repl

Browse source
This commit is contained in:
Alex Shinn 2010-09-12 06:53:41 +00:00
parent 37f8c6c8b9
commit bfb698fd1b
2 changed files with 25 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/repl.module
View file

@ -5,5 +5,6 @@
(import (chibi ast)
(chibi process)
(chibi term edit-line)
(srfi 18))
(srfi 18)
(srfi 38))
(include "repl.scm"))

41
lib/chibi/repl.scm
View file

@ -18,24 +18,29 @@
thunk
(lambda () (set-signal-action! sig old-handler)))))
(define (run-repl module env)
(let ((line (edit-line (if module (string-append (symbol->string module) "> ") "> "))))
(cond
((or (not line) (eof-object? line)))
((equal? line "") (run-repl module env))
(else
(handle-exceptions exn (print-exception exn (current-error-port))
(let* ((expr (call-with-input-string line read))
(thread (make-thread (lambda ()
(let ((res (eval expr env)))
(if (not (eq? res (if #f #f)))
(write res)))))))
(with-signal-handler
signal/interrupt
(lambda (n) (thread-terminate! thread))
(lambda () (thread-start! thread) (thread-join! thread)))))
(newline)
(run-repl module env)))))
(define (run-repl module env . o)
(let ((history (make-history)))
(let lp ((module module) (env env))
(let ((line (edit-line (if module (string-append (symbol->string module) "> ") "> ")
'history: history)))
(cond
((or (not line) (eof-object? line)))
((equal? line "") (lp module env))
(else
(history-commit! history line)
(handle-exceptions
exn (print-exception exn (current-error-port))
(let* ((expr (call-with-input-string line read/ss))
(thread (make-thread (lambda ()
(let ((res (eval expr env)))
(if (not (eq? res (if #f #f)))
(write/ss res))
(newline))))))
(with-signal-handler
signal/interrupt
(lambda (n) (thread-terminate! thread))
(lambda () (thread-start! thread) (thread-join! thread)))))
(lp module env)))))))
(define (repl)
(run-repl #f (interaction-environment)))