diff --git a/H/Foreign.h b/H/Foreign.h index ab123021a..df29c989e 100644 --- a/H/Foreign.h +++ b/H/Foreign.h @@ -99,17 +99,23 @@ typedef struct ForeignLoadItem { typedef void (*YapInitProc)(void); + + #ifndef STD_PROTO #define STD_PROTO(F,A) F A #endif -void STD_PROTO(Yap_FindExecutable,(char *)); -Int STD_PROTO(Yap_LoadForeign,(StringList, StringList, char *, YapInitProc *)); -Int STD_PROTO(Yap_ReLoadForeign,(StringList, StringList, char *, YapInitProc *)); +void STD_PROTO(Yap_FindExecutable,(char *)); +void *STD_PROTO(Yap_LoadForeignFile,(char *, int)); +int STD_PROTO(Yap_CallForeignFile,(void *, char *)); +int STD_PROTO(Yap_CloseForeignFile,(void *)); +Int STD_PROTO(Yap_LoadForeign,(StringList, StringList, char *, YapInitProc *)); +Int STD_PROTO(Yap_ReLoadForeign,(StringList, StringList, char *, YapInitProc *)); void STD_PROTO(Yap_ReOpenLoadForeign,(void)); void STD_PROTO(Yap_ShutdownLoadForeign,(void)); - +#define EAGER_LOADING 1 +#define GLOBAL_LOADING 2 diff --git a/H/TermExt.h b/H/TermExt.h index e4eaae4ac..320dac9a5 100644 --- a/H/TermExt.h +++ b/H/TermExt.h @@ -74,7 +74,9 @@ typedef enum EMPTY_ARENA = 0x10, ARRAY_INT = 0x21, ARRAY_FLOAT = 0x22, - CLAUSE_LIST = 0x40 + CLAUSE_LIST = 0x40, + STRING = 0x80, /* unsupported, reserved */ + EXTERNAL_BLOB = 0x100 /* for SWI emulation */ } big_blob_type;