Blame lenses/spacevars.aug
|
Packit Service |
a2ae7a |
(* Spacevars module for Augeas
|
|
Packit Service |
a2ae7a |
Author: Free Ekanayaka <free@64studio.com>
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
Reference: man interfaces
|
|
Packit Service |
a2ae7a |
This is a generic lens for simple key/value configuration files where
|
|
Packit Service |
a2ae7a |
keys and values are separated by a sequence of spaces or tabs.
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
*)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
module Spacevars =
|
|
Packit Service |
a2ae7a |
autoload xfm
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(************************************************************************
|
|
Packit Service |
a2ae7a |
* USEFUL PRIMITIVES
|
|
Packit Service |
a2ae7a |
*************************************************************************)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let comment = Util.comment
|
|
Packit Service |
a2ae7a |
let empty = Util.empty
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(************************************************************************
|
|
Packit Service |
a2ae7a |
* ENTRIES
|
|
Packit Service |
a2ae7a |
*************************************************************************)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let entry = Build.key_ws_value /[A-Za-z0-9._-]+(\[[0-9]+\])?/
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let flag = [ key /[A-Za-z0-9._-]+(\[[0-9]+\])?/ . Util.doseol ]
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(************************************************************************
|
|
Packit Service |
a2ae7a |
* LENS
|
|
Packit Service |
a2ae7a |
*************************************************************************)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let lns = (comment|empty|entry|flag)*
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let simple_lns = lns (* An alias for compatibility reasons *)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
(* configuration files that can be parsed without customizing the lens *)
|
|
Packit Service |
a2ae7a |
let filter = incl "/etc/havp/havp.config"
|
|
Packit Service |
a2ae7a |
. incl "/etc/ldap.conf"
|
|
Packit Service |
a2ae7a |
. incl "/etc/ldap/ldap.conf"
|
|
Packit Service |
a2ae7a |
. incl "/etc/libnss-ldap.conf"
|
|
Packit Service |
a2ae7a |
. incl "/etc/pam_ldap.conf"
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let xfm = transform lns filter
|