;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\210\307\310!\207" [require chess-game chess-message chess-pgn chess-message-catalog english ((failed-load . "Failed to load game %d from ChessDB") (failed-find-end . "Failed to locate end of game %d in ChessDB")) make-variable-buffer-local chess-scid-process] 3) #@15 (fn STRING) (defalias 'chess-scid-send #[257 "\301\302P\"\207" [chess-scid-process process-send-string "\n"] 5 (#$ . 416)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put chess-scid-send speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@16 (fn COMMAND) (defalias 'chess-scid-get-result #[257 "d\301\302\303P\"\266\304!\210\211S\211\262\305V\203'm\203'\304\306\305\307$\210\202dU\2032\310\311\"\210db\210\312\313x\210`{\314 \210\207" [chess-scid-process 10 process-send-string "\n" accept-process-output 0 1 t error "chess-scid: '%s' failed to produce any output" " \n %" nil erase-buffer] 8 (#$ . 691)]) #@25 (fn EVENT &rest ARGS) (defalias 'chess-scid-handler #[385 "\301\267\202m\302\303@\"\203\211@\202\211@\304P\302\305\"\205\"\306\307\"\211\205w\310!\205w\311\312!\313\314\315\316!\206;\315\317!#\211\203q\320!\321=\203qrq\210\322!\210\211\323\324\325\326\327!\"!!\307U\203f\202o\330!\210\331!\210\332)\207\331!\266\332\207\333\334\335P\"\266\320!\321=\205\362\336\337\340\"\210\202\201\207\323\324\341!!\337U?\205\362\342\207\324\343!\207\323\324\344!!\207\345 \210\334\325\346@T\"\"\210\322!\210d\347\332\334\350\"\210\322!\210b\210S\211\262\337V\203\370\351\352!\204\347\353\354\332\342#\203\356\337\224b\203\356\342\211\262\204\370\322\307\337\342$\210\202\311\211\204 \355@TC\356\357\360#!\207\347\262\332\262`\262S\211\262\337V\203;\361\362\332\342#\2031\337\224b\2031\342\211\262\204;\322\307\337\342$\210\202\211\204L\363@TC\356\357\360#!\207b\210\364 \211\205l\365\366p#\210\365\367@#\210\365\370\371\372!#\210\211\207\373=\203\334\211@\374=\203\334\324\325\375\311\376\342\"r\211q\210\377\201@\"\216\201AA@\307A@\211\204\243\201B\201C!\210\201D8\262#\210\201EA@\201F\204\301\201B\201C!\210\211\204\315\201B\201G!\210\211\204\332\201B\201C!\210\211A@\262\211\205\352\201H\"A\266\203\206\362\201I\261\210\201J *\262\"!\201K\230\203\326d\201L\334\335P\"\266\322!\210\211b\210\342C\361\201M\332\342#\203\256\306\201N!\323\306\201D!!\323\306\201O!!\323\306\201P!!\323\306\201Q!!\323\306\201R!!\323\306\201S!!\201TF\337U\203w\337U\203w\337U\203w\332\202\246\337U\203\211\337U\203\211C\202\246\337U?\205\221\337U?\205\233\337U?\205\245E\"C\244\266\202\361\201U\332\342#\205\325db\210\201T\323\306\307!!\323\306\201N!!\323\306\201P!!EA\"\207\356\201V!\207\201W\267\202\204\371\201X@\337#\207\371\201Y!?\205\362\211A@T\206\201Z@\367\"\325\375\311\376\342\"r\211q\210\377\201[\"\216\201A@\307@\211\204*\201B\201C!\210\201D8\262#\210@\201F\204D\201B\201C!\210\211\204P\201B\201G!\210\211\204]\201B\201C!\210\211A@\262\211\205m\201H\"A\266\203\206u\201Ic\210\201J *\262\"\334\335P\"\266@\211\204\225\201B\201C!\210\211A@\262\211\203v\211@\211@\201\\\230\204o\201]@\201^\230\203\273\201_\202]@\201`\230\203\312\201a\202]@\201b\230\203\331\201c\202]@\201d\230\203\350\201e\202]@\201f\230\203\367\201g\202]@\201h\230\203\201i\202]@\201j\230\203\201k\202]@\201l\230\203$\201m\202]@\201F\230\2033\201n\202]@\201o\230\203B\201p\202]@\201q\230\203Q\201r\202]@\201s\230\205]\201t\201uA\201v\260\334\335P\"\266A\266\202\202\232\210\325\201w\"\334\335P\"\207\373=\205\362\211@\374=\205\362\324\325\375\311\376\342\"r\211q\210\377\201x\"\216\201AA@\307A@\211\204\272\201B\201C!\210\201D8\262#\210\201EA@\201F\204\330\201B\201C!\210\211\204\344\201B\201G!\210\211\204\361\201B\201C!\210\211A@\262\211\205\201H\"A\266\203\206 \201I\261\210\201J *\262\"!\201K\230\203\355d\201L\334\335P\"\266\322!\210\211b\210\342C\361\201M\332\342#\203\305\306\201N!\323\306\201D!!\323\306\201O!!\323\306\201P!!\323\306\201Q!!\323\306\201R!!\323\306\201S!!\201TF\337U\203\216\337U\203\216\337U\203\216\332\202\275\337U\203\240\337U\203\240C\202\275\337U?\205\250\337U?\205\262\337U?\205\274E\"C\244\266\2021\361\201U\332\342#\205\354db\210\201T\323\306\307!!\323\306\201N!!\323\306\201P!!EA\"\207\356\201V!\207" [chess-scid-process #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (open 6 close 120 read-only-p 146 filename 159 count 163 read 169)) string-match "\\.sg3\\'" ".sg3" "\\`\\(.+\\)\\.sg3\\'" match-string 1 file-readable-p generate-new-buffer " *chess-scid*" start-process "*chess-scid*" executable-find "tcscid" "tcchessdb" process-status run accept-process-output string-to-number chess-scid-get-result format "sc_base open %s" expand-file-name kill-process kill-buffer nil "sc_base close\nexit" process-send-string "\n" sit-for 0 250 "sc_base isReadOnly" t "sc_base filename" "sc_base numGames" erase-buffer "sc_game load %d\n" 10 "sc_game pgn\n" looking-at "\\[" search-forward "[" failed-load error apply chess-string re-search-forward "\\(\\*\\|1-0\\|0-1\\|1/2-1/2\\)" failed-find-end chess-pgn-to-game chess-game-set-data database database-index database-count chess-scid-handler count query tree-search "sc_game import \"%s\"" " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] chess-pgn-insert-plies cl--assertion-failed game 3 " " "Result" tag assoc "*" buffer-string "PGN text imported with no errors or warnings." "sc_tree search" "\\s-*\\([1-9][0-9]*\\):\\s-+\\([^ ]+\\)\\s-+\\([0-9]+\\):\\s-*\\([0-9.]+\\)%\\s-+\\([0-9.]+\\)%\\s-+\\([0-9]+\\| \\)\\s-+\\([0-9]+\\| \\)\\s-+\\([0-9]+\\| \\)\\s-+\\([0-9.]+\\)%" 2 5 6 7 8 9 append "TOTAL:\\s-+\\([0-9]+\\):100.0%\\s-+\\([0-9.]+\\)%\\s-+\\([0-9]+\\| \\)\\s-+\\([0-9]+\\| \\)\\s-+\\([0-9]+\\| \\)\\s-+\\([0-9.]+\\)%" "Unable to import game" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (write 740 replace 749)) replace read-only-p chess-game-data #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "TimeControl" "sc_game tags set " "Event" "-event" "Site" "-site" "Date" "-date" "Round" "-round" "White" "-white" "WhiteElo" "-whiteElo" "Black" "-black" "BlackElo" "-blackElo" "-result" "ECO" "-eco" "EventDate" "-eventdate" "Extra" "-extra" " \"" "\"" "sc_game save %d" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2]] 18 (#$ . 1079)]) (provide 'chess-scid)