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 CONSTANT: MAXPATHLEN 1024
   7
   8 CONSTANT: O_RDONLY   HEX: 0000
   9 CONSTANT: O_WRONLY   HEX: 0001
  10 CONSTANT: O_RDWR     HEX: 0002
  11 CONSTANT: O_NONBLOCK HEX: 0004
  12 CONSTANT: O_APPEND   HEX: 0008
  13 CONSTANT: O_CREAT    HEX: 0200
  14 CONSTANT: O_TRUNC    HEX: 0400
  15 CONSTANT: O_EXCL     HEX: 0800
  16 CONSTANT: O_NOCTTY   HEX: 20000
  17 ALIAS: O_NDELAY O_NONBLOCK
  18
  19 CONSTANT: SOL_SOCKET HEX: ffff
  20 CONSTANT: SO_REUSEADDR HEX: 4
  21 CONSTANT: SO_OOBINLINE HEX: 100
  22 CONSTANT: SO_SNDTIMEO HEX: 1005
  23 CONSTANT: SO_RCVTIMEO HEX: 1006
  24
  25 CONSTANT: F_SETFD 2
  26 CONSTANT: F_SETFL 4
  27 CONSTANT: FD_CLOEXEC 1
  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 CONSTANT: max-un-path 104
  63
  64 CONSTANT: SOCK_STREAM 1
  65 CONSTANT: SOCK_DGRAM 2
  66
  67 CONSTANT: AF_UNSPEC 0
  68 CONSTANT: AF_UNIX 1
  69 CONSTANT: AF_INET 2
  70 CONSTANT: AF_INET6 30
  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 CONSTANT: IPPROTO_TCP 6
  78 CONSTANT: IPPROTO_UDP 17
  79
  80 CONSTANT: AI_PASSIVE 1
  81
  82 CONSTANT: SEEK_SET 0
  83 CONSTANT: SEEK_CUR 1
  84 CONSTANT: SEEK_END 2
  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