(*
 Module: Gshadow
 Parses /etc/gshadow

 Author: Lorenzo M. Catucci <catucci@ccd.uniroma2.it>

 Original Author: Free Ekanayaka <free@64studio.com>

 About: Reference
   - man 5 gshadow

 About: License
   This file is licensed under the LGPL v2+, like the rest of Augeas.

 About:

 Each line in the gshadow files represents the additional shadow-defined
 attributes for the corresponding group, as defined in the group file.

*)

module Gshadow =

   autoload xfm

(************************************************************************
 *                           USEFUL PRIMITIVES
 *************************************************************************)

let eol        = Util.eol
let comment    = Util.comment
let empty      = Util.empty

let colon      = Sep.colon
let comma      = Sep.comma

let sto_to_spc = store Rx.space_in

let word    = Rx.word
let password = /[A-Za-z0-9_.!*-]*/
let integer = Rx.integer

(************************************************************************
 * Group:                        ENTRIES
 *************************************************************************)

(* View: member *)
let member       = [ label "member" . store word ]
(* View: member_list
         the member list is a comma separated list of
         users allowed to chgrp to the group without
         being prompted for the group's password *)
let member_list  = Build.opt_list member comma

(* View: admin *)
let admin      = [ label "admin" . store word ]
(* View: admin_list
         the admin_list is a comma separated list of
         users allowed to change the group's password
         and the member_list *)
let admin_list = Build.opt_list admin comma

(* View: params *)
let params     = [ label "password"  . store password  . colon ]
		 .  admin_list?     . colon
                 .  member_list?

let entry      = Build.key_value_line word colon params

(************************************************************************
 *                                LENS
 *************************************************************************)

let lns        = (comment|empty|entry) *

let filter
               = incl "/etc/gshadow"
               . Util.stdexcl

let xfm        = transform lns filter