mirror of
https://github.com/empayre/fleet.git
synced 2024-11-07 01:15:22 +00:00
35 lines
854 B
Plaintext
35 lines
854 B
Plaintext
(*
|
|
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: *)
|