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

free readline results

Browse Source 
svn: r5255
This commit is contained in:
Eli Barzilay 2007-01-08 04:15:53 +00:00
parent 737d3d5782
commit be0c68af4b
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/readline/mzrl.ss
View File

@ -9,11 +9,32 @@
(define libtermcap (with-handlers ([exn:fail? void]) (ffi-lib "libtermcap"))) (define libtermcap (with-handlers ([exn:fail? void]) (ffi-lib "libtermcap")))
(define libreadline (ffi-lib "libreadline")) (define libreadline (ffi-lib "libreadline"))
(define make-byte-string ; helper for the two types below
(get-ffi-obj "scheme_make_byte_string" #f (_fun _pointer -> _scheme)))
(define _bytes/eof/free ; register a finalizer on the resulting bytes
(make-ctype _pointer
(lambda (x) (and (not (eof-object? x)) x))
(lambda (x)
(if x
(let ([b (make-byte-string x)])
(register-finalizer b (lambda (_) (free x)))
b)
eof))))
(define _string/eof/free ; make a Scheme str from C str & free immediately
(make-ctype _pointer
(lambda (x) (and (not (eof-object? x)) (string->bytes/utf-8 x)))
(lambda (x)
(if x
(let ([s (bytes->string/utf-8 (make-byte-string x))]) (free x) s)
eof))))
(define readline (define readline
(get-ffi-obj "readline" libreadline (_fun _string -> _string/eof))) (get-ffi-obj "readline" libreadline (_fun _string -> _string/eof/free)))
(define readline-bytes (define readline-bytes
(get-ffi-obj "readline" libreadline (_fun _bytes -> _bytes/eof))) (get-ffi-obj "readline" libreadline (_fun _bytes -> _bytes/eof/free)))
(define add-history (define add-history
(get-ffi-obj "add_history" libreadline (_fun _string -> _void))) (get-ffi-obj "add_history" libreadline (_fun _string -> _void)))