;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317%\207" [require chess-message custom-declare-group chess-database nil "Generic interface to chess database modules." :group chess custom-declare-variable chess-database-modules funcall function #[0 "\300\207" [(chess-scid chess-file)] 1] "List of database modules to try when `chess-database-open' is called." :type (repeat (symbol :tag "Module"))] 6) (defvar chess-database-handler nil) (byte-code "\300\301!\210\302\303\304\"\207" [make-variable-buffer-local chess-database-handler chess-message-catalog english ((no-such-database . "There is no such chess database module '%s'"))] 3) #@63 Returns the opened database object, or nil. (fn MODULE FILE) (defalias 'chess-database-do-open #[514 "\301\302\303#\205B\304!\305\306P!\211\204 \307C\310\311\312#!\266\211\313\"\211\205>r\211q\210\314\315\316\302\303$\210\314\317\320\302\303$\210p)\262\266\202\207" [chess-database-handler require nil t symbol-name intern-soft "-handler" no-such-database error apply chess-string open add-hook kill-buffer-hook chess-database-close after-revert-hook chess-database-rescan] 11 (#$ . 762)]) #@73 Returns the opened database object, or nil. (fn FILE &optional MODULE) (defalias 'chess-database-open #[513 "\211\203 \301\"\207\302\262\203)\301@\"\211\262\203\"\302\262\202 A\262\202 \207" [chess-database-modules chess-database-do-open nil] 6 (#$ . 1273)]) #@34 (fn DATABASE EVENT &rest ARGS) (defalias 'chess-database-command #[642 "rq\210\301#)\207" [chess-database-handler apply] 7 (#$ . 1555)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-database-command speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@27 (fn &optional DATABASE) (defalias 'chess-database-close #[256 "\211\206p\301!\205,r\211q\210\302\303\304\305#\210)\306!\210\211\307\310rq\210\311#)\266\312!\207" [chess-database-handler buffer-live-p remove-hook kill-buffer-hook chess-database-close t chess-database-save close nil apply kill-buffer] 9 (#$ . 1852)]) #@17 (fn DATABASE) (defalias 'chess-database-save #[257 "\211\301\302rq\210\303#)\207" [chess-database-handler save nil apply] 8 (#$ . 2188)]) #@27 (fn &optional DATABASE) (defalias 'chess-database-rescan #[256 "\211\301\302rq\210\303#)\207" [chess-database-handler rescan nil apply] 8 (#$ . 2338)]) #@17 (fn DATABASE) (defalias 'chess-database-count #[257 "\211\301\302rq\210\303#)\207" [chess-database-handler count nil apply] 8 (#$ . 2502)]) #@57 Return non-nil if DATABASE is read only. (fn DATABASE) (defalias 'chess-database-read-only-p #[257 "\211\301\302rq\210\303#)\207" [chess-database-handler read-only-p nil apply] 8 (#$ . 2654)]) #@67 Return the filename of an already opened DATABASE. (fn DATABASE) (defalias 'chess-database-filename #[257 "\211\301\302rq\210\303#)\207" [chess-database-handler filename nil apply] 8 (#$ . 2858)]) #@75 Return from DATABASE the chess game object at INDEX. (fn DATABASE INDEX) (defalias 'chess-database-read #[514 "\301Crq\210\302#)\207" [chess-database-handler read apply] 9 (#$ . 3066)]) #@22 (fn DATABASE GAME) (defalias 'chess-database-write #[514 "\301Crq\210\302#)\207" [chess-database-handler write apply] 9 (#$ . 3265)]) #@38 (fn DATABASE GAME &optional INDEX) (defalias 'chess-database-replace #[770 "\301Drq\210\302#)\207" [chess-database-handler replace apply] 10 (#$ . 3413)]) #@199 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. (fn DATABASE &rest TERMS) (defalias 'chess-database-query #[385 "\300\301\302$\207" [apply chess-database-command query] 7 (#$ . 3584)]) (provide 'chess-database)