blob: 0491275fc0f8efe4b30a7d1c34165e1365ef9a5d (
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
66
67
68
69
70
71
72
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; A special kind of display that merely autosaves the game
;;
(require 'chess-game)
(require 'chess-random)
(require 'chess-database)
(require 'chess-file)
(defvar chess-puzzle-indices nil)
(defvar chess-puzzle-position nil)
(make-variable-buffer-local 'chess-puzzle-indices)
(make-variable-buffer-local 'chess-puzzle-position)
(chess-message-catalog 'english
'((bad-game-read . "Error reading game at position %d")
(end-of-puzzles . "There are no more puzzles in this collection")))
;;;###autoload
(defun chess-puzzle (file &optional index)
"Pick a random puzzle from FILE, and solve it against the default engine.
The spacebar in the display buffer is bound to `chess-puzzle-next',
making it easy to go on to the next puzzle once you've solved one."
(interactive "fRead chess puzzles from: ")
(let* ((database (chess-database-open 'chess-file file))
(objects (and database (chess-session)))
(engine (car objects))
(display (cadr objects)))
(when database
(if engine
(chess-engine-set-option engine 'resign nil))
(with-current-buffer display
;; make sure the database is closed when the display is shutdown
(chess-game-add-hook (chess-display-game nil)
'chess-database-event-handler database)
(chess-game-set-data (chess-display-game nil) 'database database)
(define-key (current-local-map) [? ] 'chess-puzzle-next)
(let ((count (chess-database-count database)))
(setq chess-puzzle-indices (make-vector count nil))
(dotimes (i count)
(aset chess-puzzle-indices i i))
(random t)
(chess-shuffle-vector chess-puzzle-indices)
(setq chess-puzzle-position 0))
(chess-puzzle-next)))))
(defun chess-puzzle-next ()
"Play the next puzzle in the collection, selected randomly."
(interactive)
(let* ((game (chess-display-game nil))
(database (chess-game-data game 'database))
(index chess-puzzle-position)
next-game)
(if (= index (length chess-puzzle-indices))
(chess-message 'end-of-puzzles)
(setq chess-puzzle-position (1+ chess-puzzle-position))
(if (null (setq next-game
(chess-database-read database
(aref chess-puzzle-indices index))))
(chess-error 'bag-game-read
(aref chess-puzzle-indices index))
(chess-display-set-game nil next-game 0)
(chess-game-set-data game 'my-color
(chess-pos-side-to-move (chess-game-pos game)))
(dolist (key '(database database-index database-count))
(chess-game-set-data game key (chess-game-data next-game key)))))))
(provide 'chess-puzzle)
;;; chess-puzzle.el ends here
|
