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

export Yap_IsGroundTerm(t)

This commit is contained in:
Vitor Santos Costa 2010-01-25 12:28:49 +00:00
parent cd5a1b24e3
commit 5cd85f4eaa
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/utilpreds.c
View File

@ -1547,15 +1547,11 @@ static Int ground_complex_term(register CELL *pt0, register CELL *pt0_end)
return -1; return -1;
} }
static Int int Yap_IsGroundTerm(Term t)
p_ground(void) /* ground(+T) */
{ {
Term t;
while (TRUE) { while (TRUE) {
Int out; Int out;
t = Deref(ARG1);
if (IsVarTerm(t)) { if (IsVarTerm(t)) {
return FALSE; return FALSE;
} else if (IsPrimitiveTerm(t)) { } else if (IsPrimitiveTerm(t)) {
@ -1585,6 +1581,12 @@ p_ground(void) /* ground(+T) */
} }
} }
static Int
p_ground(void) /* ground(+T) */
{
return Yap_IsGroundTerm(ARG1);
}
static int static int
SizeOfExtension(Term t) SizeOfExtension(Term t)
{ {

1
H/Yapproto.h
View File

@ -368,6 +368,7 @@ Term STD_PROTO(Yap_CopyTerm,(Term));
int STD_PROTO(Yap_IsListTerm,(Term)); int STD_PROTO(Yap_IsListTerm,(Term));
Term STD_PROTO(Yap_CopyTermNoShare,(Term)); Term STD_PROTO(Yap_CopyTermNoShare,(Term));
int STD_PROTO(Yap_SizeGroundTerm,(Term, int)); int STD_PROTO(Yap_SizeGroundTerm,(Term, int));
int STD_PROTO(Yap_IsGroundTerm,(Term));
void STD_PROTO(Yap_InitUtilCPreds,(void)); void STD_PROTO(Yap_InitUtilCPreds,(void));
/* yap.c */ /* yap.c */