object loading support

blob objects (not supported yet)
This commit is contained in:
Vítor Santos Costa 2010-06-17 00:31:42 +01:00
parent c56ad7a80d
commit 0ff5195bd1
2 changed files with 13 additions and 5 deletions

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

@ -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;