;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:39 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-comint.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!\207" [require ob org-compat comint] 2)
#@57 Check if BUFFER is a comint buffer with a live process.
(defalias 'org-babel-comint-buffer-livep #[(buffer) "\205\301!\211\205\302!\205\303!\205)\207" [buffer get-buffer buffer-live-p get-buffer-process] 3 (#$ . 643)])
#@171 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'.
(defalias 'org-babel-comint-in-buffer '(macro . #[(buffer &rest body) "\302\303\304\305D\306\307EE\310D	BBBD\207" [buffer body save-excursion save-match-data unless org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" set-buffer] 7 (#$ . 883)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put org-babel-comint-in-buffer lisp-indent-function 1 edebug-form-spec (form body)] 4)
#@495 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.
(defalias 'org-babel-comint-with-output '(macro . #[(meta &rest body) "@\211A@)A\211A@)AA\211A@)\306
\307\310\311\312\313\314\315\316%\317\313\320\321\322\323\324\325\fD\326BB\327BBDDE\330BB\331B\"BBB\332BB\333\323\n\334\335\336\337\325\340\n\341BBDF\342BBF\343BB\344BBBBBE,\207" [meta x full-body remove-echo eoe-indicator buffer org-babel-comint-in-buffer let ((string-buffer #1="") dangling-text raw) (setq comint-output-filter-functions (cons (lambda (text) (setq string-buffer (concat string-buffer text))) comint-output-filter-functions)) unwind-protect progn (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 (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)) ((setq comint-output-filter-functions (cdr comint-output-filter-functions))) if string-match replace-regexp-in-string "\n" "[
\n]+" or (#1#) (string-buffer) ((setq raw (substring string-buffer (match-end 0)))) ((split-string string-buffer comint-prompt-regexp)) body] 21 (#$ . 1481)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put org-babel-comint-with-output lisp-indent-function 1 edebug-form-spec (form body)] 4)
#@51 Pass CMD to BUFFER.
The input will not be echoed.
(defalias 'org-babel-comint-input-command #[(buffer cmd) "\212\303 \304\216\305	!\204\306\307	\"\210	q\210\310\311	!!b\210\nc\210\312 \210\313	!+\207" [save-match-data-internal buffer cmd 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" process-mark get-buffer-process comint-send-input org-babel-comint-wait-for-output] 3 (#$ . 3487)])
#@142 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).
(defalias 'org-babel-comint-wait-for-output #[(buffer) "\212\304 \305\216\306	!\204\307\310	\"\210	q\210\nb\210\311\312\313#\205+\314\224b\205+\315\316 !\317\230?\2058\320\321	!!\210\202+\207" [save-match-data-internal buffer comint-last-input-end comint-prompt-regexp 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" re-search-forward nil t 0 face-name face-at-point "comint-highlight-prompt" accept-process-output get-buffer-process] 4 (#$ . 4013)])
#@137 Evaluate STRING in BUFFER invisibly.
Don't return until FILE exists.  Code in STRING must ensure that
FILE exists at end of evaluation.
(defalias 'org-babel-comint-eval-invisibly-and-wait-for-file #[(buffer file string &optional period) "\306!\204\307\310\"\210\311	!\203\312	!\210\313\314!\315\316\n\"\203$\n\202'\n\317P\"\210\320!\203;\321\322\321\323\f\324\"#\210)\311	!?\205M\325
\206H\326!\210\202;\207" [buffer file string default-directory v period 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 string-match "\n$" "\n" file-remote-p nil with-parsed-tramp-file-name tramp-flush-directory-property "" sit-for 0.25] 6 (#$ . 4751)])
(provide 'ob-comint)