extend C-interface to check if a variable is AttVar and to fetch all the

attributes.
2009-02-09 22:45:50 +00:00
parent bde2b57f07
commit 33b4a02fae
2 changed files with 35 additions and 1 deletions
--- a/include/YapInterface.h
+++ b/include/YapInterface.h
@@ -476,6 +476,10 @@ extern X_API YAP_Term     PROTO(YAP_OpenList,(int));
 extern X_API YAP_Term     PROTO(YAP_ExtendList,(YAP_Term, YAP_Term));
 extern X_API int          PROTO(YAP_CloseList,(YAP_Term, YAP_Term));

+/*  attributed variables */
+extern X_API int	PROTO(YAP_IsAttVar,(YAP_Term));
+extern X_API YAP_Term	PROTO(YAP_AttsOfVar,(YAP_Term));
+
 #define YAP_InitCPred(N,A,F)  YAP_UserCPredicate(N,F,A)

 __END_DECLS