{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-dodgy-exports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-orphans #-}
module Capnp.Gen.Capnp.Rpc where
import qualified Capnp.Message as Message
import qualified Capnp.Untyped as Untyped
import qualified Capnp.Basics as Basics
import qualified Capnp.GenHelpers as GenHelpers
import qualified Capnp.Classes as Classes
import qualified GHC.Generics as Generics
import qualified Capnp.Bits as Std_
import qualified Data.Maybe as Std_
import qualified Capnp.GenHelpers.ReExports.Data.ByteString as BS
import qualified Prelude as Std_
import qualified Data.Word as Std_
import qualified Data.Int as Std_
import Prelude ((<$>), (<*>), (>>=))
newtype Message msg
    = Message'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Message msg)) where
    fromStruct :: Struct msg -> m (Message msg)
fromStruct Struct msg
struct = (Message msg -> m (Message msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Message msg
forall msg. Struct msg -> Message msg
Message'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Message msg)) where
    toStruct :: Message msg -> Struct msg
toStruct (Message'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Message msg)) where
    type InMessage (Message msg) = msg
    message :: Message msg -> InMessage (Message msg)
message (Message'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Message msg)) where
    messageDefault :: InMessage (Message msg) -> Message msg
messageDefault InMessage (Message msg)
msg = (Struct msg -> Message msg
forall msg. Struct msg -> Message msg
Message'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Message msg)
msg))
instance (Classes.FromPtr msg (Message msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Message msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Message msg
forall msg. Struct msg -> Message msg
Message'newtype_ (Struct msg -> Message msg) -> m (Struct msg) -> m (Message msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Message (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Message (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Message'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Message (Message.MutMsg s))) where
    new :: MutMsg s -> m (Message (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Message (MutMsg s)
forall msg. Struct msg -> Message msg
Message'newtype_ (Struct (MutMsg s) -> Message (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Message (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (Message msg)) where
    newtype List msg (Message msg)
        = Message'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Message msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Message msg)
forall msg. ListOf msg (Struct msg) -> List msg (Message msg)
Message'List_ (ListOf msg (Struct msg) -> List msg (Message msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Message msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Message msg) -> List msg
toUntypedList (Message'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Message msg) -> Int
length (Message'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Message msg) -> m (Message msg)
index Int
i (Message'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Message msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Message (Message.MutMsg s))) where
    setIndex :: Message (MutMsg s)
-> Int -> List (MutMsg s) (Message (MutMsg s)) -> m ()
setIndex (Message'newtype_ Struct (MutMsg s)
elt) Int
i (Message'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Message (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Message (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Message msg)
Message'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Message (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Message (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
data Message' msg
    = Message'unimplemented (Message msg)
    | Message'abort (Exception msg)
    | Message'call (Call msg)
    | Message'return (Return msg)
    | Message'finish (Finish msg)
    | Message'resolve (Resolve msg)
    | Message'release (Release msg)
    | Message'obsoleteSave (Std_.Maybe (Untyped.Ptr msg))
    | Message'bootstrap (Bootstrap msg)
    | Message'obsoleteDelete (Std_.Maybe (Untyped.Ptr msg))
    | Message'provide (Provide msg)
    | Message'accept (Accept msg)
    | Message'join (Join msg)
    | Message'disembargo (Disembargo msg)
    | Message'unknown' Std_.Word16
instance (Classes.FromStruct msg (Message' msg)) where
    fromStruct :: Struct msg -> m (Message' msg)
fromStruct Struct msg
struct = (do
        Word16
tag <- (Struct msg -> Int -> m Word16
forall (m :: * -> *) msg.
ReadCtx m msg =>
Struct msg -> Int -> m Word16
GenHelpers.getTag Struct msg
struct Int
0)
        case Word16
tag of
            Word16
0 ->
                (Message msg -> Message' msg
forall msg. Message msg -> Message' msg
Message'unimplemented (Message msg -> Message' msg)
-> m (Message msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Message msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
1 ->
                (Exception msg -> Message' msg
forall msg. Exception msg -> Message' msg
Message'abort (Exception msg -> Message' msg)
-> m (Exception msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Exception msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
2 ->
                (Call msg -> Message' msg
forall msg. Call msg -> Message' msg
Message'call (Call msg -> Message' msg) -> m (Call msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Call msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
3 ->
                (Return msg -> Message' msg
forall msg. Return msg -> Message' msg
Message'return (Return msg -> Message' msg) -> m (Return msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Return msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
4 ->
                (Finish msg -> Message' msg
forall msg. Finish msg -> Message' msg
Message'finish (Finish msg -> Message' msg) -> m (Finish msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Finish msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
5 ->
                (Resolve msg -> Message' msg
forall msg. Resolve msg -> Message' msg
Message'resolve (Resolve msg -> Message' msg)
-> m (Resolve msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Resolve msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
6 ->
                (Release msg -> Message' msg
forall msg. Release msg -> Message' msg
Message'release (Release msg -> Message' msg)
-> m (Release msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Release msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
7 ->
                (Maybe (Ptr msg) -> Message' msg
forall msg. Maybe (Ptr msg) -> Message' msg
Message'obsoleteSave (Maybe (Ptr msg) -> Message' msg)
-> m (Maybe (Ptr msg)) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
8 ->
                (Bootstrap msg -> Message' msg
forall msg. Bootstrap msg -> Message' msg
Message'bootstrap (Bootstrap msg -> Message' msg)
-> m (Bootstrap msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Bootstrap msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
9 ->
                (Maybe (Ptr msg) -> Message' msg
forall msg. Maybe (Ptr msg) -> Message' msg
Message'obsoleteDelete (Maybe (Ptr msg) -> Message' msg)
-> m (Maybe (Ptr msg)) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
10 ->
                (Provide msg -> Message' msg
forall msg. Provide msg -> Message' msg
Message'provide (Provide msg -> Message' msg)
-> m (Provide msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Provide msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
11 ->
                (Accept msg -> Message' msg
forall msg. Accept msg -> Message' msg
Message'accept (Accept msg -> Message' msg) -> m (Accept msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Accept msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
12 ->
                (Join msg -> Message' msg
forall msg. Join msg -> Message' msg
Message'join (Join msg -> Message' msg) -> m (Join msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Join msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
13 ->
                (Disembargo msg -> Message' msg
forall msg. Disembargo msg -> Message' msg
Message'disembargo (Disembargo msg -> Message' msg)
-> m (Disembargo msg) -> m (Message' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Disembargo msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
_ ->
                (Message' msg -> m (Message' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Word16 -> Message' msg
forall msg. Word16 -> Message' msg
Message'unknown' (Word16 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)))
        )
get_Message' :: ((Untyped.ReadCtx m msg)
                ,(Classes.FromStruct msg (Message' msg))) => (Message msg) -> (m (Message' msg))
get_Message' :: Message msg -> m (Message' msg)
get_Message' (Message'newtype_ Struct msg
struct) = (Struct msg -> m (Message' msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
set_Message'unimplemented :: ((Untyped.RWCtx m s)
                             ,(Classes.ToPtr s (Message (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Message (Message.MutMsg s)) -> (m ())
set_Message'unimplemented :: Message (MutMsg s) -> Message (MutMsg s) -> m ()
set_Message'unimplemented (Message'newtype_ Struct (MutMsg s)
struct) Message (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
0 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Message (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Message (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'abort :: ((Untyped.RWCtx m s)
                     ,(Classes.ToPtr s (Exception (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ())
set_Message'abort :: Message (MutMsg s) -> Exception (MutMsg s) -> m ()
set_Message'abort (Message'newtype_ Struct (MutMsg s)
struct) Exception (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
1 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Exception (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Exception (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'call :: ((Untyped.RWCtx m s)
                    ,(Classes.ToPtr s (Call (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Call (Message.MutMsg s)) -> (m ())
set_Message'call :: Message (MutMsg s) -> Call (MutMsg s) -> m ()
set_Message'call (Message'newtype_ Struct (MutMsg s)
struct) Call (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
2 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Call (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Call (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'return :: ((Untyped.RWCtx m s)
                      ,(Classes.ToPtr s (Return (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Return (Message.MutMsg s)) -> (m ())
set_Message'return :: Message (MutMsg s) -> Return (MutMsg s) -> m ()
set_Message'return (Message'newtype_ Struct (MutMsg s)
struct) Return (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
3 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Return (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Return (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'finish :: ((Untyped.RWCtx m s)
                      ,(Classes.ToPtr s (Finish (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Finish (Message.MutMsg s)) -> (m ())
set_Message'finish :: Message (MutMsg s) -> Finish (MutMsg s) -> m ()
set_Message'finish (Message'newtype_ Struct (MutMsg s)
struct) Finish (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
4 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Finish (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Finish (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'resolve :: ((Untyped.RWCtx m s)
                       ,(Classes.ToPtr s (Resolve (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Resolve (Message.MutMsg s)) -> (m ())
set_Message'resolve :: Message (MutMsg s) -> Resolve (MutMsg s) -> m ()
set_Message'resolve (Message'newtype_ Struct (MutMsg s)
struct) Resolve (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
5 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Resolve (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Resolve (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'release :: ((Untyped.RWCtx m s)
                       ,(Classes.ToPtr s (Release (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Release (Message.MutMsg s)) -> (m ())
set_Message'release :: Message (MutMsg s) -> Release (MutMsg s) -> m ()
set_Message'release (Message'newtype_ Struct (MutMsg s)
struct) Release (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
6 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Release (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Release (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'obsoleteSave :: ((Untyped.RWCtx m s)
                            ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Message (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Message'obsoleteSave :: Message (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Message'obsoleteSave (Message'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
7 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'bootstrap :: ((Untyped.RWCtx m s)
                         ,(Classes.ToPtr s (Bootstrap (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Bootstrap (Message.MutMsg s)) -> (m ())
set_Message'bootstrap :: Message (MutMsg s) -> Bootstrap (MutMsg s) -> m ()
set_Message'bootstrap (Message'newtype_ Struct (MutMsg s)
struct) Bootstrap (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
8 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Bootstrap (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Bootstrap (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'obsoleteDelete :: ((Untyped.RWCtx m s)
                              ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Message (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Message'obsoleteDelete :: Message (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Message'obsoleteDelete (Message'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
9 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'provide :: ((Untyped.RWCtx m s)
                       ,(Classes.ToPtr s (Provide (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Provide (Message.MutMsg s)) -> (m ())
set_Message'provide :: Message (MutMsg s) -> Provide (MutMsg s) -> m ()
set_Message'provide (Message'newtype_ Struct (MutMsg s)
struct) Provide (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
10 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Provide (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Provide (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'accept :: ((Untyped.RWCtx m s)
                      ,(Classes.ToPtr s (Accept (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Accept (Message.MutMsg s)) -> (m ())
set_Message'accept :: Message (MutMsg s) -> Accept (MutMsg s) -> m ()
set_Message'accept (Message'newtype_ Struct (MutMsg s)
struct) Accept (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
11 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Accept (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Accept (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'join :: ((Untyped.RWCtx m s)
                    ,(Classes.ToPtr s (Join (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Join (Message.MutMsg s)) -> (m ())
set_Message'join :: Message (MutMsg s) -> Join (MutMsg s) -> m ()
set_Message'join (Message'newtype_ Struct (MutMsg s)
struct) Join (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
12 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Join (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Join (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'disembargo :: ((Untyped.RWCtx m s)
                          ,(Classes.ToPtr s (Disembargo (Message.MutMsg s)))) => (Message (Message.MutMsg s)) -> (Disembargo (Message.MutMsg s)) -> (m ())
set_Message'disembargo :: Message (MutMsg s) -> Disembargo (MutMsg s) -> m ()
set_Message'disembargo (Message'newtype_ Struct (MutMsg s)
struct) Disembargo (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
13 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Disembargo (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Disembargo (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Message'unknown' :: ((Untyped.RWCtx m s)) => (Message (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_Message'unknown' :: Message (MutMsg s) -> Word16 -> m ()
set_Message'unknown' (Message'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
0 Word64
0)
newtype Bootstrap msg
    = Bootstrap'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Bootstrap msg)) where
    fromStruct :: Struct msg -> m (Bootstrap msg)
fromStruct Struct msg
struct = (Bootstrap msg -> m (Bootstrap msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Bootstrap msg
forall msg. Struct msg -> Bootstrap msg
Bootstrap'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Bootstrap msg)) where
    toStruct :: Bootstrap msg -> Struct msg
toStruct (Bootstrap'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Bootstrap msg)) where
    type InMessage (Bootstrap msg) = msg
    message :: Bootstrap msg -> InMessage (Bootstrap msg)
message (Bootstrap'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Bootstrap msg)) where
    messageDefault :: InMessage (Bootstrap msg) -> Bootstrap msg
messageDefault InMessage (Bootstrap msg)
msg = (Struct msg -> Bootstrap msg
forall msg. Struct msg -> Bootstrap msg
Bootstrap'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Bootstrap msg)
msg))
instance (Classes.FromPtr msg (Bootstrap msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Bootstrap msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Bootstrap msg
forall msg. Struct msg -> Bootstrap msg
Bootstrap'newtype_ (Struct msg -> Bootstrap msg)
-> m (Struct msg) -> m (Bootstrap msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Bootstrap (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Bootstrap (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Bootstrap'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Bootstrap (Message.MutMsg s))) where
    new :: MutMsg s -> m (Bootstrap (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Bootstrap (MutMsg s)
forall msg. Struct msg -> Bootstrap msg
Bootstrap'newtype_ (Struct (MutMsg s) -> Bootstrap (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Bootstrap (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (Bootstrap msg)) where
    newtype List msg (Bootstrap msg)
        = Bootstrap'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Bootstrap msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Bootstrap msg)
forall msg. ListOf msg (Struct msg) -> List msg (Bootstrap msg)
Bootstrap'List_ (ListOf msg (Struct msg) -> List msg (Bootstrap msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Bootstrap msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Bootstrap msg) -> List msg
toUntypedList (Bootstrap'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Bootstrap msg) -> Int
length (Bootstrap'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Bootstrap msg) -> m (Bootstrap msg)
index Int
i (Bootstrap'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Bootstrap msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Bootstrap (Message.MutMsg s))) where
    setIndex :: Bootstrap (MutMsg s)
-> Int -> List (MutMsg s) (Bootstrap (MutMsg s)) -> m ()
setIndex (Bootstrap'newtype_ Struct (MutMsg s)
elt) Int
i (Bootstrap'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Bootstrap (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Bootstrap (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Bootstrap msg)
Bootstrap'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Bootstrap (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Bootstrap (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
get_Bootstrap'questionId :: ((Untyped.ReadCtx m msg)) => (Bootstrap msg) -> (m Std_.Word32)
get_Bootstrap'questionId :: Bootstrap msg -> m Word32
get_Bootstrap'questionId (Bootstrap'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Bootstrap'questionId :: ((Untyped.RWCtx m s)) => (Bootstrap (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Bootstrap'questionId :: Bootstrap (MutMsg s) -> Word32 -> m ()
set_Bootstrap'questionId (Bootstrap'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_Bootstrap'deprecatedObjectId :: ((Untyped.ReadCtx m msg)
                                    ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Bootstrap msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))
get_Bootstrap'deprecatedObjectId :: Bootstrap msg -> m (Maybe (Ptr msg))
get_Bootstrap'deprecatedObjectId (Bootstrap'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Bootstrap'deprecatedObjectId :: ((Untyped.RWCtx m s)
                                    ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Bootstrap (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Bootstrap'deprecatedObjectId :: Bootstrap (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Bootstrap'deprecatedObjectId (Bootstrap'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_Bootstrap'deprecatedObjectId :: ((Untyped.ReadCtx m msg)) => (Bootstrap msg) -> (m Std_.Bool)
has_Bootstrap'deprecatedObjectId :: Bootstrap msg -> m Bool
has_Bootstrap'deprecatedObjectId (Bootstrap'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
newtype Call msg
    = Call'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Call msg)) where
    fromStruct :: Struct msg -> m (Call msg)
fromStruct Struct msg
struct = (Call msg -> m (Call msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Call msg
forall msg. Struct msg -> Call msg
Call'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Call msg)) where
    toStruct :: Call msg -> Struct msg
toStruct (Call'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Call msg)) where
    type InMessage (Call msg) = msg
    message :: Call msg -> InMessage (Call msg)
message (Call'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Call msg)) where
    messageDefault :: InMessage (Call msg) -> Call msg
messageDefault InMessage (Call msg)
msg = (Struct msg -> Call msg
forall msg. Struct msg -> Call msg
Call'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Call msg)
msg))
instance (Classes.FromPtr msg (Call msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Call msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Call msg
forall msg. Struct msg -> Call msg
Call'newtype_ (Struct msg -> Call msg) -> m (Struct msg) -> m (Call msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Call (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Call (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Call'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Call (Message.MutMsg s))) where
    new :: MutMsg s -> m (Call (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Call (MutMsg s)
forall msg. Struct msg -> Call msg
Call'newtype_ (Struct (MutMsg s) -> Call (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Call (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
3 Word16
3))
instance (Basics.ListElem msg (Call msg)) where
    newtype List msg (Call msg)
        = Call'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Call msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Call msg)
forall msg. ListOf msg (Struct msg) -> List msg (Call msg)
Call'List_ (ListOf msg (Struct msg) -> List msg (Call msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Call msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Call msg) -> List msg
toUntypedList (Call'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Call msg) -> Int
length (Call'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Call msg) -> m (Call msg)
index Int
i (Call'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Call msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Call (Message.MutMsg s))) where
    setIndex :: Call (MutMsg s) -> Int -> List (MutMsg s) (Call (MutMsg s)) -> m ()
setIndex (Call'newtype_ Struct (MutMsg s)
elt) Int
i (Call'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Call (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Call (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Call msg)
Call'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Call (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Call (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
3 Word16
3 Int
len))
get_Call'questionId :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m Std_.Word32)
get_Call'questionId :: Call msg -> m Word32
get_Call'questionId (Call'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Call'questionId :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Call'questionId :: Call (MutMsg s) -> Word32 -> m ()
set_Call'questionId (Call'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_Call'target :: ((Untyped.ReadCtx m msg)
                   ,(Classes.FromPtr msg (MessageTarget msg))) => (Call msg) -> (m (MessageTarget msg))
get_Call'target :: Call msg -> m (MessageTarget msg)
get_Call'target (Call'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (MessageTarget msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Call'target :: ((Untyped.RWCtx m s)
                   ,(Classes.ToPtr s (MessageTarget (Message.MutMsg s)))) => (Call (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ())
set_Call'target :: Call (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
set_Call'target (Call'newtype_ Struct (MutMsg s)
struct) MessageTarget (MutMsg s)
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> MessageTarget (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) MessageTarget (MutMsg s)
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_Call'target :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m Std_.Bool)
has_Call'target :: Call msg -> m Bool
has_Call'target (Call'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
new_Call'target :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> (m (MessageTarget (Message.MutMsg s)))
new_Call'target :: Call (MutMsg s) -> m (MessageTarget (MutMsg s))
new_Call'target Call (MutMsg s)
struct = (do
    MessageTarget (MutMsg s)
result <- (MutMsg s -> m (MessageTarget (MutMsg s))
forall s e (m :: * -> *).
(Allocate s e, WriteCtx m s) =>
MutMsg s -> m e
Classes.new (Call (MutMsg s) -> InMessage (Call (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Call (MutMsg s)
struct))
    (Call (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
forall (m :: * -> *) s.
(RWCtx m s, ToPtr s (MessageTarget (MutMsg s))) =>
Call (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
set_Call'target Call (MutMsg s)
struct MessageTarget (MutMsg s)
result)
    (MessageTarget (MutMsg s) -> m (MessageTarget (MutMsg s))
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure MessageTarget (MutMsg s)
result)
    )
get_Call'interfaceId :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m Std_.Word64)
get_Call'interfaceId :: Call msg -> m Word64
get_Call'interfaceId (Call'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word64
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
1 Int
0 Word64
0)
set_Call'interfaceId :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> Std_.Word64 -> (m ())
set_Call'interfaceId :: Call (MutMsg s) -> Word64 -> m ()
set_Call'interfaceId (Call'newtype_ Struct (MutMsg s)
struct) Word64
value = (Struct (MutMsg s) -> Word64 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word64 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word64
value)) :: Std_.Word64) Int
1 Int
0 Word64
0)
get_Call'methodId :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m Std_.Word16)
get_Call'methodId :: Call msg -> m Word16
get_Call'methodId (Call'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word16
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
0)
set_Call'methodId :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_Call'methodId :: Call (MutMsg s) -> Word16 -> m ()
set_Call'methodId (Call'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
32 Word64
0)
get_Call'params :: ((Untyped.ReadCtx m msg)
                   ,(Classes.FromPtr msg (Payload msg))) => (Call msg) -> (m (Payload msg))
get_Call'params :: Call msg -> m (Payload msg)
get_Call'params (Call'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
1 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (Payload msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Call'params :: ((Untyped.RWCtx m s)
                   ,(Classes.ToPtr s (Payload (Message.MutMsg s)))) => (Call (Message.MutMsg s)) -> (Payload (Message.MutMsg s)) -> (m ())
set_Call'params :: Call (MutMsg s) -> Payload (MutMsg s) -> m ()
set_Call'params (Call'newtype_ Struct (MutMsg s)
struct) Payload (MutMsg s)
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Payload (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Payload (MutMsg s)
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
1 Struct (MutMsg s)
struct)
    )
has_Call'params :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m Std_.Bool)
has_Call'params :: Call msg -> m Bool
has_Call'params (Call'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
1 Struct msg
struct))
new_Call'params :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> (m (Payload (Message.MutMsg s)))
new_Call'params :: Call (MutMsg s) -> m (Payload (MutMsg s))
new_Call'params Call (MutMsg s)
struct = (do
    Payload (MutMsg s)
result <- (MutMsg s -> m (Payload (MutMsg s))
forall s e (m :: * -> *).
(Allocate s e, WriteCtx m s) =>
MutMsg s -> m e
Classes.new (Call (MutMsg s) -> InMessage (Call (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Call (MutMsg s)
struct))
    (Call (MutMsg s) -> Payload (MutMsg s) -> m ()
forall (m :: * -> *) s.
(RWCtx m s, ToPtr s (Payload (MutMsg s))) =>
Call (MutMsg s) -> Payload (MutMsg s) -> m ()
set_Call'params Call (MutMsg s)
struct Payload (MutMsg s)
result)
    (Payload (MutMsg s) -> m (Payload (MutMsg s))
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure Payload (MutMsg s)
result)
    )
get_Call'sendResultsTo :: ((Untyped.ReadCtx m msg)
                          ,(Classes.FromStruct msg (Call'sendResultsTo msg))) => (Call msg) -> (m (Call'sendResultsTo msg))
get_Call'sendResultsTo :: Call msg -> m (Call'sendResultsTo msg)
get_Call'sendResultsTo (Call'newtype_ Struct msg
struct) = (Struct msg -> m (Call'sendResultsTo msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
get_Call'allowThirdPartyTailCall :: ((Untyped.ReadCtx m msg)) => (Call msg) -> (m Std_.Bool)
get_Call'allowThirdPartyTailCall :: Call msg -> m Bool
get_Call'allowThirdPartyTailCall (Call'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Bool
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
2 Int
0 Word64
0)
set_Call'allowThirdPartyTailCall :: ((Untyped.RWCtx m s)) => (Call (Message.MutMsg s)) -> Std_.Bool -> (m ())
set_Call'allowThirdPartyTailCall :: Call (MutMsg s) -> Bool -> m ()
set_Call'allowThirdPartyTailCall (Call'newtype_ Struct (MutMsg s)
struct) Bool
value = (Struct (MutMsg s) -> Word1 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word1
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Bool -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Bool
value)) :: Std_.Word1) Int
2 Int
0 Word64
0)
newtype Call'sendResultsTo msg
    = Call'sendResultsTo'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Call'sendResultsTo msg)) where
    fromStruct :: Struct msg -> m (Call'sendResultsTo msg)
fromStruct Struct msg
struct = (Call'sendResultsTo msg -> m (Call'sendResultsTo msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Call'sendResultsTo msg
forall msg. Struct msg -> Call'sendResultsTo msg
Call'sendResultsTo'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Call'sendResultsTo msg)) where
    toStruct :: Call'sendResultsTo msg -> Struct msg
toStruct (Call'sendResultsTo'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Call'sendResultsTo msg)) where
    type InMessage (Call'sendResultsTo msg) = msg
    message :: Call'sendResultsTo msg -> InMessage (Call'sendResultsTo msg)
message (Call'sendResultsTo'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Call'sendResultsTo msg)) where
    messageDefault :: InMessage (Call'sendResultsTo msg) -> Call'sendResultsTo msg
messageDefault InMessage (Call'sendResultsTo msg)
msg = (Struct msg -> Call'sendResultsTo msg
forall msg. Struct msg -> Call'sendResultsTo msg
Call'sendResultsTo'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Call'sendResultsTo msg)
msg))
data Call'sendResultsTo' msg
    = Call'sendResultsTo'caller 
    | Call'sendResultsTo'yourself 
    | Call'sendResultsTo'thirdParty (Std_.Maybe (Untyped.Ptr msg))
    | Call'sendResultsTo'unknown' Std_.Word16
instance (Classes.FromStruct msg (Call'sendResultsTo' msg)) where
    fromStruct :: Struct msg -> m (Call'sendResultsTo' msg)
fromStruct Struct msg
struct = (do
        Word16
tag <- (Struct msg -> Int -> m Word16
forall (m :: * -> *) msg.
ReadCtx m msg =>
Struct msg -> Int -> m Word16
GenHelpers.getTag Struct msg
struct Int
3)
        case Word16
tag of
            Word16
0 ->
                (Call'sendResultsTo' msg -> m (Call'sendResultsTo' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure Call'sendResultsTo' msg
forall msg. Call'sendResultsTo' msg
Call'sendResultsTo'caller)
            Word16
1 ->
                (Call'sendResultsTo' msg -> m (Call'sendResultsTo' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure Call'sendResultsTo' msg
forall msg. Call'sendResultsTo' msg
Call'sendResultsTo'yourself)
            Word16
2 ->
                (Maybe (Ptr msg) -> Call'sendResultsTo' msg
forall msg. Maybe (Ptr msg) -> Call'sendResultsTo' msg
Call'sendResultsTo'thirdParty (Maybe (Ptr msg) -> Call'sendResultsTo' msg)
-> m (Maybe (Ptr msg)) -> m (Call'sendResultsTo' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
2 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
_ ->
                (Call'sendResultsTo' msg -> m (Call'sendResultsTo' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Word16 -> Call'sendResultsTo' msg
forall msg. Word16 -> Call'sendResultsTo' msg
Call'sendResultsTo'unknown' (Word16 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)))
        )
get_Call'sendResultsTo' :: ((Untyped.ReadCtx m msg)
                           ,(Classes.FromStruct msg (Call'sendResultsTo' msg))) => (Call'sendResultsTo msg) -> (m (Call'sendResultsTo' msg))
get_Call'sendResultsTo' :: Call'sendResultsTo msg -> m (Call'sendResultsTo' msg)
get_Call'sendResultsTo' (Call'sendResultsTo'newtype_ Struct msg
struct) = (Struct msg -> m (Call'sendResultsTo' msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
set_Call'sendResultsTo'caller :: ((Untyped.RWCtx m s)) => (Call'sendResultsTo (Message.MutMsg s)) -> (m ())
set_Call'sendResultsTo'caller :: Call'sendResultsTo (MutMsg s) -> m ()
set_Call'sendResultsTo'caller (Call'sendResultsTo'newtype_ Struct (MutMsg s)
struct) = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
0 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure ())
    )
set_Call'sendResultsTo'yourself :: ((Untyped.RWCtx m s)) => (Call'sendResultsTo (Message.MutMsg s)) -> (m ())
set_Call'sendResultsTo'yourself :: Call'sendResultsTo (MutMsg s) -> m ()
set_Call'sendResultsTo'yourself (Call'sendResultsTo'newtype_ Struct (MutMsg s)
struct) = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
1 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure ())
    )
set_Call'sendResultsTo'thirdParty :: ((Untyped.RWCtx m s)
                                     ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Call'sendResultsTo (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Call'sendResultsTo'thirdParty :: Call'sendResultsTo (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Call'sendResultsTo'thirdParty (Call'sendResultsTo'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
2 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
2 Struct (MutMsg s)
struct)
        )
    )
set_Call'sendResultsTo'unknown' :: ((Untyped.RWCtx m s)) => (Call'sendResultsTo (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_Call'sendResultsTo'unknown' :: Call'sendResultsTo (MutMsg s) -> Word16 -> m ()
set_Call'sendResultsTo'unknown' (Call'sendResultsTo'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
48 Word64
0)
newtype Return msg
    = Return'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Return msg)) where
    fromStruct :: Struct msg -> m (Return msg)
fromStruct Struct msg
struct = (Return msg -> m (Return msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Return msg
forall msg. Struct msg -> Return msg
Return'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Return msg)) where
    toStruct :: Return msg -> Struct msg
toStruct (Return'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Return msg)) where
    type InMessage (Return msg) = msg
    message :: Return msg -> InMessage (Return msg)
message (Return'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Return msg)) where
    messageDefault :: InMessage (Return msg) -> Return msg
messageDefault InMessage (Return msg)
msg = (Struct msg -> Return msg
forall msg. Struct msg -> Return msg
Return'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Return msg)
msg))
instance (Classes.FromPtr msg (Return msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Return msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Return msg
forall msg. Struct msg -> Return msg
Return'newtype_ (Struct msg -> Return msg) -> m (Struct msg) -> m (Return msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Return (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Return (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Return'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Return (Message.MutMsg s))) where
    new :: MutMsg s -> m (Return (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Return (MutMsg s)
forall msg. Struct msg -> Return msg
Return'newtype_ (Struct (MutMsg s) -> Return (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Return (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
2 Word16
1))
instance (Basics.ListElem msg (Return msg)) where
    newtype List msg (Return msg)
        = Return'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Return msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Return msg)
forall msg. ListOf msg (Struct msg) -> List msg (Return msg)
Return'List_ (ListOf msg (Struct msg) -> List msg (Return msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Return msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Return msg) -> List msg
toUntypedList (Return'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Return msg) -> Int
length (Return'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Return msg) -> m (Return msg)
index Int
i (Return'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Return msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Return (Message.MutMsg s))) where
    setIndex :: Return (MutMsg s)
-> Int -> List (MutMsg s) (Return (MutMsg s)) -> m ()
setIndex (Return'newtype_ Struct (MutMsg s)
elt) Int
i (Return'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Return (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Return (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Return msg)
Return'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Return (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Return (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
2 Word16
1 Int
len))
get_Return'answerId :: ((Untyped.ReadCtx m msg)) => (Return msg) -> (m Std_.Word32)
get_Return'answerId :: Return msg -> m Word32
get_Return'answerId (Return'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Return'answerId :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Return'answerId :: Return (MutMsg s) -> Word32 -> m ()
set_Return'answerId (Return'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_Return'releaseParamCaps :: ((Untyped.ReadCtx m msg)) => (Return msg) -> (m Std_.Bool)
get_Return'releaseParamCaps :: Return msg -> m Bool
get_Return'releaseParamCaps (Return'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Bool
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
1)
set_Return'releaseParamCaps :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> Std_.Bool -> (m ())
set_Return'releaseParamCaps :: Return (MutMsg s) -> Bool -> m ()
set_Return'releaseParamCaps (Return'newtype_ Struct (MutMsg s)
struct) Bool
value = (Struct (MutMsg s) -> Word1 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word1
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Bool -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Bool
value)) :: Std_.Word1) Int
0 Int
32 Word64
1)
data Return' msg
    = Return'results (Payload msg)
    | Return'exception (Exception msg)
    | Return'canceled 
    | Return'resultsSentElsewhere 
    | Return'takeFromOtherQuestion Std_.Word32
    | Return'acceptFromThirdParty (Std_.Maybe (Untyped.Ptr msg))
    | Return'unknown' Std_.Word16
instance (Classes.FromStruct msg (Return' msg)) where
    fromStruct :: Struct msg -> m (Return' msg)
fromStruct Struct msg
struct = (do
        Word16
tag <- (Struct msg -> Int -> m Word16
forall (m :: * -> *) msg.
ReadCtx m msg =>
Struct msg -> Int -> m Word16
GenHelpers.getTag Struct msg
struct Int
3)
        case Word16
tag of
            Word16
0 ->
                (Payload msg -> Return' msg
forall msg. Payload msg -> Return' msg
Return'results (Payload msg -> Return' msg) -> m (Payload msg) -> m (Return' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Payload msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
1 ->
                (Exception msg -> Return' msg
forall msg. Exception msg -> Return' msg
Return'exception (Exception msg -> Return' msg)
-> m (Exception msg) -> m (Return' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Exception msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
2 ->
                (Return' msg -> m (Return' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure Return' msg
forall msg. Return' msg
Return'canceled)
            Word16
3 ->
                (Return' msg -> m (Return' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure Return' msg
forall msg. Return' msg
Return'resultsSentElsewhere)
            Word16
4 ->
                (Word32 -> Return' msg
forall msg. Word32 -> Return' msg
Return'takeFromOtherQuestion (Word32 -> Return' msg) -> m Word32 -> m (Return' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
1 Int
0 Word64
0))
            Word16
5 ->
                (Maybe (Ptr msg) -> Return' msg
forall msg. Maybe (Ptr msg) -> Return' msg
Return'acceptFromThirdParty (Maybe (Ptr msg) -> Return' msg)
-> m (Maybe (Ptr msg)) -> m (Return' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
_ ->
                (Return' msg -> m (Return' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Word16 -> Return' msg
forall msg. Word16 -> Return' msg
Return'unknown' (Word16 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)))
        )
get_Return' :: ((Untyped.ReadCtx m msg)
               ,(Classes.FromStruct msg (Return' msg))) => (Return msg) -> (m (Return' msg))
get_Return' :: Return msg -> m (Return' msg)
get_Return' (Return'newtype_ Struct msg
struct) = (Struct msg -> m (Return' msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
set_Return'results :: ((Untyped.RWCtx m s)
                      ,(Classes.ToPtr s (Payload (Message.MutMsg s)))) => (Return (Message.MutMsg s)) -> (Payload (Message.MutMsg s)) -> (m ())
set_Return'results :: Return (MutMsg s) -> Payload (MutMsg s) -> m ()
set_Return'results (Return'newtype_ Struct (MutMsg s)
struct) Payload (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
0 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Payload (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Payload (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Return'exception :: ((Untyped.RWCtx m s)
                        ,(Classes.ToPtr s (Exception (Message.MutMsg s)))) => (Return (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ())
set_Return'exception :: Return (MutMsg s) -> Exception (MutMsg s) -> m ()
set_Return'exception (Return'newtype_ Struct (MutMsg s)
struct) Exception (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
1 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Exception (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Exception (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Return'canceled :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> (m ())
set_Return'canceled :: Return (MutMsg s) -> m ()
set_Return'canceled (Return'newtype_ Struct (MutMsg s)
struct) = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
2 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure ())
    )
set_Return'resultsSentElsewhere :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> (m ())
set_Return'resultsSentElsewhere :: Return (MutMsg s) -> m ()
set_Return'resultsSentElsewhere (Return'newtype_ Struct (MutMsg s)
struct) = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
3 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure ())
    )
set_Return'takeFromOtherQuestion :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Return'takeFromOtherQuestion :: Return (MutMsg s) -> Word32 -> m ()
set_Return'takeFromOtherQuestion (Return'newtype_ Struct (MutMsg s)
struct) Word32
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
4 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
1 Int
0 Word64
0)
    )
set_Return'acceptFromThirdParty :: ((Untyped.RWCtx m s)
                                   ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Return (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Return'acceptFromThirdParty :: Return (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Return'acceptFromThirdParty (Return'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
5 :: Std_.Word16) Int
0 Int
48 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Return'unknown' :: ((Untyped.RWCtx m s)) => (Return (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_Return'unknown' :: Return (MutMsg s) -> Word16 -> m ()
set_Return'unknown' (Return'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
48 Word64
0)
newtype Finish msg
    = Finish'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Finish msg)) where
    fromStruct :: Struct msg -> m (Finish msg)
fromStruct Struct msg
struct = (Finish msg -> m (Finish msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Finish msg
forall msg. Struct msg -> Finish msg
Finish'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Finish msg)) where
    toStruct :: Finish msg -> Struct msg
toStruct (Finish'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Finish msg)) where
    type InMessage (Finish msg) = msg
    message :: Finish msg -> InMessage (Finish msg)
message (Finish'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Finish msg)) where
    messageDefault :: InMessage (Finish msg) -> Finish msg
messageDefault InMessage (Finish msg)
msg = (Struct msg -> Finish msg
forall msg. Struct msg -> Finish msg
Finish'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Finish msg)
msg))
instance (Classes.FromPtr msg (Finish msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Finish msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Finish msg
forall msg. Struct msg -> Finish msg
Finish'newtype_ (Struct msg -> Finish msg) -> m (Struct msg) -> m (Finish msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Finish (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Finish (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Finish'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Finish (Message.MutMsg s))) where
    new :: MutMsg s -> m (Finish (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Finish (MutMsg s)
forall msg. Struct msg -> Finish msg
Finish'newtype_ (Struct (MutMsg s) -> Finish (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Finish (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
0))
instance (Basics.ListElem msg (Finish msg)) where
    newtype List msg (Finish msg)
        = Finish'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Finish msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Finish msg)
forall msg. ListOf msg (Struct msg) -> List msg (Finish msg)
Finish'List_ (ListOf msg (Struct msg) -> List msg (Finish msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Finish msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Finish msg) -> List msg
toUntypedList (Finish'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Finish msg) -> Int
length (Finish'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Finish msg) -> m (Finish msg)
index Int
i (Finish'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Finish msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Finish (Message.MutMsg s))) where
    setIndex :: Finish (MutMsg s)
-> Int -> List (MutMsg s) (Finish (MutMsg s)) -> m ()
setIndex (Finish'newtype_ Struct (MutMsg s)
elt) Int
i (Finish'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Finish (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Finish (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Finish msg)
Finish'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Finish (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Finish (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
0 Int
len))
get_Finish'questionId :: ((Untyped.ReadCtx m msg)) => (Finish msg) -> (m Std_.Word32)
get_Finish'questionId :: Finish msg -> m Word32
get_Finish'questionId (Finish'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Finish'questionId :: ((Untyped.RWCtx m s)) => (Finish (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Finish'questionId :: Finish (MutMsg s) -> Word32 -> m ()
set_Finish'questionId (Finish'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_Finish'releaseResultCaps :: ((Untyped.ReadCtx m msg)) => (Finish msg) -> (m Std_.Bool)
get_Finish'releaseResultCaps :: Finish msg -> m Bool
get_Finish'releaseResultCaps (Finish'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Bool
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
1)
set_Finish'releaseResultCaps :: ((Untyped.RWCtx m s)) => (Finish (Message.MutMsg s)) -> Std_.Bool -> (m ())
set_Finish'releaseResultCaps :: Finish (MutMsg s) -> Bool -> m ()
set_Finish'releaseResultCaps (Finish'newtype_ Struct (MutMsg s)
struct) Bool
value = (Struct (MutMsg s) -> Word1 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word1
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Bool -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Bool
value)) :: Std_.Word1) Int
0 Int
32 Word64
1)
newtype Resolve msg
    = Resolve'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Resolve msg)) where
    fromStruct :: Struct msg -> m (Resolve msg)
fromStruct Struct msg
struct = (Resolve msg -> m (Resolve msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Resolve msg
forall msg. Struct msg -> Resolve msg
Resolve'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Resolve msg)) where
    toStruct :: Resolve msg -> Struct msg
toStruct (Resolve'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Resolve msg)) where
    type InMessage (Resolve msg) = msg
    message :: Resolve msg -> InMessage (Resolve msg)
message (Resolve'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Resolve msg)) where
    messageDefault :: InMessage (Resolve msg) -> Resolve msg
messageDefault InMessage (Resolve msg)
msg = (Struct msg -> Resolve msg
forall msg. Struct msg -> Resolve msg
Resolve'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Resolve msg)
msg))
instance (Classes.FromPtr msg (Resolve msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Resolve msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Resolve msg
forall msg. Struct msg -> Resolve msg
Resolve'newtype_ (Struct msg -> Resolve msg) -> m (Struct msg) -> m (Resolve msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Resolve (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Resolve (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Resolve'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Resolve (Message.MutMsg s))) where
    new :: MutMsg s -> m (Resolve (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Resolve (MutMsg s)
forall msg. Struct msg -> Resolve msg
Resolve'newtype_ (Struct (MutMsg s) -> Resolve (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Resolve (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (Resolve msg)) where
    newtype List msg (Resolve msg)
        = Resolve'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Resolve msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Resolve msg)
forall msg. ListOf msg (Struct msg) -> List msg (Resolve msg)
Resolve'List_ (ListOf msg (Struct msg) -> List msg (Resolve msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Resolve msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Resolve msg) -> List msg
toUntypedList (Resolve'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Resolve msg) -> Int
length (Resolve'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Resolve msg) -> m (Resolve msg)
index Int
i (Resolve'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Resolve msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Resolve (Message.MutMsg s))) where
    setIndex :: Resolve (MutMsg s)
-> Int -> List (MutMsg s) (Resolve (MutMsg s)) -> m ()
setIndex (Resolve'newtype_ Struct (MutMsg s)
elt) Int
i (Resolve'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Resolve (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Resolve (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Resolve msg)
Resolve'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Resolve (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Resolve (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
get_Resolve'promiseId :: ((Untyped.ReadCtx m msg)) => (Resolve msg) -> (m Std_.Word32)
get_Resolve'promiseId :: Resolve msg -> m Word32
get_Resolve'promiseId (Resolve'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Resolve'promiseId :: ((Untyped.RWCtx m s)) => (Resolve (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Resolve'promiseId :: Resolve (MutMsg s) -> Word32 -> m ()
set_Resolve'promiseId (Resolve'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
data Resolve' msg
    = Resolve'cap (CapDescriptor msg)
    | Resolve'exception (Exception msg)
    | Resolve'unknown' Std_.Word16
instance (Classes.FromStruct msg (Resolve' msg)) where
    fromStruct :: Struct msg -> m (Resolve' msg)
fromStruct Struct msg
struct = (do
        Word16
tag <- (Struct msg -> Int -> m Word16
forall (m :: * -> *) msg.
ReadCtx m msg =>
Struct msg -> Int -> m Word16
GenHelpers.getTag Struct msg
struct Int
2)
        case Word16
tag of
            Word16
0 ->
                (CapDescriptor msg -> Resolve' msg
forall msg. CapDescriptor msg -> Resolve' msg
Resolve'cap (CapDescriptor msg -> Resolve' msg)
-> m (CapDescriptor msg) -> m (Resolve' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (CapDescriptor msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
1 ->
                (Exception msg -> Resolve' msg
forall msg. Exception msg -> Resolve' msg
Resolve'exception (Exception msg -> Resolve' msg)
-> m (Exception msg) -> m (Resolve' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (Exception msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
_ ->
                (Resolve' msg -> m (Resolve' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Word16 -> Resolve' msg
forall msg. Word16 -> Resolve' msg
Resolve'unknown' (Word16 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)))
        )
get_Resolve' :: ((Untyped.ReadCtx m msg)
                ,(Classes.FromStruct msg (Resolve' msg))) => (Resolve msg) -> (m (Resolve' msg))
get_Resolve' :: Resolve msg -> m (Resolve' msg)
get_Resolve' (Resolve'newtype_ Struct msg
struct) = (Struct msg -> m (Resolve' msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
set_Resolve'cap :: ((Untyped.RWCtx m s)
                   ,(Classes.ToPtr s (CapDescriptor (Message.MutMsg s)))) => (Resolve (Message.MutMsg s)) -> (CapDescriptor (Message.MutMsg s)) -> (m ())
set_Resolve'cap :: Resolve (MutMsg s) -> CapDescriptor (MutMsg s) -> m ()
set_Resolve'cap (Resolve'newtype_ Struct (MutMsg s)
struct) CapDescriptor (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
0 :: Std_.Word16) Int
0 Int
32 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> CapDescriptor (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) CapDescriptor (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Resolve'exception :: ((Untyped.RWCtx m s)
                         ,(Classes.ToPtr s (Exception (Message.MutMsg s)))) => (Resolve (Message.MutMsg s)) -> (Exception (Message.MutMsg s)) -> (m ())
set_Resolve'exception :: Resolve (MutMsg s) -> Exception (MutMsg s) -> m ()
set_Resolve'exception (Resolve'newtype_ Struct (MutMsg s)
struct) Exception (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
1 :: Std_.Word16) Int
0 Int
32 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Exception (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Exception (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_Resolve'unknown' :: ((Untyped.RWCtx m s)) => (Resolve (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_Resolve'unknown' :: Resolve (MutMsg s) -> Word16 -> m ()
set_Resolve'unknown' (Resolve'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
32 Word64
0)
newtype Release msg
    = Release'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Release msg)) where
    fromStruct :: Struct msg -> m (Release msg)
fromStruct Struct msg
struct = (Release msg -> m (Release msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Release msg
forall msg. Struct msg -> Release msg
Release'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Release msg)) where
    toStruct :: Release msg -> Struct msg
toStruct (Release'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Release msg)) where
    type InMessage (Release msg) = msg
    message :: Release msg -> InMessage (Release msg)
message (Release'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Release msg)) where
    messageDefault :: InMessage (Release msg) -> Release msg
messageDefault InMessage (Release msg)
msg = (Struct msg -> Release msg
forall msg. Struct msg -> Release msg
Release'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Release msg)
msg))
instance (Classes.FromPtr msg (Release msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Release msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Release msg
forall msg. Struct msg -> Release msg
Release'newtype_ (Struct msg -> Release msg) -> m (Struct msg) -> m (Release msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Release (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Release (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Release'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Release (Message.MutMsg s))) where
    new :: MutMsg s -> m (Release (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Release (MutMsg s)
forall msg. Struct msg -> Release msg
Release'newtype_ (Struct (MutMsg s) -> Release (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Release (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
0))
instance (Basics.ListElem msg (Release msg)) where
    newtype List msg (Release msg)
        = Release'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Release msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Release msg)
forall msg. ListOf msg (Struct msg) -> List msg (Release msg)
Release'List_ (ListOf msg (Struct msg) -> List msg (Release msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Release msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Release msg) -> List msg
toUntypedList (Release'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Release msg) -> Int
length (Release'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Release msg) -> m (Release msg)
index Int
i (Release'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Release msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Release (Message.MutMsg s))) where
    setIndex :: Release (MutMsg s)
-> Int -> List (MutMsg s) (Release (MutMsg s)) -> m ()
setIndex (Release'newtype_ Struct (MutMsg s)
elt) Int
i (Release'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Release (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Release (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Release msg)
Release'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Release (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Release (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
0 Int
len))
get_Release'id :: ((Untyped.ReadCtx m msg)) => (Release msg) -> (m Std_.Word32)
get_Release'id :: Release msg -> m Word32
get_Release'id (Release'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Release'id :: ((Untyped.RWCtx m s)) => (Release (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Release'id :: Release (MutMsg s) -> Word32 -> m ()
set_Release'id (Release'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_Release'referenceCount :: ((Untyped.ReadCtx m msg)) => (Release msg) -> (m Std_.Word32)
get_Release'referenceCount :: Release msg -> m Word32
get_Release'referenceCount (Release'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
0)
set_Release'referenceCount :: ((Untyped.RWCtx m s)) => (Release (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Release'referenceCount :: Release (MutMsg s) -> Word32 -> m ()
set_Release'referenceCount (Release'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
32 Word64
0)
newtype Disembargo msg
    = Disembargo'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Disembargo msg)) where
    fromStruct :: Struct msg -> m (Disembargo msg)
fromStruct Struct msg
struct = (Disembargo msg -> m (Disembargo msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Disembargo msg
forall msg. Struct msg -> Disembargo msg
Disembargo'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Disembargo msg)) where
    toStruct :: Disembargo msg -> Struct msg
toStruct (Disembargo'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Disembargo msg)) where
    type InMessage (Disembargo msg) = msg
    message :: Disembargo msg -> InMessage (Disembargo msg)
message (Disembargo'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Disembargo msg)) where
    messageDefault :: InMessage (Disembargo msg) -> Disembargo msg
messageDefault InMessage (Disembargo msg)
msg = (Struct msg -> Disembargo msg
forall msg. Struct msg -> Disembargo msg
Disembargo'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Disembargo msg)
msg))
instance (Classes.FromPtr msg (Disembargo msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Disembargo msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Disembargo msg
forall msg. Struct msg -> Disembargo msg
Disembargo'newtype_ (Struct msg -> Disembargo msg)
-> m (Struct msg) -> m (Disembargo msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Disembargo (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Disembargo (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Disembargo'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Disembargo (Message.MutMsg s))) where
    new :: MutMsg s -> m (Disembargo (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Disembargo (MutMsg s)
forall msg. Struct msg -> Disembargo msg
Disembargo'newtype_ (Struct (MutMsg s) -> Disembargo (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Disembargo (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (Disembargo msg)) where
    newtype List msg (Disembargo msg)
        = Disembargo'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Disembargo msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Disembargo msg)
forall msg. ListOf msg (Struct msg) -> List msg (Disembargo msg)
Disembargo'List_ (ListOf msg (Struct msg) -> List msg (Disembargo msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Disembargo msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Disembargo msg) -> List msg
toUntypedList (Disembargo'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Disembargo msg) -> Int
length (Disembargo'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Disembargo msg) -> m (Disembargo msg)
index Int
i (Disembargo'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Disembargo msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Disembargo (Message.MutMsg s))) where
    setIndex :: Disembargo (MutMsg s)
-> Int -> List (MutMsg s) (Disembargo (MutMsg s)) -> m ()
setIndex (Disembargo'newtype_ Struct (MutMsg s)
elt) Int
i (Disembargo'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Disembargo (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Disembargo (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Disembargo msg)
Disembargo'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Disembargo (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Disembargo (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
get_Disembargo'target :: ((Untyped.ReadCtx m msg)
                         ,(Classes.FromPtr msg (MessageTarget msg))) => (Disembargo msg) -> (m (MessageTarget msg))
get_Disembargo'target :: Disembargo msg -> m (MessageTarget msg)
get_Disembargo'target (Disembargo'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (MessageTarget msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Disembargo'target :: ((Untyped.RWCtx m s)
                         ,(Classes.ToPtr s (MessageTarget (Message.MutMsg s)))) => (Disembargo (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ())
set_Disembargo'target :: Disembargo (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
set_Disembargo'target (Disembargo'newtype_ Struct (MutMsg s)
struct) MessageTarget (MutMsg s)
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> MessageTarget (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) MessageTarget (MutMsg s)
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_Disembargo'target :: ((Untyped.ReadCtx m msg)) => (Disembargo msg) -> (m Std_.Bool)
has_Disembargo'target :: Disembargo msg -> m Bool
has_Disembargo'target (Disembargo'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
new_Disembargo'target :: ((Untyped.RWCtx m s)) => (Disembargo (Message.MutMsg s)) -> (m (MessageTarget (Message.MutMsg s)))
new_Disembargo'target :: Disembargo (MutMsg s) -> m (MessageTarget (MutMsg s))
new_Disembargo'target Disembargo (MutMsg s)
struct = (do
    MessageTarget (MutMsg s)
result <- (MutMsg s -> m (MessageTarget (MutMsg s))
forall s e (m :: * -> *).
(Allocate s e, WriteCtx m s) =>
MutMsg s -> m e
Classes.new (Disembargo (MutMsg s) -> InMessage (Disembargo (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Disembargo (MutMsg s)
struct))
    (Disembargo (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
forall (m :: * -> *) s.
(RWCtx m s, ToPtr s (MessageTarget (MutMsg s))) =>
Disembargo (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
set_Disembargo'target Disembargo (MutMsg s)
struct MessageTarget (MutMsg s)
result)
    (MessageTarget (MutMsg s) -> m (MessageTarget (MutMsg s))
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure MessageTarget (MutMsg s)
result)
    )
get_Disembargo'context :: ((Untyped.ReadCtx m msg)
                          ,(Classes.FromStruct msg (Disembargo'context msg))) => (Disembargo msg) -> (m (Disembargo'context msg))
get_Disembargo'context :: Disembargo msg -> m (Disembargo'context msg)
get_Disembargo'context (Disembargo'newtype_ Struct msg
struct) = (Struct msg -> m (Disembargo'context msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
newtype Disembargo'context msg
    = Disembargo'context'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Disembargo'context msg)) where
    fromStruct :: Struct msg -> m (Disembargo'context msg)
fromStruct Struct msg
struct = (Disembargo'context msg -> m (Disembargo'context msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Disembargo'context msg
forall msg. Struct msg -> Disembargo'context msg
Disembargo'context'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Disembargo'context msg)) where
    toStruct :: Disembargo'context msg -> Struct msg
toStruct (Disembargo'context'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Disembargo'context msg)) where
    type InMessage (Disembargo'context msg) = msg
    message :: Disembargo'context msg -> InMessage (Disembargo'context msg)
message (Disembargo'context'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Disembargo'context msg)) where
    messageDefault :: InMessage (Disembargo'context msg) -> Disembargo'context msg
messageDefault InMessage (Disembargo'context msg)
msg = (Struct msg -> Disembargo'context msg
forall msg. Struct msg -> Disembargo'context msg
Disembargo'context'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Disembargo'context msg)
msg))
data Disembargo'context' msg
    = Disembargo'context'senderLoopback Std_.Word32
    | Disembargo'context'receiverLoopback Std_.Word32
    | Disembargo'context'accept 
    | Disembargo'context'provide Std_.Word32
    | Disembargo'context'unknown' Std_.Word16
instance (Classes.FromStruct msg (Disembargo'context' msg)) where
    fromStruct :: Struct msg -> m (Disembargo'context' msg)
fromStruct Struct msg
struct = (do
        Word16
tag <- (Struct msg -> Int -> m Word16
forall (m :: * -> *) msg.
ReadCtx m msg =>
Struct msg -> Int -> m Word16
GenHelpers.getTag Struct msg
struct Int
2)
        case Word16
tag of
            Word16
0 ->
                (Word32 -> Disembargo'context' msg
forall msg. Word32 -> Disembargo'context' msg
Disembargo'context'senderLoopback (Word32 -> Disembargo'context' msg)
-> m Word32 -> m (Disembargo'context' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0))
            Word16
1 ->
                (Word32 -> Disembargo'context' msg
forall msg. Word32 -> Disembargo'context' msg
Disembargo'context'receiverLoopback (Word32 -> Disembargo'context' msg)
-> m Word32 -> m (Disembargo'context' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0))
            Word16
2 ->
                (Disembargo'context' msg -> m (Disembargo'context' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure Disembargo'context' msg
forall msg. Disembargo'context' msg
Disembargo'context'accept)
            Word16
3 ->
                (Word32 -> Disembargo'context' msg
forall msg. Word32 -> Disembargo'context' msg
Disembargo'context'provide (Word32 -> Disembargo'context' msg)
-> m Word32 -> m (Disembargo'context' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0))
            Word16
_ ->
                (Disembargo'context' msg -> m (Disembargo'context' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Word16 -> Disembargo'context' msg
forall msg. Word16 -> Disembargo'context' msg
Disembargo'context'unknown' (Word16 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)))
        )
get_Disembargo'context' :: ((Untyped.ReadCtx m msg)
                           ,(Classes.FromStruct msg (Disembargo'context' msg))) => (Disembargo'context msg) -> (m (Disembargo'context' msg))
get_Disembargo'context' :: Disembargo'context msg -> m (Disembargo'context' msg)
get_Disembargo'context' (Disembargo'context'newtype_ Struct msg
struct) = (Struct msg -> m (Disembargo'context' msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
set_Disembargo'context'senderLoopback :: ((Untyped.RWCtx m s)) => (Disembargo'context (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Disembargo'context'senderLoopback :: Disembargo'context (MutMsg s) -> Word32 -> m ()
set_Disembargo'context'senderLoopback (Disembargo'context'newtype_ Struct (MutMsg s)
struct) Word32
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
0 :: Std_.Word16) Int
0 Int
32 Word64
0)
    (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
    )
set_Disembargo'context'receiverLoopback :: ((Untyped.RWCtx m s)) => (Disembargo'context (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Disembargo'context'receiverLoopback :: Disembargo'context (MutMsg s) -> Word32 -> m ()
set_Disembargo'context'receiverLoopback (Disembargo'context'newtype_ Struct (MutMsg s)
struct) Word32
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
1 :: Std_.Word16) Int
0 Int
32 Word64
0)
    (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
    )
set_Disembargo'context'accept :: ((Untyped.RWCtx m s)) => (Disembargo'context (Message.MutMsg s)) -> (m ())
set_Disembargo'context'accept :: Disembargo'context (MutMsg s) -> m ()
set_Disembargo'context'accept (Disembargo'context'newtype_ Struct (MutMsg s)
struct) = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
2 :: Std_.Word16) Int
0 Int
32 Word64
0)
    (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure ())
    )
set_Disembargo'context'provide :: ((Untyped.RWCtx m s)) => (Disembargo'context (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Disembargo'context'provide :: Disembargo'context (MutMsg s) -> Word32 -> m ()
set_Disembargo'context'provide (Disembargo'context'newtype_ Struct (MutMsg s)
struct) Word32
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
3 :: Std_.Word16) Int
0 Int
32 Word64
0)
    (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
    )
set_Disembargo'context'unknown' :: ((Untyped.RWCtx m s)) => (Disembargo'context (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_Disembargo'context'unknown' :: Disembargo'context (MutMsg s) -> Word16 -> m ()
set_Disembargo'context'unknown' (Disembargo'context'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
32 Word64
0)
newtype Provide msg
    = Provide'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Provide msg)) where
    fromStruct :: Struct msg -> m (Provide msg)
fromStruct Struct msg
struct = (Provide msg -> m (Provide msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Provide msg
forall msg. Struct msg -> Provide msg
Provide'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Provide msg)) where
    toStruct :: Provide msg -> Struct msg
toStruct (Provide'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Provide msg)) where
    type InMessage (Provide msg) = msg
    message :: Provide msg -> InMessage (Provide msg)
message (Provide'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Provide msg)) where
    messageDefault :: InMessage (Provide msg) -> Provide msg
messageDefault InMessage (Provide msg)
msg = (Struct msg -> Provide msg
forall msg. Struct msg -> Provide msg
Provide'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Provide msg)
msg))
instance (Classes.FromPtr msg (Provide msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Provide msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Provide msg
forall msg. Struct msg -> Provide msg
Provide'newtype_ (Struct msg -> Provide msg) -> m (Struct msg) -> m (Provide msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Provide (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Provide (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Provide'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Provide (Message.MutMsg s))) where
    new :: MutMsg s -> m (Provide (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Provide (MutMsg s)
forall msg. Struct msg -> Provide msg
Provide'newtype_ (Struct (MutMsg s) -> Provide (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Provide (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
2))
instance (Basics.ListElem msg (Provide msg)) where
    newtype List msg (Provide msg)
        = Provide'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Provide msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Provide msg)
forall msg. ListOf msg (Struct msg) -> List msg (Provide msg)
Provide'List_ (ListOf msg (Struct msg) -> List msg (Provide msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Provide msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Provide msg) -> List msg
toUntypedList (Provide'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Provide msg) -> Int
length (Provide'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Provide msg) -> m (Provide msg)
index Int
i (Provide'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Provide msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Provide (Message.MutMsg s))) where
    setIndex :: Provide (MutMsg s)
-> Int -> List (MutMsg s) (Provide (MutMsg s)) -> m ()
setIndex (Provide'newtype_ Struct (MutMsg s)
elt) Int
i (Provide'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Provide (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Provide (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Provide msg)
Provide'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Provide (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Provide (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
2 Int
len))
get_Provide'questionId :: ((Untyped.ReadCtx m msg)) => (Provide msg) -> (m Std_.Word32)
get_Provide'questionId :: Provide msg -> m Word32
get_Provide'questionId (Provide'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Provide'questionId :: ((Untyped.RWCtx m s)) => (Provide (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Provide'questionId :: Provide (MutMsg s) -> Word32 -> m ()
set_Provide'questionId (Provide'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_Provide'target :: ((Untyped.ReadCtx m msg)
                      ,(Classes.FromPtr msg (MessageTarget msg))) => (Provide msg) -> (m (MessageTarget msg))
get_Provide'target :: Provide msg -> m (MessageTarget msg)
get_Provide'target (Provide'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (MessageTarget msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Provide'target :: ((Untyped.RWCtx m s)
                      ,(Classes.ToPtr s (MessageTarget (Message.MutMsg s)))) => (Provide (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ())
set_Provide'target :: Provide (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
set_Provide'target (Provide'newtype_ Struct (MutMsg s)
struct) MessageTarget (MutMsg s)
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> MessageTarget (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) MessageTarget (MutMsg s)
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_Provide'target :: ((Untyped.ReadCtx m msg)) => (Provide msg) -> (m Std_.Bool)
has_Provide'target :: Provide msg -> m Bool
has_Provide'target (Provide'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
new_Provide'target :: ((Untyped.RWCtx m s)) => (Provide (Message.MutMsg s)) -> (m (MessageTarget (Message.MutMsg s)))
new_Provide'target :: Provide (MutMsg s) -> m (MessageTarget (MutMsg s))
new_Provide'target Provide (MutMsg s)
struct = (do
    MessageTarget (MutMsg s)
result <- (MutMsg s -> m (MessageTarget (MutMsg s))
forall s e (m :: * -> *).
(Allocate s e, WriteCtx m s) =>
MutMsg s -> m e
Classes.new (Provide (MutMsg s) -> InMessage (Provide (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Provide (MutMsg s)
struct))
    (Provide (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
forall (m :: * -> *) s.
(RWCtx m s, ToPtr s (MessageTarget (MutMsg s))) =>
Provide (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
set_Provide'target Provide (MutMsg s)
struct MessageTarget (MutMsg s)
result)
    (MessageTarget (MutMsg s) -> m (MessageTarget (MutMsg s))
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure MessageTarget (MutMsg s)
result)
    )
get_Provide'recipient :: ((Untyped.ReadCtx m msg)
                         ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Provide msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))
get_Provide'recipient :: Provide msg -> m (Maybe (Ptr msg))
get_Provide'recipient (Provide'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
1 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Provide'recipient :: ((Untyped.RWCtx m s)
                         ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Provide (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Provide'recipient :: Provide (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Provide'recipient (Provide'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
1 Struct (MutMsg s)
struct)
    )
has_Provide'recipient :: ((Untyped.ReadCtx m msg)) => (Provide msg) -> (m Std_.Bool)
has_Provide'recipient :: Provide msg -> m Bool
has_Provide'recipient (Provide'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
1 Struct msg
struct))
newtype Accept msg
    = Accept'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Accept msg)) where
    fromStruct :: Struct msg -> m (Accept msg)
fromStruct Struct msg
struct = (Accept msg -> m (Accept msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Accept msg
forall msg. Struct msg -> Accept msg
Accept'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Accept msg)) where
    toStruct :: Accept msg -> Struct msg
toStruct (Accept'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Accept msg)) where
    type InMessage (Accept msg) = msg
    message :: Accept msg -> InMessage (Accept msg)
message (Accept'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Accept msg)) where
    messageDefault :: InMessage (Accept msg) -> Accept msg
messageDefault InMessage (Accept msg)
msg = (Struct msg -> Accept msg
forall msg. Struct msg -> Accept msg
Accept'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Accept msg)
msg))
instance (Classes.FromPtr msg (Accept msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Accept msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Accept msg
forall msg. Struct msg -> Accept msg
Accept'newtype_ (Struct msg -> Accept msg) -> m (Struct msg) -> m (Accept msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Accept (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Accept (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Accept'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Accept (Message.MutMsg s))) where
    new :: MutMsg s -> m (Accept (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Accept (MutMsg s)
forall msg. Struct msg -> Accept msg
Accept'newtype_ (Struct (MutMsg s) -> Accept (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Accept (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (Accept msg)) where
    newtype List msg (Accept msg)
        = Accept'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Accept msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Accept msg)
forall msg. ListOf msg (Struct msg) -> List msg (Accept msg)
Accept'List_ (ListOf msg (Struct msg) -> List msg (Accept msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Accept msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Accept msg) -> List msg
toUntypedList (Accept'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Accept msg) -> Int
length (Accept'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Accept msg) -> m (Accept msg)
index Int
i (Accept'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Accept msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Accept (Message.MutMsg s))) where
    setIndex :: Accept (MutMsg s)
-> Int -> List (MutMsg s) (Accept (MutMsg s)) -> m ()
setIndex (Accept'newtype_ Struct (MutMsg s)
elt) Int
i (Accept'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Accept (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Accept (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Accept msg)
Accept'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Accept (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Accept (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
get_Accept'questionId :: ((Untyped.ReadCtx m msg)) => (Accept msg) -> (m Std_.Word32)
get_Accept'questionId :: Accept msg -> m Word32
get_Accept'questionId (Accept'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Accept'questionId :: ((Untyped.RWCtx m s)) => (Accept (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Accept'questionId :: Accept (MutMsg s) -> Word32 -> m ()
set_Accept'questionId (Accept'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_Accept'provision :: ((Untyped.ReadCtx m msg)
                        ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Accept msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))
get_Accept'provision :: Accept msg -> m (Maybe (Ptr msg))
get_Accept'provision (Accept'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Accept'provision :: ((Untyped.RWCtx m s)
                        ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Accept (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Accept'provision :: Accept (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Accept'provision (Accept'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_Accept'provision :: ((Untyped.ReadCtx m msg)) => (Accept msg) -> (m Std_.Bool)
has_Accept'provision :: Accept msg -> m Bool
has_Accept'provision (Accept'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
get_Accept'embargo :: ((Untyped.ReadCtx m msg)) => (Accept msg) -> (m Std_.Bool)
get_Accept'embargo :: Accept msg -> m Bool
get_Accept'embargo (Accept'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Bool
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
0)
set_Accept'embargo :: ((Untyped.RWCtx m s)) => (Accept (Message.MutMsg s)) -> Std_.Bool -> (m ())
set_Accept'embargo :: Accept (MutMsg s) -> Bool -> m ()
set_Accept'embargo (Accept'newtype_ Struct (MutMsg s)
struct) Bool
value = (Struct (MutMsg s) -> Word1 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word1
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Bool -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Bool
value)) :: Std_.Word1) Int
0 Int
32 Word64
0)
newtype Join msg
    = Join'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Join msg)) where
    fromStruct :: Struct msg -> m (Join msg)
fromStruct Struct msg
struct = (Join msg -> m (Join msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Join msg
forall msg. Struct msg -> Join msg
Join'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Join msg)) where
    toStruct :: Join msg -> Struct msg
toStruct (Join'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Join msg)) where
    type InMessage (Join msg) = msg
    message :: Join msg -> InMessage (Join msg)
message (Join'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Join msg)) where
    messageDefault :: InMessage (Join msg) -> Join msg
messageDefault InMessage (Join msg)
msg = (Struct msg -> Join msg
forall msg. Struct msg -> Join msg
Join'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Join msg)
msg))
instance (Classes.FromPtr msg (Join msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Join msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Join msg
forall msg. Struct msg -> Join msg
Join'newtype_ (Struct msg -> Join msg) -> m (Struct msg) -> m (Join msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Join (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Join (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Join'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Join (Message.MutMsg s))) where
    new :: MutMsg s -> m (Join (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Join (MutMsg s)
forall msg. Struct msg -> Join msg
Join'newtype_ (Struct (MutMsg s) -> Join (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Join (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
2))
instance (Basics.ListElem msg (Join msg)) where
    newtype List msg (Join msg)
        = Join'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Join msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Join msg)
forall msg. ListOf msg (Struct msg) -> List msg (Join msg)
Join'List_ (ListOf msg (Struct msg) -> List msg (Join msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Join msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Join msg) -> List msg
toUntypedList (Join'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Join msg) -> Int
length (Join'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Join msg) -> m (Join msg)
index Int
i (Join'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Join msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Join (Message.MutMsg s))) where
    setIndex :: Join (MutMsg s) -> Int -> List (MutMsg s) (Join (MutMsg s)) -> m ()
setIndex (Join'newtype_ Struct (MutMsg s)
elt) Int
i (Join'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Join (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Join (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Join msg)
Join'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Join (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Join (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
2 Int
len))
get_Join'questionId :: ((Untyped.ReadCtx m msg)) => (Join msg) -> (m Std_.Word32)
get_Join'questionId :: Join msg -> m Word32
get_Join'questionId (Join'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Join'questionId :: ((Untyped.RWCtx m s)) => (Join (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_Join'questionId :: Join (MutMsg s) -> Word32 -> m ()
set_Join'questionId (Join'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_Join'target :: ((Untyped.ReadCtx m msg)
                   ,(Classes.FromPtr msg (MessageTarget msg))) => (Join msg) -> (m (MessageTarget msg))
get_Join'target :: Join msg -> m (MessageTarget msg)
get_Join'target (Join'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (MessageTarget msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Join'target :: ((Untyped.RWCtx m s)
                   ,(Classes.ToPtr s (MessageTarget (Message.MutMsg s)))) => (Join (Message.MutMsg s)) -> (MessageTarget (Message.MutMsg s)) -> (m ())
set_Join'target :: Join (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
set_Join'target (Join'newtype_ Struct (MutMsg s)
struct) MessageTarget (MutMsg s)
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> MessageTarget (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) MessageTarget (MutMsg s)
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_Join'target :: ((Untyped.ReadCtx m msg)) => (Join msg) -> (m Std_.Bool)
has_Join'target :: Join msg -> m Bool
has_Join'target (Join'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
new_Join'target :: ((Untyped.RWCtx m s)) => (Join (Message.MutMsg s)) -> (m (MessageTarget (Message.MutMsg s)))
new_Join'target :: Join (MutMsg s) -> m (MessageTarget (MutMsg s))
new_Join'target Join (MutMsg s)
struct = (do
    MessageTarget (MutMsg s)
result <- (MutMsg s -> m (MessageTarget (MutMsg s))
forall s e (m :: * -> *).
(Allocate s e, WriteCtx m s) =>
MutMsg s -> m e
Classes.new (Join (MutMsg s) -> InMessage (Join (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Join (MutMsg s)
struct))
    (Join (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
forall (m :: * -> *) s.
(RWCtx m s, ToPtr s (MessageTarget (MutMsg s))) =>
Join (MutMsg s) -> MessageTarget (MutMsg s) -> m ()
set_Join'target Join (MutMsg s)
struct MessageTarget (MutMsg s)
result)
    (MessageTarget (MutMsg s) -> m (MessageTarget (MutMsg s))
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure MessageTarget (MutMsg s)
result)
    )
get_Join'keyPart :: ((Untyped.ReadCtx m msg)
                    ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Join msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))
get_Join'keyPart :: Join msg -> m (Maybe (Ptr msg))
get_Join'keyPart (Join'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
1 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Join'keyPart :: ((Untyped.RWCtx m s)
                    ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Join (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Join'keyPart :: Join (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Join'keyPart (Join'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
1 Struct (MutMsg s)
struct)
    )
has_Join'keyPart :: ((Untyped.ReadCtx m msg)) => (Join msg) -> (m Std_.Bool)
has_Join'keyPart :: Join msg -> m Bool
has_Join'keyPart (Join'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
1 Struct msg
struct))
newtype MessageTarget msg
    = MessageTarget'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (MessageTarget msg)) where
    fromStruct :: Struct msg -> m (MessageTarget msg)
fromStruct Struct msg
struct = (MessageTarget msg -> m (MessageTarget msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> MessageTarget msg
forall msg. Struct msg -> MessageTarget msg
MessageTarget'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (MessageTarget msg)) where
    toStruct :: MessageTarget msg -> Struct msg
toStruct (MessageTarget'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (MessageTarget msg)) where
    type InMessage (MessageTarget msg) = msg
    message :: MessageTarget msg -> InMessage (MessageTarget msg)
message (MessageTarget'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (MessageTarget msg)) where
    messageDefault :: InMessage (MessageTarget msg) -> MessageTarget msg
messageDefault InMessage (MessageTarget msg)
msg = (Struct msg -> MessageTarget msg
forall msg. Struct msg -> MessageTarget msg
MessageTarget'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (MessageTarget msg)
msg))
instance (Classes.FromPtr msg (MessageTarget msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (MessageTarget msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> MessageTarget msg
forall msg. Struct msg -> MessageTarget msg
MessageTarget'newtype_ (Struct msg -> MessageTarget msg)
-> m (Struct msg) -> m (MessageTarget msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (MessageTarget (Message.MutMsg s))) where
    toPtr :: MutMsg s -> MessageTarget (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (MessageTarget'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (MessageTarget (Message.MutMsg s))) where
    new :: MutMsg s -> m (MessageTarget (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> MessageTarget (MutMsg s)
forall msg. Struct msg -> MessageTarget msg
MessageTarget'newtype_ (Struct (MutMsg s) -> MessageTarget (MutMsg s))
-> m (Struct (MutMsg s)) -> m (MessageTarget (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (MessageTarget msg)) where
    newtype List msg (MessageTarget msg)
        = MessageTarget'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (MessageTarget msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (MessageTarget msg)
forall msg. ListOf msg (Struct msg) -> List msg (MessageTarget msg)
MessageTarget'List_ (ListOf msg (Struct msg) -> List msg (MessageTarget msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (MessageTarget msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (MessageTarget msg) -> List msg
toUntypedList (MessageTarget'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (MessageTarget msg) -> Int
length (MessageTarget'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (MessageTarget msg) -> m (MessageTarget msg)
index Int
i (MessageTarget'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (MessageTarget msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (MessageTarget (Message.MutMsg s))) where
    setIndex :: MessageTarget (MutMsg s)
-> Int -> List (MutMsg s) (MessageTarget (MutMsg s)) -> m ()
setIndex (MessageTarget'newtype_ Struct (MutMsg s)
elt) Int
i (MessageTarget'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (MessageTarget (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (MessageTarget (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (MessageTarget msg)
MessageTarget'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (MessageTarget (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (MessageTarget (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
data MessageTarget' msg
    = MessageTarget'importedCap Std_.Word32
    | MessageTarget'promisedAnswer (PromisedAnswer msg)
    | MessageTarget'unknown' Std_.Word16
instance (Classes.FromStruct msg (MessageTarget' msg)) where
    fromStruct :: Struct msg -> m (MessageTarget' msg)
fromStruct Struct msg
struct = (do
        Word16
tag <- (Struct msg -> Int -> m Word16
forall (m :: * -> *) msg.
ReadCtx m msg =>
Struct msg -> Int -> m Word16
GenHelpers.getTag Struct msg
struct Int
2)
        case Word16
tag of
            Word16
0 ->
                (Word32 -> MessageTarget' msg
forall msg. Word32 -> MessageTarget' msg
MessageTarget'importedCap (Word32 -> MessageTarget' msg)
-> m Word32 -> m (MessageTarget' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0))
            Word16
1 ->
                (PromisedAnswer msg -> MessageTarget' msg
forall msg. PromisedAnswer msg -> MessageTarget' msg
MessageTarget'promisedAnswer (PromisedAnswer msg -> MessageTarget' msg)
-> m (PromisedAnswer msg) -> m (MessageTarget' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (PromisedAnswer msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
_ ->
                (MessageTarget' msg -> m (MessageTarget' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Word16 -> MessageTarget' msg
forall msg. Word16 -> MessageTarget' msg
MessageTarget'unknown' (Word16 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)))
        )
get_MessageTarget' :: ((Untyped.ReadCtx m msg)
                      ,(Classes.FromStruct msg (MessageTarget' msg))) => (MessageTarget msg) -> (m (MessageTarget' msg))
get_MessageTarget' :: MessageTarget msg -> m (MessageTarget' msg)
get_MessageTarget' (MessageTarget'newtype_ Struct msg
struct) = (Struct msg -> m (MessageTarget' msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
set_MessageTarget'importedCap :: ((Untyped.RWCtx m s)) => (MessageTarget (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_MessageTarget'importedCap :: MessageTarget (MutMsg s) -> Word32 -> m ()
set_MessageTarget'importedCap (MessageTarget'newtype_ Struct (MutMsg s)
struct) Word32
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
0 :: Std_.Word16) Int
0 Int
32 Word64
0)
    (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
    )
set_MessageTarget'promisedAnswer :: ((Untyped.RWCtx m s)
                                    ,(Classes.ToPtr s (PromisedAnswer (Message.MutMsg s)))) => (MessageTarget (Message.MutMsg s)) -> (PromisedAnswer (Message.MutMsg s)) -> (m ())
set_MessageTarget'promisedAnswer :: MessageTarget (MutMsg s) -> PromisedAnswer (MutMsg s) -> m ()
set_MessageTarget'promisedAnswer (MessageTarget'newtype_ Struct (MutMsg s)
struct) PromisedAnswer (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
1 :: Std_.Word16) Int
0 Int
32 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> PromisedAnswer (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) PromisedAnswer (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_MessageTarget'unknown' :: ((Untyped.RWCtx m s)) => (MessageTarget (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_MessageTarget'unknown' :: MessageTarget (MutMsg s) -> Word16 -> m ()
set_MessageTarget'unknown' (MessageTarget'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
32 Word64
0)
newtype Payload msg
    = Payload'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Payload msg)) where
    fromStruct :: Struct msg -> m (Payload msg)
fromStruct Struct msg
struct = (Payload msg -> m (Payload msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Payload msg
forall msg. Struct msg -> Payload msg
Payload'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Payload msg)) where
    toStruct :: Payload msg -> Struct msg
toStruct (Payload'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Payload msg)) where
    type InMessage (Payload msg) = msg
    message :: Payload msg -> InMessage (Payload msg)
message (Payload'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Payload msg)) where
    messageDefault :: InMessage (Payload msg) -> Payload msg
messageDefault InMessage (Payload msg)
msg = (Struct msg -> Payload msg
forall msg. Struct msg -> Payload msg
Payload'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Payload msg)
msg))
instance (Classes.FromPtr msg (Payload msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Payload msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Payload msg
forall msg. Struct msg -> Payload msg
Payload'newtype_ (Struct msg -> Payload msg) -> m (Struct msg) -> m (Payload msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Payload (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Payload (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Payload'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Payload (Message.MutMsg s))) where
    new :: MutMsg s -> m (Payload (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Payload (MutMsg s)
forall msg. Struct msg -> Payload msg
Payload'newtype_ (Struct (MutMsg s) -> Payload (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Payload (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
0 Word16
2))
instance (Basics.ListElem msg (Payload msg)) where
    newtype List msg (Payload msg)
        = Payload'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Payload msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Payload msg)
forall msg. ListOf msg (Struct msg) -> List msg (Payload msg)
Payload'List_ (ListOf msg (Struct msg) -> List msg (Payload msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Payload msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Payload msg) -> List msg
toUntypedList (Payload'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Payload msg) -> Int
length (Payload'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Payload msg) -> m (Payload msg)
index Int
i (Payload'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Payload msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Payload (Message.MutMsg s))) where
    setIndex :: Payload (MutMsg s)
-> Int -> List (MutMsg s) (Payload (MutMsg s)) -> m ()
setIndex (Payload'newtype_ Struct (MutMsg s)
elt) Int
i (Payload'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Payload (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Payload (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Payload msg)
Payload'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Payload (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Payload (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
0 Word16
2 Int
len))
get_Payload'content :: ((Untyped.ReadCtx m msg)
                       ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (Payload msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))
get_Payload'content :: Payload msg -> m (Maybe (Ptr msg))
get_Payload'content (Payload'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Payload'content :: ((Untyped.RWCtx m s)
                       ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (Payload (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_Payload'content :: Payload (MutMsg s) -> Maybe (Ptr (MutMsg s)) -> m ()
set_Payload'content (Payload'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_Payload'content :: ((Untyped.ReadCtx m msg)) => (Payload msg) -> (m Std_.Bool)
has_Payload'content :: Payload msg -> m Bool
has_Payload'content (Payload'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
get_Payload'capTable :: ((Untyped.ReadCtx m msg)
                        ,(Classes.FromPtr msg (Basics.List msg (CapDescriptor msg)))) => (Payload msg) -> (m (Basics.List msg (CapDescriptor msg)))
get_Payload'capTable :: Payload msg -> m (List msg (CapDescriptor msg))
get_Payload'capTable (Payload'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
1 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (List msg (CapDescriptor msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Payload'capTable :: ((Untyped.RWCtx m s)
                        ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) (CapDescriptor (Message.MutMsg s))))) => (Payload (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (CapDescriptor (Message.MutMsg s))) -> (m ())
set_Payload'capTable :: Payload (MutMsg s)
-> List (MutMsg s) (CapDescriptor (MutMsg s)) -> m ()
set_Payload'capTable (Payload'newtype_ Struct (MutMsg s)
struct) List (MutMsg s) (CapDescriptor (MutMsg s))
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s
-> List (MutMsg s) (CapDescriptor (MutMsg s))
-> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) List (MutMsg s) (CapDescriptor (MutMsg s))
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
1 Struct (MutMsg s)
struct)
    )
has_Payload'capTable :: ((Untyped.ReadCtx m msg)) => (Payload msg) -> (m Std_.Bool)
has_Payload'capTable :: Payload msg -> m Bool
has_Payload'capTable (Payload'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
1 Struct msg
struct))
new_Payload'capTable :: ((Untyped.RWCtx m s)) => Std_.Int -> (Payload (Message.MutMsg s)) -> (m (Basics.List (Message.MutMsg s) (CapDescriptor (Message.MutMsg s))))
new_Payload'capTable :: Int
-> Payload (MutMsg s)
-> m (List (MutMsg s) (CapDescriptor (MutMsg s)))
new_Payload'capTable Int
len Payload (MutMsg s)
struct = (do
    List (MutMsg s) (CapDescriptor (MutMsg s))
result <- (MutMsg s -> Int -> m (List (MutMsg s) (CapDescriptor (MutMsg s)))
forall s e (m :: * -> *).
(MutListElem s e, WriteCtx m s) =>
MutMsg s -> Int -> m (List (MutMsg s) e)
Classes.newList (Payload (MutMsg s) -> InMessage (Payload (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Payload (MutMsg s)
struct) Int
len)
    (Payload (MutMsg s)
-> List (MutMsg s) (CapDescriptor (MutMsg s)) -> m ()
forall (m :: * -> *) s.
(RWCtx m s,
 ToPtr s (List (MutMsg s) (CapDescriptor (MutMsg s)))) =>
Payload (MutMsg s)
-> List (MutMsg s) (CapDescriptor (MutMsg s)) -> m ()
set_Payload'capTable Payload (MutMsg s)
struct List (MutMsg s) (CapDescriptor (MutMsg s))
result)
    (List (MutMsg s) (CapDescriptor (MutMsg s))
-> m (List (MutMsg s) (CapDescriptor (MutMsg s)))
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure List (MutMsg s) (CapDescriptor (MutMsg s))
result)
    )
newtype CapDescriptor msg
    = CapDescriptor'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (CapDescriptor msg)) where
    fromStruct :: Struct msg -> m (CapDescriptor msg)
fromStruct Struct msg
struct = (CapDescriptor msg -> m (CapDescriptor msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> CapDescriptor msg
forall msg. Struct msg -> CapDescriptor msg
CapDescriptor'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (CapDescriptor msg)) where
    toStruct :: CapDescriptor msg -> Struct msg
toStruct (CapDescriptor'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (CapDescriptor msg)) where
    type InMessage (CapDescriptor msg) = msg
    message :: CapDescriptor msg -> InMessage (CapDescriptor msg)
message (CapDescriptor'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (CapDescriptor msg)) where
    messageDefault :: InMessage (CapDescriptor msg) -> CapDescriptor msg
messageDefault InMessage (CapDescriptor msg)
msg = (Struct msg -> CapDescriptor msg
forall msg. Struct msg -> CapDescriptor msg
CapDescriptor'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (CapDescriptor msg)
msg))
instance (Classes.FromPtr msg (CapDescriptor msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (CapDescriptor msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> CapDescriptor msg
forall msg. Struct msg -> CapDescriptor msg
CapDescriptor'newtype_ (Struct msg -> CapDescriptor msg)
-> m (Struct msg) -> m (CapDescriptor msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (CapDescriptor (Message.MutMsg s))) where
    toPtr :: MutMsg s -> CapDescriptor (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (CapDescriptor'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (CapDescriptor (Message.MutMsg s))) where
    new :: MutMsg s -> m (CapDescriptor (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> CapDescriptor (MutMsg s)
forall msg. Struct msg -> CapDescriptor msg
CapDescriptor'newtype_ (Struct (MutMsg s) -> CapDescriptor (MutMsg s))
-> m (Struct (MutMsg s)) -> m (CapDescriptor (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (CapDescriptor msg)) where
    newtype List msg (CapDescriptor msg)
        = CapDescriptor'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (CapDescriptor msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (CapDescriptor msg)
forall msg. ListOf msg (Struct msg) -> List msg (CapDescriptor msg)
CapDescriptor'List_ (ListOf msg (Struct msg) -> List msg (CapDescriptor msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (CapDescriptor msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (CapDescriptor msg) -> List msg
toUntypedList (CapDescriptor'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (CapDescriptor msg) -> Int
length (CapDescriptor'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (CapDescriptor msg) -> m (CapDescriptor msg)
index Int
i (CapDescriptor'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (CapDescriptor msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (CapDescriptor (Message.MutMsg s))) where
    setIndex :: CapDescriptor (MutMsg s)
-> Int -> List (MutMsg s) (CapDescriptor (MutMsg s)) -> m ()
setIndex (CapDescriptor'newtype_ Struct (MutMsg s)
elt) Int
i (CapDescriptor'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (CapDescriptor (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (CapDescriptor (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (CapDescriptor msg)
CapDescriptor'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (CapDescriptor (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (CapDescriptor (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
get_CapDescriptor'attachedFd :: ((Untyped.ReadCtx m msg)) => (CapDescriptor msg) -> (m Std_.Word8)
get_CapDescriptor'attachedFd :: CapDescriptor msg -> m Word8
get_CapDescriptor'attachedFd (CapDescriptor'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word8
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
16 Word64
255)
set_CapDescriptor'attachedFd :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> Std_.Word8 -> (m ())
set_CapDescriptor'attachedFd :: CapDescriptor (MutMsg s) -> Word8 -> m ()
set_CapDescriptor'attachedFd (CapDescriptor'newtype_ Struct (MutMsg s)
struct) Word8
value = (Struct (MutMsg s) -> Word8 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word8
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word8 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word8
value)) :: Std_.Word8) Int
0 Int
16 Word64
255)
data CapDescriptor' msg
    = CapDescriptor'none 
    | CapDescriptor'senderHosted Std_.Word32
    | CapDescriptor'senderPromise Std_.Word32
    | CapDescriptor'receiverHosted Std_.Word32
    | CapDescriptor'receiverAnswer (PromisedAnswer msg)
    | CapDescriptor'thirdPartyHosted (ThirdPartyCapDescriptor msg)
    | CapDescriptor'unknown' Std_.Word16
instance (Classes.FromStruct msg (CapDescriptor' msg)) where
    fromStruct :: Struct msg -> m (CapDescriptor' msg)
fromStruct Struct msg
struct = (do
        Word16
tag <- (Struct msg -> Int -> m Word16
forall (m :: * -> *) msg.
ReadCtx m msg =>
Struct msg -> Int -> m Word16
GenHelpers.getTag Struct msg
struct Int
0)
        case Word16
tag of
            Word16
0 ->
                (CapDescriptor' msg -> m (CapDescriptor' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure CapDescriptor' msg
forall msg. CapDescriptor' msg
CapDescriptor'none)
            Word16
1 ->
                (Word32 -> CapDescriptor' msg
forall msg. Word32 -> CapDescriptor' msg
CapDescriptor'senderHosted (Word32 -> CapDescriptor' msg)
-> m Word32 -> m (CapDescriptor' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
0))
            Word16
2 ->
                (Word32 -> CapDescriptor' msg
forall msg. Word32 -> CapDescriptor' msg
CapDescriptor'senderPromise (Word32 -> CapDescriptor' msg)
-> m Word32 -> m (CapDescriptor' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
0))
            Word16
3 ->
                (Word32 -> CapDescriptor' msg
forall msg. Word32 -> CapDescriptor' msg
CapDescriptor'receiverHosted (Word32 -> CapDescriptor' msg)
-> m Word32 -> m (CapDescriptor' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
0))
            Word16
4 ->
                (PromisedAnswer msg -> CapDescriptor' msg
forall msg. PromisedAnswer msg -> CapDescriptor' msg
CapDescriptor'receiverAnswer (PromisedAnswer msg -> CapDescriptor' msg)
-> m (PromisedAnswer msg) -> m (CapDescriptor' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (PromisedAnswer msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
5 ->
                (ThirdPartyCapDescriptor msg -> CapDescriptor' msg
forall msg. ThirdPartyCapDescriptor msg -> CapDescriptor' msg
CapDescriptor'thirdPartyHosted (ThirdPartyCapDescriptor msg -> CapDescriptor' msg)
-> m (ThirdPartyCapDescriptor msg) -> m (CapDescriptor' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (do
                    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
                    (msg -> Maybe (Ptr msg) -> m (ThirdPartyCapDescriptor msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
                    ))
            Word16
_ ->
                (CapDescriptor' msg -> m (CapDescriptor' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Word16 -> CapDescriptor' msg
forall msg. Word16 -> CapDescriptor' msg
CapDescriptor'unknown' (Word16 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)))
        )
get_CapDescriptor' :: ((Untyped.ReadCtx m msg)
                      ,(Classes.FromStruct msg (CapDescriptor' msg))) => (CapDescriptor msg) -> (m (CapDescriptor' msg))
get_CapDescriptor' :: CapDescriptor msg -> m (CapDescriptor' msg)
get_CapDescriptor' (CapDescriptor'newtype_ Struct msg
struct) = (Struct msg -> m (CapDescriptor' msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
set_CapDescriptor'none :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> (m ())
set_CapDescriptor'none :: CapDescriptor (MutMsg s) -> m ()
set_CapDescriptor'none (CapDescriptor'newtype_ Struct (MutMsg s)
struct) = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
0 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure ())
    )
set_CapDescriptor'senderHosted :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_CapDescriptor'senderHosted :: CapDescriptor (MutMsg s) -> Word32 -> m ()
set_CapDescriptor'senderHosted (CapDescriptor'newtype_ Struct (MutMsg s)
struct) Word32
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
1 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
32 Word64
0)
    )
set_CapDescriptor'senderPromise :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_CapDescriptor'senderPromise :: CapDescriptor (MutMsg s) -> Word32 -> m ()
set_CapDescriptor'senderPromise (CapDescriptor'newtype_ Struct (MutMsg s)
struct) Word32
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
2 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
32 Word64
0)
    )
set_CapDescriptor'receiverHosted :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_CapDescriptor'receiverHosted :: CapDescriptor (MutMsg s) -> Word32 -> m ()
set_CapDescriptor'receiverHosted (CapDescriptor'newtype_ Struct (MutMsg s)
struct) Word32
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
3 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
32 Word64
0)
    )
set_CapDescriptor'receiverAnswer :: ((Untyped.RWCtx m s)
                                    ,(Classes.ToPtr s (PromisedAnswer (Message.MutMsg s)))) => (CapDescriptor (Message.MutMsg s)) -> (PromisedAnswer (Message.MutMsg s)) -> (m ())
set_CapDescriptor'receiverAnswer :: CapDescriptor (MutMsg s) -> PromisedAnswer (MutMsg s) -> m ()
set_CapDescriptor'receiverAnswer (CapDescriptor'newtype_ Struct (MutMsg s)
struct) PromisedAnswer (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
4 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> PromisedAnswer (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) PromisedAnswer (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_CapDescriptor'thirdPartyHosted :: ((Untyped.RWCtx m s)
                                      ,(Classes.ToPtr s (ThirdPartyCapDescriptor (Message.MutMsg s)))) => (CapDescriptor (Message.MutMsg s)) -> (ThirdPartyCapDescriptor (Message.MutMsg s)) -> (m ())
set_CapDescriptor'thirdPartyHosted :: CapDescriptor (MutMsg s)
-> ThirdPartyCapDescriptor (MutMsg s) -> m ()
set_CapDescriptor'thirdPartyHosted (CapDescriptor'newtype_ Struct (MutMsg s)
struct) ThirdPartyCapDescriptor (MutMsg s)
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
5 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (do
        Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s
-> ThirdPartyCapDescriptor (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) ThirdPartyCapDescriptor (MutMsg s)
value)
        (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
        )
    )
set_CapDescriptor'unknown' :: ((Untyped.RWCtx m s)) => (CapDescriptor (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_CapDescriptor'unknown' :: CapDescriptor (MutMsg s) -> Word16 -> m ()
set_CapDescriptor'unknown' (CapDescriptor'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
0 Word64
0)
newtype PromisedAnswer msg
    = PromisedAnswer'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (PromisedAnswer msg)) where
    fromStruct :: Struct msg -> m (PromisedAnswer msg)
fromStruct Struct msg
struct = (PromisedAnswer msg -> m (PromisedAnswer msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> PromisedAnswer msg
forall msg. Struct msg -> PromisedAnswer msg
PromisedAnswer'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (PromisedAnswer msg)) where
    toStruct :: PromisedAnswer msg -> Struct msg
toStruct (PromisedAnswer'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (PromisedAnswer msg)) where
    type InMessage (PromisedAnswer msg) = msg
    message :: PromisedAnswer msg -> InMessage (PromisedAnswer msg)
message (PromisedAnswer'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (PromisedAnswer msg)) where
    messageDefault :: InMessage (PromisedAnswer msg) -> PromisedAnswer msg
messageDefault InMessage (PromisedAnswer msg)
msg = (Struct msg -> PromisedAnswer msg
forall msg. Struct msg -> PromisedAnswer msg
PromisedAnswer'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (PromisedAnswer msg)
msg))
instance (Classes.FromPtr msg (PromisedAnswer msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (PromisedAnswer msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> PromisedAnswer msg
forall msg. Struct msg -> PromisedAnswer msg
PromisedAnswer'newtype_ (Struct msg -> PromisedAnswer msg)
-> m (Struct msg) -> m (PromisedAnswer msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (PromisedAnswer (Message.MutMsg s))) where
    toPtr :: MutMsg s -> PromisedAnswer (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (PromisedAnswer'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (PromisedAnswer (Message.MutMsg s))) where
    new :: MutMsg s -> m (PromisedAnswer (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> PromisedAnswer (MutMsg s)
forall msg. Struct msg -> PromisedAnswer msg
PromisedAnswer'newtype_ (Struct (MutMsg s) -> PromisedAnswer (MutMsg s))
-> m (Struct (MutMsg s)) -> m (PromisedAnswer (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (PromisedAnswer msg)) where
    newtype List msg (PromisedAnswer msg)
        = PromisedAnswer'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (PromisedAnswer msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (PromisedAnswer msg)
forall msg.
ListOf msg (Struct msg) -> List msg (PromisedAnswer msg)
PromisedAnswer'List_ (ListOf msg (Struct msg) -> List msg (PromisedAnswer msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (PromisedAnswer msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (PromisedAnswer msg) -> List msg
toUntypedList (PromisedAnswer'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (PromisedAnswer msg) -> Int
length (PromisedAnswer'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (PromisedAnswer msg) -> m (PromisedAnswer msg)
index Int
i (PromisedAnswer'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (PromisedAnswer msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (PromisedAnswer (Message.MutMsg s))) where
    setIndex :: PromisedAnswer (MutMsg s)
-> Int -> List (MutMsg s) (PromisedAnswer (MutMsg s)) -> m ()
setIndex (PromisedAnswer'newtype_ Struct (MutMsg s)
elt) Int
i (PromisedAnswer'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (PromisedAnswer (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (PromisedAnswer (MutMsg s))
forall msg.
ListOf msg (Struct msg) -> List msg (PromisedAnswer msg)
PromisedAnswer'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (PromisedAnswer (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (PromisedAnswer (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
get_PromisedAnswer'questionId :: ((Untyped.ReadCtx m msg)) => (PromisedAnswer msg) -> (m Std_.Word32)
get_PromisedAnswer'questionId :: PromisedAnswer msg -> m Word32
get_PromisedAnswer'questionId (PromisedAnswer'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_PromisedAnswer'questionId :: ((Untyped.RWCtx m s)) => (PromisedAnswer (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_PromisedAnswer'questionId :: PromisedAnswer (MutMsg s) -> Word32 -> m ()
set_PromisedAnswer'questionId (PromisedAnswer'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
get_PromisedAnswer'transform :: ((Untyped.ReadCtx m msg)
                                ,(Classes.FromPtr msg (Basics.List msg (PromisedAnswer'Op msg)))) => (PromisedAnswer msg) -> (m (Basics.List msg (PromisedAnswer'Op msg)))
get_PromisedAnswer'transform :: PromisedAnswer msg -> m (List msg (PromisedAnswer'Op msg))
get_PromisedAnswer'transform (PromisedAnswer'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (List msg (PromisedAnswer'Op msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_PromisedAnswer'transform :: ((Untyped.RWCtx m s)
                                ,(Classes.ToPtr s (Basics.List (Message.MutMsg s) (PromisedAnswer'Op (Message.MutMsg s))))) => (PromisedAnswer (Message.MutMsg s)) -> (Basics.List (Message.MutMsg s) (PromisedAnswer'Op (Message.MutMsg s))) -> (m ())
set_PromisedAnswer'transform :: PromisedAnswer (MutMsg s)
-> List (MutMsg s) (PromisedAnswer'Op (MutMsg s)) -> m ()
set_PromisedAnswer'transform (PromisedAnswer'newtype_ Struct (MutMsg s)
struct) List (MutMsg s) (PromisedAnswer'Op (MutMsg s))
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s
-> List (MutMsg s) (PromisedAnswer'Op (MutMsg s))
-> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) List (MutMsg s) (PromisedAnswer'Op (MutMsg s))
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_PromisedAnswer'transform :: ((Untyped.ReadCtx m msg)) => (PromisedAnswer msg) -> (m Std_.Bool)
has_PromisedAnswer'transform :: PromisedAnswer msg -> m Bool
has_PromisedAnswer'transform (PromisedAnswer'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
new_PromisedAnswer'transform :: ((Untyped.RWCtx m s)) => Std_.Int -> (PromisedAnswer (Message.MutMsg s)) -> (m (Basics.List (Message.MutMsg s) (PromisedAnswer'Op (Message.MutMsg s))))
new_PromisedAnswer'transform :: Int
-> PromisedAnswer (MutMsg s)
-> m (List (MutMsg s) (PromisedAnswer'Op (MutMsg s)))
new_PromisedAnswer'transform Int
len PromisedAnswer (MutMsg s)
struct = (do
    List (MutMsg s) (PromisedAnswer'Op (MutMsg s))
result <- (MutMsg s
-> Int -> m (List (MutMsg s) (PromisedAnswer'Op (MutMsg s)))
forall s e (m :: * -> *).
(MutListElem s e, WriteCtx m s) =>
MutMsg s -> Int -> m (List (MutMsg s) e)
Classes.newList (PromisedAnswer (MutMsg s) -> InMessage (PromisedAnswer (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message PromisedAnswer (MutMsg s)
struct) Int
len)
    (PromisedAnswer (MutMsg s)
-> List (MutMsg s) (PromisedAnswer'Op (MutMsg s)) -> m ()
forall (m :: * -> *) s.
(RWCtx m s,
 ToPtr s (List (MutMsg s) (PromisedAnswer'Op (MutMsg s)))) =>
PromisedAnswer (MutMsg s)
-> List (MutMsg s) (PromisedAnswer'Op (MutMsg s)) -> m ()
set_PromisedAnswer'transform PromisedAnswer (MutMsg s)
struct List (MutMsg s) (PromisedAnswer'Op (MutMsg s))
result)
    (List (MutMsg s) (PromisedAnswer'Op (MutMsg s))
-> m (List (MutMsg s) (PromisedAnswer'Op (MutMsg s)))
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure List (MutMsg s) (PromisedAnswer'Op (MutMsg s))
result)
    )
newtype PromisedAnswer'Op msg
    = PromisedAnswer'Op'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (PromisedAnswer'Op msg)) where
    fromStruct :: Struct msg -> m (PromisedAnswer'Op msg)
fromStruct Struct msg
struct = (PromisedAnswer'Op msg -> m (PromisedAnswer'Op msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> PromisedAnswer'Op msg
forall msg. Struct msg -> PromisedAnswer'Op msg
PromisedAnswer'Op'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (PromisedAnswer'Op msg)) where
    toStruct :: PromisedAnswer'Op msg -> Struct msg
toStruct (PromisedAnswer'Op'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (PromisedAnswer'Op msg)) where
    type InMessage (PromisedAnswer'Op msg) = msg
    message :: PromisedAnswer'Op msg -> InMessage (PromisedAnswer'Op msg)
message (PromisedAnswer'Op'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (PromisedAnswer'Op msg)) where
    messageDefault :: InMessage (PromisedAnswer'Op msg) -> PromisedAnswer'Op msg
messageDefault InMessage (PromisedAnswer'Op msg)
msg = (Struct msg -> PromisedAnswer'Op msg
forall msg. Struct msg -> PromisedAnswer'Op msg
PromisedAnswer'Op'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (PromisedAnswer'Op msg)
msg))
instance (Classes.FromPtr msg (PromisedAnswer'Op msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (PromisedAnswer'Op msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> PromisedAnswer'Op msg
forall msg. Struct msg -> PromisedAnswer'Op msg
PromisedAnswer'Op'newtype_ (Struct msg -> PromisedAnswer'Op msg)
-> m (Struct msg) -> m (PromisedAnswer'Op msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (PromisedAnswer'Op (Message.MutMsg s))) where
    toPtr :: MutMsg s
-> PromisedAnswer'Op (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (PromisedAnswer'Op'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (PromisedAnswer'Op (Message.MutMsg s))) where
    new :: MutMsg s -> m (PromisedAnswer'Op (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> PromisedAnswer'Op (MutMsg s)
forall msg. Struct msg -> PromisedAnswer'Op msg
PromisedAnswer'Op'newtype_ (Struct (MutMsg s) -> PromisedAnswer'Op (MutMsg s))
-> m (Struct (MutMsg s)) -> m (PromisedAnswer'Op (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
0))
instance (Basics.ListElem msg (PromisedAnswer'Op msg)) where
    newtype List msg (PromisedAnswer'Op msg)
        = PromisedAnswer'Op'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (PromisedAnswer'Op msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (PromisedAnswer'Op msg)
forall msg.
ListOf msg (Struct msg) -> List msg (PromisedAnswer'Op msg)
PromisedAnswer'Op'List_ (ListOf msg (Struct msg) -> List msg (PromisedAnswer'Op msg))
-> m (ListOf msg (Struct msg))
-> m (List msg (PromisedAnswer'Op msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (PromisedAnswer'Op msg) -> List msg
toUntypedList (PromisedAnswer'Op'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (PromisedAnswer'Op msg) -> Int
length (PromisedAnswer'Op'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int
-> List msg (PromisedAnswer'Op msg) -> m (PromisedAnswer'Op msg)
index Int
i (PromisedAnswer'Op'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (PromisedAnswer'Op msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (PromisedAnswer'Op (Message.MutMsg s))) where
    setIndex :: PromisedAnswer'Op (MutMsg s)
-> Int -> List (MutMsg s) (PromisedAnswer'Op (MutMsg s)) -> m ()
setIndex (PromisedAnswer'Op'newtype_ Struct (MutMsg s)
elt) Int
i (PromisedAnswer'Op'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s
-> Int -> m (List (MutMsg s) (PromisedAnswer'Op (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (PromisedAnswer'Op (MutMsg s))
forall msg.
ListOf msg (Struct msg) -> List msg (PromisedAnswer'Op msg)
PromisedAnswer'Op'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (PromisedAnswer'Op (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (PromisedAnswer'Op (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
0 Int
len))
data PromisedAnswer'Op' msg
    = PromisedAnswer'Op'noop 
    | PromisedAnswer'Op'getPointerField Std_.Word16
    | PromisedAnswer'Op'unknown' Std_.Word16
instance (Classes.FromStruct msg (PromisedAnswer'Op' msg)) where
    fromStruct :: Struct msg -> m (PromisedAnswer'Op' msg)
fromStruct Struct msg
struct = (do
        Word16
tag <- (Struct msg -> Int -> m Word16
forall (m :: * -> *) msg.
ReadCtx m msg =>
Struct msg -> Int -> m Word16
GenHelpers.getTag Struct msg
struct Int
0)
        case Word16
tag of
            Word16
0 ->
                (PromisedAnswer'Op' msg -> m (PromisedAnswer'Op' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure PromisedAnswer'Op' msg
forall msg. PromisedAnswer'Op' msg
PromisedAnswer'Op'noop)
            Word16
1 ->
                (Word16 -> PromisedAnswer'Op' msg
forall msg. Word16 -> PromisedAnswer'Op' msg
PromisedAnswer'Op'getPointerField (Word16 -> PromisedAnswer'Op' msg)
-> m Word16 -> m (PromisedAnswer'Op' msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Struct msg -> Int -> Int -> Word64 -> m Word16
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
16 Word64
0))
            Word16
_ ->
                (PromisedAnswer'Op' msg -> m (PromisedAnswer'Op' msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Word16 -> PromisedAnswer'Op' msg
forall msg. Word16 -> PromisedAnswer'Op' msg
PromisedAnswer'Op'unknown' (Word16 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)))
        )
get_PromisedAnswer'Op' :: ((Untyped.ReadCtx m msg)
                          ,(Classes.FromStruct msg (PromisedAnswer'Op' msg))) => (PromisedAnswer'Op msg) -> (m (PromisedAnswer'Op' msg))
get_PromisedAnswer'Op' :: PromisedAnswer'Op msg -> m (PromisedAnswer'Op' msg)
get_PromisedAnswer'Op' (PromisedAnswer'Op'newtype_ Struct msg
struct) = (Struct msg -> m (PromisedAnswer'Op' msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
struct)
set_PromisedAnswer'Op'noop :: ((Untyped.RWCtx m s)) => (PromisedAnswer'Op (Message.MutMsg s)) -> (m ())
set_PromisedAnswer'Op'noop :: PromisedAnswer'Op (MutMsg s) -> m ()
set_PromisedAnswer'Op'noop (PromisedAnswer'Op'newtype_ Struct (MutMsg s)
struct) = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
0 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (() -> m ()
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure ())
    )
set_PromisedAnswer'Op'getPointerField :: ((Untyped.RWCtx m s)) => (PromisedAnswer'Op (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_PromisedAnswer'Op'getPointerField :: PromisedAnswer'Op (MutMsg s) -> Word16 -> m ()
set_PromisedAnswer'Op'getPointerField (PromisedAnswer'Op'newtype_ Struct (MutMsg s)
struct) Word16
value = (do
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct (Word16
1 :: Std_.Word16) Int
0 Int
0 Word64
0)
    (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
16 Word64
0)
    )
set_PromisedAnswer'Op'unknown' :: ((Untyped.RWCtx m s)) => (PromisedAnswer'Op (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_PromisedAnswer'Op'unknown' :: PromisedAnswer'Op (MutMsg s) -> Word16 -> m ()
set_PromisedAnswer'Op'unknown' (PromisedAnswer'Op'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
0 Word64
0)
newtype ThirdPartyCapDescriptor msg
    = ThirdPartyCapDescriptor'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (ThirdPartyCapDescriptor msg)) where
    fromStruct :: Struct msg -> m (ThirdPartyCapDescriptor msg)
fromStruct Struct msg
struct = (ThirdPartyCapDescriptor msg -> m (ThirdPartyCapDescriptor msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> ThirdPartyCapDescriptor msg
forall msg. Struct msg -> ThirdPartyCapDescriptor msg
ThirdPartyCapDescriptor'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (ThirdPartyCapDescriptor msg)) where
    toStruct :: ThirdPartyCapDescriptor msg -> Struct msg
toStruct (ThirdPartyCapDescriptor'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (ThirdPartyCapDescriptor msg)) where
    type InMessage (ThirdPartyCapDescriptor msg) = msg
    message :: ThirdPartyCapDescriptor msg
-> InMessage (ThirdPartyCapDescriptor msg)
message (ThirdPartyCapDescriptor'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (ThirdPartyCapDescriptor msg)) where
    messageDefault :: InMessage (ThirdPartyCapDescriptor msg)
-> ThirdPartyCapDescriptor msg
messageDefault InMessage (ThirdPartyCapDescriptor msg)
msg = (Struct msg -> ThirdPartyCapDescriptor msg
forall msg. Struct msg -> ThirdPartyCapDescriptor msg
ThirdPartyCapDescriptor'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (ThirdPartyCapDescriptor msg)
msg))
instance (Classes.FromPtr msg (ThirdPartyCapDescriptor msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (ThirdPartyCapDescriptor msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> ThirdPartyCapDescriptor msg
forall msg. Struct msg -> ThirdPartyCapDescriptor msg
ThirdPartyCapDescriptor'newtype_ (Struct msg -> ThirdPartyCapDescriptor msg)
-> m (Struct msg) -> m (ThirdPartyCapDescriptor msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (ThirdPartyCapDescriptor (Message.MutMsg s))) where
    toPtr :: MutMsg s
-> ThirdPartyCapDescriptor (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (ThirdPartyCapDescriptor'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (ThirdPartyCapDescriptor (Message.MutMsg s))) where
    new :: MutMsg s -> m (ThirdPartyCapDescriptor (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> ThirdPartyCapDescriptor (MutMsg s)
forall msg. Struct msg -> ThirdPartyCapDescriptor msg
ThirdPartyCapDescriptor'newtype_ (Struct (MutMsg s) -> ThirdPartyCapDescriptor (MutMsg s))
-> m (Struct (MutMsg s)) -> m (ThirdPartyCapDescriptor (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (ThirdPartyCapDescriptor msg)) where
    newtype List msg (ThirdPartyCapDescriptor msg)
        = ThirdPartyCapDescriptor'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg
-> Maybe (Ptr msg) -> m (List msg (ThirdPartyCapDescriptor msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (ThirdPartyCapDescriptor msg)
forall msg.
ListOf msg (Struct msg) -> List msg (ThirdPartyCapDescriptor msg)
ThirdPartyCapDescriptor'List_ (ListOf msg (Struct msg) -> List msg (ThirdPartyCapDescriptor msg))
-> m (ListOf msg (Struct msg))
-> m (List msg (ThirdPartyCapDescriptor msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (ThirdPartyCapDescriptor msg) -> List msg
toUntypedList (ThirdPartyCapDescriptor'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (ThirdPartyCapDescriptor msg) -> Int
length (ThirdPartyCapDescriptor'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int
-> List msg (ThirdPartyCapDescriptor msg)
-> m (ThirdPartyCapDescriptor msg)
index Int
i (ThirdPartyCapDescriptor'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (ThirdPartyCapDescriptor msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (ThirdPartyCapDescriptor (Message.MutMsg s))) where
    setIndex :: ThirdPartyCapDescriptor (MutMsg s)
-> Int
-> List (MutMsg s) (ThirdPartyCapDescriptor (MutMsg s))
-> m ()
setIndex (ThirdPartyCapDescriptor'newtype_ Struct (MutMsg s)
elt) Int
i (ThirdPartyCapDescriptor'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s
-> Int -> m (List (MutMsg s) (ThirdPartyCapDescriptor (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (ThirdPartyCapDescriptor (MutMsg s))
forall msg.
ListOf msg (Struct msg) -> List msg (ThirdPartyCapDescriptor msg)
ThirdPartyCapDescriptor'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (ThirdPartyCapDescriptor (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (ThirdPartyCapDescriptor (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
get_ThirdPartyCapDescriptor'id :: ((Untyped.ReadCtx m msg)
                                  ,(Classes.FromPtr msg (Std_.Maybe (Untyped.Ptr msg)))) => (ThirdPartyCapDescriptor msg) -> (m (Std_.Maybe (Untyped.Ptr msg)))
get_ThirdPartyCapDescriptor'id :: ThirdPartyCapDescriptor msg -> m (Maybe (Ptr msg))
get_ThirdPartyCapDescriptor'id (ThirdPartyCapDescriptor'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (Maybe (Ptr msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_ThirdPartyCapDescriptor'id :: ((Untyped.RWCtx m s)
                                  ,(Classes.ToPtr s (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))))) => (ThirdPartyCapDescriptor (Message.MutMsg s)) -> (Std_.Maybe (Untyped.Ptr (Message.MutMsg s))) -> (m ())
set_ThirdPartyCapDescriptor'id :: ThirdPartyCapDescriptor (MutMsg s)
-> Maybe (Ptr (MutMsg s)) -> m ()
set_ThirdPartyCapDescriptor'id (ThirdPartyCapDescriptor'newtype_ Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Maybe (Ptr (MutMsg s)) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Maybe (Ptr (MutMsg s))
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_ThirdPartyCapDescriptor'id :: ((Untyped.ReadCtx m msg)) => (ThirdPartyCapDescriptor msg) -> (m Std_.Bool)
has_ThirdPartyCapDescriptor'id :: ThirdPartyCapDescriptor msg -> m Bool
has_ThirdPartyCapDescriptor'id (ThirdPartyCapDescriptor'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
get_ThirdPartyCapDescriptor'vineId :: ((Untyped.ReadCtx m msg)) => (ThirdPartyCapDescriptor msg) -> (m Std_.Word32)
get_ThirdPartyCapDescriptor'vineId :: ThirdPartyCapDescriptor msg -> m Word32
get_ThirdPartyCapDescriptor'vineId (ThirdPartyCapDescriptor'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word32
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_ThirdPartyCapDescriptor'vineId :: ((Untyped.RWCtx m s)) => (ThirdPartyCapDescriptor (Message.MutMsg s)) -> Std_.Word32 -> (m ())
set_ThirdPartyCapDescriptor'vineId :: ThirdPartyCapDescriptor (MutMsg s) -> Word32 -> m ()
set_ThirdPartyCapDescriptor'vineId (ThirdPartyCapDescriptor'newtype_ Struct (MutMsg s)
struct) Word32
value = (Struct (MutMsg s) -> Word32 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word32 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word32
value)) :: Std_.Word32) Int
0 Int
0 Word64
0)
newtype Exception msg
    = Exception'newtype_ (Untyped.Struct msg)
instance (Classes.FromStruct msg (Exception msg)) where
    fromStruct :: Struct msg -> m (Exception msg)
fromStruct Struct msg
struct = (Exception msg -> m (Exception msg)
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure (Struct msg -> Exception msg
forall msg. Struct msg -> Exception msg
Exception'newtype_ Struct msg
struct))
instance (Classes.ToStruct msg (Exception msg)) where
    toStruct :: Exception msg -> Struct msg
toStruct (Exception'newtype_ Struct msg
struct) = Struct msg
struct
instance (Untyped.HasMessage (Exception msg)) where
    type InMessage (Exception msg) = msg
    message :: Exception msg -> InMessage (Exception msg)
message (Exception'newtype_ Struct msg
struct) = (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct)
instance (Untyped.MessageDefault (Exception msg)) where
    messageDefault :: InMessage (Exception msg) -> Exception msg
messageDefault InMessage (Exception msg)
msg = (Struct msg -> Exception msg
forall msg. Struct msg -> Exception msg
Exception'newtype_ (InMessage (Struct msg) -> Struct msg
forall a. MessageDefault a => InMessage a -> a
Untyped.messageDefault InMessage (Struct msg)
InMessage (Exception msg)
msg))
instance (Classes.FromPtr msg (Exception msg)) where
    fromPtr :: msg -> Maybe (Ptr msg) -> m (Exception msg)
fromPtr msg
msg Maybe (Ptr msg)
ptr = (Struct msg -> Exception msg
forall msg. Struct msg -> Exception msg
Exception'newtype_ (Struct msg -> Exception msg)
-> m (Struct msg) -> m (Exception msg)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (Struct msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
instance (Classes.ToPtr s (Exception (Message.MutMsg s))) where
    toPtr :: MutMsg s -> Exception (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
toPtr MutMsg s
msg (Exception'newtype_ Struct (MutMsg s)
struct) = (MutMsg s -> Struct (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr MutMsg s
msg Struct (MutMsg s)
struct)
instance (Classes.Allocate s (Exception (Message.MutMsg s))) where
    new :: MutMsg s -> m (Exception (MutMsg s))
new MutMsg s
msg = (Struct (MutMsg s) -> Exception (MutMsg s)
forall msg. Struct msg -> Exception msg
Exception'newtype_ (Struct (MutMsg s) -> Exception (MutMsg s))
-> m (Struct (MutMsg s)) -> m (Exception (MutMsg s))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Word16 -> Word16 -> m (Struct (MutMsg s))
Untyped.allocStruct MutMsg s
msg Word16
1 Word16
1))
instance (Basics.ListElem msg (Exception msg)) where
    newtype List msg (Exception msg)
        = Exception'List_ (Untyped.ListOf msg (Untyped.Struct msg))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg (Exception msg))
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg (Struct msg) -> List msg (Exception msg)
forall msg. ListOf msg (Struct msg) -> List msg (Exception msg)
Exception'List_ (ListOf msg (Struct msg) -> List msg (Exception msg))
-> m (ListOf msg (Struct msg)) -> m (List msg (Exception msg))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg (Struct msg))
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg (Exception msg) -> List msg
toUntypedList (Exception'List_ l) = (ListOf msg (Struct msg) -> List msg
forall msg. ListOf msg (Struct msg) -> List msg
Untyped.ListStruct ListOf msg (Struct msg)
l)
    length :: List msg (Exception msg) -> Int
length (Exception'List_ l) = (ListOf msg (Struct msg) -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg (Struct msg)
l)
    index :: Int -> List msg (Exception msg) -> m (Exception msg)
index Int
i (Exception'List_ l) = (do
        Struct msg
elt <- (Int -> ListOf msg (Struct msg) -> m (Struct msg)
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg (Struct msg)
l)
        (Struct msg -> m (Exception msg)
forall msg a (m :: * -> *).
(FromStruct msg a, ReadCtx m msg) =>
Struct msg -> m a
Classes.fromStruct Struct msg
elt)
        )
instance (Basics.MutListElem s (Exception (Message.MutMsg s))) where
    setIndex :: Exception (MutMsg s)
-> Int -> List (MutMsg s) (Exception (MutMsg s)) -> m ()
setIndex (Exception'newtype_ Struct (MutMsg s)
elt) Int
i (Exception'List_ l) = (Struct (MutMsg s)
-> Int -> ListOf (MutMsg s) (Struct (MutMsg s)) -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex Struct (MutMsg s)
elt Int
i ListOf (MutMsg s) (Struct (MutMsg s))
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) (Exception (MutMsg s)))
newList MutMsg s
msg Int
len = (ListOf (MutMsg s) (Struct (MutMsg s))
-> List (MutMsg s) (Exception (MutMsg s))
forall msg. ListOf msg (Struct msg) -> List msg (Exception msg)
Exception'List_ (ListOf (MutMsg s) (Struct (MutMsg s))
 -> List (MutMsg s) (Exception (MutMsg s)))
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
-> m (List (MutMsg s) (Exception (MutMsg s)))
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s
-> Word16
-> Word16
-> Int
-> m (ListOf (MutMsg s) (Struct (MutMsg s)))
Untyped.allocCompositeList MutMsg s
msg Word16
1 Word16
1 Int
len))
get_Exception'reason :: ((Untyped.ReadCtx m msg)
                        ,(Classes.FromPtr msg (Basics.Text msg))) => (Exception msg) -> (m (Basics.Text msg))
get_Exception'reason :: Exception msg -> m (Text msg)
get_Exception'reason (Exception'newtype_ Struct msg
struct) = (do
    Maybe (Ptr msg)
ptr <- (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct)
    (msg -> Maybe (Ptr msg) -> m (Text msg)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr (Struct msg -> InMessage (Struct msg)
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct msg
struct) Maybe (Ptr msg)
ptr)
    )
set_Exception'reason :: ((Untyped.RWCtx m s)
                        ,(Classes.ToPtr s (Basics.Text (Message.MutMsg s)))) => (Exception (Message.MutMsg s)) -> (Basics.Text (Message.MutMsg s)) -> (m ())
set_Exception'reason :: Exception (MutMsg s) -> Text (MutMsg s) -> m ()
set_Exception'reason (Exception'newtype_ Struct (MutMsg s)
struct) Text (MutMsg s)
value = (do
    Maybe (Ptr (MutMsg s))
ptr <- (MutMsg s -> Text (MutMsg s) -> m (Maybe (Ptr (MutMsg s)))
forall s a (m :: * -> *).
(ToPtr s a, WriteCtx m s) =>
MutMsg s -> a -> m (Maybe (Ptr (MutMsg s)))
Classes.toPtr (Struct (MutMsg s) -> InMessage (Struct (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Struct (MutMsg s)
struct) Text (MutMsg s)
value)
    (Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
forall (m :: * -> *) s.
(ReadCtx m (MutMsg s), WriteCtx m s) =>
Maybe (Ptr (MutMsg s)) -> Int -> Struct (MutMsg s) -> m ()
Untyped.setPtr Maybe (Ptr (MutMsg s))
ptr Int
0 Struct (MutMsg s)
struct)
    )
has_Exception'reason :: ((Untyped.ReadCtx m msg)) => (Exception msg) -> (m Std_.Bool)
has_Exception'reason :: Exception msg -> m Bool
has_Exception'reason (Exception'newtype_ Struct msg
struct) = (Maybe (Ptr msg) -> Bool
forall a. Maybe a -> Bool
Std_.isJust (Maybe (Ptr msg) -> Bool) -> m (Maybe (Ptr msg)) -> m Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> Struct msg -> m (Maybe (Ptr msg))
forall (m :: * -> *) msg.
ReadCtx m msg =>
Int -> Struct msg -> m (Maybe (Ptr msg))
Untyped.getPtr Int
0 Struct msg
struct))
new_Exception'reason :: ((Untyped.RWCtx m s)) => Std_.Int -> (Exception (Message.MutMsg s)) -> (m (Basics.Text (Message.MutMsg s)))
new_Exception'reason :: Int -> Exception (MutMsg s) -> m (Text (MutMsg s))
new_Exception'reason Int
len Exception (MutMsg s)
struct = (do
    Text (MutMsg s)
result <- (MutMsg s -> Int -> m (Text (MutMsg s))
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Int -> m (Text (MutMsg s))
Basics.newText (Exception (MutMsg s) -> InMessage (Exception (MutMsg s))
forall a. HasMessage a => a -> InMessage a
Untyped.message Exception (MutMsg s)
struct) Int
len)
    (Exception (MutMsg s) -> Text (MutMsg s) -> m ()
forall (m :: * -> *) s.
(RWCtx m s, ToPtr s (Text (MutMsg s))) =>
Exception (MutMsg s) -> Text (MutMsg s) -> m ()
set_Exception'reason Exception (MutMsg s)
struct Text (MutMsg s)
result)
    (Text (MutMsg s) -> m (Text (MutMsg s))
forall (f :: * -> *) a. Applicative f => a -> f a
Std_.pure Text (MutMsg s)
result)
    )
get_Exception'obsoleteIsCallersFault :: ((Untyped.ReadCtx m msg)) => (Exception msg) -> (m Std_.Bool)
get_Exception'obsoleteIsCallersFault :: Exception msg -> m Bool
get_Exception'obsoleteIsCallersFault (Exception'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Bool
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
0 Word64
0)
set_Exception'obsoleteIsCallersFault :: ((Untyped.RWCtx m s)) => (Exception (Message.MutMsg s)) -> Std_.Bool -> (m ())
set_Exception'obsoleteIsCallersFault :: Exception (MutMsg s) -> Bool -> m ()
set_Exception'obsoleteIsCallersFault (Exception'newtype_ Struct (MutMsg s)
struct) Bool
value = (Struct (MutMsg s) -> Word1 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word1
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Bool -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Bool
value)) :: Std_.Word1) Int
0 Int
0 Word64
0)
get_Exception'obsoleteDurability :: ((Untyped.ReadCtx m msg)) => (Exception msg) -> (m Std_.Word16)
get_Exception'obsoleteDurability :: Exception msg -> m Word16
get_Exception'obsoleteDurability (Exception'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Word16
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
16 Word64
0)
set_Exception'obsoleteDurability :: ((Untyped.RWCtx m s)) => (Exception (Message.MutMsg s)) -> Std_.Word16 -> (m ())
set_Exception'obsoleteDurability :: Exception (MutMsg s) -> Word16 -> m ()
set_Exception'obsoleteDurability (Exception'newtype_ Struct (MutMsg s)
struct) Word16
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Word16
value)) :: Std_.Word16) Int
0 Int
16 Word64
0)
get_Exception'type_ :: ((Untyped.ReadCtx m msg)) => (Exception msg) -> (m Exception'Type)
get_Exception'type_ :: Exception msg -> m Exception'Type
get_Exception'type_ (Exception'newtype_ Struct msg
struct) = (Struct msg -> Int -> Int -> Word64 -> m Exception'Type
forall (m :: * -> *) msg a.
(ReadCtx m msg, IsWord a) =>
Struct msg -> Int -> Int -> Word64 -> m a
GenHelpers.getWordField Struct msg
struct Int
0 Int
32 Word64
0)
set_Exception'type_ :: ((Untyped.RWCtx m s)) => (Exception (Message.MutMsg s)) -> Exception'Type -> (m ())
set_Exception'type_ :: Exception (MutMsg s) -> Exception'Type -> m ()
set_Exception'type_ (Exception'newtype_ Struct (MutMsg s)
struct) Exception'Type
value = (Struct (MutMsg s) -> Word16 -> Int -> Int -> Word64 -> m ()
forall (m :: * -> *) s a.
(RWCtx m s, Bounded a, Integral a, IsWord a, Bits a) =>
Struct (MutMsg s) -> a -> Int -> Int -> Word64 -> m ()
GenHelpers.setWordField Struct (MutMsg s)
struct ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Exception'Type -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Exception'Type
value)) :: Std_.Word16) Int
0 Int
32 Word64
0)
data Exception'Type 
    = Exception'Type'failed 
    | Exception'Type'overloaded 
    | Exception'Type'disconnected 
    | Exception'Type'unimplemented 
    | Exception'Type'unknown' Std_.Word16
    deriving(Int -> Exception'Type -> ShowS
[Exception'Type] -> ShowS
Exception'Type -> String
(Int -> Exception'Type -> ShowS)
-> (Exception'Type -> String)
-> ([Exception'Type] -> ShowS)
-> Show Exception'Type
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Exception'Type] -> ShowS
$cshowList :: [Exception'Type] -> ShowS
show :: Exception'Type -> String
$cshow :: Exception'Type -> String
showsPrec :: Int -> Exception'Type -> ShowS
$cshowsPrec :: Int -> Exception'Type -> ShowS
Std_.Show
            ,ReadPrec [Exception'Type]
ReadPrec Exception'Type
Int -> ReadS Exception'Type
ReadS [Exception'Type]
(Int -> ReadS Exception'Type)
-> ReadS [Exception'Type]
-> ReadPrec Exception'Type
-> ReadPrec [Exception'Type]
-> Read Exception'Type
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Exception'Type]
$creadListPrec :: ReadPrec [Exception'Type]
readPrec :: ReadPrec Exception'Type
$creadPrec :: ReadPrec Exception'Type
readList :: ReadS [Exception'Type]
$creadList :: ReadS [Exception'Type]
readsPrec :: Int -> ReadS Exception'Type
$creadsPrec :: Int -> ReadS Exception'Type
Std_.Read
            ,Exception'Type -> Exception'Type -> Bool
(Exception'Type -> Exception'Type -> Bool)
-> (Exception'Type -> Exception'Type -> Bool) -> Eq Exception'Type
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Exception'Type -> Exception'Type -> Bool
$c/= :: Exception'Type -> Exception'Type -> Bool
== :: Exception'Type -> Exception'Type -> Bool
$c== :: Exception'Type -> Exception'Type -> Bool
Std_.Eq
            ,(forall x. Exception'Type -> Rep Exception'Type x)
-> (forall x. Rep Exception'Type x -> Exception'Type)
-> Generic Exception'Type
forall x. Rep Exception'Type x -> Exception'Type
forall x. Exception'Type -> Rep Exception'Type x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Exception'Type x -> Exception'Type
$cfrom :: forall x. Exception'Type -> Rep Exception'Type x
Generics.Generic)
instance (Classes.IsWord Exception'Type) where
    fromWord :: Word64 -> Exception'Type
fromWord Word64
n = case ((Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word64
n) :: Std_.Word16) of
        Word16
0 ->
            Exception'Type
Exception'Type'failed
        Word16
1 ->
            Exception'Type
Exception'Type'overloaded
        Word16
2 ->
            Exception'Type
Exception'Type'disconnected
        Word16
3 ->
            Exception'Type
Exception'Type'unimplemented
        Word16
tag ->
            (Word16 -> Exception'Type
Exception'Type'unknown' Word16
tag)
    toWord :: Exception'Type -> Word64
toWord (Exception'Type
Exception'Type'failed) = Word64
0
    toWord (Exception'Type
Exception'Type'overloaded) = Word64
1
    toWord (Exception'Type
Exception'Type'disconnected) = Word64
2
    toWord (Exception'Type
Exception'Type'unimplemented) = Word64
3
    toWord (Exception'Type'unknown' Word16
tag) = (Word16 -> Word64
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Word16
tag)
instance (Std_.Enum Exception'Type) where
    fromEnum :: Exception'Type -> Int
fromEnum Exception'Type
x = (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Exception'Type -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Exception'Type
x))
    toEnum :: Int -> Exception'Type
toEnum Int
x = (Word64 -> Exception'Type
forall a. IsWord a => Word64 -> a
Classes.fromWord (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral Int
x))
instance (Basics.ListElem msg Exception'Type) where
    newtype List msg Exception'Type
        = Exception'Type'List_ (Untyped.ListOf msg Std_.Word16)
    index :: Int -> List msg Exception'Type -> m Exception'Type
index Int
i (Exception'Type'List_ l) = (Word64 -> Exception'Type
forall a. IsWord a => Word64 -> a
Classes.fromWord (Word64 -> Exception'Type) -> m Word64 -> m Exception'Type
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Word16 -> Word64
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Word16 -> Word64) -> m Word16 -> m Word64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (Int -> ListOf msg Word16 -> m Word16
forall (m :: * -> *) msg a.
ReadCtx m msg =>
Int -> ListOf msg a -> m a
Untyped.index Int
i ListOf msg Word16
l)))
    listFromPtr :: msg -> Maybe (Ptr msg) -> m (List msg Exception'Type)
listFromPtr msg
msg Maybe (Ptr msg)
ptr = (ListOf msg Word16 -> List msg Exception'Type
forall msg. ListOf msg Word16 -> List msg Exception'Type
Exception'Type'List_ (ListOf msg Word16 -> List msg Exception'Type)
-> m (ListOf msg Word16) -> m (List msg Exception'Type)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (msg -> Maybe (Ptr msg) -> m (ListOf msg Word16)
forall msg a (m :: * -> *).
(FromPtr msg a, ReadCtx m msg) =>
msg -> Maybe (Ptr msg) -> m a
Classes.fromPtr msg
msg Maybe (Ptr msg)
ptr))
    toUntypedList :: List msg Exception'Type -> List msg
toUntypedList (Exception'Type'List_ l) = (ListOf msg Word16 -> List msg
forall msg. ListOf msg Word16 -> List msg
Untyped.List16 ListOf msg Word16
l)
    length :: List msg Exception'Type -> Int
length (Exception'Type'List_ l) = (ListOf msg Word16 -> Int
forall msg a. ListOf msg a -> Int
Untyped.length ListOf msg Word16
l)
instance (Classes.MutListElem s Exception'Type) where
    setIndex :: Exception'Type -> Int -> List (MutMsg s) Exception'Type -> m ()
setIndex Exception'Type
elt Int
i (Exception'Type'List_ l) = (Word16 -> Int -> ListOf (MutMsg s) Word16 -> m ()
forall (m :: * -> *) s a.
RWCtx m s =>
a -> Int -> ListOf (MutMsg s) a -> m ()
Untyped.setIndex (Word64 -> Word16
forall a b. (Integral a, Num b) => a -> b
Std_.fromIntegral (Exception'Type -> Word64
forall a. IsWord a => a -> Word64
Classes.toWord Exception'Type
elt)) Int
i ListOf (MutMsg s) Word16
l)
    newList :: MutMsg s -> Int -> m (List (MutMsg s) Exception'Type)
newList MutMsg s
msg Int
size = (ListOf (MutMsg s) Word16 -> List (MutMsg s) Exception'Type
forall msg. ListOf msg Word16 -> List msg Exception'Type
Exception'Type'List_ (ListOf (MutMsg s) Word16 -> List (MutMsg s) Exception'Type)
-> m (ListOf (MutMsg s) Word16)
-> m (List (MutMsg s) Exception'Type)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (MutMsg s -> Int -> m (ListOf (MutMsg s) Word16)
forall (m :: * -> *) s.
WriteCtx m s =>
MutMsg s -> Int -> m (ListOf (MutMsg s) Word16)
Untyped.allocList16 MutMsg s
msg Int
size))