30 lines
771 B
Plaintext
30 lines
771 B
Plaintext
|
(* Parsing /etc/postfix/access *)
|
||
|
|
|
||
|
|
module Postfix_Access =
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
let sep_tab = Util.del_ws_tab
|
||
|
|
let sep_spc = Util.del_ws_spc
|
||
|
|
|
||
|
|
let eol = del /[ \t]*\n/ "\n"
|
||
|
|
let indent = del /[ \t]*/ ""
|
||
|
|
|
||
|
|
let comment = Util.comment
|
||
|
|
let empty = Util.empty
|
||
|
|
|
||
|
|
let char = /[^# \n\t]/
|
||
|
|
let text =
|
||
|
|
let cont = /\n[ \t]+/ in
|
||
|
|
let any = /[^#\n]/ in
|
||
|
|
char | (char . (any | cont)* .char)
|
||
|
|
|
||
|
|
let word = char+
|
||
|
|
let record = [ seq "spec" .
|
||
|
|
[ label "pattern" . store word ] . sep_tab .
|
||
|
|
[ label "action" . store word ] .
|
||
|
|
[ label "parameters" . sep_spc . store text ]? . eol ]
|
||
|
|
|
||
|
|
let lns = ( empty | comment | record )*
|
||
|
|
|
||
|
|
let xfm = transform lns (incl "/etc/postfix/access" . incl "/usr/local/etc/postfix/access")
|