-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | read/write binary file -- --
-- runghc -XQuasiQuotes exam.hs some.bmp out.bmp ---- -- exam.hs: -- --
-- import File.Binary -- import System.Environment -- import Data.ByteString as BS -- -- main = do -- [inf, outf] <- getArgs -- -- -- cnt <- readBinaryFile inf -- cnt <- BS.readFile inf -- let bmp = readBitmap cnt -- print $ readBitmap cnt -- -- let out = writeBitmap bmp -- authorFirst = "Yoshikuni ", -- authorSecond = "Jujo " -- -- -- writeBinaryFile outf out -- BS.writeFile outf out -- -- [binary| -- -- Bitmap -- -- 2: "BM" -- 4: fileSize -- 2: 0 -- 2: 0 -- 4: offset -- 4: 40 -- 4: bitmapWidth -- 4: bitmapHeight -- 2: 1 -- 2: bitsPerPixel -- 4: compressionMethod -- 4: imageSize -- 4: horizontalResolution -- 4: verticalResolution -- 4: numberOfColors -- 4: importantColors -- 4<(Int, Int, Int)>[numberOfColors]: colors -- -- bitsPerPixel/8[imageSize*8/bitsPerPixel]: image -- imageSize<ByteString>: image -- 10<String>: authorFirst -- 10<String>: authorSecond -- -- |] --@package binary-file @version 0.6 module File.Binary readBinaryFile :: FilePath -> IO String writeBinaryFile :: FilePath -> String -> IO () binary :: QuasiQuoter