lenses/up2date.aug

   1 (*
   2 Module: Up2date
   3   Parses /etc/sysconfig/rhn/up2date
   4
   5 Author: Raphael Pinson <raphink@gmail.com>
   6
   7 About: Reference
   8   This lens tries to keep as close as possible to `man 5 up2date` where possible.
   9
  10 About: License
  11    This file is licenced under the LGPLv2+, like the rest of Augeas.
  12
  13 About: Lens Usage
  14    To be documented
  15
  16 About: Configuration files
  17    This lens applies to /etc/sysconfig/rhn/up2date. See <filter>.
  18
  19 About: Examples
  20    The <Test_Up2date> file contains various examples and tests.
  21 *)
  22
  23 module Up2date =
  24
  25 autoload xfm
  26
  27 (************************************************************************
  28  * Group:                 USEFUL PRIMITIVES
  29  *************************************************************************)
  30
  31 (* Variable: key_re *)
  32 let key_re   = /[^=# \t\n]+/
  33
  34 (* Variable: value_re *)
  35 let value_re = /[^ \t\n;][^\n;]*[^ \t\n;]|[^ \t\n;]/
  36
  37 (* View: sep_semi *)
  38 let sep_semi = Sep.semicolon
  39
  40 (************************************************************************
  41  * Group:                 ENTRIES
  42  *************************************************************************)
  43
  44 (* View: single_entry
  45    key=foo *)
  46 let single_entry = [ label "value" . store value_re ]
  47
  48 (* View: multi_empty
  49    key=; *)
  50 let multi_empty  = sep_semi
  51
  52 (* View: multi_value
  53    One value in a list setting *)
  54 let multi_value  = [ seq "multi" . store value_re ]
  55
  56 (* View: multi_single
  57    key=foo;  (parsed as a list) *)
  58 let multi_single = multi_value . sep_semi
  59
  60 (* View: multi_values
  61    key=foo;bar
  62    key=foo;bar; *)
  63 let multi_values = multi_value . ( sep_semi . multi_value )+ . del /;?/ ";"
  64
  65 (* View: multi_entry
  66    List settings go under a 'values' node *)
  67 let multi_entry  = [ label "values" . counter "multi"
  68                      . ( multi_single | multi_values | multi_empty ) ]
  69
  70 (* View: entry *)
  71 let entry = [ seq "entry" . store key_re . Sep.equal
  72               . ( multi_entry | single_entry )? . Util.eol ]
  73
  74 (************************************************************************
  75  * Group:                 LENS
  76  *************************************************************************)
  77
  78 (* View: lns *)
  79 let lns = (Util.empty | Util.comment | entry)*
  80
  81 (* Variable: filter *)
  82 let filter = incl "/etc/sysconfig/rhn/up2date"
  83
  84 let xfm = transform lns filter