lenses/apt_update_manager.aug

   1 (*
   2 Module: Apt_Update_Manager
   3   Parses files in /etc/update-manager
   4
   5 Author: Raphael Pinson <raphael.pinson@camptocamp.com>
   6
   7 About: License
   8    This file is licenced under the LGPL v2+, like the rest of Augeas.
   9
  10 About: Lens Usage
  11    To be documented
  12
  13 About: Configuration files
  14    This lens applies to files in /etc/update-manager. See <filter>.
  15
  16 About: Examples
  17    The <Test_Apt_Update_Manager> file contains various examples and tests.
  18 *)
  19 module Apt_Update_Manager =
  20
  21 autoload xfm
  22
  23 (* View: comment *)
  24 let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
  25
  26 (* View: sep *)
  27 let sep = IniFile.sep IniFile.sep_re IniFile.sep_default
  28
  29 (* View: title *)
  30 let title = IniFile.title Rx.word
  31
  32 (* View: entry *)
  33 let entry = IniFile.entry Rx.word sep comment
  34
  35 (* View: record *)
  36 let record = IniFile.record title entry
  37
  38 (* View: lns *)
  39 let lns = IniFile.lns record comment
  40
  41 (* Variable: filter *)
  42 let filter = incl "/etc/update-manager/meta-release"
  43            . incl "/etc/update-manager/release-upgrades"
  44            . incl "/etc/update-manager/release-upgrades.d/*"
  45            . Util.stdexcl
  46
  47 let xfm = transform lns filter