This commit was generated by cvs2svn to compensate for changes in r4,

which included commits to RCS files with non-trunk default branches.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/depth_bound.c

@@ -0,0 +1,60 @@
+/*************************************************************************
+*									 *
+*	 YAP Prolog 							 *
+*									 *
+*	Yap Prolog was developed at NCCUP - Universidade do Porto	 *
+*									 *
+* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997	 *
+*									 *
+**************************************************************************
+*									 *
+* File:		it_deep.c						 *
+* Last rev:								 *
+* mods:									 *
+* comments:	Support for Iterative Deepening                          *
+*									 *
+*************************************************************************/
+#ifdef SCCS
+static char     SccsId[] = "%W% %G%";
+#endif /* SCCS */
+
+#include "Yap.h"
+
+#ifdef DEPTH_LIMIT
+
+#include "Yatom.h"
+
+STD_PROTO(static Int p_get_depth_limit, (void));
+STD_PROTO(static Int p_set_depth_limit, (void));
+
+static Int p_get_depth_limit(void)
+{
+  return(unify_constant(ARG1, MkIntTerm(IntOfTerm(DEPTH/2))));
+}
+
+static Int p_set_depth_limit(void)
+{
+  Term d = Deref(ARG1);
+
+  if (IsVarTerm(d)) {
+    Error(INSTANTIATION_ERROR, d, "set-depth_limit");
+    return(FALSE);
+  } else if (!IsIntegerTerm(d)) {
+    Error(TYPE_ERROR_INTEGER, d, "set-depth_limit");
+    return(FALSE);
+  }
+  d = MkIntTerm(IntegerOfTerm(d)*2);
+
+  YENV[E_DEPTH] = d;
+  DEPTH = d;
+
+  return(TRUE);
+}
+
+void InitItDeepenPreds(void)
+{
+  InitCPred("get_depth_limit", 1, p_get_depth_limit, SafePredFlag);
+  InitCPred("$set_depth_limit", 1, p_set_depth_limit, 0);
+}
+
+#endif