lenses/approx.aug

   1 module Approx =
   2   autoload xfm
   3
   4   let eol = Util.eol
   5   let indent = Util.indent
   6   let key_re = /\$?[A-Za-z0-9_.-]+/
   7   let sep = /[ \t]+/
   8   let value_re = /[^ \t\n](.*[^ \t\n])?/
   9
  10   let comment = [ indent . label "#comment" . del /[#;][ \t]*/ "# "
  11         . store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ . eol ]
  12
  13   let empty = Util.empty
  14
  15   let kv = [ indent . key key_re . del sep " " . store value_re . eol ]
  16
  17   let lns = (empty | comment | kv) *
  18
  19   let filter = incl "/etc/approx/approx.conf"
  20   let xfm = transform lns filter