unmaintained: New home for misfit Factor vocabularies.

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

diff --git a/sniffer/channels/bsd/bsd.factor b/sniffer/channels/bsd/bsd.factor
new file mode 100644 (file)
index 0000000..f986f11
--- /dev/null
+++ b/sniffer/channels/bsd/bsd.factor
@@ -0,0 +1,16 @@
+! 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 channels.sniffer.backend
+threads io io.sniffer.backend io.sniffer.bsd
+io.unix.backend ;
+IN: channels.sniffer.bsd
+
+M: unix-io sniff-channel ( -- channel ) 
+  "/dev/bpf0" "en1" <sniffer-spec> <sniffer> <channel> [
+    [
+      (sniff-channel) 
+    ] 3curry spawn drop
+  ] keep ;
+