provide a real interface to exo routines: needed by raptor
This commit is contained in:
parent
6c76a5f827
commit
86a79e2cab
4
C/exo.c
4
C/exo.c
@ -39,7 +39,7 @@
|
|||||||
#endif
|
#endif
|
||||||
|
|
||||||
bool YAP_NewExo( PredEntry *ap, size_t data, struct udi_info *udi);
|
bool YAP_NewExo( PredEntry *ap, size_t data, struct udi_info *udi);
|
||||||
bool YAP_ExoAssert( PredEntry *pe, const Term *ts, size_t m);
|
bool YAP_AssertTuples( PredEntry *pe, const Term *ts, size_t m);
|
||||||
|
|
||||||
//static int exo_write=FALSE;
|
//static int exo_write=FALSE;
|
||||||
|
|
||||||
@ -726,7 +726,7 @@ store_exo(yamop *pc, UInt arity, Term t0)
|
|||||||
}
|
}
|
||||||
|
|
||||||
bool
|
bool
|
||||||
YAP_ExoAssert( PredEntry *pe, const Term *ts, size_t m)
|
YAP_AssertTuples( PredEntry *pe, const Term *ts, size_t m)
|
||||||
{
|
{
|
||||||
MegaClause *mcl = ClauseCodeToMegaClause(pe->cs.p_code.FirstClause);
|
MegaClause *mcl = ClauseCodeToMegaClause(pe->cs.p_code.FirstClause);
|
||||||
size_t i, n = pe->cs.p_code.NOfClauses;
|
size_t i, n = pe->cs.p_code.NOfClauses;
|
||||||
|
Reference in New Issue
Block a user