Blame lenses/modules.aug

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