diff options
| author | Mario Lang <mlang@delysid.org> | 2014-03-24 14:44:39 +0100 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-03-24 14:44:39 +0100 |
| commit | 6b148f8d5cb39ee047db85fb5788abe8c9cd7f2b (patch) | |
| tree | 6fa611d5b4d8c84f10aeaab31f9d86af87bcc103 /chess-glaurung.el | |
| parent | 5130570807b16e7fceccaefb2d6b34502e31c1bb (diff) | |
Parse UCI long algebraic moves correctly.
Diffstat (limited to 'chess-glaurung.el')
| -rw-r--r-- | chess-glaurung.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/chess-glaurung.el b/chess-glaurung.el index 5ce6042..f3ff03e 100644 --- a/chess-glaurung.el +++ b/chess-glaurung.el @@ -34,17 +34,8 @@ :type 'file :group 'chess-glaurung) -(defvar chess-glaurung-regexp-alist - (list - (cons (concat "^bestmove\\s-+\\(" chess-algebraic-regexp "\\)") - (function - (lambda () - (funcall chess-engine-response-handler 'move - (chess-engine-convert-algebraic (match-string 1) t))))) - (cons "^id\\s-+name\\s-+\\(.+\\)$" - (function - (lambda () - (setq-local chess-engine-opponent-name (match-string 1))))))) +(defvar chess-glaurung-regexp-alist chess-uci-regexp-alist + "Patterns used to match engine output.") (defun chess-glaurung-handler (game event &rest args) (unless chess-engine-handling-event |