module Sound.OpenSoundControl.Coding.Byte where
import Data.Binary
import Data.Bits
import qualified Data.ByteString.Lazy as B
import qualified Data.ByteString.Lazy.Char8 as C
import Data.Int
import Sound.OpenSoundControl.Coding.Cast
encode_i8 :: Int -> B.ByteString
encode_i8 n = encode (fromIntegral n :: Int8)
encode_i16 :: Int -> B.ByteString
encode_i16 n = encode (fromIntegral n :: Int16)
encode_i32 :: Int -> B.ByteString
encode_i32 n = encode (fromIntegral n :: Int32)
encode_u32 :: Int -> B.ByteString
encode_u32 n = encode (fromIntegral n :: Word32)
encode_i64 :: Int64 -> B.ByteString
encode_i64 = encode
encode_u64 :: Word64 -> B.ByteString
encode_u64 = encode
encode_f32 :: Double -> B.ByteString
encode_f32 = encode . f32_w32 . realToFrac
encode_f64 :: Double -> B.ByteString
encode_f64 = encode . f64_w64
encode_str :: String -> B.ByteString
encode_str = C.pack
decode_i8 :: B.ByteString -> Int
decode_i8 b = fromIntegral (decode b :: Int8)
decode_i16 :: B.ByteString -> Int
decode_i16 b = fromIntegral (decode b :: Int16)
decode_i32 :: B.ByteString -> Int
decode_i32 b = fromIntegral (decode b :: Int32)
decode_u32 :: B.ByteString -> Int
decode_u32 b = fromIntegral (decode b :: Word32)
decode_i64 :: B.ByteString -> Int64
decode_i64 = decode
decode_u64 :: B.ByteString -> Word64
decode_u64 = decode
decode_f32 :: B.ByteString -> Double
decode_f32 b = realToFrac (w32_f32 (decode b :: Word32))
decode_f64 :: B.ByteString -> Double
decode_f64 b = w64_f64 (decode b :: Word64)
decode_str :: B.ByteString -> String
decode_str = C.unpack
bundleHeader :: B.ByteString
bundleHeader = C.pack "#bundle\0"
align :: Bits i => i -> i
align n = ((n + 3) .&. complement 3) n