lenses/fuse.aug

   1 (*
   2 Module: Fuse
   3   Parses /etc/fuse.conf
   4
   5 Author: Raphael Pinson <raphink@gmail.com>
   6
   7 About: Reference
   8
   9 About: License
  10    This file is licenced under the LGPL v2+, like the rest of Augeas.
  11
  12 About: Lens Usage
  13    To be documented
  14
  15 About: Configuration files
  16    This lens applies to /etc/fuse.conf. See <filter>.
  17
  18 About: Examples
  19    The <Test_Fuse> file contains various examples and tests.
  20 *)
  21
  22
  23 module Fuse =
  24 autoload xfm
  25
  26 (* Variable: equal *)
  27 let equal = del /[ \t]*=[ \t]*/ " = "
  28
  29 (* View: mount_max *)
  30 let mount_max = Build.key_value_line "mount_max" equal (store Rx.integer)
  31
  32 (* View: user_allow_other *)
  33 let user_allow_other = Build.flag_line "user_allow_other"
  34
  35
  36 (* View: lns
  37      The fuse.conf lens
  38 *)
  39 let lns = ( Util.empty | Util.comment | mount_max | user_allow_other )*
  40
  41 (* Variable: filter *)
  42 let filter = incl "/etc/fuse.conf"
  43
  44 let xfm = transform lns filter
  45