rx-tx-async-channel🔗 i

1Description🔗 i

Defines a struct containing two async-channels in order to make bi-directional communication simple. Relies on the struct-plus-plus module.

The two fields are called to-child and to-parent with the intent that the struct is created in one thread (the parent) and given to another thread (the child), and the fields specify who is expected to receive the messages–the parent thread receives messages that are put on to-parent and vice versa.

2Synopsis🔗 i

> (require struct-plus-plusracket/async-channelrx-tx-async-channel)

;The rx-tx-async-channel struct was defined via struct-plus-plus, meaning

;it has a keyword constructor and dotted accessors in addition to the normal

;`struct`-generated versions.

;

;Both #:to-child and #:to-parent are optional, so the following are essentially equivalent:

> (define x1(rx-tx-async-channel++ #:to-child(make-async-channel)#:to-parent(make-async-channel)))

> (define ch(rx-tx-async-channel++ ))

;Obviously, you can also specify one argument and let the other default.

> (rx-tx-async-channel?ch)

#t

> (async-channel?(rx-tx-async-channel.to-child ch))

#t

> (async-channel?(rx-tx-async-channel.to-parent ch))

#t

> (define parent(rx-tx-async-channel.to-parent ch))

> (define child(rx-tx-async-channel.to-child ch))

> (async-channel-putparent1)

> (async-channel-putparent2)

> (async-channel-putparent3)

> (async-channel-putchild'a)

> (async-channel-putchild'b)

> (async-channel-putchild'c)

> (async-channel-getparent)

1

> (async-channel-getchild)

'a

> (async-channel-most-recent-message parent)

3

> (async-channel-most-recent-message child)

'c

3API🔗 i