lenses/modules.aug

   1 (*
   2 Module: Modules
   3   Parses /etc/modules
   4
   5 About: Reference
   6   This lens tries to keep as close as possible to `man 5 modules` where possible.
   7
   8 About: License
   9    This file is licenced under the LGPL v2+, like the rest of Augeas.
  10
  11 About: Lens Usage
  12    To be documented
  13
  14 About: Configuration files
  15    This lens applies to /etc/modules. See <filter>.
  16 *)
  17 module Modules =
  18 autoload xfm
  19
  20 (* View: word *)
  21 let word = /[^#, \n\t\/]+/
  22
  23 (* View: sto_line *)
  24 let sto_line = store /[^# \t\n].*[^ \t\n]|[^# \t\n]/
  25
  26 (* View: record *)
  27 let record = [ key word . (Util.del_ws_tab . sto_line)? . Util.eol ]
  28
  29 (* View: lns *)
  30 let lns = ( Util.empty | Util.comment | record ) *
  31
  32 (* View: filter *)
  33 let filter = incl "/etc/modules"
  34
  35 let xfm = transform lns filter