This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/pl/android.yap
Vitor Santos Costa cab11f5205 droid vs myddas
2019-04-07 00:25:10 +01:00

21 lines
532 B
Prolog

%:- module(android,
% [text_to_query/2]).
:- initialization(yap_flag(verbose,_,normal)).
:- meta_predicate( text_to_query( :, - ) ).
text_to_query( MString, Status ) :-
strip_module( user:MString, Mod, String ),
top_query(android:query_( Mod:String, Status ) ).
query_( Mod:String, Status ) :-
atomic_to_term( String, Goal, VarNames ),
(
is_list(Goal) -> G = consult( Goal ) ; G = Goal ),
query_to_answer( Mod:G, VarNames, Status, Bindings).
user:file_search_path(data, '/data/data/pt.up.yap/files/Yap/myddas').