basis/unix/users/bsd/bsd.factor

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