+++ /dev/null
-! Copyright (C) 2007 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.syntax byte-arrays io
-kernel math prettyprint ;
-IN: io.sockets.headers.bsd
-
-C-STRUCT: bpfh
- { "timeval" "timestamp" }
- { "ulong" "caplen" }
- { "ulong" "datalen" }
- { "ushort" "hdrlen" } ;
-
-: bpfh. ( bpfh -- )
- [
- bpfh-timestamp "Timestamp: " write
- "timeval" heap-size memory>byte-array .
- ] keep
- [ bpfh-caplen "caplen: " write . ] keep
- [ bpfh-datalen "datalen: " write . ] keep
- [ bpfh-hdrlen "hdrlen: " write . ] keep
- drop ;
-