unmaintained/sniffer/io/filter/backend/backend.factor

   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
   5
   6 HOOK: sniffer-loop io-backend ( stream -- )
   7 HOOK: packet. io-backend ( string -- )
   8
   9 : (packet.) ( string -- )
  10     dup 14 head >byte-array
  11     "--Ethernet Header--" print
  12         dup etherneth.
  13     dup etherneth-type {
  14         ! 0x800 [ ] ! IP
  15         ! 0x806 [ ] ! ARP
  16         [ "Unknown type: " write .h ]
  17     } case 2drop ;