Try to improve the promotion situation on ICS by allowing chess-ply to query for...

[gnu-emacs-elpa] / chess-database.el

diff --git a/chess-database.el b/chess-database.el
index 68c318a2ae8d7a92265d584e98dcfdb99b2284d4..6b0b1cdeaee756a75ce99a4dcb2c01a9e8200644 100644 (file)
--- a/chess-database.el
+++ b/chess-database.el
@@ -2,7 +2,17 @@
 ;;
 ;; Basic code for manipulating game databases
 ;;
-;; $Revision$
+
+(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)
 
@@ -11,19 +21,32 @@
 (chess-message-catalog 'english
   '((no-such-database . "There is no such chess database module '%s'")))
 
-(defun chess-database-open (module file)
+(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")))
-        buffer)
+        (handler (intern-soft (concat name "-handler"))))
     (unless handler
       (chess-error 'no-such-database name))
-    (when (setq buffer (funcall handler 'open file))
-      (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)))))
+    (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
@@ -34,7 +57,7 @@
     (when (buffer-live-p buf)
       (with-current-buffer buf
        (remove-hook 'kill-buffer-hook 'chess-database-close t))
-      (chess-database-command buf 'save)
+      (chess-database-save buf)
       (chess-database-command buf 'close)
       (kill-buffer buf))))
 
@@ -47,7 +70,16 @@
 (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)
@@ -57,7 +89,11 @@
   (chess-database-command database 'replace game index))
 
 (defun chess-database-query (database &rest terms)
-  (chess-database-command database 'query 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)