;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require ob org-macs shell cl-lib] 2)
(defvar org-babel-default-header-args:shell nil)
#@164 Define execution functions associated to shell names.
This function has to be called whenever `org-babel-shell-names'
is modified outside the Customize interface.
(defalias 'org-babel-shell-initialize #[0 "\211\205F\211@\301\302\303\304P!\305\306\307\"\310\311DC\312BB\257!\210\301\313\314\303\315P!D\316\306\317\"F!\210\301\320\303\321P!\322BB!\210
A\266\202\202
\207" [org-babel-shell-names eval defun intern "org-babel-execute:" (body params) format "Execute a block of %s commands with Babel." let shell-file-name ((org-babel-execute:shell body params)) defalias quote "org-babel-variable-assignments:" 'org-babel-variable-assignments:shell "Return list of %s statements assigning to the block's variables." defvar "org-babel-default-header-args:" ('nil)] 10 (#$ . 238) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\307\310\317\320\321&	\207" [custom-declare-variable org-babel-shell-names funcall function #[0 "\300\207" [("sh" "bash" "zsh" "fish" "csh" "ash" "dash" "ksh" "mksh" "posh")] 1 #1=""] "List of names of shell supported by babel shell code blocks.\nCall `org-babel-shell-initialize' when modifying this variable\noutside the Customize interface." :group org-babel :type (repeat (string :tag "Shell name: ")) :set #[514 "\300\"\210\301 \207" [set-default org-babel-shell-initialize] 5 "\n\n(fn SYMBOL VALUE)"] org-babel-shell-results-defaults-to-output #[0 "\300\207" [t] 1 #1#] "Let shell execution defaults to \":results output\".\n\nWhen set to t, use \":results output\" when no :results setting\nis set.  This is especially useful for inline source blocks.\n\nWhen set to nil, stick to the convention of using :results value\nas the default setting when no :results is set, the \"value\" of\na shell execution being its exit code." boolean :package-version (Org . "9.4")] 10)
#@123 Execute a block of Shell commands with Babel.
This function is called by `org-babel-execute-src-block'.

(fn BODY PARAMS)
(defalias 'org-babel-execute:shell #[514 "\301\302\236A!\303\236A\211\205\304\305!!\262
\306\236A\211\307\232\203$?\206'\310
\235\311\236A\312\313	!#\205:\314P\315\316\n	%\317\320\n\236A\321\236A\"\317\322\236A\323\f\236A\"#\207" [org-babel-shell-results-defaults-to-output org-babel-sh-initiate-session :session :stdin org-babel-sh-var-to-string org-babel-ref-resolve :result-params ("replace") "value" :cmdline org-babel-expand-body:generic org-babel-variable-assignments:shell "\necho $?" org-babel-reassemble-table org-babel-sh-evaluate org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 15 (#$ . 2116)])
#@93 Prepare SESSION according to the header arguments specified in PARAMS.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:shell #[514 "\301!\302!\303!\204\304\305\"\210\306 \307\310\"\216rq\210\212\311\312\307\313\"\"\210,\210
\207" [comint-input-filter org-babel-sh-initiate-session org-babel-variable-assignments:shell org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] mapc #[257 "\211c\210\301\302\303\"\210\304\300!\207" [V0 comint-send-input nil t org-babel-comint-wait-for-output] 4 "\n\n(fn VAR)"]] 9 (#$ . 2903)])
#@51 Load BODY into SESSION.

(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:shell #[771 "\300 \301\302\"\216\303\"r\211q\210\304\305p!!b\210\306!c\210)\211\262
)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-babel-prep-session:shell process-mark get-buffer-process org-babel-chomp] 8 (#$ . 3602)])
#@114 Return a list of statements declaring the values as a generic variable.

(fn VARNAME VALUES &optional SEP HLINE)
(defalias 'org-babel--variable-assignments:sh-generic #[1026 "\300\301\302##\207" [format "%s=%s" org-babel-sh-var-to-sh] 11 (#$ . 3978)])
#@108 Return a list of statements declaring the values as a bash array.

(fn VARNAME VALUES &optional SEP HLINE)
(defalias 'org-babel--variable-assignments:bash_array #[1026 "\300\301\211\302\303\304#\305#$\207" [format "unset %s\ndeclare -a %s=( %s )" mapconcat make-closure #[257 "\302
\300\301#\207" [V0 V1 org-babel-sh-var-to-sh] 5 "\n\n(fn VALUE)"] " "] 13 (#$ . 4244)])
#@118 Return a list of statements declaring the values as bash associative array.

(fn VARNAME VALUES &optional SEP HLINE)
(defalias 'org-babel--variable-assignments:bash_assoc #[1026 "\300\301\211\302\303\304\n		$\305#$\207" [format "unset %s\ndeclare -A %s\n%s" mapconcat make-closure #[257 "\303\304\300\305@\301\302#\305A\301\302#$\207" [V0 V1 V2 format "%s[%s]=%s" org-babel-sh-var-to-sh] 9 "\n\n(fn ITEMS)"] "\n"] 14 (#$ . 4628)])
#@99 Represent the parameters as useful Bash shell variables.

(fn VARNAME VALUES &optional SEP HLINE)
(defalias 'org-babel--variable-assignments:bash #[1026 ":\2030\242\211:\203)\211\243\211:\203\300$\207\301$\207\301$\207\302$\207" [org-babel--variable-assignments:bash_assoc org-babel--variable-assignments:bash_array org-babel--variable-assignments:sh-generic] 11 (#$ . 5073)])
#@79 Return list of shell statements assigning the block's variables.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:shell #[257 "\300
\236A\301\236A\302\230\205\303\236A\206\304\305\306\307#\310!\"\207" [:separator :hlines "yes" :hline-string "hline" mapcar make-closure #[257 "\303\304\n\"\203\305
@A\300\301$\207\306
@A\300\301$\207" [V0 V1 shell-file-name string-suffix-p "bash" org-babel--variable-assignments:bash org-babel--variable-assignments:sh-generic] 6 "\n\n(fn PAIR)"] org-babel--get-vars] 8 (#$ . 5486)])
#@164 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.

(fn VAR &optional SEP HLINE)
(defalias 'org-babel-sh-var-to-sh #[769 "\300\301\300\302\303##\300Q\207" ["'" replace-regexp-in-string "'\"'\"'" org-babel-sh-var-to-string] 11 (#$ . 6029)])
#@67 Convert an elisp value to a string.

(fn VAR &optional SEP HLINE)
(defalias 'org-babel-sh-var-to-string #[769 "\300<\203$@<\204@\301=\203$\302\303\206\304\305\306\257\"\207<\203/\307
\310#\207\211!\207" [#[257 "\211;\203\207\300\301\"\207" [format "%S"] 4 "\n\n(fn V)"] hline orgtbl-to-generic :sep "	" :fmt :hline mapconcat "\n"] 12 (#$ . 6363)])
#@86 Initiate a session named SESSION according to PARAMS.

(fn &optional SESSION PARAMS)
(defalias 'org-babel-sh-initiate-session #[512 "
\205'
\301\230?\205'\302 \303\304\"\216\305!\206$\306!\210`\307\223\210\310p!)\262
\207" [comint-last-output-start "none" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] org-babel-comint-buffer-livep shell nil get-buffer] 6 (#$ . 6739)])
#@51 String to indicate that evaluation has completed.
(defvar org-babel-sh-eoe-indicator "echo 'org_babel_sh_eoe'" (#$ . 7171))
#@51 String to indicate that evaluation has completed.
(defvar org-babel-sh-eoe-output "org_babel_sh_eoe" (#$ . 7301))
#@268 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.

(fn SESSION BODY &optional PARAMS STDIN CMDLINE)
(defalias 'org-babel-sh-evaluate #[1282 "\306\236A\307\236A\211\310\232\203?\206\311
\235\204\203\275\312\313!\312\314!\315\236A\316\230?\317\320\321\"\322\323\"\216r\211q\210\203D\324\261\210
\203K\324c\210\nc\210)r\211q\210\325\326\211\326\327%\210*\210\330\331\"\210\317\320\321\"\322\332\"\216r\211q\210\206w\333c\210)r\211q\210\325\326\211\326\327%\210*\210\317\334\321\"r\211q\210\322\335\"\216\336\203\237\202\245\337\340	#	\205\256\341\nPPp#\210\342 *\262
\266\203\202\203\254
\343\344\345\346\347\350
!\204\324\351\352\"\210\353 \322\354\"\216r
q\210\212\355\333C\322\356\"B\326\357\360p!!b\210`d

{\262

|\266\361\362\326\363
\203
\364\202
\365\333\363\366\333##\266\202\324\"\fC\"\211\203J
\211@\211c\210\367\326\321\"\210\212
b\210\370@\326\321#)\204C
\371\360p!!\210\202,

A\266\202\202
\210
b\210\212\370\372A!\326\321#\205`
\370@\326\321#)\204m
\371\360p!!\210\202K
\357\360p!!b\210\211c\210\203\230
\373\363\324\374\372\206\207
\333!#\242\"\203\230

\211\242\327\225\326O\240\210\362\242@\")\266\202,\262
\375\"\"\324#\202\376!\203\371
\312\313!\315\236A\316\232?\317\320\321\"\322\377\"\216r\211q\210\324\261\210
\203\326
\324c\210	c\210)r\211q\210\325\326\211\326\327%\210*\210\330\331\"\210\201B\333\"\266\202\202\201B	\326\363
\203	\364\202\n\365\333\363\366\333##\266\202\"
\203%\201C\362\324\321#!@\262
\211\205\302\307\236A\201D
\235?\205\300\201E
\235\204\217\201F
\235\204\217\201G
\235\204\217\201H
\235\204\217\201I
\235\204\217\201J
\235\204\217\201K
\235\204\207\201L
\235\204\207\201M
\235\204\207\201N
\235\203\223\201O
\235\204\223
\202\300\312\201P!\317\320\321\"\322\201Q\"\216r\211q\210c\210)r\211q\210\325\326\211\326\327%\210*\210\201R
!\262
\262
\207" [org-babel-shell-results-defaults-to-output shell-file-name comint-input-filter comint-output-filter-functions org-babel-sh-eoe-indicator comint-last-input-end :shebang :result-params ("replace") "value" org-babel-temp-file "sh-script-" "sh-stdin-" :padline "no" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "\n" write-region nil 0 set-file-modes 493 #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "" " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process-shell-command format "%s %s" " " buffer-string mapconcat org-babel-sh-strip-weird-long-prompt mapcar org-trim butlast org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] #[257 "\300\211\242P\240\207" [V0] 4 "\n\n(fn TEXT)"] process-mark get-buffer-process append split-string replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "[ 	\n
]+\\'" comint-send-input re-search-forward accept-process-output regexp-quote string-match "[
\n]+" 2 org-string-nw-p #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] comint-prompt-regexp org-babel-sh-eoe-output org-babel-eval reverse "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" "sh-" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] org-babel-import-elisp-from-file] 27 (#$ . 7422)])
#@65 Remove prompt cruft from a string of shell output.

(fn STRING)
(defalias 'org-babel-sh-strip-weird-long-prompt #[257 "\300\301\"\203\211\302\225\303O\262
\202\207" [string-match "^% +[
\n$]+ *" 0 nil] 4 (#$ . 11055)])
(provide 'ob-shell)