1 USING: byte-arrays combinators io io.backend
2 io.sockets.headers io.sniffer.backend kernel
3 prettyprint sequences ;
4 IN: io.sniffer.filter.backend
6 HOOK: sniffer-loop io-backend ( stream -- )
7 HOOK: packet. io-backend ( string -- )
9 : (packet.) ( string -- )
10 dup 14 head >byte-array
11 "--Ethernet Header--" print
16 [ "Unknown type: " write .h ]