diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-08 09:54:18 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-08 09:54:18 +0000 |
| commit | 92190e85bd820a62660f094789bd1a13fefe148e (patch) | |
| tree | cd116374da35904efa4284438584f9a4f6379088 | |
| parent | c3b172fa3a37b50d7783cfaee7ce54a7313ec4b4 (diff) | |
*** no comment ***
| -rw-r--r-- | chess-transport.el | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/chess-transport.el b/chess-transport.el new file mode 100644 index 0000000..dc5995d --- /dev/null +++ b/chess-transport.el @@ -0,0 +1,27 @@ +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;; 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. +;; +;; $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 '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 |
