basis/unix/ffi/bsd/bsd.factor

   1 ! Copyright (C) 2005, 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types alien.syntax classes.struct combinators
   4 system unix.types vocabs ;
   5 IN: unix.ffi
   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 STRUCT: sockaddr-in
  31     { len uchar }
  32     { family uchar }
  33     { port ushort }
  34     { addr in_addr_t }
  35     { unused longlong } ;
  36
  37 STRUCT: sockaddr-in6
  38     { len uchar }
  39     { family uchar }
  40     { port ushort }
  41     { flowinfo uint }
  42     { addr uchar[16] }
  43     { scopeid uint } ;
  44
  45 STRUCT: sockaddr-un
  46     { len uchar }
  47     { family uchar }
  48     { path char[104] } ;
  49
  50 STRUCT: passwd
  51     { pw_name c-string }
  52     { pw_passwd c-string }
  53     { pw_uid uid_t }
  54     { pw_gid gid_t }
  55     { pw_change time_t }
  56     { pw_class c-string }
  57     { pw_gecos c-string }
  58     { pw_dir c-string }
  59     { pw_shell c-string }
  60     { pw_expire time_t }
  61     { pw_fields int } ;
  62
  63 CONSTANT: max-un-path 104
  64
  65 CONSTANT: SOCK_STREAM 1
  66 CONSTANT: SOCK_DGRAM 2
  67 CONSTANT: SOCK_RAW 3
  68
  69 CONSTANT: AF_UNSPEC 0
  70 CONSTANT: AF_UNIX 1
  71 CONSTANT: AF_INET 2
  72
  73 ALIAS: PF_UNSPEC AF_UNSPEC
  74 ALIAS: PF_UNIX AF_UNIX
  75 ALIAS: PF_INET AF_INET
  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.ffi.bsd.macosx"  require ] }
  88     { freebsd [ "unix.ffi.bsd.freebsd" require ] }
  89     { openbsd [ "unix.ffi.bsd.openbsd" require ] }
  90     { netbsd  [ "unix.ffi.bsd.netbsd"  require ] }
  91 } case