49 lines
1.1 KiB
Text
49 lines
1.1 KiB
Text
|
(*
|
||
|
|
Module: NutNutConf
|
||
|
|
Parses @CONFPATH@/nut.conf
|
||
|
|
|
||
|
|
Author: Frederic Bohe <fredericbohe@eaton.com>
|
||
|
|
|
||
|
|
About: License
|
||
|
|
This file is licensed under the GPL.
|
||
|
|
|
||
|
|
About: Lens Usage
|
||
|
|
Sample usage of this lens in augtool
|
||
|
|
|
||
|
|
* Print NUT MODE start-up configuration:
|
||
|
|
> print /files@CONFPATH@/nut.conf/MODE
|
||
|
|
|
||
|
|
About: Configuration files
|
||
|
|
This lens applies to @CONFPATH@/nut.conf. See <filter>.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module NutNutConf =
|
||
|
|
autoload nut_xfm
|
||
|
|
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* Group: NUT.CONF
|
||
|
|
*************************************************************************)
|
||
|
|
|
||
|
|
(* general *)
|
||
|
|
let def_sep = IniFile.sep IniFile.sep_re IniFile.sep_default
|
||
|
|
let sep_spc = Util.del_opt_ws ""
|
||
|
|
let eol = Util.eol
|
||
|
|
let comment = Util.comment
|
||
|
|
let empty = Util.empty
|
||
|
|
|
||
|
|
|
||
|
|
let nut_possible_mode = "none"
|
||
|
|
| "standalone"
|
||
|
|
| "netserver"
|
||
|
|
| "netclient"
|
||
|
|
|
||
|
|
let nut_mode = [ sep_spc . key "MODE" . def_sep . sep_spc . store nut_possible_mode . eol ]
|
||
|
|
|
||
|
|
let nut_lns = (nut_mode|comment|empty)*
|
||
|
|
|
||
|
|
let nut_filter = ( incl "@CONFPATH@/nut.conf" )
|
||
|
|
. Util.stdexcl
|
||
|
|
|
||
|
|
let nut_xfm = transform nut_lns nut_filter
|