|
Packit Service |
a2ae7a |
(*
|
|
Packit Service |
a2ae7a |
Module: Rmt
|
|
Packit Service |
a2ae7a |
Parses rmt's configuration file
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
Author: Dominic Cleal <dcleal@redhat.com>
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
About: Reference
|
|
Packit Service |
a2ae7a |
This lens is based on rmt(1)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
About: License
|
|
Packit Service |
a2ae7a |
This file is licensed under the LGPL v2+, like the rest of Augeas.
|
|
Packit Service |
a2ae7a |
*)
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
module Rmt =
|
|
Packit Service |
a2ae7a |
autoload xfm
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let sto_to_tab = store Rx.no_spaces
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let debug = Build.key_value_line "DEBUG" Sep.equal ( store Rx.fspath )
|
|
Packit Service |
a2ae7a |
let user = Build.key_value_line "USER" Sep.equal sto_to_tab
|
|
Packit Service |
a2ae7a |
let access = Build.key_value_line "ACCESS" Sep.equal
|
|
Packit Service |
a2ae7a |
( [ label "name" . sto_to_tab ] . Sep.tab .
|
|
Packit Service |
a2ae7a |
[ label "host" . sto_to_tab ] . Sep.tab .
|
|
Packit Service |
a2ae7a |
[ label "path" . sto_to_tab ] )
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let lns = ( debug | user | access | Util.comment | Util.empty )*
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let filter = incl "/etc/default/rmt"
|
|
Packit Service |
a2ae7a |
|
|
Packit Service |
a2ae7a |
let xfm = transform lns filter
|