lenses/ldso.aug

   1 (*
   2 Module: Keepalived
   3   Parses /etc/ld.so.conf and /etc/ld.so.conf.d/*
   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    This lens applies to /etc/ld.so.conf and /etc/ld.so.conf.d/*. See <filter>.
  15
  16 About: Examples
  17    The <Test_Ldso> file contains various examples and tests.
  18 *)
  19
  20 module LdSo =
  21
  22 autoload xfm
  23
  24 (* View: path *)
  25 let path = [ label "path" . store /[^# \t\n][^ \t\n]*/ . Util.eol ]
  26
  27 (* View: include *)
  28 let include = Build.key_value_line "include" Sep.space (store Rx.fspath)
  29
  30 (* View: hwcap *)
  31 let hwcap =
  32     let hwcap_val = [ label "bit" . store Rx.integer ] . Sep.space .
  33                       [ label "name" . store Rx.word ]
  34   in Build.key_value_line "hwcap" Sep.space hwcap_val
  35
  36 (* View: lns *)
  37 let lns = (Util.empty | Util.comment | path | include | hwcap)*
  38
  39 (* Variable: filter *)
  40 let filter = incl "/etc/ld.so.conf"
  41            . incl "/etc/ld.so.conf.d/*"
  42            . Util.stdexcl
  43
  44 let xfm = transform lns filter