libraries/base/tests/IO/hSeek001.hs


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