|
Packit Service |
a2ae7a |
(*
|
|
Packit Service |
a2ae7a |
Module: Schroot
|
|
Packit Service |
a2ae7a |
Parses /etc/schroot/schroot.conf
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
Author: Raphael Pinson <raphink@gmail.com>
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
About: Reference
|
|
Packit Service |
a2ae7a |
This lens tries to keep as close as possible to `man 5 schroot.conf` where possible.
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
About: License
|
|
Packit Service |
a2ae7a |
This file is licenced under the LGPL v2+, like the rest of Augeas.
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
About: Lens Usage
|
|
Packit Service |
a2ae7a |
To be documented
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
About: Configuration files
|
|
Packit Service |
a2ae7a |
This lens applies to /etc/schroot/schroot.conf. See <filter>.
|
|
Packit Service |
a2ae7a |
*)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
module Schroot =
|
|
Packit Service |
a2ae7a |
autoload xfm
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(************************************************************************
|
|
Packit Service |
a2ae7a |
* Group: USEFUL PRIMITIVES
|
|
Packit Service |
a2ae7a |
*************************************************************************)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* View: comment
|
|
Packit Service |
a2ae7a |
An <IniFile.comment> entry *)
|
|
Packit Service |
a2ae7a |
let comment = IniFile.comment "#" "#"
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* View: sep
|
|
Packit Service |
a2ae7a |
An <IniFile.sep> entry *)
|
|
Packit Service |
a2ae7a |
let sep = IniFile.sep "=" "="
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(************************************************************************
|
|
Packit Service |
a2ae7a |
* Group: ENTRIES
|
|
Packit Service |
a2ae7a |
*************************************************************************)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* View: description
|
|
Packit Service |
a2ae7a |
Descriptions are special entries, which can have an optional lang parameter *)
|
|
Packit Service |
a2ae7a |
let description =
|
|
Packit Service |
a2ae7a |
let lang = [ Util.del_str "[" . label "lang"
|
|
Packit Service |
a2ae7a |
. store IniFile.entry_re . Util.del_str "]" ]
|
|
Packit Service |
a2ae7a |
in IniFile.entry_generic_nocomment (key "description" . lang?) sep "#" comment
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* View: entry
|
|
Packit Service |
a2ae7a |
An <IniFile.entry>, or <description> *)
|
|
Packit Service |
a2ae7a |
let entry = IniFile.entry (IniFile.entry_re - "description") sep comment
|
|
Packit Service |
a2ae7a |
| description
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* View: title
|
|
Packit Service |
a2ae7a |
An <IniFile.title> *)
|
|
Packit Service |
a2ae7a |
let title = IniFile.title IniFile.record_re
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* View: record
|
|
Packit Service |
a2ae7a |
An <IniFile.record> *)
|
|
Packit Service |
a2ae7a |
let record = IniFile.record title entry
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* View: lns
|
|
Packit Service |
a2ae7a |
An <IniFile.lns> *)
|
|
Packit Service |
a2ae7a |
let lns = IniFile.lns record comment
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* View: filter *)
|
|
Packit Service |
a2ae7a |
let filter = (incl "/etc/schroot/schroot.conf")
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let xfm = transform lns filter
|