unmaintained/sniffer/channels/sniffer.factor

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