blob: 72b866e145eb2f9daea4abba6511e09d5b072512 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Play against crafty!
;;
;; $Revision$
(require 'chess-engine)
(require 'chess-common)
(defgroup chess-crafty nil
"The publically available chess engine 'crafty'."
:group 'chess-engine)
(defcustom chess-crafty-path (or (executable-find "crafty")
(executable-find "wcrafty"))
"The path to the crafty executable."
:type 'file
:group 'chess-crafty)
(defvar chess-crafty-regexp-alist
(list
(cons (concat "\\(White\\|Black\\)\\s-*([0-9]+):\\s-+\\("
chess-algebraic-regexp "\\)\\s-*$")
(function
(lambda ()
(funcall chess-engine-response-handler 'move
(chess-engine-convert-algebraic (match-string 2) t)))))
(cons "\\(Illegal move\\|unrecognized/illegal command\\):\\s-*\\(.*\\)"
(function
(lambda ()
(error (match-string 1)))))))
(defun chess-crafty-handler (event &rest args)
(cond
((eq event 'initialize)
(let ((proc (chess-common-handler 'initialize "crafty")))
(process-send-string proc (concat "display nogeneral\n"
"display nochanges\n"
"display noextstats\n"
"display nohashstats\n"
"display nomoves\n"
"display nonodes\n"
"display noply1\n"
"display nostats\n"
"display notime\n"
"display novariation\n"
"alarm off\n"
"ansi off\n"))
proc))
((eq event 'setup-pos)
(chess-engine-send nil (format "setboard %s\n"
(chess-pos-to-string (car args)))))
((eq event 'setup-game)
(let ((file (chess-with-temp-file
(insert (chess-game-to-string (car args)) ?\n))))
(chess-engine-send nil (format "read %s\n" file))))
(t
(apply 'chess-common-handler event args))))
(provide 'chess-crafty)
;;; chess-crafty.el ends here
|
