Blob Blame History Raw
module IPRoute2 =
  autoload xfm

  let empty   = [ del /[ \t]*#?[ \t]*\n/ "\n" ]
  let id = Rx.hex | Rx.integer
  let record = [ key id . del /[ \t]+/ "\t" . store /[a-zA-Z0-9\/-]+/ . Util.comment_or_eol ]

  let lns = ( empty | Util.comment | record ) *

  let xfm = transform lns (incl "/etc/iproute2/*" . Util.stdexcl)