;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@41 Table of active asynchronous processes. (defvar phps-mode-serial--async-processes (make-hash-table :test 'equal) (#$ . 408)) #@39 Table of active asynchronous threads. (defvar phps-mode-serial--async-threads (make-hash-table :test 'equal) (#$ . 539)) #@41 Boolean flag whether to profile or not. (defvar phps-mode-serial--profiling nil (#$ . 666)) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\207" [custom-declare-face phps-mode-serial--mode-line-face-running ((t :inherit warning)) "Face for PHPs mode \"running\" asynchronous process mode line indicator." :group phps-mode phps-mode-serial--mode-line-face-success ((t :inherit success)) "Face for PHPs mode \"success\" asynchronous process mode line indicator." phps-mode-serial--mode-line-face-error ((t :inherit error)) "Face for PHPs mode \"error\" asynchronous process mode line indicator."] 6) #@36 Current status of serial-commands. (defvar phps-mode-serial--status nil (#$ . 1318)) (make-variable-buffer-local 'phps-mode-serial--status) (defconst phps-mode-serial--mode-line-status-run '(":" (:propertize (:eval (if (equal phps-mode-serial--status 'running) "Running.." #1="")) face phps-mode-serial--mode-line-face-running) (:propertize (:eval (if (equal phps-mode-serial--status 'error) "Error" #1#)) face phps-mode-serial--mode-line-face-error) (:propertize (:eval (if (equal phps-mode-serial--status 'success) "OK" #1#)) face phps-mode-serial--mode-line-face-success))) #@36 Kill active command KEY. (fn KEY) (defalias 'phps-mode-serial--kill-active #[257 "\302\"\203\"\303\302\"!\203\"\304\302\"!\305\302\"!\210\306!\266\302 \"\205:\307\302 \"!\205:\310\302 \"\311\312#\207" [phps-mode-serial--async-processes phps-mode-serial--async-threads gethash process-live-p process-buffer delete-process kill-buffer thread-live-p thread-signal quit nil] 6 (#$ . 1901)]) #@318 Run command with KEY, first START and if successfully then END with the result of START as argument. Optional arguments START-ERROR, END-ERROR that are called on errors. ASYNC ASYNC-BY-PROCESS specifies additional options for synchronicity. (fn KEY START END &optional START-ERROR END-ERROR ASYNC ASYNC-BY-PROCESS) (defalias 'phps-mode-serial-commands #[1795 "\306 \203\f\307\310 \"\210rq\210 \311)\312!\210\203\210\203e\313\314!\203]\315\316\317!!\320 \314\321\322\323\324\325\n\n#\326\"\327$\321\330\331\324\325$\332\"\333\334%\"\f#\262\202t\335\336\337C\"\202t\320\340\321\322\341\324\325 &\342\"\333$ \" #\202t\343\211\3441\236 \345E\211\262\2620\202\247\336E\211\262\262\210\203\323\306 \346@A@AA@\347_#\346@A@AA@\350_#Z\307\351\"\266@A@AA@\352\230\203Y\3531\367\n!\345E\211\262\2620\202\336E\211\262\262\210\203*\306 \346@A@AA@\354_#\346@A@AA@\355_#Z\307\356\"\266@A@\352\230\203=rq\210\345)\357\230\205Trq\210\336)\n\205T\n!\266\202\202p\357\230\205pr\fq\210\336) \205p !\266\203\266\202\207" [phps-mode-serial--profiling phps-mode-serial--mode-line-status-run mode-line-process phps-mode-serial--status phps-mode-serial--async-processes phps-mode-serial--async-threads current-time message "PHPs - Starting serial commands for buffer '%s'.." running phps-mode-serial--kill-active fboundp async-start file-name-directory symbol-file phps-mode puthash make-byte-code 0 "\303\304\302\"\210\305\306!\210\3071\300 \310\301E\2620\207\311\301E\207" vconcat vector [add-to-list load-path require phps-mode (error) success error] 4 257 "\211@A@AA@\306\f\2034\307 \310@A@AA@\311_#\310@A@AA@\312_#Z\313\314\"\266\315\230\203\254\3161N\301!\317E\211\262\2620\202W\320E\211\262\262\210\f\203\202\307 \310@A@AA@\321_#\310@A@AA@\322_#Z\313\323\"\266\211@A\315\230\203\223r\300q\210\317)\324\230\205\247r\300q\210\320)\303\205\247\303!\266\202\202\300\324\230\205\300r\300q\210\320)\302\205\300\302!\207" [phps-mode-serial--profiling phps-mode-serial--status nil current-time + 1e-06 1e-06 message "Serial asynchronous process start finished, elapsed: %fs" "success" (error) success error 1e-06 1e-06 "Serial synchronous thread finished, elapsed: %fs" "error"] 12 "\n\n(fn START-RETURN)" signal error "Async-start function is missing" make-thread "\306\211\3071\301 \310\305E\211\262\2620\202\311\305E\211\262\262\210\203I\312 \313@A@AA@\314_#\313\305@\305A@\305AA@\315_#Z\316\317\"\266@A@AA@\320\230\203\315\3211l\302!\310E\211\262\2620\202u\311E\211\262\262\210\203\240\312 \313@A@AA@\322_#\313@A@AA@\323_#Z\316\324\"\266@A@\320\230\203\263r\300q\210\310)\325\230\205\310r\300q\210\311)\304\205\310\304!\266\202\202\342\325\230\205\342r\300q\210\311)\303\205\342\303!\266\203\207" [nil (error) success error current-time + 1e-06 1e-06 message "Serial asynchronous thread start finished, elapsed: %fs" "success" (error) 1e-06 1e-06 "Serial asynchronous thread end finished, elapsed: %fs" "error" phps-mode-serial--profiling phps-mode-serial--status] nil (error) success + 1e-06 1e-06 "Serial synchronous thread start finished, elapsed: %fs" "success" (error) 1e-06 1e-06 "Serial synchronous thread end finished, elapsed: %fs" "error"] 22 (#$ . 2313)]) (provide 'phps-mode-serial)