;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul  6 00:12:16 1993
;;; from file /gd/gnu/emacs/19.0/lisp/tq.el
;;; emacs version 19.15.16.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19"))

(defalias 'tq-create #[(process) "À	ÂÃÄ	!P!BBÆ	ÇÈÉÊDËEE\"ˆ)‡" [nil process generate-new-buffer " tq-temp-" process-name tq set-process-filter lambda (proc string) tq-filter quote string] 7 "\
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."])
(byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÀÇÈ\"ˆÀÉÊ\"ˆÀËÌ\"ˆÀÍÎ\"ˆÀÏÐ\"ˆÀÑÒ\"‡" [defalias tq-queue #[(tq) "@‡" [tq] 1] tq-process #[(tq) "A@‡" [tq] 1] tq-buffer #[(tq) "AA‡" [tq] 1] tq-queue-add #[(tq re closure fn) "Á!\nBBÅB¤ ˆÆ‡" [tq tq-queue re closure fn nil ok] 5] tq-queue-head-regexp #[(tq) "À	!@@‡" [tq-queue tq] 2] tq-queue-head-fn #[(tq) "À	!@AA‡" [tq-queue tq] 2] tq-queue-head-closure #[(tq) "À	!@A@‡" [tq-queue tq] 2] tq-queue-empty #[(tq) "À	!?‡" [tq-queue tq] 2] tq-queue-pop #[(tq) "‰@A ˆ@?‡" [tq] 2]] 3)
(defalias 'tq-enqueue #[(tq question regexp closure fn) "À	\n$ˆÅÆ	!\"‡" [tq-queue-add tq regexp closure fn process-send-string tq-process question] 5 "\
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, 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."])
(defalias 'tq-close #[(tq) "ÀÁ\n!!ˆÃÄ\n!!‡" [delete-process tq-process tq kill-buffer tq-buffer] 3 "\
Shut down transaction queue TQ, terminating the process."])
(defalias 'tq-filter #[(tq string) "À	!qˆdbˆ\ncˆÃ	!‡" [tq-buffer tq string tq-process-buffer] 2 "\
Append STRING to the TQ's buffer; then process the new data."])
(defalias 'tq-process-buffer #[(tq) "À	!qˆÂ ÃU?…] Ä	!ƒ5 ÅÆ!Èed#ˆe`|ˆÉÊ\"ˆËÌÍÎ	!!ÏQ!)‡ebˆÐÑ	!ÊÒ#…] e`{e`|ˆÔ	!Õ	!\"ˆÖ	!ˆ×	!)‡" [tq-buffer tq buffer-size 0 tq-queue-empty generate-new-buffer "*spurious*" buf copy-to-buffer pop-to-buffer nil error "Spurious communication from process " process-name tq-process ", see buffer *spurious*." re-search-forward tq-queue-head-regexp t answer tq-queue-head-fn tq-queue-head-closure tq-queue-pop tq-process-buffer] 5 "\
Check TQ's buffer for the regexp at the head of the queue."])
(provide (quote tq))