lenses/postfix_access.aug

   1 (* Parsing /etc/postfix/access *)
   2
   3 module Postfix_Access =
   4   autoload xfm
   5
   6   let sep_tab = Util.del_ws_tab
   7   let sep_spc = Util.del_ws_spc
   8
   9   let eol = del /[ \t]*\n/ "\n"
  10   let indent = del /[ \t]*/ ""
  11
  12   let comment = Util.comment
  13   let empty   = Util.empty
  14
  15   let char = /[^# \n\t]/
  16   let text =
  17     let cont = /\n[ \t]+/ in
  18     let any = /[^#\n]/ in
  19     char | (char . (any | cont)* .char)
  20
  21   let word = char+
  22   let record = [ seq "spec" .
  23                   [ label "pattern" . store  word ] . sep_tab .
  24                   [ label "action" . store word ] .
  25                   [ label "parameters" . sep_spc . store text ]? . eol ]
  26
  27   let lns = ( empty | comment | record )*
  28
  29   let xfm = transform lns (incl "/etc/postfix/access" . incl "/usr/local/etc/postfix/access")