trivial interface to udi code (for now).
This commit is contained in:
parent
8a6e0acedc
commit
78bd156a20
26
pl/udi.yap
Normal file
26
pl/udi.yap
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
/*************************************************************************
|
||||||
|
* *
|
||||||
|
* YAP Prolog *
|
||||||
|
* *
|
||||||
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
||||||
|
* *
|
||||||
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
|
||||||
|
* *
|
||||||
|
**************************************************************************
|
||||||
|
* *
|
||||||
|
* File: tabling.yap *
|
||||||
|
* Last rev: 8/2/88 *
|
||||||
|
* mods: *
|
||||||
|
* comments: support tabling predicates *
|
||||||
|
* *
|
||||||
|
*************************************************************************/
|
||||||
|
|
||||||
|
:- meta_predicate udi(:).
|
||||||
|
|
||||||
|
/******************
|
||||||
|
* udi/1 *
|
||||||
|
******************/
|
||||||
|
|
||||||
|
udi(Pred) :-
|
||||||
|
'$new_udi'(rtree, Pred).
|
||||||
|
|
Reference in New Issue
Block a user