1 USING: alien.c-types hexdump io io.backend io.sockets.headers
2 io.sockets.headers.bsd kernel io.sniffer io.sniffer.bsd
3 io.streams.string io.unix.backend math
4 sequences system byte-arrays io.sniffer.filter.backend
5 io.sniffer.filter.backend io.sniffer.backend ;
6 IN: io.sniffer.filter.bsd
8 ! http://www.iana.org/assignments/ethernet-numbers
10 : bpf-align ( n -- n' )
11 #! Align to next higher word size
12 "long" heap-size align ;
14 M: unix-io packet. ( string -- )
15 18 cut swap >byte-array bpfh.
18 M: unix-io sniffer-loop ( stream -- )
20 4096 over stream-read-partial
28 "/dev/bpf0" "en0" <sniffer-spec> <sniffer> sniffer-loop ;
31 : sniff-wireless ( -- )
32 "/dev/bpf0" "en1" <sniffer-spec> <sniffer> sniffer-loop ;