mirror of
https://github.com/empayre/fleet.git
synced 2024-11-06 17:05:18 +00:00
66 lines
2.2 KiB
Plaintext
66 lines
2.2 KiB
Plaintext
(* Parsing yum's config files *)
|
|
module Yum =
|
|
autoload xfm
|
|
|
|
(************************************************************************
|
|
* INI File settings
|
|
*************************************************************************)
|
|
|
|
let comment = IniFile.comment "#" "#"
|
|
let sep = IniFile.sep "=" "="
|
|
let empty = Util.empty
|
|
let eol = IniFile.eol
|
|
|
|
(************************************************************************
|
|
* ENTRY
|
|
*************************************************************************)
|
|
|
|
let list_entry (list_key:string) =
|
|
let list_value = store /[^# \t\r\n,][^ \t\r\n,]*[^# \t\r\n,]|[^# \t\r\n,]/ in
|
|
let list_sep = del /([ \t]*(,[ \t]*|\r?\n[ \t]+))|[ \t]+/ "\n\t" in
|
|
[ key list_key . sep . Sep.opt_space . list_value ]
|
|
. (list_sep . Build.opt_list [ label list_key . list_value ] list_sep)?
|
|
. eol
|
|
|
|
let entry_re = IniFile.entry_re - ("baseurl" | "gpgkey" | "exclude")
|
|
|
|
let entry = IniFile.entry entry_re sep comment
|
|
| empty
|
|
|
|
let entries =
|
|
let list_entry_elem (k:string) = list_entry k . entry*
|
|
in entry*
|
|
| entry* . Build.combine_three_opt
|
|
(list_entry_elem "baseurl")
|
|
(list_entry_elem "gpgkey")
|
|
(list_entry_elem "exclude")
|
|
|
|
|
|
(***********************************************************************a
|
|
* TITLE
|
|
*************************************************************************)
|
|
let title = IniFile.title IniFile.record_re
|
|
let record = [ title . entries ]
|
|
|
|
|
|
(************************************************************************
|
|
* LENS & FILTER
|
|
*************************************************************************)
|
|
let lns = (empty | comment)* . record*
|
|
|
|
let filter = (incl "/etc/yum.conf")
|
|
. (incl "/etc/yum.repos.d/*.repo")
|
|
. (incl "/etc/yum/yum-cron*.conf")
|
|
. (incl "/etc/yum/pluginconf.d/*")
|
|
. (excl "/etc/yum/pluginconf.d/versionlock.list")
|
|
. (incl "/etc/dnf/dnf.conf")
|
|
. (incl "/etc/dnf/automatic.conf")
|
|
. (incl "/etc/dnf/plugins/*.conf")
|
|
. Util.stdexcl
|
|
|
|
let xfm = transform lns filter
|
|
|
|
(* Local Variables: *)
|
|
(* mode: caml *)
|
|
(* End: *)
|