export current predicate for SWI built-ins.

2011-02-11 19:01:18 +00:00
parent b041ae00c2
commit 45032cc61e
4 changed files with 38 additions and 1 deletions
--- a/packages/PLStream/pl-yap.h
+++ b/packages/PLStream/pl-yap.h
@@ -29,6 +29,10 @@ typedef YAP_Term	       *Word;		/* Anonymous 4 byte object */
 typedef YAP_Atom		Atom;
 typedef YAP_Term		(*Func)();	/* foreign functions */

+const char *Yap_GetCurrentPredName(void);
+YAP_Int     Yap_GetCurrentPredArity(void);
+
+
 extern atom_t codeToAtom(int chrcode);

 #define valTermRef(t)    ((Word)YAP_AddressFromSlot(t))