diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

enable obtaining current stream_position from SWI.y

Browse Source
This commit is contained in:
Vitor Santos Costa
2010-12-19 21:32:13 +00:00
parent cb7c2e0ca8
commit 168a6366f8
11 changed files with 36 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
packages/PLStream/pl-file.c
View File

@@ -4350,6 +4350,12 @@ get_stream_handle_no_errors(term_t t, int read, int write, IOSTREAM **s)
return get_stream_handle(t, s, SH_ALIAS);
}
static int
get_stream_position(IOSTREAM *s, term_t t)
{ GET_LD
return stream_position_prop(s, t);
}
static void
init_yap_extras(void)
{
@@ -4363,6 +4369,7 @@ init_yap_extras(void)
swiio.flush_s = Sflush;
swiio.close_s = closeStream;
swiio.get_stream_handle = get_stream_handle_no_errors;
swiio.get_stream_position = get_stream_position;
PL_YAP_InitSWIIO(&swiio);
initCharTypes();
initFiles();