110 lines
3.2 KiB
Plaintext
110 lines
3.2 KiB
Plaintext
|
(*
|
||
|
|
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
|