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



#@11 

(fn TQ)
(defalias 'tq-queue #[257 "\211@\207" [] 2 (#$ . 84)])
#@11 

(fn TQ)
(defalias 'tq-process #[257 "\211A@\207" [] 2 (#$ . 155)])
#@11 

(fn TQ)
(defalias 'tq-buffer #[257 "\211AA\207" [] 2 (#$ . 230)])
#@11 

(fn TQ)
(defalias 'tq-queue-head-question #[257 "\300
!@@\207" [tq-queue] 3 (#$ . 304)])
#@11 

(fn TQ)
(defalias 'tq-queue-head-regexp #[257 "\300
!@A@\207" [tq-queue] 3 (#$ . 401)])
#@11 

(fn TQ)
(defalias 'tq-queue-head-closure #[257 "\300
!@AA@\207" [tq-queue] 3 (#$ . 497)])
#@11 

(fn TQ)
(defalias 'tq-queue-head-fn #[257 "\300
!@AAA\207" [tq-queue] 3 (#$ . 595)])
#@11 

(fn TQ)
(defalias 'tq-queue-empty #[257 "\300
!?\207" [tq-queue] 3 (#$ . 688)])
#@250 Create and return a transaction queue communicating with PROCESS.
PROCESS should be a subprocess capable of sending and receiving
streams of bytes.  It may be a local process, or it may be connected
to a tcp server on another machine.

(fn PROCESS)
(defalias 'tq-create #[257 "\300
\301\302\303!P!BB\304\305!!\210\306\307\310\"\"\210\207" [nil generate-new-buffer " tq-temp-" process-name buffer-disable-undo tq-buffer set-process-filter make-closure #[514 "\301\300\"\207" [V0 tq-filter] 5 "\n\n(fn PROC STRING)"]] 7 (#$ . 777)])
#@34 

(fn TQ QUESTION RE CLOSURE FN)
(defalias 'tq-queue-add #[1285 "\300!BBBC\244\240\210\301\207" [tq-queue ok] 11 (#$ . 1319)])
#@11 

(fn TQ)
(defalias 'tq-queue-pop #[257 "\211
@A\240\210\300
!\3011\302\303!\"0\266\202\266\211@?\207" [tq-queue-head-question (error) process-send-string tq-process] 5 (#$ . 1459)])
#@627 Add a transaction to transaction queue TQ.
This sends the string QUESTION to the process that TQ communicates with.

When the corresponding answer comes back, we call FN with two
arguments: CLOSURE, which may contain additional data that FN
needs, and the answer to the question.

REGEXP is a regular expression to match the entire answer;
that's how we tell where the answer ends.

If DELAY-QUESTION is non-nil, delay sending this question until
the process has finished replying to any previous questions.
This produces more reliable results with some processes.

(fn TQ QUESTION REGEXP CLOSURE FN &optional DELAY-QUESTION)
(defalias 'tq-enqueue #[1541 "\211?\206\n\300!?\301?\205%\210\211\205(\302\303!\"\207" [tq-queue tq-queue-add process-send-string tq-process] 13 (#$ . 1657)])
#@67 Shut down transaction queue TQ, terminating the process.

(fn TQ)
(defalias 'tq-close #[257 "\300\301!!\210\302\303!!\207" [delete-process tq-process kill-buffer tq-buffer] 4 (#$ . 2469)])
#@78 Append STRING to the TQ's buffer; then process the new data.

(fn TQ STRING)
(defalias 'tq-filter #[514 "\300!\301
!\205r\211q\210db\210
c\210\302!)\207" [tq-buffer buffer-live-p tq-process-buffer] 5 (#$ . 2666)])
#@69 Check TQ's buffer for the regexp at the head of the queue.

(fn TQ)
(defalias 'tq-process-buffer #[257 "\300
!\301
!\205q\211q\210\302 \303U?\205q\304!\2039\305\306!\307
ed#\210e`|\210\310
\311\"\210\312\313\314\315!!\316!#\207eb\210\317\320!\311\321#\205qe`{\322!\323!e`|\210\324!\210\3251d

\"0\210\202l\326\327\330!\"\266\331!\266\203\207" [tq-buffer buffer-live-p buffer-size 0 tq-queue-empty generate-new-buffer "*spurious*" copy-to-buffer pop-to-buffer nil error "Spurious communication from process %s, see buffer %s" process-name tq-process buffer-name re-search-forward tq-queue-head-regexp t tq-queue-head-fn tq-queue-head-closure tq-queue-pop (error) message "Error while processing tq callback: %s" error-message-string tq-process-buffer] 10 (#$ . 2890)])
(provide 'tq)