ghc/tests/lib/IO/hGetLine001.stdout

   1 -- !!! testing hGetLine
   2
   3 import IO
   4 #if defined(__MINGW32__)
   5 import PrelHandle(hSetBinaryMode)
   6 #endif
   7
   8 -- one version of 'cat'
   9 main = do
  10   let loop h = do b <- hIsEOF h
  11                   if b then return ()
  12                        else do l <- hGetLine h; putStrLn l; loop h
  13   loop stdin
  14
  15   h <- openFile "hGetLine001.hs" ReadMode
  16
  17 # if defined(__MINGW32__)
  18   hSetBinaryMode h True
  19 # endif
  20
  21   hSetBuffering h NoBuffering
  22   loop h
  23
  24   hSeek h AbsoluteSeek 0
  25   hSetBuffering h LineBuffering
  26   loop h
  27
  28   hSeek h AbsoluteSeek 0
  29   hSetBuffering h (BlockBuffering (Just 83))
  30   loop h
  31 -- !!! testing hGetLine
  32
  33 import IO
  34 #if defined(__MINGW32__)
  35 import PrelHandle(hSetBinaryMode)
  36 #endif
  37
  38 -- one version of 'cat'
  39 main = do
  40   let loop h = do b <- hIsEOF h
  41                   if b then return ()
  42                        else do l <- hGetLine h; putStrLn l; loop h
  43   loop stdin
  44
  45   h <- openFile "hGetLine001.hs" ReadMode
  46
  47 # if defined(__MINGW32__)
  48   hSetBinaryMode h True
  49 # endif
  50
  51   hSetBuffering h NoBuffering
  52   loop h
  53
  54   hSeek h AbsoluteSeek 0
  55   hSetBuffering h LineBuffering
  56   loop h
  57
  58   hSeek h AbsoluteSeek 0
  59   hSetBuffering h (BlockBuffering (Just 83))
  60   loop h
  61 -- !!! testing hGetLine
  62
  63 import IO
  64 #if defined(__MINGW32__)
  65 import PrelHandle(hSetBinaryMode)
  66 #endif
  67
  68 -- one version of 'cat'
  69 main = do
  70   let loop h = do b <- hIsEOF h
  71                   if b then return ()
  72                        else do l <- hGetLine h; putStrLn l; loop h
  73   loop stdin
  74
  75   h <- openFile "hGetLine001.hs" ReadMode
  76
  77 # if defined(__MINGW32__)
  78   hSetBinaryMode h True
  79 # endif
  80
  81   hSetBuffering h NoBuffering
  82   loop h
  83
  84   hSeek h AbsoluteSeek 0
  85   hSetBuffering h LineBuffering
  86   loop h
  87
  88   hSeek h AbsoluteSeek 0
  89   hSetBuffering h (BlockBuffering (Just 83))
  90   loop h
  91 -- !!! testing hGetLine
  92
  93 import IO
  94 #if defined(__MINGW32__)
  95 import PrelHandle(hSetBinaryMode)
  96 #endif
  97
  98 -- one version of 'cat'
  99 main = do
 100   let loop h = do b <- hIsEOF h
 101                   if b then return ()
 102                        else do l <- hGetLine h; putStrLn l; loop h
 103   loop stdin
 104
 105   h <- openFile "hGetLine001.hs" ReadMode
 106
 107 # if defined(__MINGW32__)
 108   hSetBinaryMode h True
 109 # endif
 110
 111   hSetBuffering h NoBuffering
 112   loop h
 113
 114   hSeek h AbsoluteSeek 0
 115   hSetBuffering h LineBuffering
 116   loop h
 117
 118   hSeek h AbsoluteSeek 0
 119   hSetBuffering h (BlockBuffering (Just 83))
 120   loop h