basis/unix/bsd/bsd.factor

   1 ! Copyright (C) 2005, 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.syntax combinators system vocabs.loader ;
   4 IN: unix
   5
   6 ! FreeBSD
   7
   8 : MAXPATHLEN 1024 ; inline
   9
  10 : O_RDONLY   HEX: 0000 ; inline
  11 : O_WRONLY   HEX: 0001 ; inline
  12 : O_RDWR     HEX: 0002 ; inline
  13 : O_NONBLOCK HEX: 0004 ; inline
  14 : O_APPEND   HEX: 0008 ; inline
  15 : O_CREAT    HEX: 0200 ; inline
  16 : O_TRUNC    HEX: 0400 ; inline
  17 : O_EXCL     HEX: 0800 ; inline
  18 : O_NOCTTY   HEX: 20000 ; inline
  19 : O_NDELAY O_NONBLOCK ; inline
  20
  21 : SOL_SOCKET HEX: ffff ; inline
  22 : SO_REUSEADDR HEX: 4 ; inline
  23 : SO_OOBINLINE HEX: 100 ; inline
  24 : SO_SNDTIMEO HEX: 1005 ; inline
  25 : SO_RCVTIMEO HEX: 1006 ; inline
  26
  27 : F_SETFD 2 ; inline
  28 : F_SETFL 4 ; inline
  29 : FD_CLOEXEC 1 ; inline
  30
  31 C-STRUCT: sockaddr-in
  32     { "uchar" "len" }
  33     { "uchar" "family" }
  34     { "ushort" "port" }
  35     { "in_addr_t" "addr" }
  36     { "longlong" "unused" } ;
  37
  38 C-STRUCT: sockaddr-in6
  39     { "uchar" "len" }
  40     { "uchar" "family" }
  41     { "ushort" "port" }
  42     { "uint" "flowinfo" }
  43     { { "uchar" 16 } "addr" }
  44     { "uint" "scopeid" } ;
  45
  46 C-STRUCT: sockaddr-un
  47     { "uchar" "len" }
  48     { "uchar" "family" }
  49     { { "char" 104 } "path" } ;
  50
  51 : max-un-path 104 ; inline
  52
  53 : SOCK_STREAM 1 ; inline
  54 : SOCK_DGRAM 2 ; inline
  55
  56 : AF_UNSPEC 0 ; inline
  57 : AF_UNIX 1 ; inline
  58 : AF_INET 2 ; inline
  59 : AF_INET6 30 ; inline
  60
  61 : PF_UNSPEC AF_UNSPEC ; inline
  62 : PF_UNIX AF_UNIX ; inline
  63 : PF_INET AF_INET ; inline
  64 : PF_INET6 AF_INET6 ; inline
  65
  66 : IPPROTO_TCP 6 ; inline
  67 : IPPROTO_UDP 17 ; inline
  68
  69 : AI_PASSIVE 1 ; inline
  70
  71 : SEEK_SET 0 ; inline
  72 : SEEK_CUR 1 ; inline
  73 : SEEK_END 2 ; inline
  74
  75 os {
  76     { macosx  [ "unix.bsd.macosx"  require ] }
  77     { freebsd [ "unix.bsd.freebsd" require ] }
  78     { openbsd [ "unix.bsd.openbsd" require ] }
  79     { netbsd  [ "unix.bsd.netbsd"  require ] }
  80 } case