ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/env.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar read-envvar-name-history nil)
#@239 Read environment variable name, prompting with PROMPT.
Optional second arg MUSTMATCH, if non-nil, means require existing envvar name.
If it is also not t, RET does not exit if it does non-null completion.
(fn PROMPT &optional MUSTMATCH)
(defalias 'read-envvar-name #[513 "\301\302\303\304!\"\305\305\306&\207" [process-environment completing-read mapcar #[257 "\211\301\302\303\"O\304!\203 \305\306#\202 \211\207" [locale-coding-system 0 string-match "=" multibyte-string-p decode-coding-string t] 6 "\n\n(fn ENVENTRY)"] append nil read-envvar-name-history] 9 (#$ . 447)])
(defvar setenv-history nil)
(defconst env--substitute-vars-regexp "\\$\\(?:\\(?1:[[:alnum:]_]+\\)\\|{\\(?1:[^{}]+\\)}\\|\\$\\)")
#@812 Substitute environment variables referred to in STRING.
`$FOO' where FOO is an environment variable name means to substitute
the value of that variable. The variable name should be terminated
with a character not a letter, digit or underscore; otherwise, enclose
the entire variable name in braces. For instance, in `ab$cd-x',
`$cd' is treated as an environment variable.
If WHEN-DEFINED is nil, references to undefined environment variables
are replaced by the empty string; if it is a function, the function is called
with the variable name as argument and should return the text with which
to replace it or nil to leave it unchanged.
If it is non-nil and not a function, references to undefined variables are
left unchanged.
Use `$$' to insert a single dollar sign.
(fn STRING &optional WHEN-UNDEFINED)
(defalias 'substitute-env-vars #[513 "\301\302#\203^ \303\224\203M \304\303\"\305!\211\2044 \306!\203) !\211\262?\202* \2034 \301\225\262\202H \307\206: \310\311\211$\262\301\224G\\\262\266\202 \307\312\311\211$\262\301\224T\262\202 \207" [env--substitute-vars-regexp 0 string-match 1 match-string getenv functionp replace-match "" t "$"] 10 (#$ . 1167)])
(defalias 'substitute-env-in-file-name #[257 "\301\302>\203\f \303\202
\304\"\207" [system-type substitute-env-vars (windows-nt ms-dos) #[257 "\300\226!\207" [getenv] 3 "\n\n(fn VAR)"] t] 5 "\n\n(fn FILENAME)"])
#@158 Set VARIABLE to VALUE in ENV, adding empty entries if KEEP-EMPTY.
Changes ENV by side-effect, and returns its new value.
(fn ENV VARIABLE VALUE KEEP-EMPTY)
(defalias 'setenv-internal #[1028 "\301\302!\303Q\304\304\211\2040 \2040 \2030 @;\2030 \305\n@\"\2030 A\202\231 \203t @;\203t \305@\"\203j \203S \306 Q\240\210\202d \203_ \240\210\202d A\241\210\307\262\304\262\262A\262\2020 \211\204\227 \204\201 \203\227 \203\217 \306Q\202\221 B\202\231 )\207" [case-fold-search "\\`" regexp-quote "\\(=\\|\\'\\)" nil string-match "=" t] 13 (#$ . 2582)])
#@945 Set the value of the environment variable named VARIABLE to VALUE.
VARIABLE should be a string. VALUE is optional; if not provided or
nil, the environment variable VARIABLE will be removed.
Interactively, a prefix argument means to unset the variable, and
otherwise the current value (if any) of the variable appears at
the front of the history list when you type in the new value.
This function always replaces environment variables in the new
value when called interactively.
SUBSTITUTE-ENV-VARS, if non-nil, means to substitute environment
variables in VALUE with `substitute-env-vars', which see.
This is normally used only for interactive calls.
The return value is the new value of VARIABLE, or nil if
it was removed from the environment.
This function works by modifying `process-environment'.
As a special case, setting variable `TZ' calls `set-time-zone-rule' as
a side-effect.
(fn VARIABLE &optional VALUE SUBSTITUTE-ENV-VARS)
(defalias 'setenv #[769 "\302!\203) \203) \303P!\211@\304=\204( \305!>\204( \306\307\206& \310#\210\210\2036 \211\2036 \311!\262\302!\203B \312\"\262\203R \302!\203R \312\"\262\313\314\"\203^ \306\315\"\210\316\230\203h \317!\210\320 \321$\207" [locale-coding-system process-environment multibyte-string-p find-coding-systems-string undecided coding-system-base error "Can't encode `%s=%s' with `locale-coding-system'" "" substitute-env-vars encode-coding-string string-match "=" "Environment variable name `%s' contains `='" "TZ" set-time-zone-rule setenv-internal t] 8 (#$ . 3188) (byte-code "\203 \301\302\303\"\304D\207\301\305\304\"\306!\211\203 \307\310\"\210\311\312\313\"\304\211\211\310&\314E\207" [current-prefix-arg read-envvar-name "Clear environment variable: " exact nil "Set environment variable: " getenv add-to-history setenv-history read-from-minibuffer format "Set %s to value: " t] 10)])
#@510 Get the value of environment variable VARIABLE.
VARIABLE should be a string. Value is nil if VARIABLE is undefined in
the environment. Otherwise, value is a string.
If optional parameter FRAME is non-nil, then it should be a
frame. This function will look up VARIABLE in its `environment'
parameter.
Otherwise, this function searches `process-environment' for
VARIABLE. If it is not found there, then it continues the search
in the environment list of the selected frame.
(fn VARIABLE &optional FRAME)
(defalias 'getenv #[513 "\302\303!\203 \304\"\202 \205 \305\306!\236\" \203' \211\203' \307\"\262\310\311!\203: \312\313\2037 \2028 \314\"\210\211\207" [locale-coding-system enable-multibyte-characters getenv-internal multibyte-string-p encode-coding-string environment frame-parameters decode-coding-string called-interactively-p interactive message "%s" "Not set"] 7 (#$ . 5085) (byte-code "\300\301\302\"C\207" [read-envvar-name "Get environment variable: " t] 3)])
(provide 'env)
Kontol Shell Bypass