28 行
748 B
Prolog
28 行
748 B
Prolog
/*************************************************************************
|
|
* *
|
|
* YAP Prolog *
|
|
* *
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
|
* *
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-2010 *
|
|
* *
|
|
**************************************************************************
|
|
* *
|
|
* File: udi.yap *
|
|
* Last rev: 17/12/2012 *
|
|
* mods: *
|
|
* comments: support user defined indexing *
|
|
* *
|
|
*************************************************************************/
|
|
|
|
:- system_module( '$_udi', [udi/1], []).
|
|
|
|
:- meta_predicate udi(:).
|
|
|
|
/******************
|
|
* udi/1 *
|
|
******************/
|
|
|
|
udi(Pred) :-
|
|
'$udi_init'(Pred).
|