basis/unix/ffi/bsd/bsd.factor

   1 ! Copyright (C) 2005, 2006 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types alien.syntax classes.struct combinators
   4 system unix.types vocabs.loader ;
   5 IN: unix.ffi
   6
   7 CONSTANT: MAXPATHLEN 1024
   8
   9 CONSTANT: O_RDONLY   0x0000
  10 CONSTANT: O_WRONLY   0x0001
  11 CONSTANT: O_RDWR     0x0002
  12 CONSTANT: O_NONBLOCK 0x0004
  13 CONSTANT: O_APPEND   0x0008
  14 CONSTANT: O_CREAT    0x0200
  15 CONSTANT: O_TRUNC    0x0400
  16 CONSTANT: O_EXCL     0x0800
  17 CONSTANT: O_NOCTTY   0x20000
  18 ALIAS: O_NDELAY O_NONBLOCK
  19
  20 CONSTANT: SOL_SOCKET 0xffff
  21 CONSTANT: SO_REUSEADDR 0x4
  22 CONSTANT: SO_OOBINLINE 0x100
  23 CONSTANT: SO_SNDTIMEO 0x1005
  24 CONSTANT: SO_RCVTIMEO 0x1006
  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