EVOLUTION-MANAGER

Edit File: postfix_access.aug

(* 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")