/[emacs]/emacs/lisp/emacs-lisp/tq.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/tq.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by gerd, Fri Oct 5 09:32:41 2001 UTC revision 1.14.4.1 by miles, Fri Apr 4 06:20:16 2003 UTC
# Line 25  Line 25 
25  ;; Boston, MA 02111-1307, USA.  ;; Boston, MA 02111-1307, USA.
26    
27  ;;; Commentary:  ;;; Commentary:
28    
29  ;; manages receiving a stream asynchronously,  ;; manages receiving a stream asynchronously,
30  ;; parsing it into transactions, and then calling  ;; parsing it into transactions, and then calling
31  ;; handler functions  ;; handler functions
# Line 49  to a tcp server on another machine." Line 49  to a tcp server on another machine."
49                               (concat " tq-temp-"                               (concat " tq-temp-"
50                                       (process-name process)))))))                                       (process-name process)))))))
51      (set-process-filter process      (set-process-filter process
52                          (`(lambda (proc string)                          `(lambda (proc string)
53                             (tq-filter  '(, tq) string))))                             (tq-filter '(, tq) string)))
54      tq))      tq))
55    
56  ;;; accessors  ;;; accessors
# Line 68  to a tcp server on another machine." Line 68  to a tcp server on another machine."
68  (defun tq-queue-head-closure (tq) (car (cdr (car (tq-queue tq)))))  (defun tq-queue-head-closure (tq) (car (cdr (car (tq-queue tq)))))
69  (defun tq-queue-empty        (tq) (not (tq-queue tq)))  (defun tq-queue-empty        (tq) (not (tq-queue tq)))
70  (defun tq-queue-pop          (tq) (setcar tq (cdr (car tq))) (null (car tq)))  (defun tq-queue-pop          (tq) (setcar tq (cdr (car tq))) (null (car tq)))
71    
72    
73  ;;; must add to queue before sending!  ;;; must add to queue before sending!
74  (defun tq-enqueue (tq question regexp closure fn)  (defun tq-enqueue (tq question regexp closure fn)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.14.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26