annotate lisp/emacs-lisp/tq.el @ 79782:8d4fc8948539

(diff-end-of-hunk): Don't match empty lines in unified format.
author Glenn Morris <rgm@gnu.org>
date Tue, 08 Jan 2008 05:19:13 +0000
parents 78ee6fae0e41
children 606f2d163a64 1e3a407766b9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1 ;;; tq.el --- utility to maintain a transaction queue
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
2
74466
1d4b1a32fd66 Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 72548
diff changeset
3 ;; Copyright (C) 1985, 1986, 1987, 1992, 2001, 2002, 2003, 2004,
79704
78ee6fae0e41 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78217
diff changeset
4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
5
783
59dc833c4e0c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 743
diff changeset
6 ;; Author: Scott Draves <spot@cs.cmu.edu>
39461
d9207f337e2d Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 20693
diff changeset
7 ;; Maintainer: FSF
783
59dc833c4e0c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 743
diff changeset
8 ;; Adapted-By: ESR
814
38b2499cb3e9 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 783
diff changeset
9 ;; Keywords: extensions
783
59dc833c4e0c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 743
diff changeset
10
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
11 ;; This file is part of GNU Emacs.
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
12
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
78217
935157c0b596 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 77890
diff changeset
15 ;; the Free Software Foundation; either version 3, or (at your option)
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
16 ;; any later version.
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
17
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
21 ;; GNU General Public License for more details.
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
22
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
23 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 11815
diff changeset
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52493
diff changeset
25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52493
diff changeset
26 ;; Boston, MA 02110-1301, USA.
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
27
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
28 ;;; Commentary:
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 39568
diff changeset
29
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
30 ;; This file manages receiving a stream asynchronously, parsing it
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
31 ;; into transactions, and then calling the associated handler function
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
32 ;; upon the completion of each transaction.
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
33
39568
e67950065cf9 Change ;;; to ;; for outline-minor-mode.
Gerd Moellmann <gerd@gnu.org>
parents: 39461
diff changeset
34 ;; Our basic structure is the queue/process/buffer triple. Each entry
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
35 ;; of the queue part is a list of question, regexp, closure, and
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
36 ;; function that is consed to the last element.
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
37
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
38 ;; A transaction queue may be created by calling `tq-create'.
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
39
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
40 ;; A request may be added to the queue by calling `tq-enqueue'. If
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
41 ;; the `delay-question' argument is non-nil, we will wait to send the
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
42 ;; question to the process until it has finished sending other input.
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
43 ;; Otherwise, once a request is enqueued, we send the given question
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
44 ;; immediately to the process.
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
45
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
46 ;; We then buffer bytes from the process until we see the regexp that
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
47 ;; was provided in the call to `tq-enqueue'. Then we call the
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
48 ;; provided function with the closure and the collected bytes. If we
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
49 ;; have indicated that the question from the next transaction was not
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
50 ;; sent immediately, send it at this point, awaiting the response.
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
51
783
59dc833c4e0c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 743
diff changeset
52 ;;; Code:
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
53
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
54 ;;; Accessors
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
55
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
56 ;; This part looks like (queue . (process . buffer))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
57 (defun tq-queue (tq) (car tq))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
58 (defun tq-process (tq) (car (cdr tq)))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
59 (defun tq-buffer (tq) (cdr (cdr tq)))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
60
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
61 ;; The structure of `queue' is as follows
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
62 ;; ((question regexp closure . fn)
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
63 ;; <other queue entries>)
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
64 ;; question: string to send to the process
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
65 (defun tq-queue-head-question (tq) (car (car (tq-queue tq))))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
66 ;; regexp: regular expression that matches the end of a response from
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
67 ;; the process
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
68 (defun tq-queue-head-regexp (tq) (car (cdr (car (tq-queue tq)))))
72548
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
69 ;; closure: additional data to pass to the function
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
70 (defun tq-queue-head-closure (tq) (car (cdr (cdr (car (tq-queue tq))))))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
71 ;; fn: function to call upon receiving a complete response from the
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
72 ;; process
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
73 (defun tq-queue-head-fn (tq) (cdr (cdr (cdr (car (tq-queue tq))))))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
74
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
75 ;; Determine whether queue is empty
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
76 (defun tq-queue-empty (tq) (not (tq-queue tq)))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
77
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
78 ;;; Core functionality
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
79
1187
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
80 ;;;###autoload
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
81 (defun tq-create (process)
1187
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
82 "Create and return a transaction queue communicating with PROCESS.
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
83 PROCESS should be a subprocess capable of sending and receiving
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
84 streams of bytes. It may be a local process, or it may be connected
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
85 to a tcp server on another machine."
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
86 (let ((tq (cons nil (cons process
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
87 (generate-new-buffer
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
88 (concat " tq-temp-"
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
89 (process-name process)))))))
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
90 (set-process-filter process
49851
fec321336b72 (tq-create): Fix quoted lambda.
Juanma Barranquero <lekktu@gmail.com>
parents: 49598
diff changeset
91 `(lambda (proc string)
52493
04f194e85b4d (tq-create): Fix mixed up unquote style.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
92 (tq-filter ',tq string)))
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
93 tq))
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
94
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
95 (defun tq-queue-add (tq question re closure fn)
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
96 (setcar tq (nconc (tq-queue tq)
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
97 (cons (cons question (cons re (cons closure fn))) nil)))
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
98 'ok)
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
99
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
100 (defun tq-queue-pop (tq)
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
101 (setcar tq (cdr (car tq)))
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
102 (let ((question (tq-queue-head-question tq)))
77890
57715561e846 (tq-queue-pop): Stifle error when a process has died and we are trying
Chong Yidong <cyd@stupidchicken.com>
parents: 75346
diff changeset
103 (condition-case nil
57715561e846 (tq-queue-pop): Stifle error when a process has died and we are trying
Chong Yidong <cyd@stupidchicken.com>
parents: 75346
diff changeset
104 (process-send-string (tq-process tq) question)
57715561e846 (tq-queue-pop): Stifle error when a process has died and we are trying
Chong Yidong <cyd@stupidchicken.com>
parents: 75346
diff changeset
105 (error nil)))
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
106 (null (car tq)))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 39568
diff changeset
107
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
108 (defun tq-enqueue (tq question regexp closure fn &optional delay-question)
1187
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
109 "Add a transaction to transaction queue TQ.
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
110 This sends the string QUESTION to the process that TQ communicates with.
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
111
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
112 When the corresponding answer comes back, we call FN with two
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
113 arguments: CLOSURE, which may contain additional data that FN
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
114 needs, and the answer to the question.
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
115
1187
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
116 REGEXP is a regular expression to match the entire answer;
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
117 that's how we tell where the answer ends.
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
118
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
119 If DELAY-QUESTION is non-nil, delay sending this question until
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
120 the process has finished replying to any previous questions.
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
121 This produces more reliable results with some processes."
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
122 (let ((sendp (or (not delay-question)
72548
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
123 (not (tq-queue tq)))))
70034
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
124 (tq-queue-add tq (unless sendp question) regexp closure fn)
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
125 (when sendp
db4c2d467e9a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents: 68648
diff changeset
126 (process-send-string (tq-process tq) question))))
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
127
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
128 (defun tq-close (tq)
1187
519c04d69cdc Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
129 "Shut down transaction queue TQ, terminating the process."
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
130 (delete-process (tq-process tq))
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
131 (kill-buffer (tq-buffer tq)))
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
132
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
133 (defun tq-filter (tq string)
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
134 "Append STRING to the TQ's buffer; then process the new data."
72548
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
135 (let ((buffer (tq-buffer tq)))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
136 (when (buffer-live-p buffer)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
137 (with-current-buffer buffer
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
138 (goto-char (point-max))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
139 (insert string)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
140 (tq-process-buffer tq)))))
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
141
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
142 (defun tq-process-buffer (tq)
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
143 "Check TQ's buffer for the regexp at the head of the queue."
72548
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
144 (let ((buffer (tq-buffer tq)))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
145 (when (buffer-live-p buffer)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
146 (set-buffer buffer)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
147 (if (= 0 (buffer-size)) ()
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
148 (if (tq-queue-empty tq)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
149 (let ((buf (generate-new-buffer "*spurious*")))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
150 (copy-to-buffer buf (point-min) (point-max))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
151 (delete-region (point-min) (point))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
152 (pop-to-buffer buf nil)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
153 (error "Spurious communication from process %s, see buffer %s"
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
154 (process-name (tq-process tq))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
155 (buffer-name buf)))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
156 (goto-char (point-min))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
157 (if (re-search-forward (tq-queue-head-regexp tq) nil t)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
158 (let ((answer (buffer-substring (point-min) (point))))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
159 (delete-region (point-min) (point))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
160 (unwind-protect
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
161 (condition-case nil
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
162 (funcall (tq-queue-head-fn tq)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
163 (tq-queue-head-closure tq)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
164 answer)
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
165 (error nil))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
166 (tq-queue-pop tq))
e5542d6aad7f Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents: 70034
diff changeset
167 (tq-process-buffer tq))))))))
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
168
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
169 (provide 'tq)
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
170
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49851
diff changeset
171 ;;; arch-tag: 65dea08c-4edd-4cde-83a5-e8a15b993b79
743
4c88459587e3 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
172 ;;; tq.el ends here