module Rattletrap.Type.Replication where import qualified Data.Map as Map import qualified Rattletrap.BitGet as BitGet import qualified Rattletrap.BitPut as BitPut import qualified Rattletrap.Schema as Schema import qualified Rattletrap.Type.ClassAttributeMap as ClassAttributeMap import qualified Rattletrap.Type.CompressedWord as CompressedWord import qualified Rattletrap.Type.List as List import qualified Rattletrap.Type.ReplicationValue as ReplicationValue import qualified Rattletrap.Type.Str as Str import qualified Rattletrap.Type.U32 as U32 import qualified Rattletrap.Type.Version as Version import qualified Rattletrap.Utility.Json as Json data Replication = Replication { Replication -> CompressedWord actorId :: CompressedWord.CompressedWord , Replication -> ReplicationValue value :: ReplicationValue.ReplicationValue } deriving (Replication -> Replication -> Bool (Replication -> Replication -> Bool) -> (Replication -> Replication -> Bool) -> Eq Replication forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Replication -> Replication -> Bool $c/= :: Replication -> Replication -> Bool == :: Replication -> Replication -> Bool $c== :: Replication -> Replication -> Bool Eq, Int -> Replication -> ShowS [Replication] -> ShowS Replication -> String (Int -> Replication -> ShowS) -> (Replication -> String) -> ([Replication] -> ShowS) -> Show Replication forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Replication] -> ShowS $cshowList :: [Replication] -> ShowS show :: Replication -> String $cshow :: Replication -> String showsPrec :: Int -> Replication -> ShowS $cshowsPrec :: Int -> Replication -> ShowS Show) instance Json.FromJSON Replication where parseJSON :: Value -> Parser Replication parseJSON = String -> (Object -> Parser Replication) -> Value -> Parser Replication forall a. String -> (Object -> Parser a) -> Value -> Parser a Json.withObject String "Replication" ((Object -> Parser Replication) -> Value -> Parser Replication) -> (Object -> Parser Replication) -> Value -> Parser Replication forall a b. (a -> b) -> a -> b $ \Object object -> do CompressedWord actorId <- Object -> String -> Parser CompressedWord forall value. FromJSON value => Object -> String -> Parser value Json.required Object object String "actor_id" ReplicationValue value <- Object -> String -> Parser ReplicationValue forall value. FromJSON value => Object -> String -> Parser value Json.required Object object String "value" Replication -> Parser Replication forall (f :: * -> *) a. Applicative f => a -> f a pure Replication :: CompressedWord -> ReplicationValue -> Replication Replication { CompressedWord actorId :: CompressedWord actorId :: CompressedWord actorId, ReplicationValue value :: ReplicationValue value :: ReplicationValue value } instance Json.ToJSON Replication where toJSON :: Replication -> Value toJSON Replication x = [Pair] -> Value Json.object [String -> CompressedWord -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "actor_id" (CompressedWord -> Pair) -> CompressedWord -> Pair forall a b. (a -> b) -> a -> b $ Replication -> CompressedWord actorId Replication x, String -> ReplicationValue -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "value" (ReplicationValue -> Pair) -> ReplicationValue -> Pair forall a b. (a -> b) -> a -> b $ Replication -> ReplicationValue value Replication x] schema :: Schema.Schema schema :: Schema schema = String -> Value -> Schema Schema.named String "replication" (Value -> Schema) -> Value -> Schema forall a b. (a -> b) -> a -> b $ [(Pair, Bool)] -> Value Schema.object [ (String -> Value -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "actor_id" (Value -> Pair) -> Value -> Pair forall a b. (a -> b) -> a -> b $ Schema -> Value Schema.ref Schema CompressedWord.schema, Bool True) , (String -> Value -> Pair forall value pair. (ToJSON value, KeyValue pair) => String -> value -> pair Json.pair String "value" (Value -> Pair) -> Value -> Pair forall a b. (a -> b) -> a -> b $ Schema -> Value Schema.ref Schema ReplicationValue.schema, Bool True) ] putReplications :: List.List Replication -> BitPut.BitPut putReplications :: List Replication -> BitPut putReplications List Replication xs = (Replication -> BitPut) -> [Replication] -> BitPut forall (t :: * -> *) m a. (Foldable t, Monoid m) => (a -> m) -> t a -> m foldMap (\Replication x -> Bool -> BitPut BitPut.bool Bool True BitPut -> BitPut -> BitPut forall a. Semigroup a => a -> a -> a <> Replication -> BitPut bitPut Replication x) (List Replication -> [Replication] forall a. List a -> [a] List.toList List Replication xs) BitPut -> BitPut -> BitPut forall a. Semigroup a => a -> a -> a <> Bool -> BitPut BitPut.bool Bool False bitPut :: Replication -> BitPut.BitPut bitPut :: Replication -> BitPut bitPut Replication replication = CompressedWord -> BitPut CompressedWord.bitPut (Replication -> CompressedWord actorId Replication replication) BitPut -> BitPut -> BitPut forall a. Semigroup a => a -> a -> a <> ReplicationValue -> BitPut ReplicationValue.bitPut (Replication -> ReplicationValue value Replication replication) decodeReplicationsBits :: Maybe Str.Str -> Version.Version -> Word -> ClassAttributeMap.ClassAttributeMap -> Map.Map CompressedWord.CompressedWord U32.U32 -> BitGet.BitGet ( Map.Map CompressedWord.CompressedWord U32.U32 , List.List Replication ) decodeReplicationsBits :: Maybe Str -> Version -> Word -> ClassAttributeMap -> Map CompressedWord U32 -> BitGet (Map CompressedWord U32, List Replication) decodeReplicationsBits Maybe Str matchType Version version Word limit ClassAttributeMap classes Map CompressedWord U32 actorMap = Maybe Str -> Version -> Word -> ClassAttributeMap -> Map CompressedWord U32 -> Int -> [Replication] -> BitGet (Map CompressedWord U32, List Replication) decodeReplicationsBitsWith Maybe Str matchType Version version Word limit ClassAttributeMap classes Map CompressedWord U32 actorMap Int 0 [] decodeReplicationsBitsWith :: Maybe Str.Str -> Version.Version -> Word -> ClassAttributeMap.ClassAttributeMap -> Map.Map CompressedWord.CompressedWord U32.U32 -> Int -> [Replication] -> BitGet.BitGet ( Map.Map CompressedWord.CompressedWord U32.U32 , List.List Replication ) decodeReplicationsBitsWith :: Maybe Str -> Version -> Word -> ClassAttributeMap -> Map CompressedWord U32 -> Int -> [Replication] -> BitGet (Map CompressedWord U32, List Replication) decodeReplicationsBitsWith Maybe Str matchType Version version Word limit ClassAttributeMap classes Map CompressedWord U32 actorMap Int index [Replication] replications = do Bool hasReplication <- BitGet Bool BitGet.bool if Bool hasReplication then do (Map CompressedWord U32 newActorMap, Replication replication) <- String -> BitGet (Map CompressedWord U32, Replication) -> BitGet (Map CompressedWord U32, Replication) forall a. String -> BitGet a -> BitGet a BitGet.label (String "element (" String -> ShowS forall a. Semigroup a => a -> a -> a <> Int -> String forall a. Show a => a -> String show Int index String -> ShowS forall a. Semigroup a => a -> a -> a <> String ")") (BitGet (Map CompressedWord U32, Replication) -> BitGet (Map CompressedWord U32, Replication)) -> BitGet (Map CompressedWord U32, Replication) -> BitGet (Map CompressedWord U32, Replication) forall a b. (a -> b) -> a -> b $ Maybe Str -> Version -> Word -> ClassAttributeMap -> Map CompressedWord U32 -> BitGet (Map CompressedWord U32, Replication) bitGet Maybe Str matchType Version version Word limit ClassAttributeMap classes Map CompressedWord U32 actorMap Maybe Str -> Version -> Word -> ClassAttributeMap -> Map CompressedWord U32 -> Int -> [Replication] -> BitGet (Map CompressedWord U32, List Replication) decodeReplicationsBitsWith Maybe Str matchType Version version Word limit ClassAttributeMap classes Map CompressedWord U32 newActorMap (Int index Int -> Int -> Int forall a. Num a => a -> a -> a + Int 1) ([Replication] -> BitGet (Map CompressedWord U32, List Replication)) -> [Replication] -> BitGet (Map CompressedWord U32, List Replication) forall a b. (a -> b) -> a -> b $ Replication replication Replication -> [Replication] -> [Replication] forall a. a -> [a] -> [a] : [Replication] replications else (Map CompressedWord U32, List Replication) -> BitGet (Map CompressedWord U32, List Replication) forall (f :: * -> *) a. Applicative f => a -> f a pure (Map CompressedWord U32 actorMap, [Replication] -> List Replication forall a. [a] -> List a List.fromList ([Replication] -> List Replication) -> [Replication] -> List Replication forall a b. (a -> b) -> a -> b $ [Replication] -> [Replication] forall a. [a] -> [a] reverse [Replication] replications) bitGet :: Maybe Str.Str -> Version.Version -> Word -> ClassAttributeMap.ClassAttributeMap -> Map.Map CompressedWord.CompressedWord U32.U32 -> BitGet.BitGet ( Map.Map CompressedWord.CompressedWord U32.U32 , Replication ) bitGet :: Maybe Str -> Version -> Word -> ClassAttributeMap -> Map CompressedWord U32 -> BitGet (Map CompressedWord U32, Replication) bitGet Maybe Str matchType Version version Word limit ClassAttributeMap classes Map CompressedWord U32 actorMap = String -> BitGet (Map CompressedWord U32, Replication) -> BitGet (Map CompressedWord U32, Replication) forall a. String -> BitGet a -> BitGet a BitGet.label String "Replication" (BitGet (Map CompressedWord U32, Replication) -> BitGet (Map CompressedWord U32, Replication)) -> BitGet (Map CompressedWord U32, Replication) -> BitGet (Map CompressedWord U32, Replication) forall a b. (a -> b) -> a -> b $ do CompressedWord actorId <- String -> BitGet CompressedWord -> BitGet CompressedWord forall a. String -> BitGet a -> BitGet a BitGet.label String "actorId" (BitGet CompressedWord -> BitGet CompressedWord) -> BitGet CompressedWord -> BitGet CompressedWord forall a b. (a -> b) -> a -> b $ Word -> BitGet CompressedWord CompressedWord.bitGet Word limit (Map CompressedWord U32 newActorMap, ReplicationValue value) <- String -> BitGet (Map CompressedWord U32, ReplicationValue) -> BitGet (Map CompressedWord U32, ReplicationValue) forall a. String -> BitGet a -> BitGet a BitGet.label String "value" (BitGet (Map CompressedWord U32, ReplicationValue) -> BitGet (Map CompressedWord U32, ReplicationValue)) -> BitGet (Map CompressedWord U32, ReplicationValue) -> BitGet (Map CompressedWord U32, ReplicationValue) forall a b. (a -> b) -> a -> b $ Maybe Str -> Version -> ClassAttributeMap -> CompressedWord -> Map CompressedWord U32 -> BitGet (Map CompressedWord U32, ReplicationValue) ReplicationValue.bitGet Maybe Str matchType Version version ClassAttributeMap classes CompressedWord actorId Map CompressedWord U32 actorMap (Map CompressedWord U32, Replication) -> BitGet (Map CompressedWord U32, Replication) forall (f :: * -> *) a. Applicative f => a -> f a pure (Map CompressedWord U32 newActorMap, Replication :: CompressedWord -> ReplicationValue -> Replication Replication { CompressedWord actorId :: CompressedWord actorId :: CompressedWord actorId, ReplicationValue value :: ReplicationValue value :: ReplicationValue value })