blob: 6b0b1cdeaee756a75ce99a4dcb2c01a9e8200644 (
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Basic code for manipulating game databases
;;
(require 'chess-message)
(defgroup chess-database nil
"Generic interface to chess database modules."
:group 'chess)
(defcustom chess-database-modules '(chess-scid chess-file)
"List of database modules to try when `chess-database-open' is called."
:type '(repeat (symbol :tag "Module"))
:group 'chess-database)
(defvar chess-database-handler nil)
(make-variable-buffer-local 'chess-database-handler)
(chess-message-catalog 'english
'((no-such-database . "There is no such chess database module '%s'")))
(defun chess-database-do-open (module file)
"Returns the opened database object, or nil."
(let* ((name (symbol-name module))
(handler (intern-soft (concat name "-handler"))))
(unless handler
(chess-error 'no-such-database name))
(let ((buffer (funcall handler 'open file)))
(when buffer
(with-current-buffer buffer
(setq chess-database-handler handler)
(add-hook 'kill-buffer-hook 'chess-database-close nil t)
(add-hook 'after-revert-hook 'chess-database-rescan nil t)
(current-buffer))))))
(defun chess-database-open (file &optional module)
"Returns the opened database object, or nil."
(if module
(chess-database-do-open module file)
(let (result)
(setq module chess-database-modules)
(while module
(if (and (require (car module) nil t)
(setq result (chess-database-do-open (car module) file)))
(setq module nil)
(setq module (cdr module))))
result)))
(defsubst chess-database-command (database event &rest args)
(with-current-buffer database
(apply chess-database-handler event args)))
(defun chess-database-close (&optional database)
(let ((buf (or database (current-buffer))))
(when (buffer-live-p buf)
(with-current-buffer buf
(remove-hook 'kill-buffer-hook 'chess-database-close t))
(chess-database-save buf)
(chess-database-command buf 'close)
(kill-buffer buf))))
(defun chess-database-save (database)
(chess-database-command database 'save))
(defun chess-database-rescan (&optional database)
(chess-database-command database 'rescan))
(defun chess-database-count (database)
(chess-database-command database 'count))
(defun chess-database-read-only-p (database)
"Return non-nil if DATABASE is read only."
(chess-database-command database 'read-only-p))
(defun chess-database-filename (database)
"Return the filename of an already opened DATABASE."
(chess-database-command database 'filename))
(defun chess-database-read (database index)
"Return from DATABASE the chess game object at INDEX."
(chess-database-command database 'read index))
(defun chess-database-write (database game)
(chess-database-command database 'write game))
(defun chess-database-replace (database game &optional index)
(chess-database-command database 'replace game index))
(defun chess-database-query (database &rest terms)
"Run a query on DATABASE.
TERMS is partly dependent on the chess-database module in use.
chess-scid:
tree-search GAME: Perform a tree search on the last position of GAME."
(apply 'chess-database-command database 'query terms))
(provide 'chess-database)
;;; chess-database.el ends here
|
