;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require chess-game chess-module] 2) (defvar chess-clock-last-time nil) (defvar chess-clock-timer nil) (byte-code "\300\301!\210\300\302!\207" [make-variable-buffer-local chess-clock-last-time chess-clock-timer] 2) #@74 To TIME, add SECONDS. Return result as a time value. (fn TIME SECONDS) (defalias 'chess-clock-add-seconds #[514 "\300!\211\301\245\301\246A@\\\211\301W\203@\\D\207@T\\\301\246D\207" [truncate 65536] 9 (#$ . 342)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-clock-add-seconds speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@53 Convert TIME to a floating point number. (fn TIME) (defalias 'chess-clock-time-to-seconds #[257 "\211@\300_A@\\AA@\206\301\302\245\\\207" [65536.0 0 1000000.0] 4 (#$ . 725)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-clock-time-to-seconds speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@65 Return the difference in seconds between T1 and T2. (fn T1 T2) (defalias 'chess-clock-time-diff #[514 "\211@\300_A@\\AA@\206\301\302\245\\\262\211@\300_A@\\AA@\206'\301\302\245\\\262Z\207" [65536.0 0 1000000.0] 7 (#$ . 1064)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-clock-time-diff speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@30 (fn GAME EVENT &rest ARGS) (defalias 'chess-clock-handler #[642 "\301\267\202U\211@\203$\302\303\"\204$\304\303\305@!#\210\304\306\305@!#\210\307\207\310\211\2040\311\312!\210\3138\262\314\"@\315\316\"\315\317\"\205U\211\205U\304\303#\210\304\306#\207\302\303\"\302\306\"\203\267\211\203\267\302\320\"\203\267\211\204v\311\312!\210\211\211\204\311\312!\210\3138\262GS\262\321V\203\267\204\230\322\321\323\324p$\310\211\204\242\311\312!\210\3138\262\314\"@\325\316#\210\325\317#\266\266\211\204\302\311\312!\210\310\3138\314\"@\211\205+\211\326\327\330\331\332\333\334&\206)\211\211\211:\205\360\211@\335!\205\356\211G\336U\262\262\204\375\337\340\341\342E\"\210\211@\262\211\335!\205\f\211G\336U\262\204\337\340\343\344E\"\210\211\345H\262\211\205'\326\346\347#\262\262\266\202\205V\350\351\"\207\211@\320=\205H\302\320\"?\205V\350\351\"\207\203Q\352!\207\353\211\207\353\207" [chess-clock-timer #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (initialize 6 post-undo 38 move 86 set-data 309 destroy 329)) chess-game-data white-remaining chess-game-set-data float black-remaining t last cl--assertion-failed game 3 2 chess-ply-keyword :white :black active 0 run-with-timer 1 chess-clock-tick-tock chess-ply-set-keyword 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 chess-clock-handler destroy cancel-timer nil] 14 (#$ . 1456)]) (defvar chess-clock-tick-tocking nil) #@15 (fn MODULE) (defalias 'chess-clock-tick-tock #[257 "?\205\334\304r\211q\210 \304\305\306 \203\325 \211\204 \307\310!\210\211\211\204)\307\310!\210\3118\262GS\262\312V\203\325\313 !\204\325 \305\204G\307\310!\210\314\"\211\211:\205_\211@\315!\205]\211G\316U\262\262\204l\317\320\321\322E\"\210\211@\266\203\211\315!\205{\211G\316U\262\204\210\317\320\323\324E\"\210\211\325H\262\203\226\326\262\202\231\327\262\330 \331 \" \211@\332_A@\\AA@\206\264\312\333\245\\\262\211@\332_A@\\AA@\206\312\312\333\245\\\262Z\266\202Z#\210)\266)\334 )\207" [chess-clock-tick-tocking chess-clock-last-time chess-game-inhibit-events chess-module-game t nil current-time cl--assertion-failed game 3 0 chess-game-status chess-game-ply vectorp 75 signal wrong-type-argument chess-ply ply chess-pos position 70 white-remaining black-remaining chess-game-set-data chess-game-data 65536.0 1000000.0 force-mode-line-update] 15 (#$ . 3085)]) (provide 'chess-clock)