basis/unix/solaris/solaris.factor

   1 ! Copyright (C) 2006 Patrick Mauritz.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: unix
   4 USING: alien.syntax system kernel ;
   5
   6 ! Solaris.
   7
   8 : O_RDONLY  HEX: 0000 ; inline
   9 : O_WRONLY  HEX: 0001 ; inline
  10 : O_RDWR    HEX: 0002 ; inline
  11 : O_APPEND  HEX: 0008 ; inline
  12 : O_CREAT   HEX: 0100 ; inline
  13 : O_TRUNC   HEX: 0200 ; inline
  14
  15 : SEEK_END 2 ; inline
  16
  17 : SOL_SOCKET HEX: ffff ; inline
  18
  19 : FD_SETSIZE cell 4 = 1024 65536 ? ; inline
  20
  21 : SO_REUSEADDR 4 ; inline
  22 : SO_OOBINLINE HEX: 0100 ; inline
  23 : SO_SNDTIMEO HEX: 1005 ; inline
  24 : SO_RCVTIMEO HEX: 1006 ; inline
  25
  26 : F_SETFL 4 ;    ! set file status flags
  27 : O_NONBLOCK HEX: 80 ; ! no delay
  28
  29 C-STRUCT: addrinfo
  30     { "int" "flags" }
  31     { "int" "family" }
  32     { "int" "socktype" }
  33     { "int" "protocol" }
  34 ! #ifdef __sparcv9
  35 !         int _ai_pad;
  36 ! #endif
  37     { "int" "addrlen" }
  38     { "char*" "canonname" }
  39     { "void*" "addr" }
  40     { "void*" "next" } ;
  41
  42 C-STRUCT: sockaddr-in
  43     { "ushort" "family" }
  44     { "ushort" "port" }
  45     { "in_addr_t" "addr" }
  46     { "longlong" "unused" } ;
  47
  48 C-STRUCT: sockaddr-in6
  49     { "ushort" "family" }
  50     { "ushort" "port" }
  51     { "uint" "flowinfo" }
  52     { { "uchar" 16 } "addr" }
  53     { "uint" "scopeid" } ;
  54
  55 : max-un-path 108 ;
  56
  57 C-STRUCT: sockaddr-un
  58     { "ushort" "family" }
  59     { { "char" max-un-path } "path" } ;
  60
  61 : EINTR 4 ; inline
  62 : EAGAIN 11 ; inline
  63 : EINPROGRESS 150 ; inline
  64
  65 : SOCK_STREAM 2 ; inline
  66 : SOCK_DGRAM 1 ; inline
  67
  68 : AF_UNSPEC 0 ; inline
  69 : AF_UNIX 1 ; inline
  70 : AF_INET 2 ; inline
  71 : AF_INET6 26 ; inline
  72
  73 : PF_UNSPEC AF_UNSPEC ; inline
  74 : PF_UNIX AF_UNIX ; inline
  75 : PF_INET AF_INET ; inline
  76 : PF_INET6 AF_INET6 ; inline
  77
  78 : IPPROTO_TCP 6 ; inline
  79 : IPPROTO_UDP 17 ; inline
  80
  81 : AI_PASSIVE 8 ; inline