;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321%\207" [require chess-uci custom-declare-group chess-fruit nil "The publically available chess engine 'fruit'." :group chess-engine :link (url-link "http://www.fruitchess.com/") custom-declare-variable chess-fruit-path funcall function #[0 "\300\301!\207" [executable-find "fruit"] 2] "The path to the fruit executable." :type file] 8) #@39 Patterns used to match engine output. (defvar chess-fruit-regexp-alist chess-uci-regexp-alist (#$ . 520)) #@30 (fn GAME EVENT &rest ARGS) (defalias 'chess-fruit-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 "fruit" processp process-status run process-send-string "uci\n" t undo mod 2 1 error "Cannot undo until after fruit moves" apply] 8 (#$ . 632)]) (provide 'chess-fruit)