(*
Module: BackupPCHosts
  Parses /etc/backuppc/hosts

About: Reference
  This lens tries to keep as close as possible to `man backuppc` where possible.

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

About: Lens Usage
   To be documented

About: Configuration files
   This lens applies to /etc/backuppc/hosts. See <filter>.
*)

module BackupPCHosts =
autoload xfm

(* View: word *)
let word = /[^#, \n\t\/]+/

(* View: record *)
let record =
  let moreusers = Build.opt_list [ label "moreusers" . store word ] Sep.comma in
              [ seq "host"
              . [ label "host" . store word ] . Util.del_ws_tab
              . [ label "dhcp" . store word ] . Util.del_ws_tab
              . [ label "user" . store word ]
              . (Util.del_ws_tab . moreusers)?
              . (Util.comment|Util.eol) ]

(* View: lns *)
let lns = ( Util.empty | Util.comment | record ) *

(* View: filter *)
let filter = incl "/etc/backuppc/hosts"

let xfm = transform lns filter