23 lines
600 B
Factor
23 lines
600 B
Factor
|
! 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 ;
|
||
|
|
|