enable obtaining current stream_position from SWI.y

2010-12-19 21:32:13 +00:00
parent cb7c2e0ca8
commit 168a6366f8
11 changed files with 36 additions and 0 deletions
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -4765,6 +4765,9 @@ StreamPosition(int sno)
  Term sargs[5];
  Int cpos;
  cpos = Stream[sno].charcount;
+  if (Stream[sno].status & SWI_Stream_f) {
+    return Yap_get_stream_position(Stream[sno].u.swi_stream.swi_ptr);
+  }
  if (Stream[sno].stream_getc == PlUnGetc) {
    cpos--;
  }