Sharp.Augeas/Sharp.Augeas.Test/lens/group.aug

60 lines
1.7 KiB
Plaintext
Raw Normal View History

2022-11-08 20:57:02 +03:00
(* Group module for Augeas
Author: Free Ekanayaka <free@64studio.com>
Reference: man 5 group
*)
module Group =
autoload xfm
(************************************************************************
* USEFUL PRIMITIVES
*************************************************************************)
let eol = Util.eol
let comment = Util.comment
let empty = Util.empty
let dels = Util.del_str
let colon = Sep.colon
let comma = Sep.comma
let sto_to_spc = store Rx.space_in
let sto_to_col = Passwd.sto_to_col
let word = Rx.word
let password = /[A-Za-z0-9_.!*-]*/
let integer = Rx.integer
(************************************************************************
* ENTRIES
*************************************************************************)
let user = [ label "user" . store word ]
let user_list = Build.opt_list user comma
let params = [ label "password" . store password . colon ]
. [ label "gid" . store integer . colon ]
. user_list?
let entry = Build.key_value_line word colon params
let nisdefault =
let overrides =
colon
. [ label "password" . store password? . colon ]
. [ label "gid" . store integer? . colon ]
. user_list? in
[ dels "+" . label "@nisdefault" . overrides? . eol ]
(************************************************************************
* LENS
*************************************************************************)
let lns = (comment|empty|entry|nisdefault) *
let filter = incl "/etc/group"
let xfm = transform lns filter