basis/unix/bsd/netbsd/structs/structs.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.syntax unix.time classes.struct ;
   4 IN: unix
   5
   6 STRUCT: sockaddr_storage
   7     { ss_len __uint8_t }
   8     { ss_family sa_family_t }
   9     { __ss_pad1 { "char" _SS_PAD1SIZE } }
  10     { __ss_align __int64_t }
  11     { __ss_pad2 { "char" _SS_PAD2SIZE } } ;
  12
  13 STRUCT: exit_struct
  14     { e_termination uint16_t }
  15     { e_exit uint16_t } ;
  16
  17 C-STRUCT: utmpx
  18     { { "char" _UTX_USERSIZE } "ut_user" }
  19     { { "char" _UTX_IDSIZE } "ut_id" }
  20     { { "char" _UTX_LINESIZE } "ut_line" }
  21     { { "char" _UTX_HOSTSIZE } "ut_host" }
  22     { "uint16_t" "ut_session" }
  23     { "uint16_t" "ut_type" }
  24     { "pid_t" "ut_pid" }
  25     { "exit_struct" "ut_exit" }
  26     { "sockaddr_storage" "ut_ss" }
  27     { "timeval" "ut_tv" }
  28     { { "uint32_t" 10 } "ut_pad" } ;
  29