diff --git a/packages/PLStream/pl-file.c b/packages/PLStream/pl-file.c index 7abd46f8a..7ed5975be 100644 --- a/packages/PLStream/pl-file.c +++ b/packages/PLStream/pl-file.c @@ -481,7 +481,7 @@ PL_unify_stream_or_alias(term_t t, IOSTREAM *s) } - int +int PL_unify_stream(term_t t, IOSTREAM *s) { GET_LD stream_context *ctx; @@ -503,7 +503,7 @@ PL_unify_stream(term_t t, IOSTREAM *s) } - bool /* old FLI name (compatibility) */ +bool /* old FLI name (compatibility) */ PL_open_stream(term_t handle, IOSTREAM *s) { return PL_unify_stream(handle, s); } diff --git a/packages/PLStream/pl-incl.h b/packages/PLStream/pl-incl.h index dd870849c..461e0db12 100644 --- a/packages/PLStream/pl-incl.h +++ b/packages/PLStream/pl-incl.h @@ -481,9 +481,13 @@ word pl_noprotocol(void); IOSTREAM *PL_current_input(void); IOSTREAM *PL_current_output(void); -extern int PL_unify_stream_or_alias(term_t t, IOSTREAM *s); -extern bool PL_open_stream(term_t handle, IOSTREAM *s); -extern void PL_write_prompt(int dowrite); + +PL_EXPORT(int) PL_open_stream(term_t t, IOSTREAM *s); +PL_EXPORT(int) PL_unify_stream(term_t t, IOSTREAM *s); +PL_EXPORT(int) PL_unify_stream_or_alias(term_t t, IOSTREAM *s); +PL_EXPORT(int) PL_get_stream_handle(term_t t, IOSTREAM **s); +PL_EXPORT(void) PL_write_prompt(int); +PL_EXPORT(int) PL_release_stream(IOSTREAM *s); /**** stuff from pl-error.c ****/ extern void outOfCore(void);