;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-common custom-declare-group chess-ucb nil "Interface to the Novag Universal Chess Board." :group chess-engine custom-declare-variable chess-ucb-device funcall function #[0 "\300\207" [#1="/dev/ttyS0"] 1 #1#] "The serial device used to talk to the Novag UCB." :type file] 6)
(defvar chess-ucb-handling-event nil)
(defvar chess-ucb-regexp-alist (byte-code "\300\301BC\207" ["^M\\(..\\)\\(..\\)\\(/\\([QRNB]\\)\\)?\n" #[0 "\301\302!\303\301\304!Q\301\305!\211\203 \306Q\262\307\310\311\307!#\206% \312\307\313\"\266\202\262\314\315\316\307!\")\207" [chess-ucb-handling-event match-string 1 "-" 2 4 "=" nil chess-algebraic-to-ply chess-engine-position chess-engine-command illegal t chess-game-move chess-engine-game] 8]] 2))
#@30 

(fn GAME EVENT &rest ARGS)
(defalias 'chess-ucb-handler #[642 "?\205=\304=\203 \305	!\205=\306\307p\310\311!	$\312\207\313>\2031 \314\315\316\"\210\317\315!\210\320\315!\210\315\207\321\267\202)\211@\322\211W\203N \315\314\315\323\"\266\211T\262\202: \266\312\324@\")\207\325@\312\"\326@\327\"\203n \211\330P\262\202!\326@\331\"\203\311 @\211\211:\205\214 \211@\332!\205\212 \211G\333U\262\262\204\231 \334\335\336\337E\"\210\211@\262\211\332!\205\250 \211G\333U\262\204\265 \334\335\340\341E\"\210\211\342H\262\203\303 \343\262\202!\344\262\202!\326@\345\"\203!@\211\211:\205\347 \211@\332!\205\345 \211G\333U\262\262\204\364 \334\335\336\337E\"\210\211@\262\211\332!\205\211G\333U\262\204\334\335\340\341E\"\210\211\342H\262\203\346\262\202!\347\262\314\315\350\351\"\"\207\313>\205=\314\315\316\"\210\317\315!\210\320\315!\210\315\207" [chess-ucb-handling-event chess-ucb-device chess-engine-process chess-engine-handling-event initialize file-exists-p start-process "*chess-ucb*" executable-find "cat" t orient chess-engine-send nil "N\n" chess-engine-set-position chess-engine-position #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (undo 55 move 89)) 0 "T\n" chess-game-undo chess-ply-to-algebraic chess-ply-keyword :en-passant "ep" :castle vectorp 75 signal wrong-type-argument chess-ply ply chess-pos position 70 "e1-g1" "e8-g8" :long-castle "e1-c1" "e8-c8" format "M%s\n"] 10 (#$ . 930)])
(provide 'chess-ucb)