(*

Module: Pgbouncer

 Parses Pgbouncer ini configuration files.

Author: Andrew Colin Kissa <andrew@topdog.za.net>

 Baruwa Enterprise Edition http://www.baruwa.com

About: License

 This file is licensed under the LGPL v2+.

About: Configuration files

 This lens applies to /etc/pgbouncer.ini See <filter>.

About: TODO

 Create a tree for the database options

*)

module Pgbouncer =

autoload xfm

(************************************************************************

 * Group:                 USEFUL PRIMITIVES

 ************************************************************************)

let comment  = IniFile.comment IniFile.comment_re IniFile.comment_default

let sep = IniFile.sep "=" "="

let eol = Util.eol

let entry_re = ( /[A-Za-z][:#A-Za-z0-9._-]+|\*/)

(************************************************************************

 * Group:                       ENTRY

 *************************************************************************)

let non_db_line = [ key entry_re . sep . IniFile.sto_to_eol? . eol ]

let entry = non_db_line|comment

let title   = IniFile.title IniFile.record_re

let record  = IniFile.record title entry

(******************************************************************

 * Group:                   LENS AND FILTER

 ******************************************************************)

let lns = IniFile.lns record comment

(* Variable: filter *)

let filter = incl "/etc/pgbouncer.ini"

let xfm = transform lns filter