make swi-yap io interface a structure.

This commit is contained in:
Vítor Santos Costa
2010-07-21 09:39:49 +01:00
parent 7551f2b12e
commit 90f7504a76
3 changed files with 22 additions and 11 deletions

View File

@@ -663,13 +663,17 @@ PL_EXPORT(int) PL_foreign_control(control_t);
PL_EXPORT(intptr_t) PL_foreign_context(control_t);
PL_EXPORT(void *) PL_foreign_context_address(control_t);
typedef struct SWI_IO {
functor_t f;
void *get_c;
void *put_c;
void *get_w;
void *put_w;
void *close_s;
} swi_io_struct;
/* SWI stream info */
PL_EXPORT(void) PL_YAP_InitSWIIO(functor_t f,
void *gc,
void *pc,
void *cc);
PL_EXPORT(void) PL_YAP_InitSWIIO(struct SWI_IO *swio);
#ifdef __cplusplus
}