25 lines
754 B
Factor
25 lines
754 B
Factor
|
! Copyright (C) 2011 Erik Charlebois.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: alien.strings destructors io.encodings.utf8 kernel libc
|
||
|
|
sequences macros quotations words compiler.units fry
|
||
|
|
alien.data ;
|
||
|
|
QUALIFIED: readline.ffi
|
||
|
|
IN: readline
|
||
|
|
|
||
|
|
: readline ( prompt -- str )
|
||
|
|
[
|
||
|
|
readline.ffi:readline [
|
||
|
|
|free utf8 alien>string [
|
||
|
|
[ ] [ readline.ffi:add_history ] if-empty
|
||
|
|
] keep
|
||
|
|
] [ f ] if*
|
||
|
|
] with-destructors ;
|
||
|
|
|
||
|
|
MACRO: set-completion ( quot -- )
|
||
|
|
[
|
||
|
|
'[ @ [ utf8 malloc-string ] [ f ] if* ]
|
||
|
|
'[ _ readline.ffi:rl_compentry_func_t ]
|
||
|
|
(( -- alien )) define-temp
|
||
|
|
] with-compilation-unit execute
|
||
|
|
'[ _ readline.ffi:set-rl_completion_entry_function ] ;
|