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
Download Patch File Download Diff File Expand all files Collapse all files

11
C/c_interface.c
View File

@@ -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)
{