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

YAP_FileNoFromStream for Nf

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-04-22 21:42:15 -05:00
parent 63dca6e589
commit 1ea4a27dd1
2 changed files with 12 additions and 0 deletions

11
C/c_interface.c

@ -511,6 +511,7 @@ X_API int STD_PROTO(YAP_CloseList,(Term, Term));
X_API int STD_PROTO(YAP_IsAttVar,(Term));
X_API Term STD_PROTO(YAP_AttsOfVar,(Term));
X_API Term STD_PROTO(YAP_TermHash,(Term));
X_API int STD_PROTO(YAP_FileNoFromStream,(Term));
X_API void *STD_PROTO(YAP_FileDescriptorFromStream,(Term));
static int (*do_getf)(void);
@ -2532,6 +2533,16 @@ YAP_TermHash(Term t)
return attv->Atts;
}
X_API int
YAP_IntFileNoFromStream(Term t)
{
t = Deref(t);
if (IsVarTerm(t))
return -1;
return Yap_StreamToFileNo(t);
}
X_API void *
YAP_FileDescriptorFromStream(Term t)
{

1
include/YapInterface.h

@ -482,6 +482,7 @@ extern X_API YAP_Term PROTO(YAP_AttsOfVar,(YAP_Term));
/* stream info */
extern X_API void *PROTO(YAP_FileDescriptorFromStream,(YAP_Term));
extern X_API int PROTO(YAP_FileNoFromStream,(YAP_Term));
#define YAP_InitCPred(N,A,F) YAP_UserCPredicate(N,F,A)