diff options
Diffstat (limited to 'files/yum.aug')
| -rw-r--r-- | files/yum.aug | 54 |
1 files changed, 0 insertions, 54 deletions
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: *) |