blob: 1aff5814a30f5a0e31744d3e136021a08801cc36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; An example of a generic transport engine, based on the protocol
;; used by chess-network.el. The only parts missing are send and
;; receive. This could be used for transmitting chess.el protocol
;; over CTCP, for example.
;;
;; NOTE: Make sure that any housekeeping data you use is kept in
;; buffer-local variables. Otherwise, multiple games played using the
;; same kind of transport might collide.
;;
;; $Revision$
(require 'chess-network)
(defalias 'chess-network-regexp-alist 'chess-transport-regexp-alist)
(defun chess-transport-handler (event &rest args)
"This is an example of a generic transport engine."
(cond
((eq event 'initialize)
;; initialize your transport here
)
((eq event 'send)
;; transmit the string given in (car args) to your outbound
;; transport from here
)))
;; call (chess-engine-submit engine STRING) for text that arrives from
;; your inbound transport
(provide 'chess-transport)
;;; chess-transport.el ends here
|
