-{-# LANGUAGE
- BangPatterns
- , UnicodeSyntax
- #-}
module Codec.Audio.WavPack.Unpack
(
)
where
-import Codec.Audio.WavPack.Internal
-import Data.Bits
-import Data.Bitstream.Generic (Bitstream)
-import qualified Data.Bitstream.Generic as B
-import Data.Word
-
--- Read a single unsigned value from the specified bitstream with a
--- value from 0 to maxCode. If there are exactly a power of two number
--- of possible codes then this will read a fixed number of bits;
--- otherwise it reads the minimum number of bits and then determines
--- whether another bit is needed to define the code.
-readCode ∷ Bitstream bs ⇒ bs → Word32 → (Word32, bs)
-{-# INLINEABLE readCode #-}
-readCode bs 0 = (0, bs)
-readCode bs 1 = (b2n $ B.head bs, B.tail bs)
-readCode bs maxCode
- = let !bitCount = countBits maxCode
- !extras = (1 `shiftL` bitCount) - maxCode - 1
- in
- error "unk"
\ No newline at end of file