137 lines
2.4 KiB
Prolog
137 lines
2.4 KiB
Prolog
|
|
%% @file yapi.yap
|
|
%% @brief support yap shell
|
|
%%
|
|
|
|
:- module(yapi, [
|
|
python_ouput/0,
|
|
show_answer/2,
|
|
show_answer/3,
|
|
yap_query/4,
|
|
python_query/2,
|
|
python_query/3,
|
|
python_import/1,
|
|
yapi_query/2
|
|
]).
|
|
|
|
%:- yap_flag(verbose, silent).
|
|
|
|
:- reexport(library(python)).
|
|
|
|
:- use_module( library(lists) ).
|
|
:- use_module( library(maplist) ).
|
|
:- use_module( library(rbtrees) ).
|
|
:- use_module( library(terms) ).
|
|
|
|
|
|
:- python_import(yap4py.yapi).
|
|
:- python_import(json).
|
|
%:- python_import(gc).
|
|
|
|
:- meta_predicate( yapi_query(:,+) ).
|
|
|
|
%:- start_low_level_trace.
|
|
|
|
%% @pred yapi_query( + VarList, - Dictionary)
|
|
%%
|
|
%% dictionary, Examples
|
|
%%
|
|
%%
|
|
yapi_query( VarNames, Self ) :-
|
|
show_answer(VarNames, Dict),
|
|
Self.bindings := Dict.
|
|
|
|
|
|
%:- initialization set_preds.
|
|
|
|
set_preds :-
|
|
fail,
|
|
current_predicate(P, Q),
|
|
functor(Q,P,A),
|
|
atom_string(P,S),
|
|
catch(
|
|
:= yap4py.yapi.named( S, A),
|
|
_,
|
|
fail),
|
|
fail.
|
|
set_preds :-
|
|
fail,
|
|
system_predicate(P/A),
|
|
atom_string(P,S),
|
|
catch(
|
|
:= yap4py.yapi.named( S, A),
|
|
_,
|
|
fail),
|
|
fail.
|
|
set_preds.
|
|
|
|
argi(N,I,I1) :-
|
|
atomic_concat('A',I,N),
|
|
I1 is I+1.
|
|
|
|
python_query( Caller, String ) :-
|
|
python_query( Caller, String, _Bindings).
|
|
|
|
python_query( Caller, String, Bindings ) :-
|
|
atomic_to_term( String, Goal, VarNames ),
|
|
query_to_answer( Goal, VarNames, Status, Bindings),
|
|
Caller.port := Status,
|
|
output(Caller, Bindings).
|
|
|
|
output( Caller, Bindings ) :-
|
|
fail,
|
|
Answer := {},
|
|
% start_low_level_trace,
|
|
foldl(ground_dict(answer), Bindings, [], Ts),
|
|
term_variables( Ts, Hidden),
|
|
foldl(bv, Hidden , 0, _),
|
|
maplist(into_dict(Answer),Ts),
|
|
Caller.answer := Answer,
|
|
fail.
|
|
|
|
|
|
output( _, Bindings ) :-
|
|
write_query_answer( Bindings ),
|
|
fail.
|
|
output(_Caller, _Bindings).
|
|
|
|
bv(V,I,I1) :-
|
|
atomic_concat(['__',I],V),
|
|
I1 is I+1.
|
|
|
|
into_dict(D,V0=T) :-
|
|
atom(T),
|
|
!,
|
|
D[V0] := T.
|
|
into_dict(D,V0=T) :-
|
|
integer(T),
|
|
writeln((D[V0]:=T)),
|
|
!,
|
|
D[V0] := T,
|
|
:= print(D).
|
|
into_dict(D,V0=T) :-
|
|
string(T),
|
|
!,
|
|
D[V0] := T.
|
|
into_dict(D,V0=T) :-
|
|
python_represents(T1,T),
|
|
D[V0] := T1.
|
|
|
|
/**
|
|
*
|
|
*/
|
|
ground_dict(_Dict,var([_V]), I, I) :-
|
|
!.
|
|
ground_dict(_Dict,var([V,V]), I, I) :-
|
|
!.
|
|
ground_dict(Dict, nonvar([V0|Vs],T),I0, [V0=T| I0]) :-
|
|
!,
|
|
ground_dict(Dict, var([V0|Vs]),I0, I0).
|
|
ground_dict(Dict, var([V0,V1|Vs]), I, I) :-
|
|
!,
|
|
Dict[V1] := V0,
|
|
ground_dict(Dict, var([V0|Vs]), I, I).
|
|
|
|
|
|
|