blob: dc7313face4142a153be26104b59a1e2e32e1c07 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
-- !!! Test seeking
import System.IO
main = do
h <- openFile "hSeek001.in" ReadMode
True <- hIsSeekable h
hSeek h SeekFromEnd (-1)
z <- hGetChar h
putStr (z:"\n")
hSeek h SeekFromEnd (-3)
x <- hGetChar h
putStr (x:"\n")
hSeek h RelativeSeek (-2)
w <- hGetChar h
putStr (w:"\n")
hSeek h RelativeSeek 2
z <- hGetChar h
putStr (z:"\n")
hSeek h AbsoluteSeek (0)
a <- hGetChar h
putStr (a:"\n")
hSeek h AbsoluteSeek (10)
k <- hGetChar h
putStr (k:"\n")
hSeek h AbsoluteSeek (25)
z <- hGetChar h
putStr (z:"\n")
hClose h
|