Advertisement
logicmoo

Untitled

Feb 6th, 2015
495
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. /*
  2. :- mode fully_det rdf_to_prolog_io(+,+,+,-).
  3. rdf_to_prolog_io(DB,o,S,Sx):-any_to_prolog(DB,S,Sx).
  4. rdf_to_prolog_io(_ ,i,S,S):-ground(S).
  5. rdf_to_prolog_io(DB,i,S,Sx):-any_to_prolog(DB,S,Sx).
  6. */
  7.  
  8. rdf_to_prolog_io(DB,o,S,Sx):-!,must(any_to_prolog(DB,S,Sx)),!.
  9. rdf_to_prolog_io(_,i,S,Sx):-ground(S),!,must(S=Sx).
  10. rdf_to_prolog_io(DB,i,S,Sx):-must(notrace(any_to_prolog(DB,S,Sx))),!.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement