/usr/share/emacs/site-lisp/chess/chess-database.el is in emacs-chess 2.0b6-1.1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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")))
buffer)
(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)))))
(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
|