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

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

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