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



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ob-core org-compat comint] 2)
#@70 Check if BUFFER is a comint buffer with a live process.

(fn BUFFER)
(defalias 'org-babel-comint-buffer-livep #[257 "\211\205\300
!\211\205\301
!\205\302
!\205\211\207" [get-buffer buffer-live-p get-buffer-process] 4 (#$ . 176)])
#@195 Check BUFFER and execute BODY.
BUFFER is checked with `org-babel-comint-buffer-livep'.  BODY is
executed inside the protection of `save-excursion' and
`save-match-data'.

(fn BUFFER &rest BODY)
(defalias 'org-babel-comint-in-buffer '(macro . #[385 "\300\301\302D\303\304EE\305\306\307\310\311BBDEDE\207" [progn unless org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" save-match-data with-current-buffer save-excursion let ((comint-input-filter (lambda (_input) nil)))] 11 (#$ . 421)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-babel-comint-in-buffer lisp-indent-function 1 put edebug-form-spec t] 5)
#@517 Evaluate BODY in BUFFER and return process output.
Will wait until EOE-INDICATOR appears in the output, then return
all process output.  If REMOVE-ECHO and FULL-BODY are present and
non-nil, then strip echo'd body from the returned output.  META
should be a list containing the following where the last two
elements are optional.

 (BUFFER EOE-INDICATOR REMOVE-ECHO FULL-BODY)

This macro ensures that the filter is removed in case of an error
or user `keyboard-quit' during execution of body.

(fn META &rest BODY)
(defalias 'org-babel-comint-with-output '(macro . #[385 "
@A@\3008\3018\302\303\304\305\306\307\310\311\312\313\314\315\316\317D\320BB\321BBDDE\322BB\323\324\325\315\326\327\330\331\317\332\333BBDF\334BBF\335BB\336BBBB\"BBBBE\207" [2 3 org-babel-comint-in-buffer let* ((string-buffer #1="") (comint-output-filter-functions (cons (lambda (text) (setq string-buffer (concat string-buffer text))) comint-output-filter-functions)) dangling-text) (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) append while progn (goto-char comint-last-input-end) not save-excursion and re-search-forward regexp-quote (nil t) ((re-search-forward comint-prompt-regexp nil t)) ((accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text) when string-match replace-regexp-in-string "\n" "[
\n]+" or (#1#) (string-buffer) ((setq string-buffer (substring string-buffer (match-end 0)))) ((split-string string-buffer comint-prompt-regexp))] 29 (#$ . 1095)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-babel-comint-with-output lisp-indent-function 1 put edebug-form-spec (sexp body)] 5)
#@68 Pass CMD to BUFFER.
The input will not be echoed.

(fn BUFFER CMD)
(defalias 'org-babel-comint-input-command #[514 "\301!\204\302\303\"\210\304 \305\306\"\216rq\210\212\307\310\311!!b\210
c\210\312 \210\313!,\207" [comint-input-filter 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)"] process-mark get-buffer-process comint-send-input org-babel-comint-wait-for-output] 6 (#$ . 2943)])
#@155 Wait until output arrives from BUFFER.
Note: this is only safe when waiting for the result of a single
statement (not large blocks of code).

(fn BUFFER)
(defalias 'org-babel-comint-wait-for-output #[257 "\303
!\204\304\305\"\210\306 \307\310\"\216r
q\210\212\311	b\210\312\n\313\314#\2050\315\224b\2050\316\317 !\320\230?\205=\321\322!!\210\202,\207" [comint-input-filter comint-last-input-end comint-prompt-regexp 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)"] re-search-forward nil t 0 face-name face-at-point "comint-highlight-prompt" accept-process-output get-buffer-process] 6 (#$ . 3500)])
#@179 Evaluate STRING in BUFFER invisibly.
Don't return until FILE exists.  Code in STRING must ensure that
FILE exists at end of evaluation.

(fn BUFFER FILE STRING &optional PERIOD)
(defalias 'org-babel-comint-eval-invisibly-and-wait-for-file #[1027 "\300!\204\301\302\"\210\303!\203\304!\210\305\306!\211GSH\307U\203'\202*\310P\"\210\303!?\205>\311
\2069\312!\210\202,\207" [org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" file-exists-p delete-file process-send-string get-buffer-process 10 "\n" sit-for 0.25] 8 (#$ . 4274)])
#@480 Regular expression that `org-babel-comint-async-filter' scans for.
It should have 2 parenthesized expressions,
e.g. "org_babel_async_\(start\|end\|file\)_\(.*\)".  The
first parenthesized expression determines whether the token is
delimiting a result block, or whether the result is in a file.
If delimiting a block, the second expression gives a UUID for the
location to insert the result.  Otherwise, the result is in a tmp
file, and the second expression gives the file name.
(defvar org-babel-comint-async-indicator nil (#$ . 4855))
(make-variable-buffer-local 'org-babel-comint-async-indicator)
#@67 List of Org mode buffers to check for Babel async output results.
(defvar org-babel-comint-async-buffers nil (#$ . 5461))
(make-variable-buffer-local 'org-babel-comint-async-buffers)
#@189 Callback to clean and insert Babel async results from a temp file.
The callback function takes two arguments: the alist of params of the Babel
source block, and the name of the temp file.
(defvar org-babel-comint-async-file-callback nil (#$ . 5651))
(make-variable-buffer-local 'org-babel-comint-async-file-callback)
#@231 Callback function to clean Babel async output results before insertion.
Its single argument is a string consisting of output from the
comint process.  It should return a string that will be be passed
to `org-babel-insert-result'.
(defvar org-babel-comint-async-chunk-callback nil (#$ . 5975))
(make-variable-buffer-local 'org-babel-comint-async-chunk-callback)
#@146 Dangling piece of the last process output, in case
`org-babel-comint-async-indicator' is spread across multiple
comint outputs due to buffering.
(defvar org-babel-comint-async-dangling nil (#$ . 6343))
(make-variable-buffer-local 'org-babel-comint-async-dangling)
#@136 Determine whether to use session async evaluation.
PARAMS are the header arguments as passed to
`org-babel-execute:lang'.

(fn PARAMS)
(defalias 'org-babel-comint-use-async #[257 "\301
\236\302\236
\205?\205
A\303\232?\205\211A\304\232?\207" [org-babel-exp-reference-buffer :async :session "no" "none"] 5 (#$ . 6614)])
#@228 Captures Babel async output from comint buffer back to Org mode buffers.
This function is added as a hook to `comint-output-filter-functions'.
STRING contains the output originally inserted into the comint buffer.

(fn STRING)
(defalias 'org-babel-comint-async-filter #[257 "\305\211:\203@\262\306!\203

B\262
A\262\202\211\237\266\203	\nP\211\305\307\310\311\"r\211q\210\312\313\"\216c\210eb\210\314\305\311#\203\261`d{\262\315\316!\317\232\203^\315\320!B\262\202>\315\316!\321\232\203>\315\320!\305
:\203\254
@\262
r\211q\210\212eb\210\322\305\311#\205\241\323 \210\324 \320
8\325
\236A\326\320\324 8\"#\266\311*\204\254
A\262\202l\266\202>GGV\203\276\262*\210\327\303!\210
\211\205I
\212db\210\211\205H
\330!\210\315\316!\317\232\203\316\331\320!\332\224S\330!\210\315\316!\333\232\203\345\315\320!\232\203\345\332\225T{\f
!\305
:\203=

@\262
r\211q\210\212eb\210\322\305\311#\2052
\323 \210\324 \320
8\325
\236A\326#\266\311*\204=

A\262\202
\266\334\"\266\204\202\316)\207" [org-babel-comint-async-buffers org-babel-comint-async-indicator org-babel-comint-async-file-callback org-babel-comint-async-dangling org-babel-comint-async-chunk-callback nil buffer-live-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward match-string 1 "end" 2 "file" search-forward org-babel-previous-src-block org-babel-get-src-block-info :result-params org-babel-insert-result make-local-variable re-search-backward match-string-no-properties 0 "start" delete] 19 (#$ . 6948)])
#@411 Set local org-babel-comint-async variables in SESSION-BUFFER.
ORG-BUFFER is added to `org-babel-comint-async-buffers' if not
present.  `org-babel-comint-async-indicator',
`org-babel-comint-async-chunk-callback', and
`org-babel-comint-async-file-callback' are set to
INDICATOR-REGEXP, CHUNK-CALLBACK, and FILE-CALLBACK
respectively.

(fn SESSION-BUFFER ORG-BUFFER INDICATOR-REGEXP CHUNK-CALLBACK FILE-CALLBACK)
(defalias 'org-babel-comint-async-register #[1285 "\305!\204\f\306\307\"\210\310 \311\312\"\216rq\210\212\313
\f>\204*\fB\314\315\316\317\320$,\207" [comint-input-filter org-babel-comint-async-indicator org-babel-comint-async-chunk-callback org-babel-comint-async-file-callback org-babel-comint-async-buffers 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)"] add-hook comint-output-filter-functions org-babel-comint-async-filter nil t] 11 (#$ . 8572)])
#@274 Remove dangling text in SESSION-BUFFER and evaluate BODY.
This is analogous to `org-babel-comint-with-output', but meant
for asynchronous output, and much shorter because inserting the
result is delegated to `org-babel-comint-async-filter'.

(fn SESSION-BUFFER &rest BODY)
(defalias 'org-babel-comint-async-delete-dangling-and-eval '(macro . #[385 "\300\301\302BBBB\207" [org-babel-comint-in-buffer (goto-char (process-mark (get-buffer-process (current-buffer)))) (delete-region (point) (point-max))] 7 (#$ . 9614)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\207" [function-put org-babel-comint-async-delete-dangling-and-eval lisp-indent-function 1 put edebug-form-spec t provide ob-comint] 5)