1 ! Copyright (C) 2007 Elie Chaftari, Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.syntax destructors hexdump io
4 io.buffers io.nonblocking io.sockets
5 io.unix.backend io.unix.files kernel libc locals math qualified
6 sequences io.sniffer.backend ;
10 M: unix-io destruct-handle ( obj -- ) unix:close ;
12 C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ;
13 C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;
15 TUPLE: sniffer-spec path ifname ;
17 C: <sniffer-spec> sniffer-spec
19 : IOCPARM_MASK 0x1fff ; inline
20 : IOCPARM_MAX IOCPARM_MASK 1+ ; inline
21 : IOC_VOID 0x20000000 ; inline
22 : IOC_OUT 0x40000000 ; inline
23 : IOC_IN 0x80000000 ; inline
24 : IOC_INOUT IOC_IN IOC_OUT bitor ; inline
25 : IOC_DIRMASK 0xe0000000 ; inline
27 :: ioc ( inout group num len -- n )
28 group first 8 shift num bitor
29 len IOCPARM_MASK bitand 16 shift bitor
32 : io-len ( type -- n )
33 dup zero? [ heap-size ] unless ;
35 : io ( group num -- n )
36 IOC_VOID -rot 0 io-len ioc ;
38 : ior ( group num type -- n )
39 IOC_OUT -roll io-len ioc ;
41 : iow ( group num type -- n )
42 IOC_IN -roll io-len ioc ;
44 : iowr ( group num type -- n )
45 IOC_INOUT -roll io-len ioc ;
47 : BIOCGBLEN ( -- n ) "B" 102 "uint" ior ; inline
48 : BIOCSETIF ( -- n ) "B" 108 "ifreq" iow ; inline
49 : BIOCPROMISC ( -- n ) "B" 105 io ; inline
50 : BIOCIMMEDIATE ( -- n ) "B" 112 "uint" iow ; inline
52 : make-ifreq-props ( ifname -- ifreq )
54 12 <short> 16 0 pad-right over set-ifreq-props
55 swap malloc-char-string dup free-always
58 : make-ioctl-buffer ( fd -- buffer )
59 BIOCGBLEN "char*" <c-object>
60 [ unix:ioctl io-error ] keep
63 : ioctl-BIOSETIF ( fd ifreq -- )
64 >r BIOCSETIF r> unix:ioctl io-error ;
66 : ioctl-BIOPROMISC ( fd -- )
67 BIOCPROMISC f unix:ioctl io-error ;
70 BIOCIMMEDIATE 1 <int> unix:ioctl io-error ;
72 : ioctl-sniffer-fd ( fd ifname -- )
73 dupd make-ifreq-props ioctl-BIOSETIF
77 M: unix-io <sniffer> ( obj -- sniffer )
84 dupd sniffer-spec-ifname ioctl-sniffer-fd
86 input-port <port> <line-reader>
87 \ sniffer construct-delegate