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

yap

Browse Source
This commit is contained in:
Vitor Santos Costa
2018-12-11 12:50:52 +00:00
parent afe5780fc1
commit 7e84455117
8 changed files with 47 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -75,20 +75,24 @@ python_query( Caller, String ) :-
write_query_answer( Bindings ),
nl(user_error),
Caller.answer := {},
maplist(in_dict(Caller.answer), Bindings).
maplist(in_dict(Caller.answer, Bindings), Bindings).
in_dict(Dict, var([V0,V|Vs])) :-
/**
*
*/
in_dict(_Dict, _, var([_V0])) :-
!.
in_dict(Dict, Bindings, var([V0,V|Vs])) :-
!,
atom_string(V0,S0),
atom_string(V,S),
atom_to_string(V0,S0),
atom_to_string(V,S),
Dict[S] := S0,
in_dict( Dict, var([V0|Vs])).
in_dict(Dict, nonvar([V0|Vs], T)) :-
in_dict( Dict, Bindings, var([V0|Vs])).
in_dict(Dict, Bindings, nonvar([V0|Vs], T)) :-
!,
atom_string(V0,S0),
atom_string(T,S),
atom_to_string(V0,S0),
term_to_string(T, S, _Bindings),
Dict[S0] := S,
in_dict( Dict, var([V0|Vs])).
in_dict(_,_).
in_dict( Dict, Bindings, var([V0|Vs])).
in_dict(_, _, _).