module MakeTransport:
| Parameters: |
|
typegroup =GC.t
include RcommDescriptor
module DescriptorTypes:sig..end
module MakeChanSrc:Channel_factory.MakeTransportChanSrc(DescriptorTypes)
module MakeChanDest:Channel_factory.MakeTransportChanDest(DescriptorTypes)
module Chan_to_group:MakeChanSrc(sigtypemessage =t Rcomm.Request_types.Transport_to_group.messagetyperequest =t Rcomm.Request_types.Transport_to_group.send_requesttypetransport' =Rcomm.Make.To_group_from_transport.transporttypemessage' =transport'
Rcomm.Request_types.Transport_to_group.messagetyperequest' =transport'
Rcomm.Request_types.Transport_to_group.send_requestmodule type ToBoundedChannelSig =ToBoundedChannelSigwith type send_req = requestmodule Make:end)
module Chan_from_group:MakeChanDest(sigtypemessage =t Rcomm.Request_types.Group_to_transport.messagetyperequest =t Rcomm.Request_types.Group_to_transport.receive_requesttypetransport' =Rcomm.Make.From_group_to_transport.transporttypemessage' =transport'
Rcomm.Request_types.Group_to_transport.messagetyperequest' =transport'
Rcomm.Request_types.Group_to_transport.receive_requestmodule type FromBoundedChannelSig =FromBoundedChannelSigwith type receive_req = requestmodule Make:end)