Sharp.Augeas/Sharp.Augeas.Test/lens/rtadvd.aug

35 lines
854 B
Plaintext
Raw Permalink Normal View History

2022-11-08 20:57:02 +03:00
(*
Module: Rtadvd
Parses rtadvd configuration file
Author: Matt Dainty <matt@bodgit-n-scarper.com>
About: Reference
- man 5 rtadvd.conf
Each line represents a record consisting of a number of ':'-separated fields
the first of which is the name or identifier for the record. The name can
optionally be split by '|' and each subsequent value is considered an alias
of the first. Records can be split across multiple lines with '\'.
*)
module Rtadvd =
autoload xfm
let empty = Util.empty
(* field must not contain ':' unless quoted *)
let cfield = /[a-zA-Z0-9-]+(#?@|#[0-9]+|=("[^"]*"|[^:"]*))?/
let lns = ( empty | Getcap.comment | Getcap.record cfield )*
let filter = incl "/etc/rtadvd.conf"
. Util.stdexcl
let xfm = transform lns filter
(* Local Variables: *)
(* mode: caml *)
(* End: *)