blob: d05068e95504e9f05325cc8a49b7d3531b09d185 (
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
30
|
{-# LANGUAGE CPP #-}
-- !!! 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
|
