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 constants ;
   5 IN: unix
   6
   7 CONSTANT: MAXPATHLEN 1024
   8
   9 CONSTANT: O_RDONLY   HEX: 0000
  10 CONSTANT: O_WRONLY   HEX: 0001
  11 CONSTANT: O_RDWR     HEX: 0002
  12 CONSTANT: O_NONBLOCK HEX: 0004
  13 CONSTANT: O_APPEND   HEX: 0008
  14 CONSTANT: O_CREAT    HEX: 0200
  15 CONSTANT: O_TRUNC    HEX: 0400
  16 CONSTANT: O_EXCL     HEX: 0800
  17 CONSTANT: O_NOCTTY   HEX: 20000
  18 ALIAS: O_NDELAY O_NONBLOCK
  19
  20 CONSTANT: SOL_SOCKET HEX: ffff
  21 CONSTANT: SO_REUSEADDR HEX: 4
  22 CONSTANT: SO_OOBINLINE HEX: 100
  23 CONSTANT: SO_SNDTIMEO HEX: 1005
  24 CONSTANT: SO_RCVTIMEO HEX: 1006
  25
  26 CONSTANT: F_SETFD 2
  27 CONSTANT: F_SETFL 4
  28 CONSTANT: FD_CLOEXEC 1
  29
  30 C-STRUCT: sockaddr-in
  31     { "uchar" "len" }
  32     { "uchar" "family" }
  33     { "ushort" "port" }
  34     { "in_addr_t" "addr" }
  35     { "longlong" "unused" } ;
  36
  37 C-STRUCT: sockaddr-in6
  38     { "uchar" "len" }
  39     { "uchar" "family" }
  40     { "ushort" "port" }
  41     { "uint" "flowinfo" }
  42     { { "uchar" 16 } "addr" }
  43     { "uint" "scopeid" } ;
  44
  45 C-STRUCT: sockaddr-un
  46     { "uchar" "len" }
  47     { "uchar" "family" }
  48     { { "char" 104 } "path" } ;
  49
  50 C-STRUCT: passwd
  51     { "char*"  "pw_name" }
  52     { "char*"  "pw_passwd" }
  53     { "uid_t"  "pw_uid" }
  54     { "gid_t"  "pw_gid" }
  55     { "time_t" "pw_change" }
  56     { "char*"  "pw_class" }
  57     { "char*"  "pw_gecos" }
  58     { "char*"  "pw_dir" }
  59     { "char*"  "pw_shell" }
  60     { "time_t" "pw_expire" }
  61     { "int"    "pw_fields" } ;
  62
  63 CONSTANT: max-un-path 104
  64
  65 CONSTANT: SOCK_STREAM 1
  66 CONSTANT: SOCK_DGRAM 2
  67
  68 CONSTANT: AF_UNSPEC 0
  69 CONSTANT: AF_UNIX 1
  70 CONSTANT: AF_INET 2
  71 CONSTANT: AF_INET6 30
  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 1
  82
  83 CONSTANT: SEEK_SET 0
  84 CONSTANT: SEEK_CUR 1
  85 CONSTANT: SEEK_END 2
  86
  87 os {
  88     { macosx  [ "unix.bsd.macosx"  require ] }
  89     { freebsd [ "unix.bsd.freebsd" require ] }
  90     { openbsd [ "unix.bsd.openbsd" require ] }
  91     { netbsd  [ "unix.bsd.netbsd"  require ] }
  92 } case