feed-packet ( session packet -- )

Vocabulary

msgpack.rpc

Inputs

session	an object
packet	an object

Outputs

None

Definition

IN: msgpack.rpc

GENERIC: feed-packet ( session packet -- )

Methods

USING: accessors combinators kernel msgpack.rpc ;

M: notification feed-packet
    swap notification-callback>> ( notification -- ) call-effect
    ;


USING: accessors assocs combinators msgpack.rpc
msgpack.rpc.private ;

M:: request feed-packet ( session request -- )
    request msgid>> :> id session incoming-requests>>
    :> requests request requests check-request-id-absent
    request id requests set-at
    request session request-callback>> ( request -- )
    call-effect ;


USING: accessors assocs combinators kernel msgpack.rpc ;

M: response feed-packet
    swap dupd [ msgid>> ] [ outgoing-requests>> ] bi* delete-at*
    [ ( response -- ) call-effect ] [ unknown-response ] if ;