added support in chess-link.el to link two engines together. if both

are computers, then they will play head to head

1 files changed, 17 insertions, 16 deletions

diff --git a/chess-gnuchess.el b/chess-gnuchess.el
index 0e641fe..dbf529d 100644
--- a/chess-gnuchess.el
+++ b/chess-gnuchess.el
@@ -23,22 +23,23 @@
 (make-variable-buffer-local 'chess-gnuchess-bad-board)
 
 (defvar chess-gnuchess-regexp-alist
-  (list (cons (concat "My move is : \\(" chess-algebraic-regexp "\\)")
-	      (function
-	       (lambda ()
-		 (funcall chess-engine-response-handler 'move
-			  (match-string 1)))))
-	(cons "Illegal move:"
-	      (function
-	       (lambda ()
-		 (signal 'chess-illegal "Illegal move"))))
-	(cons "Board is wrong!"
-	      (function
-	       (lambda ()
-		 ;; gnuchess didn't like the given position, which
-		 ;; means it won't play against it unless we send a
-		 ;; "go" after the user's move
-		 (setq chess-gnuchess-bad-board t))))))
+  (list
+   (cons (concat "My move is : \\(" chess-algebraic-regexp "\\)")
+	 (function
+	  (lambda ()
+	    (funcall chess-engine-response-handler 'move
+		     (chess-engine-convert-algebraic (match-string 1))))))
+   (cons "Illegal move:"
+	 (function
+	  (lambda ()
+	    (signal 'chess-illegal "Illegal move"))))
+   (cons "Board is wrong!"
+	 (function
+	  (lambda ()
+	    ;; gnuchess didn't like the given position, which
+	    ;; means it won't play against it unless we send a
+	    ;; "go" after the user's move
+	    (setq chess-gnuchess-bad-board t))))))
 
 (defun chess-gnuchess-handler (event &rest args)
   (cond