diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

deb

Browse Source
This commit is contained in:
Vitor Santos Costa
2019-03-20 10:52:38 +00:00
parent e626847e93
commit 9980dd49a7
13 changed files with 68 additions and 2566 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
packages/python/swig/prolog/yapi.yap
View File

@@ -83,9 +83,9 @@ python_query( Caller, String, Bindings ) :-
Caller.q.port := Status,
output(Caller, Bindings).
output( _, Bindings ) :-
write_query_answer( Bindings ),
fail.
%% output( _, Bindings ) :-
%% write_query_answer( Bindings ),
%% fail.
output( Caller, Bindings) :-
maplist(into_dict(Caller),Bindings).
@@ -96,21 +96,3 @@ bv(V,I,I1) :-
into_dict(D,V0=T) :-
D.q.answer[V0] := T.
/**
*
*/
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).