;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:49 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-basic.el
;;; in Emacs version 24.3.1
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\305\315\316\317\311\304&\207" [require eshell esh-opt custom-declare-group eshell-basic nil "The \"basic\" code provides a set of convenience functions which\nare traditionally considered shell builtins.  Since all of the\nfunctionality provided by them is accessible through Lisp, they are\nnot really builtins at all, but offer a command-oriented way to do the\nsame thing." :tag "Basic shell commands" :group eshell-module custom-declare-variable eshell-plain-echo-behavior "If non-nil, `echo' tries to behave like an ordinary shell echo.\nThis comes at some detriment to Lisp functionality.  However, the Lisp\nequivalent of `echo' can always be achieved by using `identity'." :type boolean] 8)
#@152 Implementation code for a Lisp version of `echo'.
It returns a formatted value that should be passed to `eshell-print'
or `eshell-printn' for display.
(defalias 'eshell-echo #[(args &optional output-newline) "\203\304\305	\"\306P\207	G\307U\203\310\202&	G\311U\203\"	@\202&\312\313	\"\203K\n;\2036\n\306P\202L\n<\203C\314\n\306C\"\202L\315\n!\306P\202L\n)\207" [eshell-plain-echo-behavior args value output-newline apply eshell-flatten-and-stringify "\n" 0 "" 1 mapcar #[(arg) ";\203
\301\302G\303$\210\207" [arg set-text-properties 0 nil] 5] append eshell-stringify] 3 (#$ . 1344)])
#@62 Implementation of `echo'.  See `eshell-plain-echo-behavior'.
(defalias 'eshell/echo #[(&rest args) "\306\211\211\211\211\307\310\311\312#.\207" [args temp-args ext-command last-value usage-msg output-newline nil eshell-do-opt "echo" ((110 nil nil output-newline "terminate with a newline") (104 "help" nil nil "output this help screen") :preserve-args :usage "[-n] [object]") #[nil "\302	\"\207" [args output-newline eshell-echo] 3]] 5 (#$ . 1955)])
#@57 Print out each of the arguments, separated by newlines.
(defalias 'eshell/printnl #[(&rest args) "\304!\211\205&\305	@C!\211\306\n\"\210)\307\306\n\"\210*	A\211\204\310)\207" [args elems object eshell-output-handle eshell-flatten-list eshell-echo eshell-output-object "\n" nil] 4 (#$ . 2420)])
#@42 Return the argument(s) as a single list.
(defalias 'eshell/listify #[(&rest args) "G\301V\203	\207@<\203@\207@C\207" [args 1] 2 (#$ . 2731)])
#@39 Shell-like implementation of `umask'.
(defalias 'eshell/umask #[(&rest args) "\306!\307\310\")\311\211\211\211\211\312\313\314\315#.\207" [args temp-args ext-command last-value usage-msg symbolic-p eshell-flatten-list mapcar eshell-stringify nil eshell-do-opt "umask" ((83 "symbolic" nil symbolic-p "display umask symbolically") (104 "help" nil nil "display this usage message") :usage "[-S] [mode]") #[nil "\203	\203\233\306\307\310\311\312\313 !\314\"\"P\211\211G\315Z\316O	\203\206\313 \307\317\311\320\"\320U\2050\321\311\322\"\322U\205:\323\311\324\"\324U\205D\325Q\311\326\"\326U\205O\321\311\327\"\327U\205Y\323\311\330\"\330U\205c\325Q\311\331\"\331U\205n\321\311\332\"\332U\205x\323\311\333\"\333U\205\202\325Q$)\n\211\334\f
\"\210)\335\334\f
\"\210+\202\305\336@!\240\210@\247\203\271\337\314\340\341\342@!P!@Z!\210\202\275\343\344!\210\345\334\f
\"\210)\316\207" [args symbolic-p modstr mode object eshell-output-handle "000" format "%o" logand lognot default-file-modes 511 3 nil "u=%s,g=%s,o=%s" 64 "r" 128 "w" 256 "x" 8 16 32 1 2 4 eshell-output-object "\n" eshell-convert set-default-file-modes read-from-string "?\\" number-to-string error "setting umask symbolically is not yet implemented" "Warning: umask changed for all new files created by Emacs.\n"] 10]] 5 (#$ . 2887)])
(provide 'em-basic)