renaming some OPTYap files in order to have a more consistent name organization

2010-04-19 02:34:08 +01:00
parent 73d210c991
commit c221c2ff85
23 changed files with 694 additions and 818 deletions
--- a/OPTYap/or.sbaunify.h
+++ b/OPTYap/or.sbaunify.h
@@ -0,0 +1,86 @@
+/************************************************************************
+**                                                                     **
+**                   The YapTab/YapOr/OPTYap systems                   **
+**                                                                     **
+** YapTab extends the Yap Prolog engine to support sequential tabling  **
+** YapOr extends the Yap Prolog engine to support or-parallelism       **
+** OPTYap extends the Yap Prolog engine to support or-parallel tabling **
+**                                                                     **
+**                                                                     **
+**      Yap Prolog was developed at University of Porto, Portugal      **
+**                                                                     **
+************************************************************************/
+
+#ifdef SCCS
+static char     SccsId[] = "%W% %G%";
+#endif /* SCCS */
+
+/************************************************************
+
+Unification Routines
+
+*************************************************************/
+
+static inline
+Int bind_variable(Term t0, Term t1)
+{
+  tr_fr_ptr TR0 = TR;
+  if (Yap_IUnify(t0,t1)) {
+    return(TRUE);
+  } else {
+    while(TR != TR0) {
+      CELL *p = (CELL *)TrailTerm(--TR);
+      RESET_VARIABLE(p);
+    }
+    return(FALSE);
+  }
+}
+
+EXTERN inline
+/*
+Int unify(Term t0, Term t1)
+*/
+Int unify(Term t0, Term t1)
+{
+  tr_fr_ptr TR0 = TR;
+  if (Yap_IUnify(t0,t1)) {
+    return(TRUE);
+  } else {
+    while(TR != TR0) {
+      CELL *p = (CELL *)TrailTerm(--TR);
+      RESET_VARIABLE(p);
+    }
+    return(FALSE);
+  }
+}
+
+EXTERN inline Int unify_constant(register Term a, register Term cons)
+{
+  CELL *pt;
+  deref_head(a,unify_cons_unk);
+ unify_cons_nonvar:
+  {
+    if (a == cons) return(TRUE);
+    else if (IsApplTerm(a) && IsExtensionFunctor(FunctorOfTerm(a))) {
+      Functor fun = FunctorOfTerm(a);
+      if (fun == FunctorDouble)
+	return(IsFloatTerm(cons) && FloatOfTerm(a) == FloatOfTerm(cons));
+      else if (fun == FunctorLongInt) {
+	return(IsLongIntTerm(cons) && LongIntOfTerm(a) == LongIntOfTerm(cons));
+#ifdef TERM_EXTENSIONS
+      } else if (IsAttachFunc(fun)) {
+	return(attas[ExtFromFunctor(fun)].bind_op(SBIND,a,cons));
+#endif /* TERM_EXTENSIONS */
+      } else
+	return(FALSE);
+      /* no other factors are accepted as arguments */
+    } else return(FALSE);
+  }
+    
+
+  deref_body(a,pt,unify_cons_unk,unify_cons_nonvar);
+  Bind(pt,cons);
+  return(TRUE);
+}
+
+