;;; compiled by mycroft@hal on Tue Sep 22 05:21:43 1992 ;;; from file /src/emacs-19.0/lisp/tq.el ;;; emacs version 19.0.426. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (fset 'tq-create (make-byte-code (quote (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 "ÀÁÂÃÄÅ$MˆÆÁÇÈÉÅ$MˆÊÁËÌÍÅ$MˆÎÁÏÐÑÒ$MˆÓÁÔÕÖ×$MˆØÁÙÚÛ×$MˆÜÁÝÞß×$MˆàÁáâã×$MˆäÁåæçè$M‡" [tq-queue make-byte-code (tq) "@‡" [tq] 1 tq-process (tq) "A@‡" [tq] tq-buffer (tq) "AA‡" [tq] tq-queue-add (tq re closure fn) "À Âà ! BBÇB\"\"ˆÈ‡" [setcar tq nconc tq-queue re closure fn nil ok] 7 tq-queue-head-regexp (tq) "À !@@‡" [tq-queue tq] 2 tq-queue-head-fn (tq) "À !@AA‡" [tq-queue tq] tq-queue-head-closure (tq) "À !@A@‡" [tq-queue tq] tq-queue-empty (tq) "À !?‡" [tq-queue tq] tq-queue-pop (tq) "À ‰@A\"ˆ @?‡" [setcar tq] 3] 6) (fset 'tq-enqueue (make-byte-code (quote (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.")) (fset 'tq-close (make-byte-code (quote (tq)) "ÀÁ\n!!ˆÃÄ\n!!‡" [delete-process tq-process tq kill-buffer tq-buffer] 3 "\ Shut down transaction queue TQ, terminating the process.")) (fset 'tq-filter (make-byte-code (quote (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.")) (fset 'tq-process-buffer (make-byte-code (quote (tq)) "À !qˆÂ ÃU?…`Ä !ƒ6ÅÆ!Èed#ˆÉe`\"ˆÊË\"ˆÌÍÎÏ !!ÐQ!)‡ebˆÑÒ !ËÓ#…`Ôe`\"Ée`\"ˆÖ !× !\"ˆØ !ˆÙ !)‡" [tq-buffer tq buffer-size 0 tq-queue-empty generate-new-buffer "*spurious*" buf copy-to-buffer delete-region pop-to-buffer nil error "Spurious communication from process " process-name tq-process ", see buffer *spurious*." re-search-forward tq-queue-head-regexp t buffer-substring 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))