WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/ob-sh.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:49:12 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-sh.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\300\303!\210\300\304!\210\300\305!\207" [require ob ob-ref ob-comint ob-eval shell] 2)
(defvar org-babel-default-header-args:sh nil)
#@83 Command used to invoke a shell.
This will be passed to  `shell-command-on-region'
(defvar org-babel-sh-command "sh" (#$ . 724))
#@70 Format string used to escape variables when passed to shell scripts.
(custom-declare-variable 'org-babel-sh-var-quote-fmt "$(cat <<'BABEL_TABLE'\n%s\nBABEL_TABLE\n)" '(#$ . 858) :group 'org-babel :type 'string)
#@105 Execute a block of Shell commands with Babel.
This function is called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:sh #[(body params) "\305\306\307\"A!\306\310\"A\211\205\311\312\n!!)\313\314!#\315\316	\f\n$\317\306\320\"A\306\321\"A\"\317\306\322\"A\306\323\"A\"#+\207" [params session stdin body full-body org-babel-sh-initiate-session assoc :session :stdin org-babel-sh-var-to-string org-babel-ref-resolve org-babel-expand-body:generic org-babel-variable-assignments:sh org-babel-reassemble-table org-babel-sh-evaluate org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 9 (#$ . 1076)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:sh #[(session params) "\304!\305	!\212\306 \307\216\310!\204\311\312\"\210q\210\313\314\n\"\210+*\207" [session params var-lines save-match-data-internal org-babel-sh-initiate-session org-babel-variable-assignments:sh match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" mapc #[(var) "c\210\302\303\304\"\210\305	!\207" [var session comint-send-input nil t org-babel-comint-wait-for-output] 3]] 3 (#$ . 1725)])
#@25 Load BODY into SESSION.
(defalias 'org-babel-load-session:sh #[(session body params) "\305 \306\216\307	\n\"rq\210\310\311p!!b\210\312\f!c\210)+\207" [#1=#:wconfig session params buffer body current-window-configuration ((set-window-configuration #1#)) org-babel-prep-session:sh process-mark get-buffer-process org-babel-chomp] 3 (#$ . 2383)])
#@66 Return list of shell statements assigning the block's variables.
(defalias 'org-babel-variable-assignments:sh #[(params) "\302\303\"A\304\305\304\306\307\310\"\"\")\207" [params sep assoc :separator mapcar #[(pair) "\302\303@\304A	\"#\207" [pair sep format "%s=%s" org-babel-sh-var-to-sh] 6] cdr org-babel-get-header :var] 7 (#$ . 2737)])
#@134 Convert an elisp value to a shell variable.
Convert an elisp var into a string of shell commands specifying a
var of the same value.
(defalias 'org-babel-sh-var-to-sh #[(var &optional sep) "\303\304	\n\"\"\207" [org-babel-sh-var-quote-fmt var sep format org-babel-sh-var-to-string] 5 (#$ . 3088)])
#@37 Convert an elisp value to a string.
(defalias 'org-babel-sh-var-to-string #[(var &optional sep) "\303	<\203	@<\203\304	\305\n\206\306\307F\"\202,	<\203)\310	\311#\202,	!)\207" [echo-var var sep #[(v) ";\203\207\301\302\"\207" [v format "%S"] 3] orgtbl-to-generic :sep "	" :fmt mapconcat "\n"] 6 (#$ . 3393)])
#@168 Convert RESULTS to an appropriate elisp value.
If the results look like a table, then convert them into an
Emacs-lisp table, otherwise return the results as a string.
(defalias 'org-babel-sh-table-or-results #[(results) "\301!\207" [results org-babel-script-escape] 2 (#$ . 3727)])
#@55 Initiate a session named SESSION according to PARAMS.
(defalias 'org-babel-sh-initiate-session #[(&optional session params) "\205\302\230?\205\303 \304\216\305!\206\306!\210\307p!*\207" [session #1=#:wconfig "none" current-window-configuration ((set-window-configuration #1#)) org-babel-comint-buffer-livep shell get-buffer] 2 (#$ . 4016)])
#@51 String to indicate that evaluation has completed.
(defvar org-babel-sh-eoe-indicator "echo 'org_babel_sh_eoe'" (#$ . 4374))
#@51 String to indicate that evaluation has completed.
(defvar org-babel-sh-eoe-output "org_babel_sh_eoe" (#$ . 4504))
#@216 Pass BODY to the Shell process in BUFFER.
If RESULT-TYPE equals 'output then return a list of the outputs
of the statements in BODY, if RESULT-TYPE equals 'value then
return the value of the last statement in BODY.
(defalias 'org-babel-sh-evaluate #[(session body &optional params stdin) "\203\237\306\307!\306\310!\311\312	\"A\311\313	\"A\314\230?\211\315\316\317!!@A\320\216r@q\210\2035\321Pc\210\n\203<\321c\210Bc\210)r@q\210\322\323\211A\323\324%\210,\325
\326\"\210\f\315\316\317!!CD\327\216rCq\210c\210)rCq\210\322\323\211D\323\324%\210,\330\331!ErEq\210\332\216\333\203\216
\202\224\334\335F
#\fp#\210\336 .\202\313G\203[\337\340\341\342\343\212\344 H\345\216\346G!\204\275\347\350G\"\210Gq\210\351\323\211IJK\352LBL\353\216\354\355p!!b\210`dM\211NM{JNM|\210*\356\357\360\361\342B!\321\"OC\"\"\210Pb\210\212\362\363Q!\323\364#\205\362R\323\364#)\204\365\355p!!\210\202\374\354\355p!!b\210Jc\210)B\203K\366\367\321\370\363B\206;\351!#K\"\203KK\324\225\323OI\361KR\".\371\"\"\321#\202\313\311\312	\"A\203\303\311\312	\"AG\324V\203\303\306\307!\311\312	\"A\311\313	\"A\314\230?\211\315\316\317!!ST\372\216rSq\210\203\233\321Pc\210\n\203\242\321c\210Bc\210)rSq\210\322\323\211T\323\324%\210,\325
\326\"\210\373
\351\"+\202\313\373F\342B!\"\211U\205(\311\374	\"AV\375V\235\204\355\376V\235\204\355\377V\235\203\362U\202'\306\201Z!\211W\315\316\317!!XY\201[\216rXq\210Uc\210)rXq\210\322\323\211Y\323\324%\210,\201\\W!)))\207" [stdin params padline shebang stdin-file script-file org-babel-temp-file "sh-script-" "sh-stdin-" assoc :shebang :padline "no" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "\n" write-region nil 0 set-file-modes 493 ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) call-process-shell-command format "%s %s" buffer-string mapconcat org-babel-sh-strip-weird-long-prompt mapcar org-babel-trim butlast match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" "" #[(text) "	P\211\207" [string-buffer text] 2] ((byte-code "A\301\207" [comint-output-filter-functions nil] 1)) process-mark get-buffer-process mapc #[(line) "c\210\303\304\305\"\210\212	b\210\306\n\304\305#)?\205\307\310p!!\210\202\207" [line comint-last-input-end comint-prompt-regexp comint-send-input nil t re-search-forward accept-process-output get-buffer-process] 4] append split-string re-search-forward regexp-quote t accept-process-output string-match replace-regexp-in-string "[
\n]+" 2 ((byte-code "\301!\203\n\302!\210\301\207" [#4=#:temp-buffer buffer-name kill-buffer] 2)) org-babel-eval :result-params "scalar" "verbatim" "output" #1# #5=#:temp-file body #2# #6=#:temp-file #3# org-babel-sh-command session save-match-data-internal raw dangling-text string-buffer comint-output-filter-functions end start org-babel-sh-eoe-indicator comint-last-input-end org-babel-sh-eoe-output comint-prompt-regexp #4# #7=#:temp-file results result-params tmp-file #8=#:temp-buffer #9=#:temp-file "sh-" ((byte-code "\301!\203\n\302!\210\301\207" [#8# buffer-name kill-buffer] 2)) org-babel-import-elisp-from-file] 12 (#$ . 4625)])
#@52 Remove prompt cruft from a string of shell output.
(defalias 'org-babel-sh-strip-weird-long-prompt #[(string) "\301\302\"\203\303\225\304O\202\207" [string string-match "^% +[
\n$]+ *" 0 nil] 3 (#$ . 8165)])
(provide 'ob-sh)
F1l3 Manager
