| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/cedet/semantic/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require semantic semantic/ctxt semantic/format semantic/tag semantic/analyze timer] 2) #@44 Timer used to schedule tasks in idle time. (defvar semantic-idle-scheduler-timer nil (#$ . 264)) #@66 Timer used to schedule tasks in idle time that may take a while. (defvar semantic-idle-scheduler-work-timer nil (#$ . 367)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315\316\317& \210\300\320\302\303\321DD\322\306\307\310\315\316\323& \207" [custom-declare-variable semantic-idle-scheduler-verbose-flag funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means that the idle scheduler should provide debug messages.\nUse this setting to debug idle activities." :group semantic :type boolean semantic-idle-scheduler-idle-time #[0 "\300\207" [1] 1 #1#] "Time in seconds of idle before scheduling events.\nThis time should be short enough to ensure that idle-scheduler will be\nrun as soon as Emacs is idle." number :set #[514 "\301\"\210\302!\205 \303!\210\304\305 \207" [semantic-idle-scheduler-timer set-default timerp cancel-timer nil semantic-idle-scheduler-setup-timers] 5 "\n\n(fn SYM VAL)"] semantic-idle-scheduler-work-idle-time #[0 "\300\207" [60] 1 #1#] "Time in seconds of idle before scheduling big work.\nThis time should be long enough that once any big work is started,\nit is unlikely the user would be ready to type again right away." #[514 "\301\"\210\302!\205 \303!\210\304\305 \207" [semantic-idle-scheduler-timer set-default timerp cancel-timer nil semantic-idle-scheduler-setup-timers] 5 "\n\n(fn SYM VAL)"]] 10) #@51 Lazy initialization of the auto parse idle timer. (defalias 'semantic-idle-scheduler-setup-timers #[0 "\304!\204\f \305 \306\307#\304\n!\206 \305\306\310#\211\207" [semantic-idle-scheduler-timer semantic-idle-scheduler-idle-time semantic-idle-scheduler-work-timer semantic-idle-scheduler-work-idle-time timerp run-with-idle-timer t semantic-idle-scheduler-function semantic-idle-scheduler-work-function] 4 (#$ . 1779)]) #@33 Kill the auto parse idle timer. (defalias 'semantic-idle-scheduler-kill-timer #[0 "\301!\203\n \302!\210\303\211\207" [semantic-idle-scheduler-timer timerp cancel-timer nil] 2 (#$ . 2210)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable semantic-idle-scheduler-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run at the end of the function `semantic-idle-scheduler-mode'." :group semantic :type hook] 8) #@122 Non-nil if idle-scheduler minor mode is enabled. Use the command `semantic-idle-scheduler-mode' to change this variable. (defvar semantic-idle-scheduler-mode nil (#$ . 2676)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [make-variable-buffer-local semantic-idle-scheduler-mode custom-declare-variable semantic-idle-scheduler-max-buffer-size funcall function #[0 "\300\207" [0] 1 ""] "Maximum size in bytes of buffers where idle-scheduler is enabled.\nIf this value is less than or equal to 0, idle-scheduler is enabled in\nall buffers regardless of their size." :group semantic :type number] 8) #@191 Return non-nil if idle-scheduler is enabled for this buffer. idle-scheduler is disabled when debugging or if the buffer size exceeds the `semantic-idle-scheduler-max-buffer-size' threshold. (defalias 'semantic-idle-scheduler-enabled-p #[0 ";\205 \305! \205A \306\302!\205 \n?\205A ?\205A \211\204+ ;\203+ \307!\2047 \211\205A \305\310\311#\205A \f\312X\206A \313 \fW\207" [buffer-file-name semantic-idle-scheduler-mode semantic-debug-enabled semantic-lex-debug semantic-idle-scheduler-max-buffer-size file-remote-p boundp file-exists-p nil t 0 buffer-size] 5 (#$ . 3308)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-idle-scheduler-enabled-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@125 Non-nil if Semantic-Idle-Scheduler mode is enabled. Use the command `semantic-idle-scheduler-mode' to change this variable. (defvar semantic-idle-scheduler-mode nil (#$ . 4055)) (make-variable-buffer-local 'semantic-idle-scheduler-mode) #@1062 Minor mode to auto parse buffer following a change. When this mode is off, a buffer is only rescanned for tokens when some command requests the list of available tokens. When idle-scheduler is enabled, Emacs periodically checks to see if the buffer is out of date, and reparses while the user is idle (not typing.) This is a minor mode. If called interactively, toggle the `Semantic-Idle-Scheduler mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `semantic-idle-scheduler-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. The minor mode can be turned on only if semantic feature is available and the current buffer was set up for parsing. Return non-nil if the minor mode is enabled. (fn &optional ARG) (defalias 'semantic-idle-scheduler-mode #[256 "\303 \304=\203 ?\202 \247\203 \305W\203 \306\202 \307\310\301!\2031 \311\300 \"\2031 \300 B\203M \312\313!\203? \n\204J \306\314\315\316 \"\210\202M \317 \210\320\321\203W \322\202X \323\"\210\324\325!\203z \303 \203l \211\303 \232\203z \326\327\203v \330\202w \331\332#\210\210\333 \210\207" [semantic-idle-scheduler-mode local-minor-modes semantic-new-buffer-fcn-was-run current-message toggle 1 nil t boundp delq featurep semantic error "Buffer %s was not set up idle time scheduling" buffer-name semantic-idle-scheduler-setup-timers run-hooks semantic-idle-scheduler-mode-hook semantic-idle-scheduler-mode-on-hook semantic-idle-scheduler-mode-off-hook called-interactively-p any message "Semantic-Idle-Scheduler mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 4300) (byte-code "\203\n \301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar semantic-idle-scheduler-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205# \310\211%\210\314\312\315\"\207" [semantic-idle-scheduler-mode-map semantic-idle-scheduler-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-idle-scheduler-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode semantic-idle-scheduler-mode boundp semantic-add-minor-mode "ARP"] 6) #@237 List of functions to execute during idle time. These functions will be called in the current buffer after that buffer has had its tags made up to date. These functions will not be called if there are errors parsing the current buffer. (defvar semantic-idle-scheduler-queue nil (#$ . 6944)) #@61 Schedule FUNCTION to occur during idle time. (fn FUNCTION) (defalias 'semantic-idle-scheduler-add #[257 "\211\235\203 \207\211B\211\207" [semantic-idle-scheduler-queue] 3 (#$ . 7241)]) #@63 Unschedule FUNCTION to occur during idle time. (fn FUNCTION) (defalias 'semantic-idle-scheduler-remove #[257 "\301\"\211\207" [semantic-idle-scheduler-queue delete] 4 (#$ . 7438)]) #@97 Core idle function that handles reparsing. And also manages services that depend on tag values. (defalias 'semantic-idle-core-handler #[0 "\203 \306\307!\210\310\311 \31021\312\313p\313\312\314\315\316 \"\"\"\312\211\f;\205( \317\f! \205e \320\321!\2054 ?\205e )?\205e \211\204M \f;\203M \322\f!\204Y \211\205e \317\f\312\323#\205e *\324X\206e \325 *W\262\203\254\212+\262,\203z \326 \210\202\222 \3271\205 \326 0\210\202\222 \306\330\331\332p\333!#\"\266\211\203?\211@\n\203\267 \334 \204\262 r\335 !q\210\212 b\210\336 *\203\267 \337\n\340\"\210r\211q\210+=\2032\f;\205\312 \317\f! \205\320\321!\205\326 ?\205)?\205\211\204\357 \f;\203\357 \322\f!\204\373 \211\205\317\f\312\323#\205*\324X\206\325 *W\262\2037,\203\326 \210\2027\3411\"\326 0\210\2027\306\330\331\332p\333!#\"\266\2027pB\262)A\266\202\202\223 \210\262)-\211\203\253\211@\212\n\203k\334 \204fr\335 !q\210\212 b\210\336 *\203k\337\n\342\"\210\203t\306\343\"\210,\203\211 \210\202\232\3441\212\211 0\210\202\232\306\331\345\"\331\332p\333!#\"\266\203\243\306\346\"\210)A\266\202\202F\210\212\211\205+\211@\n\203\322\334 \204\315r\335 !q\210\212 b\210\336 *\203\322\337\n\347\"\210r\211q\210\f;\205\336\317\f! \205\320\321!\205\352?\205)?\205\211\204\f;\203\322\f!\204\211\205\317\f\312\323#\205*\324X\206\325 *W\262\203#\326 \210)A\266\202\202\256\262*\266\2030\210*\205:\306\350!\207" [semantic-idle-scheduler-verbose-flag semantic--on-input-start-marker semantic-current-input-throw-symbol inhibit-quit buffer-file-name semantic-idle-scheduler-mode message "IDLE: Core handler..." idle-timer point-marker nil delq mapcar #[257 "\300!\205 \211\207" [buffer-file-name] 3 "\n\n(fn B)"] buffer-list file-remote-p boundp semantic-debug-enabled file-exists-p t 0 buffer-size semantic-idle-scheduler-refresh-tags (error) "Idle Parse Error: %S" format "%S - %s" error-message-string input-pending-p marker-buffer accept-process-output throw parsing-mode-buffers (error) idle-queue "IDLE: execute service %s..." (error) "Idle Service Error %s: %%S" "IDLE: execute service %s...done" parsing-other-buffers "IDLE: Core handler...done" semantic-lex-debug semantic-idle-scheduler-max-buffer-size major-mode debug-on-error semantic-idle-scheduler-queue] 13 (#$ . 7629)]) #@58 Run the Semantic idle function with debugging turned on. (defalias 'semantic-debug-idle-function #[0 "\301\302 )\207" [debug-on-error t semantic-idle-core-handler] 1 (#$ . 9979) nil]) #@187 Function run when after `semantic-idle-scheduler-idle-time'. This function will reparse the current buffer, and if successful, call additional functions registered with the timer calls. (defalias 'semantic-idle-scheduler-function #[0 "\301 \302U\205 \303\304 \305\306\"\216\307 )\262)\207" [debug-on-error recursion-depth 0 nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] semantic-idle-core-handler] 4 (#$ . 10171)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable semantic-idle-work-parse-neighboring-files-flag funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means to parse files in the same dir as the current buffer.\nDisable to prevent lots of excessive parsing in idle time." :group semantic :type boolean semantic-idle-work-update-headers-flag #[0 "\300\207" [nil] 1 #1#] "Non-nil means to parse through header files in idle time.\nDisable to prevent idle time parsing of many files. If completion\nis called that work will be done then instead."] 8) #@134 Do long-processing work for BUFFER. Uses `semantic-safe' and returns the output. Returns t if all processing succeeded. (fn BUFFER) (defalias 'semantic-idle-work-for-one-buffer #[257 "r\211q\210\203 \302 \210\202, \3031 \302 \210\3040\202) \305\306\307\310p\311!#\"\210\312\262\205\256 \205\256 \203K \313\314!\203z \315 \203z \316\317!\210\320\312\"\210\202z \3211h \313\314!\203c \315 \203c \316\317!\210\320\312\"\210\3040\202w \305\322\307\310p\311!#\"\210\312\262\205\256 \203\214 \313\323!\203\210 \324!\210\304\202\256 \3251\237 \313\323!\203\232 \324!\210\3040\202\256 \305\326\307\310p\311!#\"\210\312\262)?\207" [debug-on-error semantic-idle-work-update-headers-flag semantic-idle-scheduler-refresh-tags (error) t message "Idle Work Parse Error: %S" format "%S - %s" error-message-string nil featurep semantic/db semanticdb-minor-mode-p require semantic/db-find semanticdb-find-translate-path (error) "Idle Work Including Error: %S" semantic/db-typecache semanticdb-typecache-refresh-for-buffer (error) "Idle Work Typecaching Error: %S"] 9 (#$ . 11274)]) #@250 Core handler for idle work processing of long running tasks. Visits Semantic controlled buffers, and makes sure all needed include files have been parsed, and that the typecache is up to date. Uses `semantic-idle-work-for-on-buffer' to do the work. (defalias 'semantic-idle-work-core-handler #[0 "\306\307\310 \3072\205\306p\311p\311\306\312\313\314 \"\"\"\306;\205! \315!\f\205] \316\305!\205, ?\205] (?\205] \211\204E ;\203E \317!\204Q \211\205] \315\306\320#\205] )\321X\206] \322 )W\262\203i \212\323p!\262)\211\204q pC\262\211\203@\211@ \203\226 \324 \204\221 r\325!q\210\212b\210\326 *\203\226 \327 \330\"\210r\211q\210;\205\242 \315!\f\205\336 \316\305!\205\255 ?\205\336 (?\205\336 \211\204\306 ;\203\306 \317!\204\322 \211\205\336 \315\306\320#\205\336 )\321X\206\336 \322 )W\262\2038;\205\353 \315!\f\205'\316\305!\205\366 ?\205'(?\205'\211\204;\203\317!\204\211\205'\315\306\320#\205')\321X\206'\322 )W\262\2038\323p!\2048pB\262)A\266\202\202r \210\331\332!\203\200\333 \203\200\334 \210*\203}+\203bq\210\335 \210\202}\3361pq\210\335 0\210\202}\337\340\341\342p\343!#\"\266\334 \210)\266\3060*\211\203\214\344\207\204\222\345\207A\204\235\341\346@\"\207\341\347G\"\207" [semantic--on-input-start-marker semantic-current-input-throw-symbol inhibit-quit buffer-file-name semantic-idle-scheduler-mode semantic-debug-enabled nil idle-work-timer point-marker delq mapcar #[257 "\300!\205 \211\207" [buffer-file-name] 3 "\n\n(fn B)"] buffer-list file-remote-p boundp file-exists-p t 0 buffer-size semantic-idle-work-for-one-buffer input-pending-p marker-buffer accept-process-output throw parsing-mode-buffers featurep semantic/db semanticdb-minor-mode-p semanticdb-save-all-db-idle semantic-idle-scheduler-work-parse-neighboring-files (error) message "Idle Work Parse Neighboring Files: %S" format "%S - %s" error-message-string "Interrupted" "done" "done with 1 error in %s" "done with errors in %d buffers." semantic-lex-debug semantic-idle-scheduler-max-buffer-size semantic-idle-work-parse-neighboring-files-flag debug-on-error] 12 (#$ . 12366)]) #@63 Run the Semantic idle work function with debugging turned on. (defalias 'semantic-debug-idle-work-function #[0 "\301\302 )\207" [debug-on-error t semantic-idle-work-core-handler] 1 (#$ . 14512) nil]) #@233 Function run when after `semantic-idle-scheduler-work-idle-time'. This routine handles difficult tasks that require a lot of parsing, such as parsing all the header files used by our active sources, or building up complex datasets. (defalias 'semantic-idle-scheduler-work-function #[0 "\203 \301\302!\210\303 \304\305\"\216\306 )\262\205 \301\307\"\207" [semantic-idle-scheduler-verbose-flag message "Long Work Idle Timer..." match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] semantic-idle-work-core-handler "Long Work Idle Timer...%s"] 4 (#$ . 14720)]) #@69 Parse all the files in similar directories to buffers being edited. (defalias 'semantic-idle-scheduler-work-parse-neighboring-files #[0 "\303\304C\305\306\307\" \"\210\310\n\311\312\311$\211\205. \211@\3132&