lenses/simplelines.aug

   1 (*
   2 Module: Simplelines
   3    Parses simple lines conffiles
   4
   5 Author: Raphael Pinson <raphink@gmail.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    See <filter>.
  15
  16 About: Examples
  17    The <Test_Simplelines> file contains various examples and tests.
  18 *)
  19
  20 module Simplelines =
  21
  22 autoload xfm
  23
  24 (* View: line
  25      A simple, uncommented, line *)
  26 let line =
  27    let line_re = /[^# \t\n].*[^ \t\n]|[^# \t\n]/
  28    in [ seq "line" . Util.indent
  29       . store line_re . Util.eol ]
  30
  31 (* View: lns
  32      The simplelines lens *)
  33 let lns = (Util.empty | Util.comment | line)*
  34
  35 (* Variable: filter *)
  36 let filter = incl "/etc/at.allow"
  37            . incl "/etc/at.deny"
  38            . incl "/etc/cron.allow"
  39            . incl "/etc/cron.deny"
  40            . incl "/etc/cron.d/at.allow"
  41            . incl "/etc/cron.d/at.deny"
  42            . incl "/etc/cron.d/cron.allow"
  43            . incl "/etc/cron.d/cron.deny"
  44            . incl "/etc/default/grub_installdevice"
  45            . incl "/etc/pam.d/allow.pamlist"
  46            . incl "/etc/hostname.*"
  47
  48 let xfm = transform lns filter