From 7044fa14642d1b14c24daebe1f582bf409c1961e Mon Sep 17 00:00:00 2001 From: Marc Fournier Date: Mon, 27 Jul 2009 19:04:22 +0200 Subject: augeas: added debian + cleanup --- files/yum.aug | 54 ------------------------------------------------------ 1 file changed, 54 deletions(-) delete mode 100644 files/yum.aug (limited to 'files/yum.aug') diff --git a/files/yum.aug b/files/yum.aug deleted file mode 100644 index 7d32bc0..0000000 --- a/files/yum.aug +++ /dev/null @@ -1,54 +0,0 @@ -(* Parsing yum's config files *) -module Yum = - autoload xfm - - let eol = Util.del_str "\n" - - let key_re = /[^#;:= \t\n[\/]+/ - "baseurl" - - let eq = del /[ \t]*[:=][ \t]*/ "=" - let secname = /[^]\/]+/ - - let value = /[^ \t\n][^\n]*/ - - (* We really need to allow comments starting with REM and rem but that *) - (* leads to ambiguities with keys 'rem=' and 'REM=' The regular expression *) - (* to do that cleanly is somewhat annoying to craft by hand; we'd need to *) - (* define KEY_RE as /[A-Za-z0-9]+/ - "REM" - "rem" *) - let comment = [ del /([;#].*)?[ \t]*\n/ "\n" ] - - let list_sep = del /[ \t]*(,[ \t]*|\n[ \t]+)/ "\n\t" - let list_value = store /[^ \t\n,]+/ - - let kv_list(s:string) = - [ key s . eq . list_value ] . - [ list_sep . label s . list_value ]* . eol - - let kv = [ key key_re . eq . store value . eol ] - - let sechead = Util.del_str "[" . key secname . Util.del_str "]" - . del /[ \t]*[;#]?.*/ "" - . eol - - let entry = comment | kv - - (* A section is a section head, followed by any number of key value *) - (* entries, with comments and blank lines freely interspersed. The *) - (* continuation lines allowed for baseurl entries make this a little *) - (* more interesting: there can be at most one baseurl entry in each *) - (* section (more precisely, yum will only obey one of them, but we act *) - (* as if yum would actually barf) *) - let section = [ sechead . (entry* | entry* . (kv_list "baseurl") . entry*)] - - let lns = (comment) * . (section) * - - let filter = (incl "/etc/yum.conf") - . (incl "/etc/yum.repos.d/*") - . (incl "/etc/yum/pluginconf.d/*") - . Util.stdexcl - - let xfm = transform lns filter - -(* Local Variables: *) -(* mode: caml *) -(* End: *) -- cgit v1.2.3