;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\310\312& \210\313\314\315\316\317DD\320\321\322%\207" [require chess-uci custom-declare-group chess-glaurung nil "The publically available chess engine 'glaurung'." :group chess-engine :link (custom-manual "(chess)Glaurung") (url-link "http://www.glaurungchess.com/") custom-declare-variable chess-glaurung-path funcall function #[0 "\300\301!\207" [executable-find "glaurung"] 2] "The path to the glaurung executable." :type file] 10) #@39 Patterns used to match engine output. (defvar chess-glaurung-regexp-alist chess-uci-regexp-alist (#$ . 581)) #@30 (fn GAME EVENT &rest ARGS) (defalias 'chess-glaurung-handler #[642 "?\205E\302=\203+\303\302\304#\211\205*\305!\205*\306!\307=\205*\310\311\"\210\211\312\207\313=\203?\314@\315\"\316U\203?\317\320!\210\321\303$\207" [chess-engine-handling-event chess-engine-process initialize chess-uci-handler "glaurung" processp process-status run process-send-string "uci\n" t undo mod 2 1 error "Cannot undo until after glaurung moves" apply] 8 (#$ . 696)]) (provide 'chess-glaurung)