17 lines
445 B
Factor
17 lines
445 B
Factor
|
! 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 ;
|
||
|
|
|