|
Server : Apache/2.4.18 (Ubuntu) System : Linux canvaswebdesign 3.13.0-71-generic #114-Ubuntu SMP Tue Dec 1 02:34:22 UTC 2015 x86_64 User : oppastar ( 1041) PHP Version : 7.0.33-0ubuntu0.16.04.15 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, Directory : /usr/share/augeas/lenses/dist/ |
Upload File : |
(*
Module: Schroot
Parses /etc/schroot/schroot.conf
Author: Raphael Pinson <raphink@gmail.com>
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 <filter>.
*)
module Schroot =
autoload xfm
(************************************************************************
* Group: USEFUL PRIMITIVES
*************************************************************************)
(* View: comment
An <IniFile.comment> entry *)
let comment = IniFile.comment "#" "#"
(* View: sep
An <IniFile.sep> 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 IniFile.entry_generic_nocomment (key "description" . lang?) sep "#" comment
(* View: entry
An <IniFile.entry>, or <description> *)
let entry = IniFile.entry (IniFile.entry_re - "description") sep comment
| description
(* View: title
An <IniFile.title> *)
let title = IniFile.title IniFile.record_re
(* View: record
An <IniFile.record> *)
let record = IniFile.record title entry
(* View: lns
An <IniFile.lns> *)
let lns = IniFile.lns record comment
(* View: filter *)
let filter = (incl "/etc/schroot/schroot.conf")
let xfm = transform lns filter