summaryrefslogtreecommitdiff
path: root/chess-network.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-04-09 21:36:44 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-04-09 21:36:44 +0000
commit7b321614246d94eb6af71c38f69c0fde9965aebf (patch)
tree3d2d06baf1e6620e73fdced555e35c5efba01c16 /chess-network.el
parenteb5e0a5dddb2a4f98efeb5adfeeefef5961e5545 (diff)
*** no comment ***
Diffstat (limited to 'chess-network.el')
-rw-r--r--chess-network.el15
1 files changed, 10 insertions, 5 deletions
diff --git a/chess-network.el b/chess-network.el
index 21005eb..39d9d33 100644
--- a/chess-network.el
+++ b/chess-network.el
@@ -14,20 +14,25 @@
(lambda ()
(funcall chess-engine-response-handler 'move
(match-string 0)))))
- (cons "pass$"
+ (cons "chess match\\(\\s-+\\(.+\\)\\)?$"
(function
(lambda ()
- (funcall chess-engine-response-handler 'pass))))
- (cons "name\\s-+\\(.+\\)"
+ (funcall chess-engine-response-handler 'connect
+ (match-string 2)))))
+ (cons "accept\\(\\s-+\\(.+\\)\\)?$"
(function
(lambda ()
- (funcall chess-engine-response-handler 'connect
- (match-string 1)))))
+ (funcall chess-engine-response-handler 'accept
+ (match-string 2)))))
(cons "fen\\s-+\\(.+\\)"
(function
(lambda ()
(funcall chess-engine-response-handler 'setup
(match-string 1)))))
+ (cons "pass$"
+ (function
+ (lambda ()
+ (funcall chess-engine-response-handler 'pass))))
(cons "quit$"
(function
(lambda ()