steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unix.utmpx: fix load errors

db4
Slava Pestov 2010-02-21 20:19:11 +13:00
parent 0e8f3670a3
commit 570a2d0b37
2 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
basis/unix/utmpx/netbsd/netbsd.factor
View File

@ -1,22 +1,20 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax unix.utmpx unix.bsd.netbsd accessors
unix.utmpx system kernel unix combinators ;
USING: alien.syntax unix unix.utmpx unix.ffi.bsd.netbsd accessors
system kernel combinators ;
IN: unix.utmpx.netbsd
TUPLE: netbsd-utmpx-record < utmpx-record termination exit
sockaddr ;
TUPLE: netbsd-utmpx-record < utmpx-record
termination exit sockaddr ;
M: netbsd new-utmpx-record ( -- utmpx-record )
netbsd-utmpx-record new ;
netbsd-utmpx-record new ;
M: netbsd utmpx>utmpx-record ( utmpx -- record )
[ new-utmpx-record ] keep
{
[
utmpx-ut_exit
[ exit_struct-e_termination >>termination ]
[ exit_struct-e_exit >>exit ] bi
]
[ utmpx-ut_ss >>sockaddr ]
} cleave ;
[ new-utmpx-record ] dip
[
ut_exit>>
[ e_termination>> >>termination ]
[ e_exit>> >>exit ] bi
]
[ ut_ss>> >>sockaddr ] bi ;

3
basis/unix/utmpx/platforms.txt
View File

@ -1 +1,2 @@
unix
macosx
netbsd