1 ! Copyright (C) 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.syntax unix unix.utmpx unix.ffi.bsd.netbsd accessors
4 system kernel combinators ;
7 TUPLE: netbsd-utmpx-record < utmpx-record
8 termination exit sockaddr ;
10 M: netbsd new-utmpx-record ( -- utmpx-record )
11 netbsd-utmpx-record new ;
13 M: netbsd utmpx>utmpx-record ( utmpx -- record )
14 [ new-utmpx-record ] dip
17 [ e_termination>> >>termination ]
18 [ e_exit>> >>exit ] bi
20 [ ut_ss>> >>sockaddr ] bi ;