aDriv4 - MANAGER

Edit File: rtadvd.aug

(* 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: *)