diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 21:36:44 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 21:36:44 +0000 |
| commit | 7b321614246d94eb6af71c38f69c0fde9965aebf (patch) | |
| tree | 3d2d06baf1e6620e73fdced555e35c5efba01c16 /chess-network.el | |
| parent | eb5e0a5dddb2a4f98efeb5adfeeefef5961e5545 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-network.el')
| -rw-r--r-- | chess-network.el | 15 |
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 () |
