{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RecordWildCards #-}
module SwiftNav.SBP.Ndb
( module SwiftNav.SBP.Ndb
) 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
import SwiftNav.SBP.Gnss
{-# ANN module ("HLint: ignore Use camelCase"::String) #-}
{-# ANN module ("HLint: ignore Redundant do"::String) #-}
{-# ANN module ("HLint: ignore Use newtype instead of data"::String) #-}
msgNdbEvent :: Word16
msgNdbEvent :: Word16
msgNdbEvent = Word16
0x0400
data MsgNdbEvent = MsgNdbEvent
{ MsgNdbEvent -> Word64
_msgNdbEvent_recv_time :: !Word64
, MsgNdbEvent -> Word8
_msgNdbEvent_event :: !Word8
, MsgNdbEvent -> Word8
_msgNdbEvent_object_type :: !Word8
, MsgNdbEvent -> Word8
_msgNdbEvent_result :: !Word8
, MsgNdbEvent -> Word8
_msgNdbEvent_data_source :: !Word8
, MsgNdbEvent -> GnssSignal
_msgNdbEvent_object_sid :: !GnssSignal
, MsgNdbEvent -> GnssSignal
_msgNdbEvent_src_sid :: !GnssSignal
, MsgNdbEvent -> Word16
_msgNdbEvent_original_sender :: !Word16
} deriving ( Int -> MsgNdbEvent -> ShowS
[MsgNdbEvent] -> ShowS
MsgNdbEvent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgNdbEvent] -> ShowS
$cshowList :: [MsgNdbEvent] -> ShowS
show :: MsgNdbEvent -> String
$cshow :: MsgNdbEvent -> String
showsPrec :: Int -> MsgNdbEvent -> ShowS
$cshowsPrec :: Int -> MsgNdbEvent -> ShowS
Show, ReadPrec [MsgNdbEvent]
ReadPrec MsgNdbEvent
Int -> ReadS MsgNdbEvent
ReadS [MsgNdbEvent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgNdbEvent]
$creadListPrec :: ReadPrec [MsgNdbEvent]
readPrec :: ReadPrec MsgNdbEvent
$creadPrec :: ReadPrec MsgNdbEvent
readList :: ReadS [MsgNdbEvent]
$creadList :: ReadS [MsgNdbEvent]
readsPrec :: Int -> ReadS MsgNdbEvent
$creadsPrec :: Int -> ReadS MsgNdbEvent
Read, MsgNdbEvent -> MsgNdbEvent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgNdbEvent -> MsgNdbEvent -> Bool
$c/= :: MsgNdbEvent -> MsgNdbEvent -> Bool
== :: MsgNdbEvent -> MsgNdbEvent -> Bool
$c== :: MsgNdbEvent -> MsgNdbEvent -> Bool
Eq )
instance Binary MsgNdbEvent where
get :: Get MsgNdbEvent
get = do
Word64
_msgNdbEvent_recv_time <- Get Word64
getWord64le
Word8
_msgNdbEvent_event <- Get Word8
getWord8
Word8
_msgNdbEvent_object_type <- Get Word8
getWord8
Word8
_msgNdbEvent_result <- Get Word8
getWord8
Word8
_msgNdbEvent_data_source <- Get Word8
getWord8
GnssSignal
_msgNdbEvent_object_sid <- forall t. Binary t => Get t
get
GnssSignal
_msgNdbEvent_src_sid <- forall t. Binary t => Get t
get
Word16
_msgNdbEvent_original_sender <- Get Word16
getWord16le
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgNdbEvent {Word8
Word16
Word64
GnssSignal
_msgNdbEvent_original_sender :: Word16
_msgNdbEvent_src_sid :: GnssSignal
_msgNdbEvent_object_sid :: GnssSignal
_msgNdbEvent_data_source :: Word8
_msgNdbEvent_result :: Word8
_msgNdbEvent_object_type :: Word8
_msgNdbEvent_event :: Word8
_msgNdbEvent_recv_time :: Word64
_msgNdbEvent_original_sender :: Word16
_msgNdbEvent_src_sid :: GnssSignal
_msgNdbEvent_object_sid :: GnssSignal
_msgNdbEvent_data_source :: Word8
_msgNdbEvent_result :: Word8
_msgNdbEvent_object_type :: Word8
_msgNdbEvent_event :: Word8
_msgNdbEvent_recv_time :: Word64
..}
put :: MsgNdbEvent -> Put
put MsgNdbEvent {Word8
Word16
Word64
GnssSignal
_msgNdbEvent_original_sender :: Word16
_msgNdbEvent_src_sid :: GnssSignal
_msgNdbEvent_object_sid :: GnssSignal
_msgNdbEvent_data_source :: Word8
_msgNdbEvent_result :: Word8
_msgNdbEvent_object_type :: Word8
_msgNdbEvent_event :: Word8
_msgNdbEvent_recv_time :: Word64
_msgNdbEvent_original_sender :: MsgNdbEvent -> Word16
_msgNdbEvent_src_sid :: MsgNdbEvent -> GnssSignal
_msgNdbEvent_object_sid :: MsgNdbEvent -> GnssSignal
_msgNdbEvent_data_source :: MsgNdbEvent -> Word8
_msgNdbEvent_result :: MsgNdbEvent -> Word8
_msgNdbEvent_object_type :: MsgNdbEvent -> Word8
_msgNdbEvent_event :: MsgNdbEvent -> Word8
_msgNdbEvent_recv_time :: MsgNdbEvent -> Word64
..} = do
Word64 -> Put
putWord64le Word64
_msgNdbEvent_recv_time
Word8 -> Put
putWord8 Word8
_msgNdbEvent_event
Word8 -> Put
putWord8 Word8
_msgNdbEvent_object_type
Word8 -> Put
putWord8 Word8
_msgNdbEvent_result
Word8 -> Put
putWord8 Word8
_msgNdbEvent_data_source
forall t. Binary t => t -> Put
put GnssSignal
_msgNdbEvent_object_sid
forall t. Binary t => t -> Put
put GnssSignal
_msgNdbEvent_src_sid
Word16 -> Put
putWord16le Word16
_msgNdbEvent_original_sender
$(makeSBP 'msgNdbEvent ''MsgNdbEvent)
$(makeJSON "_msgNdbEvent_" ''MsgNdbEvent)
$(makeLenses ''MsgNdbEvent)