in /etc/sysconfig
About: License
- This file is licenced under the LGPLv2+, like the rest of Augeas.
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
About: Lens Usage
To be documented
module Shellvars =
autoload xfm
- let eol = del /[ \t]+|[ \t]*[;\n]/ "\n"
- let semicol_eol = del /[ \t]*[;\n]/ "\n"
+ (* Delete a blank line, rather than mapping it *)
+ let del_empty = del (Util.empty_generic_re . "\n") "\n"
- let key_re = /[A-Za-z0-9_]+(\[[0-9]+\])?/ - "unset" - "export"
+ let empty = Util.empty
+ let empty_part_re = Util.empty_generic_re . /\n+/
+ let eol = del (/[ \t]+|[ \t]*[;\n]/ . empty_part_re*) "\n"
+ let semicol_eol = del (/[ \t]*[;\n]/ . empty_part_re*) "\n"
+ let brace_eol = del /[ \t\n]+/ "\n"
+
+ let key_re = /[A-Za-z0-9_]+(\[[0-9A-Za-z_,]+\])?/ - ("unset" | "export")
+ let matching_re = "${!" . key_re . /[\*@]\}/
let eq = Util.del_str "="
- let comment = Util.comment
- let comment_eol = Util.comment_eol
+ let eol_for_comment = del /([ \t]*\n)([ \t]*(#[ \t]*)?\n)*/ "\n"
+ let comment = Util.comment_generic_seteol /[ \t]*#[ \t]*/ " # " eol_for_comment
+ (* comment_eol in shell MUST begin with a space *)
+ let comment_eol = Util.comment_generic_seteol /[ \t]+#[ \t]*/ " # " eol_for_comment
let comment_or_eol = comment_eol | semicol_eol
- let empty = Util.empty
let xchgs = Build.xchgs
let semicol = del /;?/ ""
- let char = /[^;#() '"\t\n]|\\\\"/
- let dquot = /"([^"\\\n]|\\\\.)*"/ (* " Emacs, relax *)
- let squot = /'[^'\n]*'/
- (* For some reason, `` conflicts with comment_or_eol *)
- let bquot = /`[^#`\n]*`/
+ let char = /[^`;()'"&|\n\\# \t]#*|\\\\./
+ let dquot =
+ let char = /[^"\\]|\\\\./ | Rx.cl
+ in "\"" . char* . "\"" (* " Emacs, relax *)
+ let squot = /'[^']*'/
+ let bquot = /`[^`\n]+`/
+ (* dbquot don't take spaces or semi-colons *)
+ let dbquot = /``[^` \t\n;]+``/
+ let dollar_assign = /\$\([^\(\)#\n]*\)/
+ let dollar_arithm = /\$\(\([^\)#\n]*\)\)/
- let sto_to_semicol = store /[^#; \t\n][^#;\n]+[^#; \t\n]|[^#; \t\n]+/
+ let anyquot = (char|dquot|squot|dollar_assign|dollar_arithm)+ | bquot | dbquot
+ let sto_to_semicol = store (anyquot . (Rx.cl_or_space . anyquot)*)
(* Array values of the form '(val1 val2 val3)'. We do not handle empty *)
(* arrays here because of typechecking headaches. Instead, they are *)
(* treated as a simple value *)
let array =
- let array_value = store (char+ | dquot) in
+ let array_value = store anyquot in
del /\([ \t]*/ "(" . counter "values" .
[ seq "values" . array_value ] .
[ del /[ \t\n]+/ " " . seq "values" . array_value ] *
(* but fairly close. *)
let simple_value =
let empty_array = /\([ \t]*\)/ in
- store (char* | dquot | squot | bquot | empty_array)
+ store (anyquot | empty_array)?
let export = [ key "export" . Util.del_ws_spc ]
- let kv = [ Util.indent . export? . key key_re
- . eq . (simple_value | array) . semicol . comment_or_eol ]
+ let kv = Util.indent . export? . key key_re
+ . eq . (simple_value | array)
let var_action (name:string) =
- [ Util.indent . xchgs name ("@" . name) . Util.del_ws_spc
- . store key_re . semicol . comment_or_eol ]
+ Util.indent . del name name . Util.del_ws_spc
+ . label ("@" . name) . counter "var_action"
+ . Build.opt_list [ seq "var_action" . store (key_re | matching_re) ] Util.del_ws_spc
let unset = var_action "unset"
let bare_export = var_action "export"
let source =
- [ Util.indent
- . del /\.|source/ "." . label ".source"
- . Util.del_ws_spc . store /[^;=# \t\n]+/ . comment_or_eol ]
+ Util.indent
+ . del /\.|source/ "." . label ".source"
+ . Util.del_ws_spc . store /[^;=# \t\n]+/
+
+ let shell_builtin_cmds = "ulimit" | "shift" | "exit"
+
+ let eval =
+ Util.indent . Util.del_str "eval" . Util.del_ws_spc
+ . label "@eval" . store anyquot
- let shell_builtin_cmds = "ulimit"
+ let alias =
+ Util.indent . Util.del_str "alias" . Util.del_ws_spc
+ . label "@alias" . store key_re . eq
+ . [ label "value" . store anyquot ]
let builtin =
- [ Util.indent . label "@builtin"
- . store shell_builtin_cmds
- . Util.del_ws_spc
- . [ label "args" . sto_to_semicol ]
- . comment_or_eol ]
+ Util.indent . label "@builtin"
+ . store shell_builtin_cmds
+ . (Sep.cl_or_space
+ . [ label "args" . sto_to_semicol ])?
let keyword (kw:string) = Util.indent . Util.del_str kw
let keyword_label (kw:string) (lbl:string) = keyword kw . label lbl
+ let return =
+ Util.indent . label "@return"
+ . Util.del_str "return"
+ . ( Util.del_ws_spc . store Rx.integer )?
+
+ let action (operator:string) (lbl:string) (sto:lens) =
+ let sp = Rx.cl_or_opt_space | /[ \t\n]+/
+ in [ del (sp . operator . sp) (" " . operator . " ")
+ . label ("@".lbl) . sto ]
+
+ let action_pipe = action "|" "pipe"
+ let action_and = action "&&" "and"
+ let action_or = action "||" "or"
+
+ let condition =
+ let cond (start:string) (end:string) = [ label "type" . store start ]
+ . Util.del_ws_spc . sto_to_semicol
+ . Util.del_ws_spc . Util.del_str end
+ . ( action_and sto_to_semicol | action_or sto_to_semicol )*
+ in Util.indent . label "@condition" . (cond "[" "]" | cond "[[" "]]")
+
+ (* Entry types *)
+ let entry_eol_item (item:lens) = [ item . comment_or_eol ]
+ let entry_item (item:lens) = [ item ]
+
+ let entry_eol_nocommand =
+ entry_eol_item source
+ | entry_eol_item kv
+ | entry_eol_item unset
+ | entry_eol_item bare_export
+ | entry_eol_item builtin
+ | entry_eol_item return
+ | entry_eol_item condition
+ | entry_eol_item eval
+ | entry_eol_item alias
+
+ let entry_noeol_nocommand =
+ entry_item source
+ | entry_item kv
+ | entry_item unset
+ | entry_item bare_export
+ | entry_item builtin
+ | entry_item return
+ | entry_item condition
+ | entry_item eval
+ | entry_item alias
+
+ (* Command *)
+ let rec command =
+ let env = [ key key_re . eq . store anyquot . Sep.cl_or_space ]
+ in let reserved_key = /exit|shift|return|ulimit|unset|export|source|\.|if|for|select|while|until|then|else|fi|done|case|eval|alias/
+ in let word = /[A-Za-z0-9_.-\/]+/
+ in let entry_eol = entry_eol_nocommand | entry_eol_item command
+ in let entry_noeol = entry_noeol_nocommand | entry_item command
+ in let entry = entry_eol | entry_noeol
+ in let pipe = action_pipe (entry_eol_item command | entry_item command)
+ in let and = action_and entry
+ in let or = action_or entry
+ in Util.indent . label "@command" . env* . store (word - reserved_key)
+ . [ Sep.cl_or_space . label "@arg" . sto_to_semicol]?
+ . ( pipe | and | or )?
+
+ let entry_eol = entry_eol_nocommand
+ | entry_eol_item command
+
+ let entry_noeol = entry_noeol_nocommand
+ | entry_item command
(************************************************************************
* Group: CONDITIONALS AND LOOPS
let cond_if (entry:lens) =
let elif = [ generic_cond_start "elif" "@elif" "then" entry+ ] in
let else = [ keyword_label "else" "@else" . eol . entry+ ] in
- generic_cond "if" "@if" "then" (entry+ . elif? . else?) "fi"
+ generic_cond "if" "@if" "then" (entry+ . elif* . else?) "fi"
let loop_for (entry:lens) =
generic_cond "for" "@for" "do" entry+ "done"
let loop_select (entry:lens) =
generic_cond "select" "@select" "do" entry+ "done"
- let case (entry:lens) =
- let case_entry = [ label "@case_entry"
- . Util.indent . store /[^ \t\n\)]+/
+ let case (entry:lens) (entry_noeol:lens) =
+ let pattern = [ label "@pattern" . sto_to_semicol . Sep.opt_space ]
+ in let case_entry = [ label "@case_entry"
+ . Util.indent . pattern
+ . (Util.del_str "|" . Sep.opt_space . pattern)*
. Util.del_str ")" . eol
- . entry+
+ . entry* . entry_noeol?
. Util.indent . Util.del_str ";;" . eol ] in
[ keyword_label "case" "@case" . Sep.space
- . store char+
+ . store (char+ | ("\"" . char+ . "\""))
. del /[ \t\n]+/ " " . Util.del_str "in" . eol
- . case_entry+
+ . (empty* . comment* . case_entry)*
+ . empty* . comment*
. keyword "esac" . comment_or_eol ]
+ let subshell (entry:lens) =
+ [ Util.indent . label "@subshell"
+ . Util.del_str "{" . brace_eol
+ . entry+
+ . Util.indent . Util.del_str "}" . eol ]
+
+ let function (entry:lens) =
+ [ Util.indent . label "@function"
+ . del /(function[ \t]+)?/ ""
+ . store Rx.word . del /[ \t]*\(\)/ "()"
+ . (comment_eol|brace_eol) . Util.del_str "{" . brace_eol
+ . entry+
+ . Util.indent . Util.del_str "}" . eol ]
+
let rec rec_entry =
- let entry = comment | empty | source | kv
- | unset | bare_export | builtin | rec_entry in
+ let entry = comment | entry_eol | rec_entry in
cond_if entry
| loop_for entry
| loop_select entry
| loop_while entry
| loop_until entry
- | case entry
+ | case entry entry_noeol
+ | function entry
+ | subshell entry
+
+ let lns_norec = del_empty* . (comment | entry_eol) *
- let lns = (comment | empty | source | kv | unset | bare_export | builtin | rec_entry) *
+ let lns = del_empty* . (comment | entry_eol | rec_entry) *
let sc_incl (n:string) = (incl ("/etc/sysconfig/" . n))
+ let sc_excl (n:string) = (excl ("/etc/sysconfig/" . n))
+
let filter_sysconfig =
- sc_incl "atd" .
- sc_incl "authconfig" .
- sc_incl "autofs" .
- sc_incl "clock" .
- sc_incl "cpuspeed" .
- sc_incl "crond" .
- sc_incl "crontab" .
- sc_incl "desktop" .
- sc_incl "firstboot" .
- sc_incl "grub" .
- sc_incl "hsqldb" .
- sc_incl "httpd" .
- sc_incl "i18n" .
- sc_incl "init" .
- sc_incl "iptables-config" .
- sc_incl "irda" .
- sc_incl "irqbalance" .
- sc_incl "kdump" .
- sc_incl "keyboard" .
- sc_incl "kudzu" .
- sc_incl "libvirtd" .
- sc_incl "lircd" .
- sc_incl "nasd" .
- sc_incl "netconsole" .
- sc_incl "network" .
- sc_incl "nfs" .
- sc_incl "ntpd" .
- sc_incl "prelink" .
- sc_incl "puppet" .
- sc_incl "puppetmaster" .
- sc_incl "readonly-root" .
- sc_incl "rsyslog" .
- sc_incl "samba" .
- sc_incl "saslauthd" .
- sc_incl "selinux" .
- sc_incl "sendmail" .
- sc_incl "smartmontools" .
- sc_incl "snmpd" .
- sc_incl "snmpd.options" .
- sc_incl "snmptrapd" .
- sc_incl "snmptrapd.options" .
- sc_incl "spamassassin" .
- sc_incl "suseconfig" .
- sc_incl "sysstat" .
- sc_incl "system-config-users" .
- sc_incl "vncservers" .
- sc_incl "wpa_supplicant" .
- sc_incl "xend" .
- sc_incl "xendomains"
-
- let filter_ifcfg = incl "/etc/sysconfig/network-scripts/ifcfg-*"
- . incl "/etc/sysconfig/network/ifcfg-*"
+ sc_incl "*" .
+ sc_excl "bootloader" .
+ sc_excl "hw-uuid" .
+ sc_excl "hwconf" .
+ sc_excl "ip*tables" .
+ sc_excl "ip*tables.save" .
+ sc_excl "kernel" .
+ sc_excl "*.pub" .
+ sc_excl "sysstat.ioconf" .
+ sc_excl "system-config-firewall" .
+ sc_excl "system-config-securitylevel" .
+ sc_incl "network/config" .
+ sc_incl "network/dhcp" .
+ sc_incl "network/dhcp6r" .
+ sc_incl "network/dhcp6s" .
+ sc_incl "network/ifcfg-*" .
+ sc_incl "network/if-down.d/*" .
+ sc_incl "network/ifroute-*" .
+ sc_incl "network/if-up.d/*" .
+ sc_excl "network/if-up.d/SuSEfirewall2" .
+ sc_incl "network/providers/*" .
+ sc_excl "network-scripts" .
+ sc_incl "network-scripts/ifcfg-*" .
+ sc_excl "rhn" .
+ sc_incl "rhn/allowed-actions/*" .
+ sc_excl "rhn/allowed-actions/script" .
+ sc_incl "rhn/allowed-actions/script/*" .
+ sc_incl "rhn/rhnsd" .
+ sc_excl "SuSEfirewall2.d" .
+ sc_incl "SuSEfirewall2.d/cobbler" .
+ sc_incl "SuSEfirewall2.d/services/*" .
+ sc_excl "SuSEfirewall2.d/services/TEMPLATE" .
+ sc_excl "*.systemd"
+
let filter_default = incl "/etc/default/*"
+ . excl "/etc/default/grub_installdevice*"
+ . excl "/etc/default/rmt"
+ . excl "/etc/default/star"
+ . excl "/etc/default/whoopsie"
+ . incl "/etc/profile"
+ . incl "/etc/profile.d/*"
let filter_misc = incl "/etc/arno-iptables-firewall/debconf.cfg"
+ . incl "/etc/conf.d/*"
. incl "/etc/cron-apt/config"
. incl "/etc/environment"
+ . incl "/etc/firewalld/firewalld.conf"
. incl "/etc/blkid.conf"
+ . incl "/etc/adduser.conf"
+ . incl "/etc/cowpoke.conf"
+ . incl "/etc/cvs-cron.conf"
+ . incl "/etc/cvs-pserver.conf"
+ . incl "/etc/devscripts.conf"
+ . incl "/etc/kamailio/kamctlrc"
+ . incl "/etc/lbu/lbu.conf"
+ . incl "/etc/lintianrc"
+ . incl "/etc/lsb-release"
+ . incl "/etc/os-release"
+ . incl "/etc/periodic.conf"
+ . incl "/etc/popularity-contest.conf"
+ . incl "/etc/rc.conf"
+ . incl "/etc/rc.conf.local"
+ . incl "/etc/selinux/config"
+ . incl "/etc/ucf.conf"
+ . incl "/etc/locale.conf"
+ . incl "/etc/vconsole.conf"
+ . incl "/etc/byobu/*"
let filter = filter_sysconfig
- . filter_ifcfg
. filter_default
. filter_misc
. Util.stdexcl
projects / platform / upstream / augeas.git / blobdiff