unmaintained/sniffer/io/bsd/bsd.factor

   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 ;
   7 QUALIFIED: unix
   8 IN: io.sniffer.bsd
   9
  10 M: unix-io destruct-handle ( obj -- ) unix:close ;
  11
  12 C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ;
  13 C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;
  14
  15 TUPLE: sniffer-spec path ifname ;
  16
  17 C: <sniffer-spec> sniffer-spec
  18
  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
  26
  27 :: ioc ( inout group num len -- n )
  28     group first 8 shift num bitor
  29     len IOCPARM_MASK bitand 16 shift bitor
  30     inout bitor ;
  31
  32 : io-len ( type -- n )
  33     dup zero? [ heap-size ] unless ;
  34
  35 : io ( group num -- n )
  36     IOC_VOID -rot 0 io-len ioc ;
  37
  38 : ior ( group num type -- n )
  39     IOC_OUT -roll io-len ioc ;
  40
  41 : iow ( group num type -- n )
  42     IOC_IN -roll io-len ioc ;
  43
  44 : iowr ( group num type -- n )
  45     IOC_INOUT -roll io-len ioc ;
  46
  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
  51
  52 : make-ifreq-props ( ifname -- ifreq )
  53     "ifreq" <c-object>
  54     12 <short> 16 0 pad-right over set-ifreq-props
  55     swap malloc-char-string dup free-always
  56     over set-ifreq-name ;
  57
  58 : make-ioctl-buffer ( fd -- buffer )
  59     BIOCGBLEN "char*" <c-object>
  60     [ unix:ioctl io-error ] keep
  61     *int <buffer> ;
  62
  63 : ioctl-BIOSETIF ( fd ifreq -- )
  64     >r BIOCSETIF r> unix:ioctl io-error ;
  65
  66 : ioctl-BIOPROMISC ( fd -- )
  67     BIOCPROMISC f unix:ioctl io-error ;
  68
  69 : ioctl-BIOCIMMEDIATE
  70     BIOCIMMEDIATE 1 <int> unix:ioctl io-error ;
  71
  72 : ioctl-sniffer-fd ( fd ifname -- )
  73     dupd make-ifreq-props ioctl-BIOSETIF
  74     dup ioctl-BIOPROMISC
  75     ioctl-BIOCIMMEDIATE ;
  76
  77 M: unix-io <sniffer> ( obj -- sniffer )
  78     [
  79         [
  80             sniffer-spec-path
  81             open-read
  82             dup close-later
  83         ] keep
  84         dupd sniffer-spec-ifname ioctl-sniffer-fd
  85         dup make-ioctl-buffer
  86         input-port <port> <line-reader>
  87         \ sniffer construct-delegate
  88     ] with-destructors ;
  89