;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require chess-algebraic chess-ply] 2) #@36 Return the plies of VAR. (fn VAR) (defalias 'chess-var-plies #[257 "\207" [] 2 (#$ . 166)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-var-plies speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@75 Return the position related to VAR's INDEX ply. (fn VAR &optional INDEX) (defalias 'chess-var-pos #[513 "\300\"\211\211:\205\211@\301!\205\211G\302U\262\262\204%\303\304\305\306E\"\210\211@\207" [chess-var-ply vectorp 75 signal wrong-type-argument chess-ply ply] 8 (#$ . 406)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-var-pos speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@52 Return the VAR's current position index. (fn VAR) (defalias 'chess-var-index #[257 "\211GS\207" [] 2 (#$ . 841)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-var-index speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@44 Return the current VAR sequence. (fn VAR) (defalias 'chess-var-seq #[257 "\211\211GS\262\300\245T\207" [2] 3 (#$ . 1103)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-var-seq speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@137 Return the color whose move it is in VAR at INDEX (or at the last position of the variation if INDEX is nil). (fn VAR &optional INDEX) (defalias 'chess-var-side-to-move #[513 "\300\"\211\211:\205\211@\301!\205\211G\302U\262\262\204'\303\304\305\306E\"\210\211@\266\203\211\301!\2056\211G\302U\262\204C\303\304\307\310E\"\210\211\311H\207" [chess-var-ply vectorp 75 signal wrong-type-argument chess-ply ply chess-pos position 70] 10 (#$ . 1374)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-var-side-to-move speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@53 Return VAR's INDEXth ply. (fn VAR &optional INDEX) (defalias 'chess-var-ply #[513 "\211\203\2118\207\300!@\207" [last] 4 (#$ . 1993)]) #@41 Add to VAR the given PLY. (fn VAR PLY) (defalias 'chess-var-add-ply #[514 "\211C\244\207" [] 5 (#$ . 2139)]) #@107 Create a new chess variation object. Optionally use the given starting POSITION. (fn &optional POSITION) (defalias 'chess-var-create #[256 "\211\206\211\301!\205\211G\302U\262\204\303\304\305\306E\"\210\211C\262C\207" [chess-starting-position vectorp 75 signal wrong-type-argument chess-pos position] 7 (#$ . 2258)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-var-create speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@264 Make a move in the current VAR by applying the changes of PLY. This creates a new position and adds it to the main variation. The 'changes' of the last ply reflect whether the var is currently in progress (nil), if it is drawn, resigned, mate, etc. (fn VAR PLY) (defalias 'chess-var-move #[514 "\300!\211\211:\205\211@\301!\205\211G\302U\262\262\204%\303\304\305\306E\"\210\211A\262\307\310\311\312\313\314\315&\206\205\211\211\211:\205L\211@\301!\205J\211G\302U\262\262\204Y\303\304\305\306E\"\210\211@\262\211\301!\205h\211G\302U\262\204u\303\304\316\317E\"\210\211\320H\262\211\205\203\307\321\322#\262\262\203\225\323\324\325\326\327#!\266\211:\205\253\211@\301!\205\251\211G\302U\262\262\204\270\303\304\305\306E\"\210\211<\204\305\303\304\330\331E\"\210\241\266\332\211\211:\205\341\211@\301!\205\337\211G\302U\262\262\204\356\303\304\305\306E\"\210\333\334\"\206\271\326\335\211\211:\205\f\211@\301!\205\n\211G\302U\262\262\204\303\304\305\306E\"\210\211@\262\211\301!\205(\211G\302U\262\2045\303\304\316\317E\"\210\336!\211\337\211\301!\205F\211G\302U\262\204S\303\304\316\317E\"\210\211\340H\262!\301!\205d\211G\302U\262\204q\303\304\316\317E\"\210\211<\204~\303\304\330\341E\"\210\340I\266\262\211\211:\205\233\211@\301!\205\231\211G\302U\262\262\204\250\303\304\305\306E\"\210\211A\262#\342\"\210\343\334#\262\262\211\301!\205\306\211G\302U\262\204\323\303\304\316\317E\"\210\211C\262\"\207" [chess-var-ply vectorp 75 signal wrong-type-argument chess-ply ply chess-ply-any-keyword :drawn :perpetual :repetition :flag-fell :resign :aborted chess-pos position 74 :stalemate :checkmate add-to-completed nil error apply chess-string list changes chess-var-add-ply chess-ply-keyword :next-pos chess-pos-move vconcat copy-alist 71 annotations chess-pos-set-preceding-ply chess-ply-set-keyword] 19 (#$ . 2736)]) #@188 Reveal the plies of VAR by converting them to algebraic notation. Optional argument TYPE defines the type of algebraic notation to use (`:san', `:lan' or `:fan'. (fn VAR &optional TYPE) (defalias 'chess-var-to-algebraic #[513 "\300\301\302\"\303!\304\305\306\307\310\311\312&\206c\211\211\211:\205*\211@\313!\205(\211G\314U\262\262\2047\315\316\317\320E\"\210\211@\262\211\313!\205F\211G\314U\262\204S\315\316\321\322E\"\210\211\323H\262\211\205a\304\324\325#\262\262\203l\202o\326!\327#\207" [mapconcat make-closure #[257 "\301\300\"\207" [V0 chess-ply-to-algebraic] 4 "\n\n(fn PLY)"] chess-var-ply chess-ply-any-keyword :drawn :perpetual :repetition :flag-fell :resign :aborted vectorp 75 signal wrong-type-argument chess-ply ply chess-pos position 74 :stalemate :checkmate butlast " "] 13 (#$ . 4680)]) (provide 'chess-var)