(* Module: NagiosObjects Parses /etc/nagios3/objects/*.cfg Authors: Sebastien Aperghis-Tramoni Raphaël Pinson About: License This file is licenced under the LGPL v2+, like the rest of Augeas. About: Lens Usage To be documented About: Configuration files This lens applies to /etc/nagios3/objects/*.cfg. See . *) module NagiosObjects = autoload xfm (* basic atoms *) let eol = Util.eol let ws = Sep.space let keyword = key /[A-Za-z0-9_]+/ (* define an empty line *) let empty = Util.empty (* define a comment *) let comment = Util.comment (* define a field *) let object_field = let field_name = keyword in let field_value = store Rx.space_in in [ Util.indent . field_name . ws . field_value . eol ] (* define an object *) let object_def = let object_type = keyword in [ Util.indent . Util.del_str "define" . ws . object_type . ws . Util.del_str "{" . eol . ( empty | comment | object_field )* . Util.del_str "}" . eol ] (* main structure *) let lns = ( empty | comment | object_def )* let filter = incl "/etc/nagios3/objects/*.cfg" . Util.stdexcl let xfm = transform lns filter