completer.yap

Go to the documentation of this file.

/**
 x  @file completer.yap
 *
 *  @brief Prolog completer.
 */
 
:- module( completer,
       [
           completions/2
       ]).
 
:-   use_module(library(lists)).
:-   use_module(library(maplist)).
:-   use_module(library(python)).
 
%% completions( +Text, +PythonCell )
% 
% Tries to complete the current text. The list with the set of completions
% is stored in the
% `matches` field of the python object.
%
completions(S, Self) :-
    open_mem_read_stream(S, St),
    scan_to_list(St, Tokens),
    close(St),
    reverse(Tokens, RTokens),
    strip_final_tokens(RTokens, MyTokens),
    setof( Completion, complete(MyTokens, Completion), Cs),
    Self.setof setof Cs.
 
 
strip_final_tokens(['EOT'|Ts], Ts) :- strip_final_tokens.
strip_final_tokens( Ts, Ts ).
 
%B = l,%D=l,%B = l,%D=l,%B = l,%B = l,