ghc/tests/lib/IO/hGetLine001.stdout-mingw

   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\r
  32 \r
  33 import IO\r
  34 #if defined(__MINGW32__)\r
  35 import PrelHandle(hSetBinaryMode)\r
  36 #endif\r
  37 \r
  38 -- one version of 'cat'\r
  39 main = do\r
  40   let loop h = do b <- hIsEOF h\r
  41                   if b then return ()\r
  42                        else do l <- hGetLine h; putStrLn l; loop h\r
  43   loop stdin \r
  44 \r
  45   h <- openFile "hGetLine001.hs" ReadMode\r
  46 \r
  47 # if defined(__MINGW32__)\r
  48   hSetBinaryMode h True\r
  49 # endif\r
  50 \r
  51   hSetBuffering h NoBuffering\r
  52   loop h\r
  53 \r
  54   hSeek h AbsoluteSeek 0\r
  55   hSetBuffering h LineBuffering\r
  56   loop h\r
  57 \r
  58   hSeek h AbsoluteSeek 0\r
  59   hSetBuffering h (BlockBuffering (Just 83))\r
  60   loop h\r
  61 -- !!! testing hGetLine\r
  62 \r
  63 import IO\r
  64 #if defined(__MINGW32__)\r
  65 import PrelHandle(hSetBinaryMode)\r
  66 #endif\r
  67 \r
  68 -- one version of 'cat'\r
  69 main = do\r
  70   let loop h = do b <- hIsEOF h\r
  71                   if b then return ()\r
  72                        else do l <- hGetLine h; putStrLn l; loop h\r
  73   loop stdin \r
  74 \r
  75   h <- openFile "hGetLine001.hs" ReadMode\r
  76 \r
  77 # if defined(__MINGW32__)\r
  78   hSetBinaryMode h True\r
  79 # endif\r
  80 \r
  81   hSetBuffering h NoBuffering\r
  82   loop h\r
  83 \r
  84   hSeek h AbsoluteSeek 0\r
  85   hSetBuffering h LineBuffering\r
  86   loop h\r
  87 \r
  88   hSeek h AbsoluteSeek 0\r
  89   hSetBuffering h (BlockBuffering (Just 83))\r
  90   loop h\r
  91 -- !!! testing hGetLine\r
  92 \r
  93 import IO\r
  94 #if defined(__MINGW32__)\r
  95 import PrelHandle(hSetBinaryMode)\r
  96 #endif\r
  97 \r
  98 -- one version of 'cat'\r
  99 main = do\r
 100   let loop h = do b <- hIsEOF h\r
 101                   if b then return ()\r
 102                        else do l <- hGetLine h; putStrLn l; loop h\r
 103   loop stdin \r
 104 \r
 105   h <- openFile "hGetLine001.hs" ReadMode\r
 106 \r
 107 # if defined(__MINGW32__)\r
 108   hSetBinaryMode h True\r
 109 # endif\r
 110 \r
 111   hSetBuffering h NoBuffering\r
 112   loop h\r
 113 \r
 114   hSeek h AbsoluteSeek 0\r
 115   hSetBuffering h LineBuffering\r
 116   loop h\r
 117 \r
 118   hSeek h AbsoluteSeek 0\r
 119   hSetBuffering h (BlockBuffering (Just 83))\r
 120   loop h\r