unmaintained/sniffer/channels/bsd/bsd.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 channels.sniffer.backend
   6 threads io io.sniffer.backend io.sniffer.bsd
   7 io.unix.backend ;
   8 IN: channels.sniffer.bsd
   9
  10 M: unix-io sniff-channel ( -- channel )
  11   "/dev/bpf0" "en1" <sniffer-spec> <sniffer> <channel> [
  12     [
  13       (sniff-channel)
  14     ] 3curry spawn drop
  15   ] keep ;
  16