Large file support.

* stream.h (struct strm_ops): seek operation's second argument
is now just a val.

* stream.c (unimpl_seek, null_seek): Second argument is a val,
not cnum, to conform with function pointer in stream
structure.
(stdio_seek): Accept offset as val, which could be a fixnum
or bignum. Use new stdio_ftell and stdio_fseek functions
so large values work.
(seek_stream): No need to convert offset argument to cnum;
pass the val directly to seek virtual function.

* sysif.c (off_t_num, num_off_t, stdio_ftell,
stdio_fseek): New functions.

* sysif.h (OFF_T_MAX, OFF_T_MIN): New preprocessor symbols.
(off_t_num, num_off_t, stdio_ftell, stdio_fseek): Declared.

1 files changed, 14 insertions, 0 deletions

diff --git a/sysif.h b/sysif.h
index 22e87b89..ea4b69d7 100644
--- a/sysif.h
+++ b/sysif.h
@@ -32,7 +32,21 @@ extern val dev_s, ino_s, mode_s, nlink_s, uid_s;
 extern val gid_s, rdev_s, size_s, blksize_s, blocks_s;
 extern val atime_s, mtime_s, ctime_s;
 
+#if !HAVE_FTRUNCATE
+typedef long off_t;
+#define OFF_T_MAX LONG_MAX
+#define OFF_T_MIN LONG_MIN
+#else
+#define OFF_T_MAX ((((convert(off_t, 1) << \
+                      ((sizeof(off_t) * CHAR_BIT) - 2)) - 1) << 1) + 1)
+#define OFF_T_MIN (-OFF_T_MAX)
+#endif
+
 val getenv_wrap(val name);
 val statp(val path);
 val statf(val path);
+off_t off_t_num(val num);
+val num_off_t(off_t offnum);
+val stdio_ftell(FILE *);
+val stdio_fseek(FILE *, val, int whence);
 void sysif_init(void);