mirror of
https://github.com/empayre/fleet.git
synced 2024-11-06 17:05:18 +00:00
44 lines
1.1 KiB
Plaintext
44 lines
1.1 KiB
Plaintext
(* Soma module for Augeas
|
|
Author: Free Ekanayaka <free@64studio.com>
|
|
|
|
Reference: man 5 soma.cfg
|
|
|
|
*)
|
|
|
|
module Soma =
|
|
|
|
autoload xfm
|
|
|
|
(************************************************************************
|
|
* USEFUL PRIMITIVES
|
|
*************************************************************************)
|
|
|
|
let eol = Util.eol
|
|
let comment = Util.comment
|
|
let empty = Util.empty
|
|
|
|
let sep_eq = del /[ \t]*=[ \t]*/ " = "
|
|
|
|
let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
|
|
|
|
let word = /[A-Za-z0-9_.-]+/
|
|
|
|
(************************************************************************
|
|
* ENTRIES
|
|
*************************************************************************)
|
|
|
|
let entry = [ key word
|
|
. sep_eq
|
|
. sto_to_eol
|
|
. eol ]
|
|
|
|
(************************************************************************
|
|
* LENS
|
|
*************************************************************************)
|
|
|
|
let lns = (comment|empty|entry) *
|
|
|
|
let filter = incl "/etc/somad/soma.cfg"
|
|
|
|
let xfm = transform lns filter
|