(*

Module: Solaris_System

  Parses /etc/system on Solaris

Author: Dominic Cleal <dcleal@redhat.com>

About: Reference

  This lens tries to keep as close as possible to `man 4 system` where possible.

About: Licence

  This file is licensed under the LGPL v2+, like the rest of Augeas.

About: Lens Usage

About: Configuration files

  This lens applies to /etc/system on Solaris. See <filter>.

*)

module Solaris_System =

autoload xfm

(************************************************************************

 * Group:                 USEFUL PRIMITIVES

 ************************************************************************)

(* View: comment *)

let comment = Util.comment_generic /[ \t]*\*[ \t]*/ "* "

(* View: empty

    Map empty lines, including empty asterisk comments *)

let empty   = [ del /[ \t]*\*?[ \t]*\n/ "\n" ]

(* View: sep_colon

    The separator for key/value entries *)

let sep_colon = del /:[ \t]*/ ": "

(* View: sep_moddir

    The separator of directories in a moddir search path *)

let sep_moddir = del /[: ]+/ " "

(* View: modpath

    Individual moddir search path entry *)

let modpath = [ seq "modpath" . store /[^ :\t\n]+/ ]

(* Variable: set_operator

    Valid set operators: equals, bitwise AND and OR *)

let set_operators = /[=&|]/

(* View: set_value

    Sets an integer value or char pointer *)

let set_value = [ label "value" . store Rx.no_spaces ]

(************************************************************************

 * Group:                     COMMANDS

 ************************************************************************)

(* View: cmd_kv

    Function for simple key/value setting commands such as rootfs *)

let cmd_kv (cmd:string) (value:regexp) =

    Build.key_value_line cmd sep_colon (store value)

(* View: cmd_moddir

    The moddir command for specifying module search paths *)

let cmd_moddir =

    Build.key_value_line "moddir" sep_colon

        (Build.opt_list modpath sep_moddir)

(* View: set_var

    Loads the variable name from a set command, no module *)

let set_var = [ label "variable" . store Rx.word ]

(* View: set_var

    Loads the module and variable names from a set command *)

let set_varmod = [ label "module" . store Rx.word ]

                 . Util.del_str ":" . set_var

(* View: set_sep_spc *)

let set_sep_spc = Util.del_opt_ws " "

(* View: cmd_set

    The set command for individual kernel/module parameters *)

let cmd_set = [ key "set"

              . Util.del_ws_spc

              . ( set_var | set_varmod )

              . set_sep_spc

              . [ label "operator" . store set_operators ]

              . set_sep_spc

              . set_value

              . Util.eol ]

(************************************************************************

 * Group:                     LENS

 ************************************************************************)

(* View: lns *)

let lns = ( empty

          | comment

          | cmd_moddir

          | cmd_kv "rootdev" Rx.fspath

          | cmd_kv "rootfs" Rx.word

          | cmd_kv "exclude" Rx.fspath

          | cmd_kv "include" Rx.fspath

          | cmd_kv "forceload" Rx.fspath

          | cmd_set )*

(* Variable: filter *)

let filter = (incl "/etc/system")

let xfm = transform lns filter