Sharp.Augeas/Sharp.Augeas.Test/lens/postfix_main.aug

51 lines
1.5 KiB
Plaintext
Raw Normal View History

2022-11-08 20:57:02 +03:00
(* Postfix_Main module for Augeas
Author: Free Ekanayaka <free@64studio.com>
Reference:
*)
module Postfix_Main =
autoload xfm
(************************************************************************
* USEFUL PRIMITIVES
*************************************************************************)
let eol = Util.eol
let indent = del /[ \t]*(\n[ \t]+)?/ " "
let comment = Util.comment
let empty = Util.empty
let eq = del /[ \t]*=/ " ="
let word = /[A-Za-z0-9_.-]+/
(* The value of a parameter, after the '=' sign. Postfix allows that
* lines are continued by starting continuation lines with spaces.
* The definition needs to make sure we don't add indented comment lines
* into values *)
let value =
let chr = /[^# \t\n]/ in
let any = /.*/ in
let line = (chr . any* . chr | chr) in
let lines = line . (/[ \t]*\n[ \t]+/ . line)* in
store lines
(************************************************************************
* ENTRIES
*************************************************************************)
let entry = [ key word . eq . (indent . value)? . eol ]
(************************************************************************
* LENS
*************************************************************************)
let lns = (comment|empty|entry) *
let filter = incl "/etc/postfix/main.cf"
. incl "/usr/local/etc/postfix/main.cf"
let xfm = transform lns filter