Parses /etc/schroot/schroot.conf
Author: Raphael Pinson raphink@gmail.com
| Schroot | Parses /etc/schroot/schroot.conf | 
| Reference | This lens tries to keep as close as possible to `man 5 schroot.conf` where possible. | 
| License | This file is licenced under the LGPL v2+, like the rest of Augeas. | 
| Lens Usage | To be documented | 
| Configuration files | This lens applies to /etc/schroot/schroot.conf. | 
| USEFUL PRIMITIVES | |
| comment | An IniFile.comment entry | 
| sep | An IniFile.sep entry | 
| ENTRIES | |
| description | Descriptions are special entries, which can have an optional lang parameter | 
| entry | An IniFile.entry, or description | 
| title | An IniFile.title | 
| record | An IniFile.record | 
| lns | An IniFile.lns | 
| filter | 
This lens applies to /etc/schroot/schroot.conf. See filter.
let comment = IniFile.comment "#" "#" 
An IniFile.comment entry
let sep = IniFile.sep "=" "=" 
An IniFile.sep entry
let entry = IniFile.entry (IniFile.entry_re - "description") sep comment | description 
An IniFile.entry, or description
let lns = IniFile.lns record comment 
An IniFile.lns
An IniFile.comment entry
let comment = IniFile.comment "#" "#" 
Map comments into “#comment” nodes
let comment (pat:regexp) (default:string) = Util.comment_generic_seteol (Rx.opt_space . pat . Rx.opt_space) default eol 
An IniFile.sep entry
let sep = IniFile.sep "=" "=" 
Generic separator
let sep (pat:regexp) (default:string) = Sep.opt_space . del pat default 
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 IniFile.entry_generic_nocomment (key "description" . lang?) sep "#" comment 
An IniFile.entry, or description
let entry = IniFile.entry (IniFile.entry_re - "description") sep comment | description 
Generic INI File entry
let entry (kw:regexp) (sep:lens) (comment:lens) = entry_generic (key kw) sep comment_re comment 
An IniFile.title
let title = IniFile.title IniFile.record_re 
Title for record.
let title (kw:regexp) = Util.del_str "[" . key kw . Util.del_str "]". eol 
An IniFile.record
let record = IniFile.record title entry 
Generic INI File record
let record (title:lens) (entry:lens) = record_noempty title ( entry | empty ) 
An IniFile.lns
let lns = IniFile.lns record comment 
Generic INI File lens
let lns (record:lens) (comment:lens) = lns_noempty record (comment|empty)