Sharp.Augeas/Sharp.Augeas.Test/lens/modules.aug

36 lines
741 B
Plaintext
Raw Permalink Normal View History

2022-11-08 20:57:02 +03:00
(*
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