+++ /dev/null
--- !!! testing hGetLine
-
-import IO
-#if defined(__MINGW32__)
-import PrelHandle(hSetBinaryMode)
-#endif
-
--- one version of 'cat'
-main = do
- let loop h = do b <- hIsEOF h
- if b then return ()
- else do l <- hGetLine h; putStrLn l; loop h
- loop stdin
-
- h <- openFile "hGetLine001.hs" ReadMode
-
-# if defined(__MINGW32__)
- hSetBinaryMode h True
-# endif
-
- hSetBuffering h NoBuffering
- loop h
-
- hSeek h AbsoluteSeek 0
- hSetBuffering h LineBuffering
- loop h
-
- hSeek h AbsoluteSeek 0
- hSetBuffering h (BlockBuffering (Just 83))
- loop h
--- !!! testing hGetLine\r
-\r
-import IO\r
-#if defined(__MINGW32__)\r
-import PrelHandle(hSetBinaryMode)\r
-#endif\r
-\r
--- one version of 'cat'\r
-main = do\r
- let loop h = do b <- hIsEOF h\r
- if b then return ()\r
- else do l <- hGetLine h; putStrLn l; loop h\r
- loop stdin \r
-\r
- h <- openFile "hGetLine001.hs" ReadMode\r
-\r
-# if defined(__MINGW32__)\r
- hSetBinaryMode h True\r
-# endif\r
-\r
- hSetBuffering h NoBuffering\r
- loop h\r
-\r
- hSeek h AbsoluteSeek 0\r
- hSetBuffering h LineBuffering\r
- loop h\r
-\r
- hSeek h AbsoluteSeek 0\r
- hSetBuffering h (BlockBuffering (Just 83))\r
- loop h\r
--- !!! testing hGetLine\r
-\r
-import IO\r
-#if defined(__MINGW32__)\r
-import PrelHandle(hSetBinaryMode)\r
-#endif\r
-\r
--- one version of 'cat'\r
-main = do\r
- let loop h = do b <- hIsEOF h\r
- if b then return ()\r
- else do l <- hGetLine h; putStrLn l; loop h\r
- loop stdin \r
-\r
- h <- openFile "hGetLine001.hs" ReadMode\r
-\r
-# if defined(__MINGW32__)\r
- hSetBinaryMode h True\r
-# endif\r
-\r
- hSetBuffering h NoBuffering\r
- loop h\r
-\r
- hSeek h AbsoluteSeek 0\r
- hSetBuffering h LineBuffering\r
- loop h\r
-\r
- hSeek h AbsoluteSeek 0\r
- hSetBuffering h (BlockBuffering (Just 83))\r
- loop h\r
--- !!! testing hGetLine\r
-\r
-import IO\r
-#if defined(__MINGW32__)\r
-import PrelHandle(hSetBinaryMode)\r
-#endif\r
-\r
--- one version of 'cat'\r
-main = do\r
- let loop h = do b <- hIsEOF h\r
- if b then return ()\r
- else do l <- hGetLine h; putStrLn l; loop h\r
- loop stdin \r
-\r
- h <- openFile "hGetLine001.hs" ReadMode\r
-\r
-# if defined(__MINGW32__)\r
- hSetBinaryMode h True\r
-# endif\r
-\r
- hSetBuffering h NoBuffering\r
- loop h\r
-\r
- hSeek h AbsoluteSeek 0\r
- hSetBuffering h LineBuffering\r
- loop h\r
-\r
- hSeek h AbsoluteSeek 0\r
- hSetBuffering h (BlockBuffering (Just 83))\r
- loop h\r