basis/unix/utmpx/macosx/macosx.factor

   1 ! Copyright (C) 2013 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors calendar.unix combinators kernel system
   4 unix.ffi unix.utmpx ;
   5 IN: unix.utmpx.macosx
   6
   7 M: macosx utmpx>utmpx-record
   8     [ new-utmpx-record ] dip {
   9         [ ut_user>> _UTX_USERSIZE memory>string >>user ]
  10         [ ut_id>>   _UTX_IDSIZE memory>string >>id ]
  11         [ ut_line>> _UTX_LINESIZE memory>string >>line ]
  12         [ ut_pid>>  >>pid ]
  13         [ ut_type>> >>type ]
  14         [ ut_tv>>   timeval>unix-time >>timestamp ]
  15         [ ut_host>> _UTX_HOSTSIZE memory>string >>host ]
  16     } cleave ;