;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\312\314& \210\315\316\317\320\321DD\322\323\324%\207" [require chess-common chess-fen chess-pgn custom-declare-group chess-gnuchess nil "The publically available chess engine 'gnuchess'." :group chess-engine :link (custom-manual "(chess)GNU Chess") (url-link "http://www.gnu.org/software/chess/") custom-declare-variable chess-gnuchess-path funcall function #[0 "\301B\302\303!)\207" [exec-path "/usr/games" executable-find "gnuchess"] 2] "The path to the gnuchess executable." :type file] 10) (defvar chess-gnuchess-bad-board nil) (make-variable-buffer-local 'chess-gnuchess-bad-board) (defvar chess-gnuchess-regexp-alist (byte-code "\301\302Q\303B\304\305B\306\307BE\207" [chess-algebraic-regexp "My move is : \\(" "\\)" #[0 "\301\302\303!\304\305\306\307!#\206\310\307\311\"\266\202\"\207" [chess-engine-response-handler move match-string 1 t chess-algebraic-to-ply chess-engine-position nil chess-engine-command illegal] 8] "Illegal move:" #[0 "\300\301\302\303\304#!\207" [illegal-move nil error apply chess-string] 7] "Board is wrong!" #[0 "\301\211\207" [chess-gnuchess-bad-board t] 2]] 4)) #@30 (fn GAME EVENT &rest ARGS) (defalias 'chess-gnuchess-handler #[642 "?\205G\305\267\202A\306\307\310#\211\205,\311!\205,\312!\313=\205,\314\315\"\210\211\316\317\207\320\321!\211\322\323\317\"\324\325\"\216r\211q\210\326@!\327\261\210)r\211q\210\330\331\211\331\332%\210*\266\211 B\211\262\333\331\334\335\"\"\207\211@\211\204o\336\337!\210\211\211\204x\336\337!\210\3408\262GS\262\332U\203\276\341\342\332\204\223\336\337!\210\343\"\211\211:\205\253\211@\344!\205\251\211G\345U\262\262\204\270\346\347\350\351E\"\210\211@\266\203#\207\320\321!\211\322\323\317\"\324\352\"\216r\211q\210\353@!\210\327c\210)r\211q\210\330\331\211\331\332%\210*\266\211 B\211\262\333\331\334\354\"\"\207\333\331\355\331!\211\344!\205\211G\345U\262\204\346\347\356\357E\"\210\211\360H\262\203\361\202 \362\363P\"\210\333\331\364\"\210\331\211\207\306\365@#\210\f\205G\333\331\364\"\210\331\211\207\366\306$\207" [chess-engine-handling-event chess-engine-process chess-engine-opponent-name chess-common-temp-files chess-gnuchess-bad-board #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (initialize 11 setup-pos 45 setup-game 101 pass 246 move 301)) chess-common-handler initialize "gnuchess" processp process-status run process-send-string "nopost\n" "GnuChess" t make-temp-file "chess" generate-new-buffer " *temp file*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] chess-pos-to-fen 10 write-region nil 0 chess-engine-send format "epdload %s\n" cl--assertion-failed game 3 chess-gnuchess-handler setup-pos chess-game-ply vectorp 75 signal wrong-type-argument chess-ply ply #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] chess-insert-pgn "pgnload %s\n" chess-engine-position chess-pos position 70 "white" "black" "\n" "go\n" move apply] 14 (#$ . 1280)]) (provide 'chess-gnuchess)