@@ -12,6 +12,9 @@ cat src = File.writeArrays "/dev/stdout" $ File.readArraysUpto (256*1024) src
12cp :: FilePath -> FilePath -> IO ()
12cp :: FilePath -> FilePath -> IO ()
13cp src dst = File.writeArrays dst $ File.readArraysUpto (256*1024) src
13cp src dst = File.writeArrays dst $ File.readArraysUpto (256*1024) src
15+append :: FilePath -> FilePath -> IO ()
16+append src dst = File.appendArrays dst $ File.readArraysUpto (256*1024) src
15ord' :: Num a => Char -> a
18ord' :: Num a => Char -> a
16ord' = (fromIntegral . ord)
19ord' = (fromIntegral . ord)
@@ -50,3 +53,4 @@ main = do
50 putStr "avgll " >> avgll src -- get average line length
53 putStr "avgll " >> avgll src -- get average line length
51 putStr "llhisto " >> llhisto src -- get line length histogram
54 putStr "llhisto " >> llhisto src -- get line length histogram
52 putStr "cp " >> cp src "dst-xyz.txt" -- Unix cp program
55 putStr "cp " >> cp src "dst-xyz.txt" -- Unix cp program
56+ putStr "append " >> append src "dst-xyz.txt" -- Appending to file