This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
2001-04-09 20:54:03 +01:00
|
|
|
/*************************************************************************
|
|
|
|
* *
|
|
|
|
* YAP Prolog *
|
|
|
|
* *
|
|
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
|
|
|
* *
|
|
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
|
|
|
|
* *
|
|
|
|
**************************************************************************
|
|
|
|
* *
|
|
|
|
* File: corout.pl *
|
|
|
|
* Last rev: *
|
|
|
|
* mods: *
|
|
|
|
* comments: Coroutines implementation *
|
|
|
|
* *
|
|
|
|
*************************************************************************/
|
|
|
|
|
2014-09-11 20:06:57 +01:00
|
|
|
/**
|
|
|
|
|
|
|
|
@defgroup DepthLimited Depth Limited Search
|
|
|
|
@ingroup YAPExtensions
|
|
|
|
|
|
|
|
YAP implements various extensions to the default Prolog search. One of
|
|
|
|
the most iseful s restricting the maximum search depth.
|
|
|
|
|
|
|
|
*/
|
|
|
|
:-
|
|
|
|
system_module( '$_depth_bound', [depth_bound_call/2], []).
|
2014-04-09 12:39:29 +01:00
|
|
|
|
2001-04-09 20:54:03 +01:00
|
|
|
%depth_bound_call(A,D) :-
|
|
|
|
%write(depth_bound_call(A,D)), nl, fail.
|
2003-09-15 02:25:29 +01:00
|
|
|
depth_bound_call(A,D) :-
|
|
|
|
'$execute_under_depth_limit'(A,D).
|
2001-04-09 20:54:03 +01:00
|
|
|
|