Blame lenses/oz.aug

Packit Service a2ae7a
(*
Packit Service a2ae7a
Module: Oz
Packit Service a2ae7a
 Oz module for Augeas
Packit Service a2ae7a
Packit Service a2ae7a
 Author: Pat Riehecky <riehecky@fnal.gov>
Packit Service a2ae7a
Packit Service a2ae7a
 oz.cfg is a standard INI File.
Packit Service a2ae7a
*)
Packit Service a2ae7a
Packit Service a2ae7a
module Oz =
Packit Service a2ae7a
  autoload xfm
Packit Service a2ae7a
Packit Service a2ae7a
(************************************************************************
Packit Service a2ae7a
 * Group: INI File settings
Packit Service a2ae7a
 * avahi-daemon.conf only supports "# as commentary and "=" as separator
Packit Service a2ae7a
 *************************************************************************)
Packit Service a2ae7a
(* View: comment *)
Packit Service a2ae7a
let comment    = IniFile.comment "#" "#"
Packit Service a2ae7a
(* View: sep *)
Packit Service a2ae7a
let sep        = IniFile.sep "=" "="
Packit Service a2ae7a
Packit Service a2ae7a
(************************************************************************
Packit Service a2ae7a
 * Group: Entry
Packit Service a2ae7a
 *************************************************************************)
Packit Service a2ae7a
(* View: entry *)
Packit Service a2ae7a
let entry   = IniFile.indented_entry IniFile.entry_re sep comment
Packit Service a2ae7a
Packit Service a2ae7a
(************************************************************************
Packit Service a2ae7a
 * Group: Record
Packit Service a2ae7a
 *************************************************************************)
Packit Service a2ae7a
(* View: title *)
Packit Service a2ae7a
let title   = IniFile.indented_title IniFile.record_re
Packit Service a2ae7a
(* View: record *)
Packit Service a2ae7a
let record  = IniFile.record title entry
Packit Service a2ae7a
Packit Service a2ae7a
(************************************************************************
Packit Service a2ae7a
 * Group: Lens and filter
Packit Service a2ae7a
 *************************************************************************)
Packit Service a2ae7a
(* View: lns *)
Packit Service a2ae7a
let lns     = IniFile.lns record comment
Packit Service a2ae7a
Packit Service a2ae7a
(* View: filter *)
Packit Service a2ae7a
let filter = (incl "/etc/oz/oz.cfg")
Packit Service a2ae7a
Packit Service a2ae7a
let xfm = transform lns filter