2009-02-12 21:40:44 +00:00
|
|
|
/*************************************************************************
|
|
|
|
|
* *
|
|
|
|
|
* YAP Prolog *
|
|
|
|
|
* *
|
|
|
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
|
|
|
|
* *
|
2010-11-29 18:44:39 +00:00
|
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-2010 *
|
2009-02-12 21:40:44 +00:00
|
|
|
* *
|
|
|
|
|
**************************************************************************
|
|
|
|
|
* *
|
2010-11-29 18:44:39 +00:00
|
|
|
* File: udi.yap *
|
2012-12-17 20:23:03 +00:00
|
|
|
* Last rev: 17/12/2012 *
|
2009-02-12 21:40:44 +00:00
|
|
|
* mods: *
|
2010-11-29 18:44:39 +00:00
|
|
|
* comments: support user defined indexing *
|
2009-02-12 21:40:44 +00:00
|
|
|
* *
|
|
|
|
|
*************************************************************************/
|
2017-10-27 13:50:40 +01:00
|
|
|
/**
|
|
|
|
|
* @file udi.yap
|
|
|
|
|
* @author VITOR SANTOS COSTA <vsc@VITORs-MBP-2.lan>
|
|
|
|
|
* @date Thu Oct 19 12:19:04 2017
|
|
|
|
|
*
|
|
|
|
|
* @brief User Defined Extensions
|
|
|
|
|
*
|
2018-05-08 23:42:02 +01:00
|
|
|
* @addtogroup UDI User Defined Extensions
|
2017-10-27 13:50:40 +01:00
|
|
|
* @ingroup extensions
|
|
|
|
|
*
|
|
|
|
|
*
|
|
|
|
|
*/
|
2009-02-12 21:40:44 +00:00
|
|
|
|
2014-04-09 12:39:29 +01:00
|
|
|
:- system_module( '$_udi', [udi/1], []).
|
|
|
|
|
|
2009-02-12 21:40:44 +00:00
|
|
|
:- meta_predicate udi(:).
|
|
|
|
|
|
|
|
|
|
/******************
|
|
|
|
|
* udi/1 *
|
|
|
|
|
******************/
|
|
|
|
|
|
|
|
|
|
udi(Pred) :-
|
2012-12-17 20:23:03 +00:00
|
|
|
'$udi_init'(Pred).
|
2019-01-09 09:32:09 +00:00
|
|
|
|
