^^&&^^

Edit File: sip_conf.aug

(*
Module: Sip_Conf
  Parses /etc/asterisk/sip.conf

Author: Rob Tucker <rtucker@mozilla.com>

About: Reference
  Lens parses the sip.conf with support for template structure

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/asterisk/sip.conf. See <filter>.
*)

module Sip_Conf =
  autoload xfm

(************************************************************************
 * INI File settings
 *************************************************************************)

let comment        = IniFile.comment IniFile.comment_re IniFile.comment_default
let sep            = IniFile.sep IniFile.sep_re IniFile.sep_default
let empty          = IniFile.empty
let eol            = IniFile.eol
let comment_or_eol = comment | eol

let entry    = IniFile.indented_entry IniFile.entry_re sep comment

let text_re = Rx.word
let tmpl    =
  let is_tmpl = [ label "@is_template" . Util.del_str "!" ]
    in let use_tmpl = [ label "@use_template" . store Rx.word ]
    in let comma = Util.delim ","
    in Util.del_str "(" . Sep.opt_space
      . Build.opt_list (is_tmpl|use_tmpl) comma
      . Sep.opt_space . Util.del_str ")"
let title_comment_re = /[ \t]*[#;].*$/

let title_comment = [ label "#title_comment"
  . store title_comment_re ]
let title   = label "title" . Util.del_str "["
            . store text_re . Util.del_str "]"
            . tmpl? . title_comment? . eol
let record  = IniFile.record title entry

let lns     = IniFile.lns record comment

let filter = incl "/etc/asterisk/sip.conf"

let xfm = transform lns filter