;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\"\216c\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*\210A\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\262C\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)