basis/unix/users/macosx/macosx.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: combinators accessors kernel unix.users
   4 system ;
   5 IN: unix.users.macosx
   6
   7 TUPLE: macosx-passwd < passwd change class expire fields ;
   8
   9 M: macosx new-passwd ( -- macosx-passwd ) macosx-passwd new ;
  10
  11 M: macosx passwd>new-passwd ( passwd -- macosx-passwd )
  12     [ call-next-method ] keep
  13     {
  14         [ pw_change>> >>change ]
  15         [ pw_class>> >>class ]
  16         [ pw_shell>> >>shell ]
  17         [ pw_expire>> >>expire ]
  18         [ pw_fields>> >>fields ]
  19     } cleave ;