sssd.aug

module Sssd =

let entry = Build.key_value_line Rx.word Sep.space_equal (store Rx.word)

let rec subsection = [ Util.del_str "/" . key Rx.word
                     . (  subsection
                        | Util.del_str "]" . Util.eol . entry*)
                     ]

let section = [ Util.del_str "[" . key Rx.word
              . (  subsection
                 | Util.del_str "]" . Util.eol . entry*)
               ]

let lns = (section | Util.empty | Util.comment)*

test lns get 
"
[sssd]
key = value
 
[domain/LDAP]
key = value
 
[domain/AD/BC]
key = value\n" =
  { "sssd" { "key" = "value" } }
  { "domain" { "LDAP" { "key" = "value" } } }
  { "domain" { "AD" { "key" = "value" } } }