runghc -XQuasiQuotes exam.hs some.bmp out.bmp

exam.hs:

 import 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[numberOfColors]: colors
 -- bitsPerPixel/8[imageSize*8/bitsPerPixel]: image
 imageSize<ByteString>: image
 10<String>: authorFirst
 10<String>: authorSecond

 |]

Modules

[Index]

Downloads

• binary-file-0.4.tar.gz [browse] (Cabal source package)
• Package description (as included in the package)

Maintainer's Corner

Package maintainers

• YoshikuniJujo

For package maintainers and hackage trustees

• edit package information

Candidates

• No Candidates