QUALIFIED: unix
IN: io.sniffer.bsd
-M: unix-io destruct-handle ( obj -- ) unix:close drop ;
+M: unix-io destruct-handle ( obj -- ) unix:close ;
C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ;
C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;
C: <sniffer-spec> sniffer-spec
-: IOCPARM_MASK HEX: 1fff ; inline
+: IOCPARM_MASK 0x1fff ; inline
: IOCPARM_MAX IOCPARM_MASK 1+ ; inline
-: IOC_VOID HEX: 20000000 ; inline
-: IOC_OUT HEX: 40000000 ; inline
-: IOC_IN HEX: 80000000 ; inline
+: IOC_VOID 0x20000000 ; inline
+: IOC_OUT 0x40000000 ; inline
+: IOC_IN 0x80000000 ; inline
: IOC_INOUT IOC_IN IOC_OUT bitor ; inline
-: IOC_DIRMASK HEX: e0000000 ; inline
+: IOC_DIRMASK 0xe0000000 ; inline
-:: ioc | inout group num len |
+:: ioc ( inout group num len -- n )
group first 8 shift num bitor
len IOCPARM_MASK bitand 16 shift bitor
inout bitor ;