set-completion ( quot -- )
Readline

Prev:

readline ( prompt -- str )

Vocabulary
readline

Inputs

quot	a quotation with stack effect ( str n -- str )

Outputs
None

Word description
Set the given quotation as the completion hook for readline. The quotation is called with the string to complete and the index in the completion list to return. When all completions have been returned, returning f terminates the loop.

Examples

USING: readline sequences combinators kernel ; [ nip [ "keep" "dip" ] ?nth ] set-completion

Definition

USING: alien.data combinators compiler.units io.encodings.utf8
kernel readline.ffi words ;

IN: readline

: set-completion ( quot -- )
    [
        [ [ utf8 malloc-string ] [ f ] if* ] compose
        [ rl_compentry_func_t ] curry ( -- alien ) define-temp
    ] with-compilation-unit ( -- alien ) execute-effect
    set-rl_completion_entry_function ;