1 ! Copyright (C) 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.syntax combinators continuations
4 io.encodings.string io.encodings.utf8 kernel sequences strings
5 unix calendar system accessors unix.time calendar.unix
11 : BOOT_TIME 2 ; inline
14 : INIT_PROCESS 5 ; inline
15 : LOGIN_PROCESS 6 ; inline
16 : USER_PROCESS 7 ; inline
17 : DEAD_PROCESS 8 ; inline
18 : ACCOUNTING 9 ; inline
19 : SIGNATURE 10 ; inline
20 : SHUTDOWN_TIME 11 ; inline
22 FUNCTION: void setutxent ( ) ;
23 FUNCTION: void endutxent ( ) ;
24 FUNCTION: utmpx* getutxent ( ) ;
25 FUNCTION: utmpx* getutxid ( utmpx* id ) ;
26 FUNCTION: utmpx* getutxline ( utmpx* line ) ;
27 FUNCTION: utmpx* pututxline ( utmpx* utx ) ;
29 TUPLE: utmpx-record user id line pid type timestamp host ;
31 HOOK: new-utmpx-record os ( -- utmpx-record )
33 HOOK: utmpx>utmpx-record os ( utmpx -- utmpx-record )
35 : memory>string ( alien n -- string )
36 memory>byte-array utf8 decode [ 0 = ] trim-right ;
38 M: unix new-utmpx-record
41 M: unix utmpx>utmpx-record ( utmpx -- utmpx-record )
42 [ new-utmpx-record ] dip
44 [ utmpx-ut_user _UTX_USERSIZE memory>string >>user ]
45 [ utmpx-ut_id _UTX_IDSIZE memory>string >>id ]
46 [ utmpx-ut_line _UTX_LINESIZE memory>string >>line ]
47 [ utmpx-ut_pid >>pid ]
48 [ utmpx-ut_type >>type ]
49 [ utmpx-ut_tv timeval>unix-time >>timestamp ]
50 [ utmpx-ut_host _UTX_HOSTSIZE memory>string >>host ]
53 : with-utmpx ( quot -- )
54 setutxent [ endutxent ] [ ] cleanup ; inline
56 : all-utmpx ( -- seq )
59 [ utmpx>utmpx-record ]
64 { macosx [ "unix.utmpx.macosx" require ] }
65 { netbsd [ "unix.utmpx.netbsd" require ] }