suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Override readline's getc function to use Racket's read-byte.

Browse Source 
Eliminates the busy-polling behavior observed in Mac OS X when
xrepl is required at the regular repl.

Closes PR 13350.
This commit is contained in:
Danny Yoo 2013-02-09 21:46:51 -07:00 committed by Matthew Flatt
parent 246939f781
commit f1e7051652
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/readline/mzrl.rkt
View File

@ -115,9 +115,14 @@
(unless (terminal-port? real-input-port)
(log-warning "mzrl warning: input port is not a terminal\n"))
;; make it possible to run Scheme threads while waiting for input
(set-ffi-obj! "rl_event_hook" libreadline (_fun -> _int)
(lambda () (sync/enable-break real-input-port) 0))
;; We need to tell readline to pull content through our own function,
;; to avoid buffering issues between C and Racket, and to allow
;; racket threads to run while waiting for input.
(set-ffi-obj! "rl_getc_function" libreadline (_fun _pointer -> _int)
(lambda (_)
(define next-byte (read-byte real-input-port))
(if (eof-object? next-byte) -1 next-byte)))
;; force cursor on a new line