basis/unix/ffi/solaris/solaris.factor

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