36 lines
741 B
Plaintext
36 lines
741 B
Plaintext
|
(*
|
||
|
|
Module: Modules
|
||
|
|
Parses /etc/modules
|
||
|
|
|
||
|
|
About: Reference
|
||
|
|
This lens tries to keep as close as possible to `man 5 modules` where possible.
|
||
|
|
|
||
|
|
About: License
|
||
|
|
This file is licenced under the LGPL v2+, like the rest of Augeas.
|
||
|
|
|
||
|
|
About: Lens Usage
|
||
|
|
To be documented
|
||
|
|
|
||
|
|
About: Configuration files
|
||
|
|
This lens applies to /etc/modules. See <filter>.
|
||
|
|
*)
|
||
|
|
module Modules =
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
(* View: word *)
|
||
|
|
let word = /[^#, \n\t\/]+/
|
||
|
|
|
||
|
|
(* View: sto_line *)
|
||
|
|
let sto_line = store /[^# \t\n].*[^ \t\n]|[^# \t\n]/
|
||
|
|
|
||
|
|
(* View: record *)
|
||
|
|
let record = [ key word . (Util.del_ws_tab . sto_line)? . Util.eol ]
|
||
|
|
|
||
|
|
(* View: lns *)
|
||
|
|
let lns = ( Util.empty | Util.comment | record ) *
|
||
|
|
|
||
|
|
(* View: filter *)
|
||
|
|
let filter = incl "/etc/modules"
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|