(*

Module: Modules_conf

  Parses /etc/modules.conf and /etc/conf.modules

  Based on the similar Modprobe lens

  Not all directives currently listed in modules.conf(5) are currently

  supported.

*)

module Modules_conf =

autoload xfm

let comment = Util.comment

let empty = Util.empty

let eol = Util.eol | Util.comment

(* Basic file structure is the same as modprobe.conf *)

let sto_to_eol = Modprobe.sto_to_eol

let sep_space = Modprobe.sep_space

let path = [ key "path" . Util.del_str "=" . sto_to_eol . eol ]

let keep = [ key "keep" . eol ]

let probeall = Build.key_value_line_comment "probeall"  sep_space

                                            sto_to_eol

                                            comment

let entry =

    Modprobe.alias

  | Modprobe.options

  | Modprobe.kv_line_command /install|pre-install|post-install/

  | Modprobe.kv_line_command /remove|pre-remove|post-remove/

  | keep

  | path

  | probeall

let lns = (comment|empty|entry)*

let filter = (incl "/etc/modules.conf") .

  (incl "/etc/conf.modules")

let xfm = transform lns filter