1 -- !!! testing hGetLine
4 #if defined(__MINGW32__)
5 import PrelHandle(hSetBinaryMode)
8 -- one version of 'cat'
10 let loop h = do b <- hIsEOF h
12 else do l <- hGetLine h; putStrLn l; loop h
15 h <- openFile "hGetLine001.hs" ReadMode
17 # if defined(__MINGW32__)
21 hSetBuffering h NoBuffering
24 hSeek h AbsoluteSeek 0
25 hSetBuffering h LineBuffering
28 hSeek h AbsoluteSeek 0
29 hSetBuffering h (BlockBuffering (Just 83))
31 -- !!! testing hGetLine
34 #if defined(__MINGW32__)
35 import PrelHandle(hSetBinaryMode)
38 -- one version of 'cat'
40 let loop h = do b <- hIsEOF h
42 else do l <- hGetLine h; putStrLn l; loop h
45 h <- openFile "hGetLine001.hs" ReadMode
47 # if defined(__MINGW32__)
51 hSetBuffering h NoBuffering
54 hSeek h AbsoluteSeek 0
55 hSetBuffering h LineBuffering
58 hSeek h AbsoluteSeek 0
59 hSetBuffering h (BlockBuffering (Just 83))
61 -- !!! testing hGetLine
64 #if defined(__MINGW32__)
65 import PrelHandle(hSetBinaryMode)
68 -- one version of 'cat'
70 let loop h = do b <- hIsEOF h
72 else do l <- hGetLine h; putStrLn l; loop h
75 h <- openFile "hGetLine001.hs" ReadMode
77 # if defined(__MINGW32__)
81 hSetBuffering h NoBuffering
84 hSeek h AbsoluteSeek 0
85 hSetBuffering h LineBuffering
88 hSeek h AbsoluteSeek 0
89 hSetBuffering h (BlockBuffering (Just 83))
91 -- !!! testing hGetLine
94 #if defined(__MINGW32__)
95 import PrelHandle(hSetBinaryMode)
98 -- one version of 'cat'
100 let loop h = do b <- hIsEOF h
102 else do l <- hGetLine h; putStrLn l; loop h
105 h <- openFile "hGetLine001.hs" ReadMode
107 # if defined(__MINGW32__)
108 hSetBinaryMode h True
111 hSetBuffering h NoBuffering
114 hSeek h AbsoluteSeek 0
115 hSetBuffering h LineBuffering
118 hSeek h AbsoluteSeek 0
119 hSetBuffering h (BlockBuffering (Just 83))