more UDI stuff.

2009-02-25 00:13:45 +00:00
parent 2bc5d8425a
commit 91657556ee
3 changed files with 19 additions and 5 deletions
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -2508,3 +2508,17 @@ YAP_AttsOfVar(Term t)
  return attv->Atts;
 }

+X_API Term
+YAP_TermHash(Term t)
+{
+  attvar_record *attv;
+  
+  t = Deref(t);
+  if (!IsVarTerm(t))
+    return TermNil;
+  if (VarOfTerm(t) >= H0)
+    return TermNil;
+  attv = (attvar_record *)VarOfTerm(t);
+  return attv->Atts;
+}
+