[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / misc / examples / io / io013 / Main.hs

diff --git a/ghc/misc/examples/io/io013/Main.hs b/ghc/misc/examples/io/io013/Main.hs
new file mode 100644 (file)
index 0000000..39c429e
--- /dev/null
+++ b/ghc/misc/examples/io/io013/Main.hs
@@ -0,0 +1,17 @@
+main = 
+    openFile "io013.in" ReadMode >>= \ h ->
+    hFileSize h >>= \ sz -> 
+    putText sz >>
+    putChar '\n' >>
+    hSeek h SeekFromEnd (-3) >>
+    hGetChar h >>= \ x ->
+    putStr (x:"\n") >>
+    hSeek h RelativeSeek (-2) >>
+    hGetChar h >>= \ w ->
+    putStr (w:"\n") >>
+    hIsSeekable h >>= \ True ->
+    hClose h >>
+    openFile "/dev/null" ReadMode >>= \ h ->
+    hIsSeekable h >>= \ False ->
+    hClose h
+    
\ No newline at end of file