;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require chess-engine chess-message] 2) (defvar chess-common-engine-name nil) (defvar chess-common-temp-files nil) (byte-code "\300\301!\210\300\302!\207" [make-variable-buffer-local chess-common-engine-name chess-common-temp-files] 2) #@19 (fn &rest BODY) (defalias 'chess-with-temp-file '(macro . #[128 "\300\301\302\303BB\304BBB\207" [let ((file (make-temp-file "chess"))) with-temp-file file ((push file chess-common-temp-files) file)] 6 (#$ . 363)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put chess-with-temp-file lisp-indent-function 1 put edebug-form-spec t chess-message-catalog english ((starting-engine . "Starting chess program '%s'...") (starting-engine-done . "Starting chess program '%s'...done") (could-not-find-engine . "Cannot find %s executable; check `%s'") (draw-offer-declined . "Your draw offer was declined") (illegal-move . "Illegal move") (not-yet-implemented . "This feature is not yet implemented"))] 5) #@66 Initialize the network chess engine. (fn GAME EVENT &rest ARGS) (defalias 'chess-common-handler #[642 "\305\267\202(\211@\306\307\310Q!\311\312C\313\314\315#!\266\316!\203&J\2043\317D\320\314\315#!\266\321\307PpJ#\262\322C\313\314\315#!\266\207\323\324\325#\210\326C\204[\327\330!\210?\205\214\311\211\204j\327\330!\210\211@\262\211\203\207\211@\314@A$\262A\266\202\202n\262\262\207\331p!\332!\203\243\333!\334>\203\243\335\311\336\"\210\210 \211\203\274\211@\337!\203\265\340!\210A\266\202\202\245\210\311\211\207\335\311\341\"\207\342\311\313\314\315#!\207\335\311\343\"\210\323\324\311#\207\335\311\344\"\210\345\311!\207\346\311\320\314\315#!\207\211@\347\211W\203\311\335\311\350\"\266\211T\262\202\361\266\351@\352\"\353U\203\335\311\341\"\210\325\354@\")\207\323\324\311#\210\325\355\356\211\311\2045\327\330!\210\357\"\211\211:\205M\211@\360!\205K\211G\361U\262\262\204Z\362\363\364\365E\"\210\211@\266\203D\"\266\202)\207\211\204n\327\330!\210\211\211\204w\327\330!\210\3668\262GS\262\353U\203\221\367\370 #\210\367\371\f#\210\335\311\372@!\373P\"\210\211\204\244\327\330!\210\374\3668\352\"@\211\205\211\375\376\377\201@\355\201A\201B&\206\211\211\211:\205\330\211@\360!\205\326\211G\361U\262\262\204\345\362\363\364\365E\"\210\211@\262\211\360!\205\364\211G\361U\262\204\362\363\201C\201DE\"\210\211\201EH\262\211\205\375\201F\201G#\262\262\266\202\205)\323\324\311#\207\311\207" [chess-game-inhibit-events chess-common-temp-files chess-engine-handling-event chess-full-name chess-engine-opponent-name #s(hash-table size 11 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (initialize 6 ready 74 destroy 141 pass 193 draw 198 resign 208 new 219 force 228 undo 238 flag-fell 287 move 357)) intern "chess-" "-path" nil starting-engine message apply chess-string boundp could-not-find-engine error start-process starting-engine-done chess-game-set-data active t check-autosave cl--assertion-failed game get-buffer-process processp process-status (run open) chess-engine-send "quit\n" file-exists-p delete-file "go\n" draw-offer-declined "resign\n" "new\n" chess-engine-set-position not-yet-implemented 0 "undo\n" mod 2 1 chess-game-undo :flag-fell chess-game-move chess-game-ply vectorp 75 signal wrong-type-argument chess-ply ply 3 chess-game-set-tag "White" "Black" chess-ply-to-algebraic "\n" last chess-ply-any-keyword :drawn :perpetual :repetition :resign :aborted chess-pos position 74 :stalemate :checkmate] 15 (#$ . 1104)]) (provide 'chess-common)