1 ! Copyright (C) 2007 Chris Double. All Rights Reserved.
2 ! See http://factorcode.org/license.txt for BSD license.
4 ! Wrap a sniffer in a channel
5 USING: kernel channels io io.backend io.sniffer
6 io.sniffer.backend system vocabs.loader ;
8 : (sniff-channel) ( stream channel -- )
9 4096 pick stream-read-partial over to (sniff-channel) ;
11 bsd? [ "channels.sniffer.bsd" require ] when