feed-packet ( session packet -- ) - Factor Documentation

IN: msgpack.rpc

GENERIC: feed-packet ( session packet -- )

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 ;