The binary-file package

[Tags: bsd3, library]

See example directory's sample code.

 runghc -XQuasiQuotes -XTypeFamilies -XFlexibleInstances exam.hs some.bmp

exam.hs:

 import File.Binary
 import File.Binary.Instances
 import File.Binary.Instances.LittleEndian
 import System.Environment
 import Data.ByteString.Lazy as BSL

 main = do
	[inf] <- getArgs
   cnt <- BS.readFile inf
	let Right (bmp, rest) = fromBinary () cnt :: (Bitmap, String)
	print bmp

 instance Field (Int, Int, Int) where
    type FieldArgument (Int, Int, Int) = ()
    fromBinary _ s = do
        (b, rest) <- fromBinary 1 s
        (g, rest') <- fromBinary 1 rest
        (r, rest'') <- fromBinary 1 rest' in
        return ((b, g, r), snd $ getBytes 1 1 rest'')
    toBinary _ (b, g, r) = do
        b' <- toBinary 1 b
        g' <- toBinary 1 g
        r' <- toBinary 1 r
        return $ concatBinary [b', g', r', makeBinary $ BSL.singleton 0]

 [binary|

 Bitmap

 deriving Show

 2: "BM"
 4: file_size
 2: 0
 2: 0
 4: offset

 4: 40
 4: width
 4: height
 2: 1
 2: bits_per_pixel
 4: compression
 4: image_size
 4: resolutionH
 4: resolutionV
 4: color_num
 4: important_color_num
 ((), Just color_num)[OPENBRACKET](Int, Int, Int)[CLOSEBRACKET]: colors
 ((), image_size)[OPENBRACKET]String[CLOSEBRACKET]: image

 |]

Properties

Versions0.2, 0.3, 0.4, 0.6, 0.12.6, 0.12.8, 0.13.1, 0.13.2, 0.14.1, 0.14.3, 0.15.0, 0.15.9, 0.15.10, 0.15.11, 0.15.13, 0.15.16, 0.15.18, 0.15.22, 0.15.24
Dependenciesbase (>3 && <5), bytestring, monads-tf, peggy, template-haskell
LicenseBSD3
AuthorYoshikuni Jujo <PAF01143@nifty.ne.jp>
MaintainerYoshikuni Jujo <PAF01143@nifty.ne.jp>
Stabilityexperimental
CategoryFile
Home pagehttps://skami.iocikun.jp/haskell/packages/binary-file
Source repositoryhead: git clone git://github.com/YoshikuniJujo/binary-file.git
this: git clone git://github.com/YoshikuniJujo/binary-file.git(tag 0.15.22)
Upload dateMon May 6 01:45:38 UTC 2013
Uploaded byYoshikuniJujo
Downloads1758 total (191 in last 30 days)

Modules

[Index]

Downloads

Maintainers' corner

For package maintainers and hackage trustees