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 alias ;
   4 IN: unix
   5
   6 : MAXPATHLEN 1024 ; inline
   7
   8 : O_RDONLY   HEX: 0000 ; inline
   9 : O_WRONLY   HEX: 0001 ; inline
  10 : O_RDWR     HEX: 0002 ; inline
  11 : O_NONBLOCK HEX: 0004 ; inline
  12 : O_APPEND   HEX: 0008 ; inline
  13 : O_CREAT    HEX: 0200 ; inline
  14 : O_TRUNC    HEX: 0400 ; inline
  15 : O_EXCL     HEX: 0800 ; inline
  16 : O_NOCTTY   HEX: 20000 ; inline
  17 ALIAS: O_NDELAY O_NONBLOCK
  18
  19 : SOL_SOCKET HEX: ffff ; inline
  20 : SO_REUSEADDR HEX: 4 ; inline
  21 : SO_OOBINLINE HEX: 100 ; inline
  22 : SO_SNDTIMEO HEX: 1005 ; inline
  23 : SO_RCVTIMEO HEX: 1006 ; inline
  24
  25 : F_SETFD 2 ; inline
  26 : F_SETFL 4 ; inline
  27 : FD_CLOEXEC 1 ; 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 C-STRUCT: passwd
  50     { "char*"  "pw_name" }
  51     { "char*"  "pw_passwd" }
  52     { "uid_t"  "pw_uid" }
  53     { "gid_t"  "pw_gid" }
  54     { "time_t" "pw_change" }
  55     { "char*"  "pw_class" }
  56     { "char*"  "pw_gecos" }
  57     { "char*"  "pw_dir" }
  58     { "char*"  "pw_shell" }
  59     { "time_t" "pw_expire" }
  60     { "int"    "pw_fields" } ;
  61
  62 : max-un-path 104 ; inline
  63
  64 : SOCK_STREAM 1 ; inline
  65 : SOCK_DGRAM 2 ; inline
  66
  67 : AF_UNSPEC 0 ; inline
  68 : AF_UNIX 1 ; inline
  69 : AF_INET 2 ; inline
  70 : AF_INET6 30 ; inline
  71
  72 ALIAS: PF_UNSPEC AF_UNSPEC
  73 ALIAS: PF_UNIX AF_UNIX
  74 ALIAS: PF_INET AF_INET
  75 ALIAS: PF_INET6 AF_INET6
  76
  77 : IPPROTO_TCP 6 ; inline
  78 : IPPROTO_UDP 17 ; inline
  79
  80 : AI_PASSIVE 1 ; inline
  81
  82 : SEEK_SET 0 ; inline
  83 : SEEK_CUR 1 ; inline
  84 : SEEK_END 2 ; inline
  85
  86 os {
  87     { macosx  [ "unix.bsd.macosx"  require ] }
  88     { freebsd [ "unix.bsd.freebsd" require ] }
  89     { openbsd [ "unix.bsd.openbsd" require ] }
  90     { netbsd  [ "unix.bsd.netbsd"  require ] }
  91 } case