Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/decorate/include.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require semantic/decorate/mode semantic/db semantic/db-ref semantic/db-find] 2)
#@71 The keybinding Lisp object to use for binding the right mouse button.
(defvar semantic-decoration-mouse-3 [mouse-3] (#$ . 555))
(custom-declare-face 'semantic-decoration-on-includes nil "Overlay Face used on includes that are not in some other state.\nUsed by the decoration style: `semantic-decoration-on-includes'." :group 'semantic-faces)
#@26 Keymap used on includes.
(defvar semantic-decoration-on-include-map (byte-code "\302 \303 \304#\210)\207" [km semantic-decoration-mouse-3 make-sparse-keymap define-key semantic-decoration-include-menu] 4) (#$ . 903))
#@32 Menu used for include headers.
(defvar semantic-decoration-on-include-menu nil (#$ . 1129))
#@14 Include Menu
(defvar semantic-decoration-on-include-menu nil (#$ . 1227))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\307\314\315\316\257\f$\210\317\320\321\322\323\324%\207" [semantic-decoration-on-include-map easy-menu-do-define semantic-decoration-on-include-menu "Include Menu" "Include" ["What Is This?" semantic-decoration-include-describe :active t :help "Describe why this include has been marked this way."] ["Visit This Include" semantic-decoration-include-visit :active t :help "Visit this include file."] "---" ["Summarize includes current buffer" semantic-decoration-all-include-summary :active t :help "Show a summary for the current buffer containing this include."] ["List found includes (load unparsed)" semanticdb-find-test-translate-path :active t :help "List all includes found for this file, and parse unparsed files."] ["List found includes (no loading)" semanticdb-find-test-translate-path-no-loading :active t :help "List all includes found for this file, do not parse unparsed files."] ["List all unknown includes" semanticdb-find-adebug-lost-includes :active t :help "Show a list of all includes semantic cannot find for this file."] ["Customize System Include Path" semantic-customize-system-include-path :active (get 'semantic-dependency-system-include-path major-mode) :help "Run customize for the system include path for this major mode."] ["Add a System Include Path" semantic-add-system-include :active t :help "Add an include path for this session."] ["Remove a System Include Path" semantic-remove-system-include :active t :help "Add an include path for this session."] custom-declare-face semantic-decoration-on-unknown-includes ((((class color) (background dark)) (:background "#900000")) (((class color) (background light)) (:background "#fff0f0"))) "Face used to show includes that cannot be found.\nUsed by the decoration style: `semantic-decoration-on-unknown-includes'." :group semantic-faces] 16)
#@35 Keymap used on unparsed includes.
(defvar semantic-decoration-on-unknown-include-map (byte-code "\302 \303 \304#\210)\207" [km semantic-decoration-mouse-3 make-sparse-keymap define-key semantic-decoration-unknown-include-menu] 4) (#$ . 3186))
#@41 Menu used for unparsed include headers.
(defvar semantic-decoration-on-unknown-include-menu nil (#$ . 3438))
#@22 Unknown Include Menu
(defvar semantic-decoration-on-unknown-include-menu nil (#$ . 3553))
(byte-code "\301\302\303\304\305\306\307\310\311\312\307\313\314\315\257 $\210\316\317\320\321\322\323%\207" [semantic-decoration-on-unknown-include-map easy-menu-do-define semantic-decoration-on-unknown-include-menu "Unknown Include Menu" "Unknown Include" ["What Is This?" semantic-decoration-unknown-include-describe :active t :help "Describe why this include has been marked this way."] ["List all unknown includes" semanticdb-find-adebug-lost-includes :active t :help "Show a list of all includes semantic cannot find for this file."] "---" ["Summarize includes current buffer" semantic-decoration-all-include-summary :active t :help "Show a summary for the current buffer containing this include."] ["List found includes (load unparsed)" semanticdb-find-test-translate-path :active t :help "List all includes found for this file, and parse unparsed files."] ["List found includes (no loading)" semanticdb-find-test-translate-path-no-loading :active t :help "List all includes found for this file, do not parse unparsed files."] ["Customize System Include Path" semantic-customize-system-include-path :active (get 'semantic-dependency-system-include-path major-mode) :help "Run customize for the system include path for this major mode."] ["Add a System Include Path" semantic-add-system-include :active t :help "Add an include path for this session."] ["Remove a System Include Path" semantic-remove-system-include :active t :help "Add an include path for this session."] custom-declare-face semantic-decoration-on-fileless-includes ((((class color) (background dark)) (:background "#009000")) (((class color) (background light)) (:background "#f0fdf0"))) "Face used to show includes that have no file, but do have a DB table.\nUsed by the decoration style: `semantic-decoration-on-fileless-includes'." :group semantic-faces] 15)
#@35 Keymap used on unparsed includes.
(defvar semantic-decoration-on-fileless-include-map (byte-code "\302 \303 \304#\210)\207" [km semantic-decoration-mouse-3 make-sparse-keymap define-key semantic-decoration-fileless-include-menu] 4) (#$ . 5486))
#@41 Menu used for unparsed include headers.
(defvar semantic-decoration-on-fileless-include-menu nil (#$ . 5740))
#@23 Fileless Include Menu
(defvar semantic-decoration-on-fileless-include-menu nil (#$ . 5856))
(byte-code "\301\302\303\304\305\306\307\310\311\312\307\313\314\315\257 $\210\316\317\320\321\322\323%\207" [semantic-decoration-on-fileless-include-map easy-menu-do-define semantic-decoration-on-fileless-include-menu "Fileless Include Menu" "Fileless Include" ["What Is This?" semantic-decoration-fileless-include-describe :active t :help "Describe why this include has been marked this way."] ["List all unknown includes" semanticdb-find-adebug-lost-includes :active t :help "Show a list of all includes semantic cannot find for this file."] "---" ["Summarize includes current buffer" semantic-decoration-all-include-summary :active t :help "Show a summary for the current buffer containing this include."] ["List found includes (load unparsed)" semanticdb-find-test-translate-path :active t :help "List all includes found for this file, and parse unparsed files."] ["List found includes (no loading)" semanticdb-find-test-translate-path-no-loading :active t :help "List all includes found for this file, do not parse unparsed files."] ["Customize System Include Path" semantic-customize-system-include-path :active (get 'semantic-dependency-system-include-path major-mode) :help "Run customize for the system include path for this major mode."] ["Add a System Include Path" semantic-add-system-include :active t :help "Add an include path for this session."] ["Remove a System Include Path" semantic-remove-system-include :active t :help "Add an include path for this session."] custom-declare-face semantic-decoration-on-unparsed-includes ((((class color) (background dark)) (:background "#555500")) (((class color) (background light)) (:background "#ffff55"))) "Face used to show includes that have not yet been parsed.\nUsed by the decoration style: `semantic-decoration-on-unparsed-includes'." :group semantic-faces] 15)
#@35 Keymap used on unparsed includes.
(defvar semantic-decoration-on-unparsed-include-map (byte-code "\302 \303 \304#\210)\207" [km semantic-decoration-mouse-3 make-sparse-keymap define-key semantic-decoration-unparsed-include-menu] 4) (#$ . 7784))
#@41 Menu used for unparsed include headers.
(defvar semantic-decoration-on-unparsed-include-menu nil (#$ . 8038))
#@23 Unparsed Include Menu
(defvar semantic-decoration-on-unparsed-include-menu nil (#$ . 8154))
(byte-code "\302\303\304\305\306\307\310\311\312\313\314\315\316\312\317\320\321\257$\210\322\211\207" [semantic-decoration-on-unparsed-include-map semantic-decoration-menu-cache easy-menu-do-define semantic-decoration-on-unparsed-include-menu "Unparsed Include Menu" "Unparsed Include" ["What Is This?" semantic-decoration-unparsed-include-describe :active t :help "Describe why this include has been marked this way."] ["Visit This Include" semantic-decoration-include-visit :active t :help "Visit this include file so that header file's tags can be used."] ["Parse This Include" semantic-decoration-unparsed-include-parse-include :active t :help "Parse this include file so that header file's tags can be used."] ["Parse All Includes" semantic-decoration-unparsed-include-parse-all-includes :active t :help "Parse all the includes so the contents can be used."] "---" ["Summarize includes current buffer" semantic-decoration-all-include-summary :active t :help "Show a summary for the current buffer containing this include."] ["List found includes (load unparsed)" semanticdb-find-test-translate-path :active t :help "List all includes found for this file, and parse unparsed files."] ["List found includes (no loading)" semanticdb-find-test-translate-path-no-loading :active t :help "List all includes found for this file, do not parse unparsed files."] ["List all unknown includes" semanticdb-find-adebug-lost-includes :active t :help "Show a list of all includes semantic cannot find for this file."] ["Customize System Include Path" semantic-customize-system-include-path :active (get 'semantic-dependency-system-include-path major-mode) :help "Run customize for the system include path for this major mode."] ["Add a System Include Path" semantic-add-system-include :active t :help "Add an include path for this session."] ["Remove a System Include Path" semantic-remove-system-include :active t :help "Add an include path for this session."] nil] 19)
#@187 Return non-nil to decorate TAG with `semantic-decoration-on-includes' style.
Highlight class members that are includes.
This mode provides a nice context menu on the include statements.
(defalias 'semantic-decoration-on-includes-p #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-decoration-on-includes-p nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-decoration-on-includes-p-default] 13 (#$ . 10217)])
(put 'semantic-decoration-on-includes-p 'mode-local-overload t)
#@169 Decorate TAG with `semantic-decoration-on-includes' style.
Highlight class members that are includes.
This mode provides a nice context menu on the include statements.
(defalias 'semantic-decoration-on-includes-highlight #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-decoration-on-includes-highlight nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-decoration-on-includes-highlight-default] 13 (#$ . 11400)])
(byte-code "\300\301\302\303#\210\304\305\306\303B\"\207" [put semantic-decoration-on-includes-highlight mode-local-overload t add-to-list semantic-decoration-styles "semantic-decoration-on-includes"] 4)
#@63 Return non-nil if TAG has is an includes that can't be found.
(defalias 'semantic-decoration-on-includes-p-default #[(tag) "\302\211\211A@) *=\207" [tag class include] 3 (#$ . 12728)])
#@64 Highlight the include TAG to show that semantic can't find it.
(defalias 'semantic-decoration-on-includes-highlight-default #[(tag) "\306!\307\310\n\"\311p\"\312\211 \204\" \204\" \313#\202` \2042 \2032 \314$\202` \203G \315\316 \317\"!\203G \320%\202` \321& \203` \322 \323\"\210' (\324(\"\210)\325!\205\273 \326\211\211\3278) )\330)!\203\200 \331)!\202\204 )\332H*\211\3278) )\330)!\203\235 \333)!\202\241 )\334H*\f$ *\335*\336\337#\210\335*\340
#\210\335*\341\342#)-\207" [tag file semanticdb-find-default-throttle table face map semantic-dependency-tag-file remq unloaded semanticdb-find-table-for-include nil semantic-decoration-on-unknown-includes semantic-decoration-on-fileless-includes number-or-marker-p eieio-oref pointmax semantic-decoration-on-includes semantic-decoration-on-unparsed-includes semanticdb-cache-get semantic-decoration-unparsed-include-cache semanticdb-add-reference semantic-tag-with-position-p semantic-decorate-tag 4 overlayp overlay-start 0 overlay-end 1 overlay-put mouse-face highlight keymap help-echo "Header File : mouse-3 - Context menu" semantic-decoration-on-unknown-include-map semantic-decoration-on-fileless-include-map semantic-decoration-on-include-map semantic-decoration-on-unparsed-include-map semanticdb-current-table currenttable o ol] 6 (#$ . 12923)])
#@78 Describe the current include tag.
Argument EVENT is the mouse clicked event.
(defalias 'semantic-decoration-include-describe #[nil "\306 \206 \307\310!\311!\211\205 \312 \313\" r\314\315 !q\210p\316 \210\f\317\211;\313\211<\313 = >\320 \210\321\322!\210+\211 ? @\323\324C\325\326!\"\210\327\330!\210\327\331\317\313#!\210\327\332!\210\327\333!\210\327\311!!\210\327\334!\210\327\335!\210\336\n!\317 A\211 0\203\224 0@\211A@)\337=\203\213 0@ABA0A\2110\204v A\237*\340\211\211\211 B C D E\211 F\317 G\211 H\203\347 H@G\311G!\211 I\204\307 DTD\202\335 \341\342\n\343\"!\203\330 ETE\202\335 CTC)HA\211H\204\260 *\344EDC#\211B\340U\203\377 \327\345!\210\202 \327\346\347B\"!\210\327\346\350D\"!\210\327\346\351C\"!\210\327\346\352E\"!\210-\327\353!\210\327\354!\210\327\342\n\355\"!\210\327\356!\210\327\346\357\342\n\360\"G\"!\210\327\361!\210\327\346\362\342\n\343\"\"!\210\327\363!\210\342\n\364\"\203^\327\365!\210\202b\327\366!\210\327\367!\210\342\n\370\"\317 J\211 H\205\216H@J\327\371!\210\327\342J\301\"!\210HA\211H\204s\317*\372?!\210.\207" [tag file table default-directory #1=#:old-dir buffer-read-only semantic-current-tag error "No tag under point" semantic-dependency-tag-file semanticdb-file-table-object t get-buffer-create help-buffer kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook help-setup-xref semantic-decoration-include-describe called-interactively-p interactive princ "Include File: " semantic-format-tag-name "\n" "This include file was found at:\n " "\n\n" "Semantic knows where this include file is, and has parsed\nits contents.\n\n" semantic-something-to-tag-table include 0 number-or-marker-p eieio-oref pointmax + "There are no other includes in this file.\n" format "There are %d more includes in this file.\n" " Unknown Includes: %d\n" " Unparsed Includes: %d\n" " Parsed Includes: %d\n" "\nDetails for header file...\n" "\nMajor Mode: " major-mode "\nTags: " "%s entries" tags "\nFile Size: " "%s chars" "\nSave State: " dirty "Table needs to be saved." "Table is saved on disk." "\nExternal References:" db-refs "\n " internal-temp-output-buffer-show buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output result all unparsed unknown ok inc i --dolist-tail-- fileinner r] 7 (#$ . 14277) nil])
#@35 Visit the included file at point.
(defalias 'semantic-decoration-include-visit #[nil "\302 \211\211A@)\303=\204 \304\305!\210\306!\211\203 \307 !\204+ \304\310\211@)\"\202A \311 !\2039 \312\311 !!\202A ;\205A \313 !*\207" [tag file semantic-current-tag include error "Point is not on an include tag" semantic-dependency-tag-file file-exists-p "Could not location include %s" get-file-buffer pop-to-buffer-same-window find-file] 4 (#$ . 16693) nil])
#@140 Popup a menu that can help a user understand unparsed includes.
Argument EVENT describes the event that caused this function to be called.
(defalias 'semantic-decoration-include-menu #[(event) "\304 \305 !\306\n\307\"\210\212\310 !\210\311\312!\210\313 !\210)\306!*\207" [startwin event win semantic-decoration-on-include-menu selected-window semantic-event-window select-window t mouse-set-point sit-for 0 popup-menu] 3 (#$ . 17158) "e"])
#@82 Describe the current unknown include.
Argument EVENT is the mouse clicked event.
(defalias 'semantic-decoration-unknown-include-describe #[nil "\306 r\307\310 !q\210p\311 \210\f\312\211 \313\211!\313 \" #\314 \210\315\316!\210+\211 $ %\317\320C\321\322!\"\210\323\324!\210\323\325\n\312\313#!\210\323\326!\210\323\327\330!!\210\323\331 !!\210\323\327\332!!\210 \333=\204e \334=\203i \323\335!\210\323\336!\337$!\210-\207" [major-mode mm tag default-directory #1=#:old-dir buffer-read-only semantic-current-tag get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook help-setup-xref semantic-decoration-unknown-include-describe called-interactively-p interactive princ "Include File: " semantic-format-tag-name "\n\n" substitute-command-keys "This header file has been marked \"Unknown\".\nThis means that Semantic has not been able to locate this file on disk.\n\nWhen Semantic cannot find an include file, this means that the\nidle summary mode and idle completion modes cannot use the contents of\nthat file to provide coding assistance.\n\nIf this is a system header and you want it excluded from Semantic's\nsearches (which may be desirable for speed reasons) then you can\nsafely ignore this state.\n\nIf this is a system header, and you want to include it in Semantic's\nsearches, then you will need to use:\n\nM-x semantic-add-system-include RET /path/to/includes RET\n\nor, in your .emacs file do:\n\n (semantic-add-system-include \"/path/to/include\" \\='" symbol-name ")\n\nto add the path to Semantic's search.\n\nIf this is an include file that belongs to your project, then you may\nneed to update `semanticdb-project-roots' or better yet, use `ede'\nto manage your project. See the ede manual for projects that will\nwrap existing project code for Semantic's benefit.\n" c++-mode c-mode "\nFor C/C++ includes located within a project, you can use a special\nEDE project that will wrap an existing build system. You can do that\nlike this in your .emacs file:\n\n (ede-cpp-root-project \"NAME\" :file \"FILENAME\" :locate-fcn \\='MYFCN)\n\nSee the CEDET manual, the EDE manual, or the commentary in\nede/cpp-root.el for more.\n\nIf you think this header tag is marked in error, you may need to do:\n\nC-u M-x bovinate RET\n\nto refresh the tags in this buffer, and recalculate the state." "\nSee the Semantic manual node on SemanticDB for more about search paths." internal-temp-output-buffer-show buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 6 (#$ . 17607) nil])
#@139 Popup a menu that can help a user understand unknown includes.
Argument EVENT describes the event that caused this function to be called.
(defalias 'semantic-decoration-unknown-include-menu #[(event) "\304 \305 !\306\n\307\"\210\212\310 !\210\311\312!\210\313 !\210)\306!*\207" [startwin event win semantic-decoration-on-unknown-include-menu selected-window semantic-event-window select-window t mouse-set-point sit-for 0 popup-menu] 3 (#$ . 20217) "e"])
#@83 Describe the current fileless include.
Argument EVENT is the mouse clicked event.
(defalias 'semantic-decoration-fileless-include-describe #[nil "\306 \307p\"\n\f r\310\311 !q\210p\312 \210
\313\211 \314\211 \314 \315 \210\316\317!\210+\211 ! \"\320\321C\322\323!\"\210\324\325!\210\324\326\313\314#!\210\324\327!\210\324\330!\210\324\331!\210\324\332 !!\333!!\210.\207" [tag table major-mode mm default-directory #1=#:old-dir semantic-current-tag semanticdb-find-table-for-include get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook help-setup-xref semantic-decoration-fileless-include-describe called-interactively-p interactive princ "Include Tag: " semantic-format-tag-name "\n\n" "This header tag has been marked \"Fileless\".\nThis means that Semantic cannot find a file associated with this tag\non disk, but a database table of tags has been associated with it.\n\nThis means that the include will still be used to find tags for\nsearches, but you cannot visit this include.\n\n" "This Header is now represented by the following database table:\n\n " cl-prin1-to-string internal-temp-output-buffer-show buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 6 (#$ . 20681) nil])
#@140 Popup a menu that can help a user understand fileless includes.
Argument EVENT describes the event that caused this function to be called.
(defalias 'semantic-decoration-fileless-include-menu #[(event) "\304 \305 !\306\n\307\"\210\212\310 !\210\311\312!\210\313 !\210)\306!*\207" [startwin event win semantic-decoration-on-fileless-include-menu selected-window semantic-event-window select-window t mouse-set-point sit-for 0 popup-menu] 3 (#$ . 22013) "e"])
#@103 Describe what unparsed includes are in the current buffer.
Argument EVENT is the mouse clicked event.
(defalias 'semantic-decoration-unparsed-include-describe #[nil "\306 r\307\310 !q\210p\311 \210\n\312\211\313\211\313 \314 \210\315\316!\210+\211 !\317\320C\321\322!\"\210\323\324!\210\323\325\312\313#!\210\323\326!\210\323\327!\210\323\330!!\210\323\331!\210\323\332!\210\323\333 !\210\323\334!\335 !\210,\207" [tag default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list semantic-current-tag get-buffer-create help-buffer kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook help-setup-xref semantic-decoration-unparsed-include-describe called-interactively-p interactive princ "Include File: " semantic-format-tag-name "\n" "This include file was found at:\n " semantic-dependency-tag-file "\n\n" "This header file has been marked \"Unparsed\".\nThis means that Semantic has located this header file on disk\nbut has not yet opened and parsed this file.\n\nSo long as this header file is unparsed, idle summary and\nidle completion will not be able to reference the details in this\nheader.\n\nTo resolve this, use the context menu to parse this include file,\nor all include files referred to in " buffer-name ".\nThis can take a while in large projects.\n\nAlternately, you can call:\n\nM-x semanticdb-find-test-translate-path RET\n\nto search path Semantic uses to perform completion.\n\n\nIf you think this header tag is marked in error, you may need to do:\n\nC-u M-x bovinate RET\n\nto refresh the tags in this buffer, and recalculate the state.\nIf you find a repeatable case where a header is marked in error,\nreport it to cedet-devel@lists.sf.net." internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 6 (#$ . 22481) nil])
#@140 Popup a menu that can help a user understand unparsed includes.
Argument EVENT describes the event that caused this function to be called.
(defalias 'semantic-decoration-unparsed-include-menu #[(event) "\304 \305 !\306\n\307\"\210\212\310 !\210\311\312!\210\313 !\210)\306!*\207" [startwin event win semantic-decoration-on-unparsed-include-menu selected-window semantic-event-window select-window t mouse-set-point sit-for 0 popup-menu] 3 (#$ . 24343) "e"])
#@53 Parse the include file the user menu-selected from.
(defalias 'semantic-decoration-unparsed-include-parse-include #[nil "\301\302 !\303!\210\304 )\207" [file semantic-dependency-tag-file semantic-current-tag semanticdb-file-table-object semantic-decoration-unparsed-include-do-reset] 2 (#$ . 24810) nil])
#@53 Parse the include file the user menu-selected from.
(defalias 'semantic-decoration-unparsed-include-parse-all-includes #[nil "\300\301\211\"\207" [semanticdb-find-translate-path nil] 3 (#$ . 25123) nil])
#@58 Provide a general summary for the state of all includes.
(defalias 'semantic-decoration-all-include-summary #[nil "\306\307!\210\310 \311 !\312\211\203+ \n@\211 A@)\313=\203$ \n@ B\nA\211\204 \237* @ Ar\314\315 !q\210p\316 \210A@\312\211B\317\211C\317 D E\320 \210\321\322!\210+\211 F G\323\324C\325\326!\"\210\327\330!\210\327\331\332 !!\210\327\333!\210\334 \335\"\203\250 \327\336!\210\334 \335\"\312 H\211 I\203\247 I@H\327\337!\210\327\334H\340\"!\210IA\211I\204\215 *\327\341\342\nG
G#!\210\343\211\211\211 J K L M
\312 N\211 I\203\fI@N\344N!\211 O\205\334 \345O\317\" PO\204\353 LTL\202\346\334P\347\"!\203\375 MTM\202KTK*IA\211I\204\310 *\350MLK#\211J\343U\2045\327\341\351L\"!\210\327\341\352K\"!\210\327\341\353M\"!\210,\327\354!\210\355\356!\203\317\355\357!\203\317.\203\317\327\360\361!!\210\327\362!\210\327\363.!!\210\327\333!\210./=\204w\327\364!\210\327\363/!!\210\327\333!\210/\203\222\365/! Q\327\366!\210\327\363Q!!\210\327\333!\210)\367/!\211 R\204\243\327\370!\210\202\316\327\371!\210R\312 S\211 I\203\315I@S\327\372!\210\327S!\210\327\333!\210IA\211I\204\262*)\327\360\373!!\210T\312 S\211 I\203\373I@S\327\374!\210\327S!\210\327\333!\210IA\211I\204\340*U\211 V\203H\327\375!\210V\312 \211 I\203GI@\327\376!\210\327\f\211 @)!\210\f\211 @)\377\f!=\204:\327\201Z !\210\327\377\f!!\210\327\333!\210IA\211I\204*)\201[ \201\\ !\205\\\201] \201^ W\" W\201_ \312\211\"\211 XG
GX\203v\327\201` !\202$\327\201a !\210\327\201b !\210X\312 Y\211 I\205#I@Y\201c Y\302\"\203 \327\341\201d \201e Y!\334Y\302\"G\311Y!\312\211\203\321\n@\211 A@)\313=\203\312\n@ B\nA\211\204\271 \237*G\201f 1\346\334Y\201g \"0\202\352\210\202\363\203\363\201h \202\346\334 \347\"!\204\201i \202\201j %!\210\202\327\341\201k \201e Y!\"!\210IA\211I\204\216\312**\201l F!\210.\207" [semanticdb-current-table table tags result tag inc require semantic/dep semantic-fetch-tags semantic-something-to-tag-table nil include get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook help-setup-xref semantic-decoration-all-include-summary called-interactively-p interactive princ "Include Summary for File: " file-truename buffer-file-name "\n" eieio-oref db-refs "\nExternal Database References to this buffer:" "\n " file format "\nThis file contains %d tags, %d of which are includes.\n" 0 semantic-dependency-tag-file semanticdb-file-table-object number-or-marker-p pointmax + " Unknown Includes: %d\n" " Unparsed Includes: %d\n" " Parsed Includes: %d\n" "\nInclude Path Summary:\n\n" boundp ede-object ede-object-project substitute-command-keys " This file's project include search is handled by the EDE object:\n" " Buffer Target: " cl-prin1-to-string " Buffer Project: " ede-get-locator-object " Backup in-project Locator: " ede-system-include-path " EDE Project system include path: Empty\n" " EDE Project system include path:\n" " " "\n This file's system include path is:\n" " " "\nAll unknown includes:\n" " " semantic-tag-include-filename default-directory #1=#:old-dir buffer-read-only buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output r --dolist-tail-- all unparsed unknown ok i fileinner tableinner loc syspath dir semantic-dependency-system-include-path semanticdb-find-lost-includes unk semanticdb-find-default-throttle path p " -> " featurep semantic/db-find remq unloaded semanticdb-find-translate-path "\nThere are currently no includes found recursively.\n" "\nSummary of all includes needed by " buffer-name slot-boundp "\n %s : %d tags, %d are includes. %s" eieio-object-name-string (error) dirty " dirty." " Needs to be parsed." "" "\n %s : Unparsed" internal-temp-output-buffer-show] 11 (#$ . 25333) nil])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias semantic-decoration-unparsed-include-cache-p eieio-make-class-predicate semantic-decoration-unparsed-include-cache semantic-decoration-unparsed-include-cache--eieio-childp eieio-make-child-predicate semantic-decoration-unparsed-include-cache-child-p make-obsolete "use (cl-typep ... \\='semantic-decoration-unparsed-include-cache) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-abstract-cache) nil (:documentation "Class used to reset decorated includes.\nWhen an include's referring file is parsed, we need to undecorate\nany decorated referring includes.")] 6)
#@81 Create a new object of class type `semantic-decoration-unparsed-include-cache'.
(defalias 'semantic-decoration-unparsed-include-cache #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-decoration-unparsed-include-cache] 4 (#$ . 29968)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-decoration-unparsed-include-cache compiler-macro semantic-decoration-unparsed-include-cache--anon-cmacro] 4)
(defalias 'semantic-decoration-unparsed-include-cache--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\207" [cl-generic-define-method semantic-reset nil ((obj semantic-decoration-unparsed-include-cache)) #[(obj) "\302\301\"\303 \304\")\207" [obj table eieio-oref semanticdb-notify-references #[(tab me) "\301!\207" [tab semantic-decoration-unparsed-include-refrence-reset] 2]] 3 "Reset OBJ back to it's empty settings."] semanticdb-partial-synchronize ((cache semantic-decoration-unparsed-include-cache) new-tags) #[(cache new-tags) "\305!\306\211\203\" \n@\211A@)\307=\203 \n@ B\nA\211\204\n \237*\205+ \310\f!\207" [new-tags result tags tag cache semantic-something-to-tag-table nil include semantic-reset] 3 "Synchronize CACHE with some NEW-TAGS."] semanticdb-synchronize ((cache semantic-decoration-unparsed-include-cache) new-tags) #[(cache new-tags) "\301!\207" [cache semantic-reset] 2 "Synchronize a CACHE with some NEW-TAGS."]] 6)
#@100 Refresh any highlighting in buffers referred to by TABLE.
If TABLE is not in a buffer, do nothing.
(defalias 'semantic-decoration-unparsed-include-refrence-reset #[(table) "\303\304\"\305 \"\210)\306!\211\205 \307\310\n\")\207" [table c buf semanticdb-cache-get semantic-decoration-unparsed-include-cache semanticdb-cache-remove semanticdb-in-buffer-p semantic-decorate-add-pending-decoration semantic-decoration-unparsed-include-do-reset] 4 (#$ . 31593)])
#@56 Do a reset of unparsed includes in the current buffer.
(defalias 'semantic-decoration-unparsed-include-do-reset #[nil "\303\304\"\211A\205 \305\306 !\307\n!))\207" [semantic-decoration-styles style allinc assoc "semantic-decoration-on-includes" semantic-find-tags-included semantic-fetch-tags-fast semantic-decorate-add-decorations] 4 (#$ . 32062)])
(provide 'semantic/decorate/include)
Mini Shell