(* Module: Schroot Parses /etc/schroot/schroot.conf Author: Raphael Pinson About: Reference This lens tries to keep as close as possible to `man 5 schroot.conf` 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/schroot/schroot.conf. See . *) module Schroot = autoload xfm (************************************************************************ * Group: USEFUL PRIMITIVES *************************************************************************) (* View: comment An entry *) let comment = IniFile.comment "#" "#" (* View: sep An entry *) let sep = IniFile.sep "=" "=" (************************************************************************ * Group: ENTRIES *************************************************************************) (* View: description Descriptions are special entries, which can have an optional lang parameter *) let description = let lang = [ Util.del_str "[" . label "lang" . store IniFile.entry_re . Util.del_str "]" ] in [ key "description" . lang? . sep . IniFile.sto_to_comment? . (comment|IniFile.eol) ] (* View: entry An , or *) let entry = IniFile.entry (IniFile.entry_re - "description") sep comment | description (* View: title An *) let title = IniFile.title IniFile.record_re (* View: record An *) let record = IniFile.record title entry (* View: lns An *) let lns = IniFile.lns record comment (* View: filter *) let filter = (incl "/etc/schroot/schroot.conf") . Util.stdexcl let xfm = transform lns filter