[project @ 1999-09-19 19:26:57 by sof]

updates

diff --git a/ghc/lib/std/cbits/fileObject.h b/ghc/lib/std/cbits/fileObject.h
index 0da85ac..deca1b0 100644 (file)
--- a/ghc/lib/std/cbits/fileObject.h
+++ b/ghc/lib/std/cbits/fileObject.h
@@ -53,6 +53,7 @@ typedef struct _IOFileObject {
  * we need to use separate r/w calls.
  */ 
 #define FILEOBJ_WINSOCK  1024
+#define FILEOBJ_BINARY   2048
 
 #define FILEOBJ_IS_EOF(x)     ((x)->flags & FILEOBJ_EOF)
 #define FILEOBJ_SET_EOF(x)    ((x)->flags |= FILEOBJ_EOF)

diff --git a/ghc/lib/std/cbits/stgio.h b/ghc/lib/std/cbits/stgio.h
index ff0e82d..0e3bb77 100644 (file)
--- a/ghc/lib/std/cbits/stgio.h
+++ b/ghc/lib/std/cbits/stgio.h
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: stgio.h,v 1.11 1999/09/12 14:26:32 sof Exp $
+ * $Id: stgio.h,v 1.12 1999/09/19 19:26:57 sof Exp $
  *
  * Helper code for GHC's IO subsystem.
  */
@@ -104,7 +104,7 @@ StgInt  fill_up_line_buffer(IOFileObject*);
 
 /* filePosn.c */
 StgInt getFilePosn (StgForeignPtr);
-StgInt setFilePosn (StgForeignPtr, StgInt);
+StgInt setFilePosn (StgForeignPtr, StgInt, StgByteArray);
 
 /* filePutc.c */
 StgInt filePutc    (StgForeignPtr, StgChar);
@@ -154,9 +154,9 @@ StgInt      getLock     (StgInt, StgInt);
 StgInt inputReady  (StgForeignPtr, StgInt);
 
 /* openFile.c */
-IOFileObject* openFile    (StgByteArray, StgInt, StgInt, StgInt);
+IOFileObject* openFile    (StgByteArray, StgInt, StgInt);
 IOFileObject* openFd      (StgInt, StgInt, StgInt);
-IOFileObject* openStdFile (StgInt, StgInt, StgInt);
+IOFileObject* openStdFile (StgInt, StgInt);
 
 /* progargs.c */
 StgAddr get_prog_argv(void);
@@ -185,6 +185,9 @@ StgInt      seekFile  (StgForeignPtr, StgInt, StgInt, StgByteArray);
 StgInt seekFile_int64 (StgForeignPtr, StgInt, StgInt64);
 StgInt seekFileP (StgForeignPtr);
 
+/* setBinaryMode.c */
+StgInt setBinaryMode__ (StgForeignPtr, StgInt);
+
 /* setBuffering.c */
 StgInt setBuffering (StgForeignPtr, StgInt);
 StgInt  const_BUFSIZ (void);
@@ -225,8 +228,7 @@ StgAddr toUTCTime (StgInt, StgByteArray, StgByteArray);
 StgInt prim_toUTCTime ( StgInt64,StgByteArray );
 
 /* toClockSec.c */
-StgAddr toClockSec (StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgByteArray);
-StgInt prim_toClockSec(StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgByteArray);
+StgInt toClockSec (StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgInt, StgByteArray);
 
 /* writeError.c */
 void    writeErrString__ (StgAddr, StgByteArray, StgInt);