{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RecordWildCards #-}
module SwiftNav.SBP.FileIo
( module SwiftNav.SBP.FileIo
) where
import BasicPrelude
import Control.Lens
import Control.Monad.Loops
import Data.Binary
import Data.Binary.Get
import Data.Binary.IEEE754
import Data.Binary.Put
import Data.ByteString.Lazy hiding (ByteString)
import Data.Int
import Data.Word
import SwiftNav.SBP.TH
import SwiftNav.SBP.Types
{-# ANN module ("HLint: ignore Use camelCase"::String) #-}
{-# ANN module ("HLint: ignore Redundant do"::String) #-}
{-# ANN module ("HLint: ignore Use newtype instead of data"::String) #-}
msgFileioReadReq :: Word16
msgFileioReadReq :: Word16
msgFileioReadReq = Word16
0x00A8
data MsgFileioReadReq = MsgFileioReadReq
{ MsgFileioReadReq -> Word32
_msgFileioReadReq_sequence :: !Word32
, MsgFileioReadReq -> Word32
_msgFileioReadReq_offset :: !Word32
, MsgFileioReadReq -> Word8
_msgFileioReadReq_chunk_size :: !Word8
, MsgFileioReadReq -> Text
_msgFileioReadReq_filename :: !Text
} deriving ( Int -> MsgFileioReadReq -> ShowS
[MsgFileioReadReq] -> ShowS
MsgFileioReadReq -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioReadReq] -> ShowS
$cshowList :: [MsgFileioReadReq] -> ShowS
show :: MsgFileioReadReq -> String
$cshow :: MsgFileioReadReq -> String
showsPrec :: Int -> MsgFileioReadReq -> ShowS
$cshowsPrec :: Int -> MsgFileioReadReq -> ShowS
Show, ReadPrec [MsgFileioReadReq]
ReadPrec MsgFileioReadReq
Int -> ReadS MsgFileioReadReq
ReadS [MsgFileioReadReq]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioReadReq]
$creadListPrec :: ReadPrec [MsgFileioReadReq]
readPrec :: ReadPrec MsgFileioReadReq
$creadPrec :: ReadPrec MsgFileioReadReq
readList :: ReadS [MsgFileioReadReq]
$creadList :: ReadS [MsgFileioReadReq]
readsPrec :: Int -> ReadS MsgFileioReadReq
$creadsPrec :: Int -> ReadS MsgFileioReadReq
Read, MsgFileioReadReq -> MsgFileioReadReq -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioReadReq -> MsgFileioReadReq -> Bool
$c/= :: MsgFileioReadReq -> MsgFileioReadReq -> Bool
== :: MsgFileioReadReq -> MsgFileioReadReq -> Bool
$c== :: MsgFileioReadReq -> MsgFileioReadReq -> Bool
Eq )
instance Binary MsgFileioReadReq where
get :: Get MsgFileioReadReq
get = do
Word32
_msgFileioReadReq_sequence <- Get Word32
getWord32le
Word32
_msgFileioReadReq_offset <- Get Word32
getWord32le
Word8
_msgFileioReadReq_chunk_size <- Get Word8
getWord8
Text
_msgFileioReadReq_filename <- ByteString -> Text
decodeUtf8 forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioReadReq {Word8
Word32
Text
_msgFileioReadReq_filename :: Text
_msgFileioReadReq_chunk_size :: Word8
_msgFileioReadReq_offset :: Word32
_msgFileioReadReq_sequence :: Word32
_msgFileioReadReq_filename :: Text
_msgFileioReadReq_chunk_size :: Word8
_msgFileioReadReq_offset :: Word32
_msgFileioReadReq_sequence :: Word32
..}
put :: MsgFileioReadReq -> Put
put MsgFileioReadReq {Word8
Word32
Text
_msgFileioReadReq_filename :: Text
_msgFileioReadReq_chunk_size :: Word8
_msgFileioReadReq_offset :: Word32
_msgFileioReadReq_sequence :: Word32
_msgFileioReadReq_filename :: MsgFileioReadReq -> Text
_msgFileioReadReq_chunk_size :: MsgFileioReadReq -> Word8
_msgFileioReadReq_offset :: MsgFileioReadReq -> Word32
_msgFileioReadReq_sequence :: MsgFileioReadReq -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgFileioReadReq_sequence
Word32 -> Put
putWord32le Word32
_msgFileioReadReq_offset
Word8 -> Put
putWord8 Word8
_msgFileioReadReq_chunk_size
ByteString -> Put
putByteString forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgFileioReadReq_filename
$(makeSBP 'msgFileioReadReq ''MsgFileioReadReq)
$(makeJSON "_msgFileioReadReq_" ''MsgFileioReadReq)
$(makeLenses ''MsgFileioReadReq)
msgFileioReadResp :: Word16
msgFileioReadResp :: Word16
msgFileioReadResp = Word16
0x00A3
data MsgFileioReadResp = MsgFileioReadResp
{ MsgFileioReadResp -> Word32
_msgFileioReadResp_sequence :: !Word32
, MsgFileioReadResp -> [Word8]
_msgFileioReadResp_contents :: ![Word8]
} deriving ( Int -> MsgFileioReadResp -> ShowS
[MsgFileioReadResp] -> ShowS
MsgFileioReadResp -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioReadResp] -> ShowS
$cshowList :: [MsgFileioReadResp] -> ShowS
show :: MsgFileioReadResp -> String
$cshow :: MsgFileioReadResp -> String
showsPrec :: Int -> MsgFileioReadResp -> ShowS
$cshowsPrec :: Int -> MsgFileioReadResp -> ShowS
Show, ReadPrec [MsgFileioReadResp]
ReadPrec MsgFileioReadResp
Int -> ReadS MsgFileioReadResp
ReadS [MsgFileioReadResp]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioReadResp]
$creadListPrec :: ReadPrec [MsgFileioReadResp]
readPrec :: ReadPrec MsgFileioReadResp
$creadPrec :: ReadPrec MsgFileioReadResp
readList :: ReadS [MsgFileioReadResp]
$creadList :: ReadS [MsgFileioReadResp]
readsPrec :: Int -> ReadS MsgFileioReadResp
$creadsPrec :: Int -> ReadS MsgFileioReadResp
Read, MsgFileioReadResp -> MsgFileioReadResp -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioReadResp -> MsgFileioReadResp -> Bool
$c/= :: MsgFileioReadResp -> MsgFileioReadResp -> Bool
== :: MsgFileioReadResp -> MsgFileioReadResp -> Bool
$c== :: MsgFileioReadResp -> MsgFileioReadResp -> Bool
Eq )
instance Binary MsgFileioReadResp where
get :: Get MsgFileioReadResp
get = do
Word32
_msgFileioReadResp_sequence <- Get Word32
getWord32le
[Word8]
_msgFileioReadResp_contents <- forall (m :: * -> *) a. Monad m => m Bool -> m a -> m [a]
whileM (Bool -> Bool
not forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get Bool
isEmpty) Get Word8
getWord8
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioReadResp {[Word8]
Word32
_msgFileioReadResp_contents :: [Word8]
_msgFileioReadResp_sequence :: Word32
_msgFileioReadResp_contents :: [Word8]
_msgFileioReadResp_sequence :: Word32
..}
put :: MsgFileioReadResp -> Put
put MsgFileioReadResp {[Word8]
Word32
_msgFileioReadResp_contents :: [Word8]
_msgFileioReadResp_sequence :: Word32
_msgFileioReadResp_contents :: MsgFileioReadResp -> [Word8]
_msgFileioReadResp_sequence :: MsgFileioReadResp -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgFileioReadResp_sequence
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgFileioReadResp_contents
$(makeSBP 'msgFileioReadResp ''MsgFileioReadResp)
$(makeJSON "_msgFileioReadResp_" ''MsgFileioReadResp)
$(makeLenses ''MsgFileioReadResp)
msgFileioReadDirReq :: Word16
msgFileioReadDirReq :: Word16
msgFileioReadDirReq = Word16
0x00A9
data MsgFileioReadDirReq = MsgFileioReadDirReq
{ MsgFileioReadDirReq -> Word32
_msgFileioReadDirReq_sequence :: !Word32
, MsgFileioReadDirReq -> Word32
_msgFileioReadDirReq_offset :: !Word32
, MsgFileioReadDirReq -> Text
_msgFileioReadDirReq_dirname :: !Text
} deriving ( Int -> MsgFileioReadDirReq -> ShowS
[MsgFileioReadDirReq] -> ShowS
MsgFileioReadDirReq -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioReadDirReq] -> ShowS
$cshowList :: [MsgFileioReadDirReq] -> ShowS
show :: MsgFileioReadDirReq -> String
$cshow :: MsgFileioReadDirReq -> String
showsPrec :: Int -> MsgFileioReadDirReq -> ShowS
$cshowsPrec :: Int -> MsgFileioReadDirReq -> ShowS
Show, ReadPrec [MsgFileioReadDirReq]
ReadPrec MsgFileioReadDirReq
Int -> ReadS MsgFileioReadDirReq
ReadS [MsgFileioReadDirReq]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioReadDirReq]
$creadListPrec :: ReadPrec [MsgFileioReadDirReq]
readPrec :: ReadPrec MsgFileioReadDirReq
$creadPrec :: ReadPrec MsgFileioReadDirReq
readList :: ReadS [MsgFileioReadDirReq]
$creadList :: ReadS [MsgFileioReadDirReq]
readsPrec :: Int -> ReadS MsgFileioReadDirReq
$creadsPrec :: Int -> ReadS MsgFileioReadDirReq
Read, MsgFileioReadDirReq -> MsgFileioReadDirReq -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioReadDirReq -> MsgFileioReadDirReq -> Bool
$c/= :: MsgFileioReadDirReq -> MsgFileioReadDirReq -> Bool
== :: MsgFileioReadDirReq -> MsgFileioReadDirReq -> Bool
$c== :: MsgFileioReadDirReq -> MsgFileioReadDirReq -> Bool
Eq )
instance Binary MsgFileioReadDirReq where
get :: Get MsgFileioReadDirReq
get = do
Word32
_msgFileioReadDirReq_sequence <- Get Word32
getWord32le
Word32
_msgFileioReadDirReq_offset <- Get Word32
getWord32le
Text
_msgFileioReadDirReq_dirname <- ByteString -> Text
decodeUtf8 forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioReadDirReq {Word32
Text
_msgFileioReadDirReq_dirname :: Text
_msgFileioReadDirReq_offset :: Word32
_msgFileioReadDirReq_sequence :: Word32
_msgFileioReadDirReq_dirname :: Text
_msgFileioReadDirReq_offset :: Word32
_msgFileioReadDirReq_sequence :: Word32
..}
put :: MsgFileioReadDirReq -> Put
put MsgFileioReadDirReq {Word32
Text
_msgFileioReadDirReq_dirname :: Text
_msgFileioReadDirReq_offset :: Word32
_msgFileioReadDirReq_sequence :: Word32
_msgFileioReadDirReq_dirname :: MsgFileioReadDirReq -> Text
_msgFileioReadDirReq_offset :: MsgFileioReadDirReq -> Word32
_msgFileioReadDirReq_sequence :: MsgFileioReadDirReq -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgFileioReadDirReq_sequence
Word32 -> Put
putWord32le Word32
_msgFileioReadDirReq_offset
ByteString -> Put
putByteString forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgFileioReadDirReq_dirname
$(makeSBP 'msgFileioReadDirReq ''MsgFileioReadDirReq)
$(makeJSON "_msgFileioReadDirReq_" ''MsgFileioReadDirReq)
$(makeLenses ''MsgFileioReadDirReq)
msgFileioReadDirResp :: Word16
msgFileioReadDirResp :: Word16
msgFileioReadDirResp = Word16
0x00AA
data MsgFileioReadDirResp = MsgFileioReadDirResp
{ MsgFileioReadDirResp -> Word32
_msgFileioReadDirResp_sequence :: !Word32
, MsgFileioReadDirResp -> [Word8]
_msgFileioReadDirResp_contents :: ![Word8]
} deriving ( Int -> MsgFileioReadDirResp -> ShowS
[MsgFileioReadDirResp] -> ShowS
MsgFileioReadDirResp -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioReadDirResp] -> ShowS
$cshowList :: [MsgFileioReadDirResp] -> ShowS
show :: MsgFileioReadDirResp -> String
$cshow :: MsgFileioReadDirResp -> String
showsPrec :: Int -> MsgFileioReadDirResp -> ShowS
$cshowsPrec :: Int -> MsgFileioReadDirResp -> ShowS
Show, ReadPrec [MsgFileioReadDirResp]
ReadPrec MsgFileioReadDirResp
Int -> ReadS MsgFileioReadDirResp
ReadS [MsgFileioReadDirResp]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioReadDirResp]
$creadListPrec :: ReadPrec [MsgFileioReadDirResp]
readPrec :: ReadPrec MsgFileioReadDirResp
$creadPrec :: ReadPrec MsgFileioReadDirResp
readList :: ReadS [MsgFileioReadDirResp]
$creadList :: ReadS [MsgFileioReadDirResp]
readsPrec :: Int -> ReadS MsgFileioReadDirResp
$creadsPrec :: Int -> ReadS MsgFileioReadDirResp
Read, MsgFileioReadDirResp -> MsgFileioReadDirResp -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioReadDirResp -> MsgFileioReadDirResp -> Bool
$c/= :: MsgFileioReadDirResp -> MsgFileioReadDirResp -> Bool
== :: MsgFileioReadDirResp -> MsgFileioReadDirResp -> Bool
$c== :: MsgFileioReadDirResp -> MsgFileioReadDirResp -> Bool
Eq )
instance Binary MsgFileioReadDirResp where
get :: Get MsgFileioReadDirResp
get = do
Word32
_msgFileioReadDirResp_sequence <- Get Word32
getWord32le
[Word8]
_msgFileioReadDirResp_contents <- forall (m :: * -> *) a. Monad m => m Bool -> m a -> m [a]
whileM (Bool -> Bool
not forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get Bool
isEmpty) Get Word8
getWord8
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioReadDirResp {[Word8]
Word32
_msgFileioReadDirResp_contents :: [Word8]
_msgFileioReadDirResp_sequence :: Word32
_msgFileioReadDirResp_contents :: [Word8]
_msgFileioReadDirResp_sequence :: Word32
..}
put :: MsgFileioReadDirResp -> Put
put MsgFileioReadDirResp {[Word8]
Word32
_msgFileioReadDirResp_contents :: [Word8]
_msgFileioReadDirResp_sequence :: Word32
_msgFileioReadDirResp_contents :: MsgFileioReadDirResp -> [Word8]
_msgFileioReadDirResp_sequence :: MsgFileioReadDirResp -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgFileioReadDirResp_sequence
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgFileioReadDirResp_contents
$(makeSBP 'msgFileioReadDirResp ''MsgFileioReadDirResp)
$(makeJSON "_msgFileioReadDirResp_" ''MsgFileioReadDirResp)
$(makeLenses ''MsgFileioReadDirResp)
msgFileioRemove :: Word16
msgFileioRemove :: Word16
msgFileioRemove = Word16
0x00AC
data MsgFileioRemove = MsgFileioRemove
{ MsgFileioRemove -> Text
_msgFileioRemove_filename :: !Text
} deriving ( Int -> MsgFileioRemove -> ShowS
[MsgFileioRemove] -> ShowS
MsgFileioRemove -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioRemove] -> ShowS
$cshowList :: [MsgFileioRemove] -> ShowS
show :: MsgFileioRemove -> String
$cshow :: MsgFileioRemove -> String
showsPrec :: Int -> MsgFileioRemove -> ShowS
$cshowsPrec :: Int -> MsgFileioRemove -> ShowS
Show, ReadPrec [MsgFileioRemove]
ReadPrec MsgFileioRemove
Int -> ReadS MsgFileioRemove
ReadS [MsgFileioRemove]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioRemove]
$creadListPrec :: ReadPrec [MsgFileioRemove]
readPrec :: ReadPrec MsgFileioRemove
$creadPrec :: ReadPrec MsgFileioRemove
readList :: ReadS [MsgFileioRemove]
$creadList :: ReadS [MsgFileioRemove]
readsPrec :: Int -> ReadS MsgFileioRemove
$creadsPrec :: Int -> ReadS MsgFileioRemove
Read, MsgFileioRemove -> MsgFileioRemove -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioRemove -> MsgFileioRemove -> Bool
$c/= :: MsgFileioRemove -> MsgFileioRemove -> Bool
== :: MsgFileioRemove -> MsgFileioRemove -> Bool
$c== :: MsgFileioRemove -> MsgFileioRemove -> Bool
Eq )
instance Binary MsgFileioRemove where
get :: Get MsgFileioRemove
get = do
Text
_msgFileioRemove_filename <- ByteString -> Text
decodeUtf8 forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioRemove {Text
_msgFileioRemove_filename :: Text
_msgFileioRemove_filename :: Text
..}
put :: MsgFileioRemove -> Put
put MsgFileioRemove {Text
_msgFileioRemove_filename :: Text
_msgFileioRemove_filename :: MsgFileioRemove -> Text
..} = do
ByteString -> Put
putByteString forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgFileioRemove_filename
$(makeSBP 'msgFileioRemove ''MsgFileioRemove)
$(makeJSON "_msgFileioRemove_" ''MsgFileioRemove)
$(makeLenses ''MsgFileioRemove)
msgFileioWriteReq :: Word16
msgFileioWriteReq :: Word16
msgFileioWriteReq = Word16
0x00AD
data MsgFileioWriteReq = MsgFileioWriteReq
{ MsgFileioWriteReq -> Word32
_msgFileioWriteReq_sequence :: !Word32
, MsgFileioWriteReq -> Word32
_msgFileioWriteReq_offset :: !Word32
, MsgFileioWriteReq -> Text
_msgFileioWriteReq_filename :: !Text
, MsgFileioWriteReq -> [Word8]
_msgFileioWriteReq_data :: ![Word8]
} deriving ( Int -> MsgFileioWriteReq -> ShowS
[MsgFileioWriteReq] -> ShowS
MsgFileioWriteReq -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioWriteReq] -> ShowS
$cshowList :: [MsgFileioWriteReq] -> ShowS
show :: MsgFileioWriteReq -> String
$cshow :: MsgFileioWriteReq -> String
showsPrec :: Int -> MsgFileioWriteReq -> ShowS
$cshowsPrec :: Int -> MsgFileioWriteReq -> ShowS
Show, ReadPrec [MsgFileioWriteReq]
ReadPrec MsgFileioWriteReq
Int -> ReadS MsgFileioWriteReq
ReadS [MsgFileioWriteReq]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioWriteReq]
$creadListPrec :: ReadPrec [MsgFileioWriteReq]
readPrec :: ReadPrec MsgFileioWriteReq
$creadPrec :: ReadPrec MsgFileioWriteReq
readList :: ReadS [MsgFileioWriteReq]
$creadList :: ReadS [MsgFileioWriteReq]
readsPrec :: Int -> ReadS MsgFileioWriteReq
$creadsPrec :: Int -> ReadS MsgFileioWriteReq
Read, MsgFileioWriteReq -> MsgFileioWriteReq -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioWriteReq -> MsgFileioWriteReq -> Bool
$c/= :: MsgFileioWriteReq -> MsgFileioWriteReq -> Bool
== :: MsgFileioWriteReq -> MsgFileioWriteReq -> Bool
$c== :: MsgFileioWriteReq -> MsgFileioWriteReq -> Bool
Eq )
instance Binary MsgFileioWriteReq where
get :: Get MsgFileioWriteReq
get = do
Word32
_msgFileioWriteReq_sequence <- Get Word32
getWord32le
Word32
_msgFileioWriteReq_offset <- Get Word32
getWord32le
Text
_msgFileioWriteReq_filename <- ByteString -> Text
decodeUtf8 forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
[Word8]
_msgFileioWriteReq_data <- forall (m :: * -> *) a. Monad m => m Bool -> m a -> m [a]
whileM (Bool -> Bool
not forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get Bool
isEmpty) Get Word8
getWord8
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioWriteReq {[Word8]
Word32
Text
_msgFileioWriteReq_data :: [Word8]
_msgFileioWriteReq_filename :: Text
_msgFileioWriteReq_offset :: Word32
_msgFileioWriteReq_sequence :: Word32
_msgFileioWriteReq_data :: [Word8]
_msgFileioWriteReq_filename :: Text
_msgFileioWriteReq_offset :: Word32
_msgFileioWriteReq_sequence :: Word32
..}
put :: MsgFileioWriteReq -> Put
put MsgFileioWriteReq {[Word8]
Word32
Text
_msgFileioWriteReq_data :: [Word8]
_msgFileioWriteReq_filename :: Text
_msgFileioWriteReq_offset :: Word32
_msgFileioWriteReq_sequence :: Word32
_msgFileioWriteReq_data :: MsgFileioWriteReq -> [Word8]
_msgFileioWriteReq_filename :: MsgFileioWriteReq -> Text
_msgFileioWriteReq_offset :: MsgFileioWriteReq -> Word32
_msgFileioWriteReq_sequence :: MsgFileioWriteReq -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgFileioWriteReq_sequence
Word32 -> Put
putWord32le Word32
_msgFileioWriteReq_offset
ByteString -> Put
putByteString forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgFileioWriteReq_filename
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgFileioWriteReq_data
$(makeSBP 'msgFileioWriteReq ''MsgFileioWriteReq)
$(makeJSON "_msgFileioWriteReq_" ''MsgFileioWriteReq)
$(makeLenses ''MsgFileioWriteReq)
msgFileioWriteResp :: Word16
msgFileioWriteResp :: Word16
msgFileioWriteResp = Word16
0x00AB
data MsgFileioWriteResp = MsgFileioWriteResp
{ MsgFileioWriteResp -> Word32
_msgFileioWriteResp_sequence :: !Word32
} deriving ( Int -> MsgFileioWriteResp -> ShowS
[MsgFileioWriteResp] -> ShowS
MsgFileioWriteResp -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioWriteResp] -> ShowS
$cshowList :: [MsgFileioWriteResp] -> ShowS
show :: MsgFileioWriteResp -> String
$cshow :: MsgFileioWriteResp -> String
showsPrec :: Int -> MsgFileioWriteResp -> ShowS
$cshowsPrec :: Int -> MsgFileioWriteResp -> ShowS
Show, ReadPrec [MsgFileioWriteResp]
ReadPrec MsgFileioWriteResp
Int -> ReadS MsgFileioWriteResp
ReadS [MsgFileioWriteResp]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioWriteResp]
$creadListPrec :: ReadPrec [MsgFileioWriteResp]
readPrec :: ReadPrec MsgFileioWriteResp
$creadPrec :: ReadPrec MsgFileioWriteResp
readList :: ReadS [MsgFileioWriteResp]
$creadList :: ReadS [MsgFileioWriteResp]
readsPrec :: Int -> ReadS MsgFileioWriteResp
$creadsPrec :: Int -> ReadS MsgFileioWriteResp
Read, MsgFileioWriteResp -> MsgFileioWriteResp -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioWriteResp -> MsgFileioWriteResp -> Bool
$c/= :: MsgFileioWriteResp -> MsgFileioWriteResp -> Bool
== :: MsgFileioWriteResp -> MsgFileioWriteResp -> Bool
$c== :: MsgFileioWriteResp -> MsgFileioWriteResp -> Bool
Eq )
instance Binary MsgFileioWriteResp where
get :: Get MsgFileioWriteResp
get = do
Word32
_msgFileioWriteResp_sequence <- Get Word32
getWord32le
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioWriteResp {Word32
_msgFileioWriteResp_sequence :: Word32
_msgFileioWriteResp_sequence :: Word32
..}
put :: MsgFileioWriteResp -> Put
put MsgFileioWriteResp {Word32
_msgFileioWriteResp_sequence :: Word32
_msgFileioWriteResp_sequence :: MsgFileioWriteResp -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgFileioWriteResp_sequence
$(makeSBP 'msgFileioWriteResp ''MsgFileioWriteResp)
$(makeJSON "_msgFileioWriteResp_" ''MsgFileioWriteResp)
$(makeLenses ''MsgFileioWriteResp)
msgFileioConfigReq :: Word16
msgFileioConfigReq :: Word16
msgFileioConfigReq = Word16
0x1001
data MsgFileioConfigReq = MsgFileioConfigReq
{ MsgFileioConfigReq -> Word32
_msgFileioConfigReq_sequence :: !Word32
} deriving ( Int -> MsgFileioConfigReq -> ShowS
[MsgFileioConfigReq] -> ShowS
MsgFileioConfigReq -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioConfigReq] -> ShowS
$cshowList :: [MsgFileioConfigReq] -> ShowS
show :: MsgFileioConfigReq -> String
$cshow :: MsgFileioConfigReq -> String
showsPrec :: Int -> MsgFileioConfigReq -> ShowS
$cshowsPrec :: Int -> MsgFileioConfigReq -> ShowS
Show, ReadPrec [MsgFileioConfigReq]
ReadPrec MsgFileioConfigReq
Int -> ReadS MsgFileioConfigReq
ReadS [MsgFileioConfigReq]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioConfigReq]
$creadListPrec :: ReadPrec [MsgFileioConfigReq]
readPrec :: ReadPrec MsgFileioConfigReq
$creadPrec :: ReadPrec MsgFileioConfigReq
readList :: ReadS [MsgFileioConfigReq]
$creadList :: ReadS [MsgFileioConfigReq]
readsPrec :: Int -> ReadS MsgFileioConfigReq
$creadsPrec :: Int -> ReadS MsgFileioConfigReq
Read, MsgFileioConfigReq -> MsgFileioConfigReq -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioConfigReq -> MsgFileioConfigReq -> Bool
$c/= :: MsgFileioConfigReq -> MsgFileioConfigReq -> Bool
== :: MsgFileioConfigReq -> MsgFileioConfigReq -> Bool
$c== :: MsgFileioConfigReq -> MsgFileioConfigReq -> Bool
Eq )
instance Binary MsgFileioConfigReq where
get :: Get MsgFileioConfigReq
get = do
Word32
_msgFileioConfigReq_sequence <- Get Word32
getWord32le
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioConfigReq {Word32
_msgFileioConfigReq_sequence :: Word32
_msgFileioConfigReq_sequence :: Word32
..}
put :: MsgFileioConfigReq -> Put
put MsgFileioConfigReq {Word32
_msgFileioConfigReq_sequence :: Word32
_msgFileioConfigReq_sequence :: MsgFileioConfigReq -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgFileioConfigReq_sequence
$(makeSBP 'msgFileioConfigReq ''MsgFileioConfigReq)
$(makeJSON "_msgFileioConfigReq_" ''MsgFileioConfigReq)
$(makeLenses ''MsgFileioConfigReq)
msgFileioConfigResp :: Word16
msgFileioConfigResp :: Word16
msgFileioConfigResp = Word16
0x1002
data MsgFileioConfigResp = MsgFileioConfigResp
{ MsgFileioConfigResp -> Word32
_msgFileioConfigResp_sequence :: !Word32
, MsgFileioConfigResp -> Word32
_msgFileioConfigResp_window_size :: !Word32
, MsgFileioConfigResp -> Word32
_msgFileioConfigResp_batch_size :: !Word32
, MsgFileioConfigResp -> Word32
_msgFileioConfigResp_fileio_version :: !Word32
} deriving ( Int -> MsgFileioConfigResp -> ShowS
[MsgFileioConfigResp] -> ShowS
MsgFileioConfigResp -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFileioConfigResp] -> ShowS
$cshowList :: [MsgFileioConfigResp] -> ShowS
show :: MsgFileioConfigResp -> String
$cshow :: MsgFileioConfigResp -> String
showsPrec :: Int -> MsgFileioConfigResp -> ShowS
$cshowsPrec :: Int -> MsgFileioConfigResp -> ShowS
Show, ReadPrec [MsgFileioConfigResp]
ReadPrec MsgFileioConfigResp
Int -> ReadS MsgFileioConfigResp
ReadS [MsgFileioConfigResp]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFileioConfigResp]
$creadListPrec :: ReadPrec [MsgFileioConfigResp]
readPrec :: ReadPrec MsgFileioConfigResp
$creadPrec :: ReadPrec MsgFileioConfigResp
readList :: ReadS [MsgFileioConfigResp]
$creadList :: ReadS [MsgFileioConfigResp]
readsPrec :: Int -> ReadS MsgFileioConfigResp
$creadsPrec :: Int -> ReadS MsgFileioConfigResp
Read, MsgFileioConfigResp -> MsgFileioConfigResp -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFileioConfigResp -> MsgFileioConfigResp -> Bool
$c/= :: MsgFileioConfigResp -> MsgFileioConfigResp -> Bool
== :: MsgFileioConfigResp -> MsgFileioConfigResp -> Bool
$c== :: MsgFileioConfigResp -> MsgFileioConfigResp -> Bool
Eq )
instance Binary MsgFileioConfigResp where
get :: Get MsgFileioConfigResp
get = do
Word32
_msgFileioConfigResp_sequence <- Get Word32
getWord32le
Word32
_msgFileioConfigResp_window_size <- Get Word32
getWord32le
Word32
_msgFileioConfigResp_batch_size <- Get Word32
getWord32le
Word32
_msgFileioConfigResp_fileio_version <- Get Word32
getWord32le
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFileioConfigResp {Word32
_msgFileioConfigResp_fileio_version :: Word32
_msgFileioConfigResp_batch_size :: Word32
_msgFileioConfigResp_window_size :: Word32
_msgFileioConfigResp_sequence :: Word32
_msgFileioConfigResp_fileio_version :: Word32
_msgFileioConfigResp_batch_size :: Word32
_msgFileioConfigResp_window_size :: Word32
_msgFileioConfigResp_sequence :: Word32
..}
put :: MsgFileioConfigResp -> Put
put MsgFileioConfigResp {Word32
_msgFileioConfigResp_fileio_version :: Word32
_msgFileioConfigResp_batch_size :: Word32
_msgFileioConfigResp_window_size :: Word32
_msgFileioConfigResp_sequence :: Word32
_msgFileioConfigResp_fileio_version :: MsgFileioConfigResp -> Word32
_msgFileioConfigResp_batch_size :: MsgFileioConfigResp -> Word32
_msgFileioConfigResp_window_size :: MsgFileioConfigResp -> Word32
_msgFileioConfigResp_sequence :: MsgFileioConfigResp -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgFileioConfigResp_sequence
Word32 -> Put
putWord32le Word32
_msgFileioConfigResp_window_size
Word32 -> Put
putWord32le Word32
_msgFileioConfigResp_batch_size
Word32 -> Put
putWord32le Word32
_msgFileioConfigResp_fileio_version
$(makeSBP 'msgFileioConfigResp ''MsgFileioConfigResp)
$(makeJSON "_msgFileioConfigResp_" ''MsgFileioConfigResp)
$(makeLenses ''MsgFileioConfigResp)