diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more UDI stuff.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-02-25 00:13:45 +00:00
parent 2bc5d8425a
commit 91657556ee
3 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
C/c_interface.c
View File

@ -2508,3 +2508,17 @@ YAP_AttsOfVar(Term t)
return attv->Atts; 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;
}

2
include/rtree_udi.h
View File

@ -13,7 +13,7 @@ extern control_t *RtreeUdiInit (Term spec,
int arity); int arity);
/*this is called in each asserted term that was declared to udi_init*/ /*this is called in each asserted term that was declared to udi_init*/
extern control_t *RtreeUdiInsert (Term t, /*asserted term*/ extern control_t *RtreeUdiInsert (Term term, /*asserted term*/
control_t *control, control_t *control,
void *clausule); /*to store in tree and return void *clausule); /*to store in tree and return
in search*/ in search*/

8
packages/udi/rtree_udi.c
View File

@ -12,7 +12,7 @@
#include "rtree_udi_i.h" #include "rtree_udi_i.h"
#include "rtree_udi.h" #include "rtree_udi.h"
static int YAP_IsNumberTerm (YAP_Term term, YAP_Float *n) static int YAP_IsNumberTerm (Term term, YAP_Float *n)
{ {
if (YAP_IsIntTerm (term) != FALSE) if (YAP_IsIntTerm (term) != FALSE)
{ {
@ -29,7 +29,7 @@ static int YAP_IsNumberTerm (YAP_Term term, YAP_Float *n)
return (FALSE); return (FALSE);
} }
static rect_t RectOfTerm (YAP_Term term) static rect_t RectOfTerm (Term term)
{ {
YAP_Term tmp; YAP_Term tmp;
rect_t rect; rect_t rect;
@ -49,7 +49,7 @@ static rect_t RectOfTerm (YAP_Term term)
return (rect); return (rect);
} }
control_t *RtreeUdiInit (YAP_Term spec, control_t *RtreeUdiInit (Term spec,
void * pred, void * pred,
int arity){ int arity){
control_t *control; control_t *control;
@ -86,7 +86,7 @@ control_t *RtreeUdiInit (YAP_Term spec,
return control; return control;
} }
control_t *RtreeUdiInsert (YAP_Term term,control_t *control,void *clausule) control_t *RtreeUdiInsert (Term term,control_t *control,void *clausule)
{ {
int i; int i;
rect_t r; rect_t r;