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_APPEND  HEX: 0008 ; inline
  14 : O_CREAT   HEX: 0200 ; inline
  15 : O_TRUNC   HEX: 0400 ; inline
  16 : O_EXCL    HEX: 0800 ; inline
  17
  18 : SOL_SOCKET HEX: ffff ; inline
  19 : SO_REUSEADDR HEX: 4 ; inline
  20 : SO_OOBINLINE HEX: 100 ; inline
  21 : SO_SNDTIMEO HEX: 1005 ; inline
  22 : SO_RCVTIMEO HEX: 1006 ; inline
  23
  24 : F_SETFD 2 ; inline
  25 : F_SETFL 4 ; inline
  26 : FD_CLOEXEC 1 ; inline
  27 : O_NONBLOCK 4 ; inline
  28
  29 C-STRUCT: sockaddr-in
  30     { "uchar" "len" }
  31     { "uchar" "family" }
  32     { "ushort" "port" }
  33     { "in_addr_t" "addr" }
  34     { "longlong" "unused" } ;
  35
  36 C-STRUCT: sockaddr-in6
  37     { "uchar" "len" }
  38     { "uchar" "family" }
  39     { "ushort" "port" }
  40     { "uint" "flowinfo" }
  41     { { "uchar" 16 } "addr" }
  42     { "uint" "scopeid" } ;
  43
  44 C-STRUCT: sockaddr-un
  45     { "uchar" "len" }
  46     { "uchar" "family" }
  47     { { "char" 104 } "path" } ;
  48
  49 : max-un-path 104 ; inline
  50
  51 : SOCK_STREAM 1 ; inline
  52 : SOCK_DGRAM 2 ; inline
  53
  54 : AF_UNSPEC 0 ; inline
  55 : AF_UNIX 1 ; inline
  56 : AF_INET 2 ; inline
  57 : AF_INET6 30 ; inline
  58
  59 : PF_UNSPEC AF_UNSPEC ; inline
  60 : PF_UNIX AF_UNIX ; inline
  61 : PF_INET AF_INET ; inline
  62 : PF_INET6 AF_INET6 ; inline
  63
  64 : IPPROTO_TCP 6 ; inline
  65 : IPPROTO_UDP 17 ; inline
  66
  67 : AI_PASSIVE 1 ; inline
  68
  69 : SEEK_SET 0 ; inline
  70 : SEEK_CUR 1 ; inline
  71 : SEEK_END 2 ; inline
  72
  73 os {
  74     { macosx  [ "unix.bsd.macosx"  require ] }
  75     { freebsd [ "unix.bsd.freebsd" require ] }
  76     { openbsd [ "unix.bsd.openbsd" require ] }
  77     { netbsd  [ "unix.bsd.netbsd"  require ] }
  78 } case