unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / sniffer / channels / sniffer.factor

diff --git a/sniffer/channels/sniffer.factor b/sniffer/channels/sniffer.factor
new file mode 100644 (file)
index 0000000..cbf31c7
--- /dev/null
+++ b/sniffer/channels/sniffer.factor
@@ -0,0 +1,11 @@
+! Copyright (C) 2007 Chris Double. All Rights Reserved.
+! See http://factorcode.org/license.txt for BSD license.
+!
+! Wrap a sniffer in a channel
+USING: kernel channels io io.backend io.sniffer
+io.sniffer.backend system vocabs.loader ;
+
+: (sniff-channel) ( stream channel -- ) 
+  4096 pick stream-read-partial over to (sniff-channel) ;
+
+bsd? [ "channels.sniffer.bsd" require ] when