;ELC���
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require chess-algebraic chess-fen chess-game chess-ply chess-pos chess-var] 2)
#@19 

(fn ANNOTATION)
(defalias 'chess-epd-annotation-to-string #[257 "\211@
A
\300=\204�
\301=\203�\302\303\304\305\306##\207
\307=\203&�\302\310#\207
\311=\2042�
\312=\203:�\302\303\313!#\207\302\314\315=\203G�\316\202K�\302\317\"#\207" [am bm format "%S %s;" mapconcat chess-ply-to-algebraic " " ce "%S %d;" pv sv chess-var-to-algebraic "%S%s;" t "" " %s"] 10 (#$ . 259)])
#@109 Convert a chess POSITION to a string representation in extended
position description format.

(fn POSITION)
(defalias 'chess-pos-to-epd #[257 "\300
!
\211\301
!\205�\211G\302U\262
\204�\303\304\305\306E\"\210\211\307H\262
:\205I�\310\311\312\211\301
!\2054�\211G\302U\262
\204A�\303\304\305\306E\"\210\211\307H\262
\310#PP\207" [chess-pos-to-fen vectorp 75 signal wrong-type-argument chess-pos position 71 " " mapconcat chess-epd-annotation-to-string] 11 (#$ . 649)])
#@212 Convert extended position description to a chess position.
If STRING is not specified, look for an EPD string in the current buffer,
and advance point after the correctly parsed position.

(fn &optional STRING)
(defalias 'chess-epd-to-pos #[256 "\211;\203�\300\301\302\"r\211q\210\303\304\"\216
c\210\305 *\207\305 \207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	�\302\300!\207" [V0 buffer-name kill-buffer] 2] chess-epd-parse] 5 (#$ . 1129)])
#@58 Return a list of positions contained in FILE.

(fn FILE)
(defalias 'chess-epd-read-file #[257 "\300C\301\302\303\300\"r\211q\210\304\305\"\216\306!\210eb\210\307 \211\262\203'�C\244\210\202�*\210
A\207" [t nil generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	�\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents chess-epd-parse] 7 (#$ . 1604)])
#@39 

(fn GAME &optional TO-STRING INDEX)
(defalias 'chess-game-to-epd #[769 "
\203:�\300
\204�\301\302!\210\303\"\211\211:\205'�\211@\304
!\205%�\211G\305U\262
\262
\2044�\306\307\310\311E\"\210\211@\266\203!\207\300
\204E�\301\302!\210\303\"\211\211:\205]�\211@\304
!\205[�\211G\305U\262
\262
\204j�\306\307\310\311E\"\210\211@\266\203!\312\261\207" [chess-pos-to-epd cl--assertion-failed game chess-game-ply vectorp 75 signal wrong-type-argument chess-ply ply 10] 12 (#$ . 1990)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-game-to-epd speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@25 

(fn &optional STRING)
(defalias 'chess-epd-to-game #[256 "\300\301!!\207" [chess-game-create chess-epd-to-pos] 4 (#$ . 2631)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-epd-to-game speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'chess-epd-parse #[0 "\302\303\304#\205\346�\305\306\307!!\310\303w\311U\203\337�\312\313!\203\330�\314``\315\303w\\{!\316\303w\311U\2035�\317\"\266\202
�\310\303w\311U\203\320�``\320\303w\\\316\303w\210{\317\211\321=\204W�\322=\203f�\323\324\325\"\326\310\"\"\202\312�\327=\203r�\330!\202\312�\331=\204~�\332=\203\206�\333\"\202\312�\334=\204\222�\335=\203\311�\211\206\230�	\211\336
!\205\243�\211G\337U\262
\204\260�\340\341\342\343E\"\210\211C\262
C\262
\344\324\345\"\326\310\"\"\210\211\262
\202\312�#\266\202
�\346\347!\266\202
�\346\350!\210\202
�\351\303w\210\211\262
\207" [chess-fen-regexp chess-starting-position re-search-forward nil t chess-fen-to-pos match-string 0 " " 1 looking-at "[A-Za-z]" intern "A-Za-z0-9_" ";" chess-pos-set-epd "^;" am bm mapcar make-closure #[257 "\301\300\"\207" [V0 chess-algebraic-to-ply] 4 "\n\n(fn MOVE)"] split-string ce read pm sm chess-algebraic-to-ply pv sv vectorp 75 signal wrong-type-argument chess-pos position mapc #[257 "\301\300\302
\204�\303\304!\210\305\"\211\211:\205#�\211@\306
!\205!�\211G\307U\262
\262
\2040�\310\311\312\313E\"\210\211@\266\203\"\211\203?�\314\300\"\207\315\316\"\207" [V0 chess-algebraic-to-ply nil cl--assertion-failed var chess-var-ply vectorp 75 signal wrong-type-argument chess-ply ply chess-var-move error "Unable to convert ply '%s'"] 10 "\n\n(fn PLY)"] error "Illegal char following identifier" "Illegal Identifier" "\n"] 13])
(provide 'chess-epd)