From: sewardj <unknown>
Date: Thu, 7 Jun 2001 10:44:47 +0000 (+0000)
Subject: [project @ 2001-06-07 10:44:47 by sewardj]
X-Git-Tag: Approximately_9120_patches~1791
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f819f0f451c1599a5cc7e954c087dac592180a51;p=ghc-hetmet.git

[project @ 2001-06-07 10:44:47 by sewardj]
Try to improve matters in the text-mode-seek swamp.  Only disallow
text-mode-seeks on Win32, rather than on all platforms.  That means
that seeks in text mode on Unix platforms should work as originally
(which was the correct H98 behaviour), whilst Win32 generates
exceptions if you do seeks in text mode.
---

diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs
index 71bfa69..115d363 100644
--- a/ghc/lib/std/IO.lhs
+++ b/ghc/lib/std/IO.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: IO.lhs,v 1.42 2001/06/01 13:06:01 sewardj Exp $
+% $Id: IO.lhs,v 1.43 2001/06/07 10:44:47 sewardj Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -29,7 +29,6 @@ module IO (
 
     hSetBuffering,	       -- :: Handle -> BufferMode -> IO ()
     hGetBuffering,	       -- :: Handle -> IO BufferMode
-    hSetBinaryMode,	       -- :: Handle -> Bool -> IO ()
     hFlush,		       -- :: Handle -> IO ()
     hGetPosn,		       -- :: Handle -> IO HandlePosn
     hSetPosn,		       -- :: Handle -> HandlePosn -> IO ()
diff --git a/ghc/lib/std/PrelHandle.hsc b/ghc/lib/std/PrelHandle.hsc
index 8f5e4bd..d9294f9 100644
--- a/ghc/lib/std/PrelHandle.hsc
+++ b/ghc/lib/std/PrelHandle.hsc
@@ -4,7 +4,7 @@
 #undef DEBUG
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelHandle.hsc,v 1.8 2001/06/01 13:06:01 sewardj Exp $
+-- $Id: PrelHandle.hsc,v 1.9 2001/06/07 10:44:47 sewardj Exp $
 --
 -- (c) The University of Glasgow, 1994-2001
 --
@@ -81,6 +81,15 @@ import PrelConc
 dEFAULT_OPEN_IN_BINARY_MODE :: Bool
 dEFAULT_OPEN_IN_BINARY_MODE = False
 
+-- Is seeking on text-mode handles allowed, or not?
+tEXT_MODE_SEEK_ALLOWED :: Bool
+#if defined(mingw32_TARGET_OS)
+tEXT_MODE_SEEK_ALLOWED = False
+#else
+tEXT_MODE_SEEK_ALLOWED = True
+#endif
+
+
 -- ---------------------------------------------------------------------------
 -- Creating a new handle
 
@@ -249,8 +258,8 @@ checkSeekableHandle act handle_ =
       ClosedHandle 	-> ioe_closedHandle
       SemiClosedHandle	-> ioe_closedHandle
       AppendHandle      -> ioe_notSeekable
-      _                 | haIsBin handle_ -> act handle_
-                        | otherwise       -> ioe_notSeekable_notBin
+      _  | haIsBin handle_ || tEXT_MODE_SEEK_ALLOWED -> act handle_
+         | otherwise                                 -> ioe_notSeekable_notBin
 
 -- -----------------------------------------------------------------------------
 -- Handy IOErrors
@@ -275,7 +284,8 @@ ioe_notSeekable = ioException
 	"handle is not seekable" Nothing)
 ioe_notSeekable_notBin = ioException 
    (IOError Nothing IllegalOperation ""
-	"seek operations are only allowed on binary-mode handles" Nothing)
+	"seek operations on text-mode handles are not allowed on this platform" 
+        Nothing)
 
 ioe_bufsiz :: Int -> IO a
 ioe_bufsiz n = ioException 
@@ -1111,7 +1121,8 @@ hIsSeekable handle =
       SemiClosedHandle 	   -> ioe_closedHandle
       AppendHandle 	   -> return False
       _                    -> do t <- fdType (haFD handle_)
-	 			 return (t == RegularFile && haIsBin handle_)
+	 			 return (t == RegularFile
+                                         && (haIsBin handle_ || tEXT_MODE_SEEK_ALLOWED))
 
 -- -----------------------------------------------------------------------------
 -- Changing echo status