Hi Chris,
If you recall I mentioned making some 'channel adapters' at some
point, to mirror the functionality provided by models. What do you
think? Is this stuff useful?
Slava
--------
USING: channels kernel sequences threads;
TUPLE: channel-filter from to quot ;
C: <channel-filter> channel-filter
: run-channel-filter ( channel-filter -- )
dup channel-filter-from from
over channel-filter-quot call
over channel-filter-to to
run-channel-filter ;
TUPLE: channel-packer from to ;
C: <channel-packer> channel-packer
: run-channel-packer ( channel-filter -- )
dup channel-packer-from [ from ] map
over channel-packer-to to
run-channel-packer ;
TUPLE: channel-unpacker from to ;
C: <channel-unpacker> channel-unpacker
: run-channel-unpacker ( channel-filter -- )
dup channel-unpacker-from from
over channel-unpacker-to [ to ] 2map
run-channel-unpacker ;
TUPLE: channel-delay from to interval ;
C: <channel-delay> channel-delay
: run-channel-unpacker ( channel-delay -- )
dup channel-delay-from from
over channel-delay-interval sleep
over channel-delay-to to
run-channel-delay ;
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
