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 LGPLv2+, 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: record *)
  24 let record = [ key word . (Util.del_ws_tab . Modprobe.sto_to_eol)? . Util.eol ]
  25
  26 (* View: lns *)
  27 let lns = ( Util.empty | Util.comment | record ) *
  28
  29 (* View: filter *)
  30 let filter = incl "/etc/modules"
  31
  32 let xfm = transform lns filter